Changeset 31180 in project for release/4/qwiki/trunk/qwiki-svn.scm


Ignore:
Timestamp:
08/02/14 13:44:30 (6 years ago)
Author:
sjamaan
Message:

qwiki: Fix #1123 by correctly detecting files under version control.

This takes away the cause of the bug, but the resulting situation can
still occur when a file somehow gets added but not put under version
control. If this happens, visiting the edit or history pages still
cause a hard 500 error. I think that's fine, because this demands
manual intervention to debug the situation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki-svn.scm

    r26108 r31180  
    22;; qwiki-svn - Subversion implementation of revisioning system for qwiki
    33;;
    4 ;; Copyright (c) 2009-2012 Peter Bex
     4;; Copyright (c) 2009-2014 Peter Bex
    55;;
    66;;  Redistribution and use in source and binary forms, with or without
     
    121121
    122122(define (undo-changes! source-path)
    123   (if (get-info source-path)            ; Existing file?
     123  ;; File exists and under version control?
     124  (if (let ((info (get-info source-path)))
     125        (and info (not (zero? (svn-info-rev info)))))
    124126      (svn-client-revert (list source-path) #t
    125127                         (qwiki-repos-username)
Note: See TracChangeset for help on using the changeset viewer.