Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v diff -u -N -r1.19 -r1.20 --- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 7 Oct 2003 13:17:18 -0000 1.19 +++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 17 Oct 2003 08:25:53 -0000 1.20 @@ -619,8 +619,10 @@ array set param $parameters - if { ![empty_string_p $param(SnapshotURL)] && [string equal [clock format [clock seconds] -format "%d"] "01"] } { - # On the first day of the month, we get a snapshot + if { (![empty_string_p $param(SnapshotURL)] && [string equal [clock format [clock seconds] -format "%d"] "01"]) || \ + [empty_string_p $param(IncrementalURL)] } { + + # On the first day of the month, we get a snapshot set url $param(SnapshotURL) set result(snapshot_p) "t" } else { @@ -629,7 +631,7 @@ } if { [empty_string_p $url] } { - error "No URL to get" + error "You must specify at least one URL to get." } set result(document) [util_httpget $url]