Index: openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl,v diff -u -r1.36.2.3 -r1.36.2.4 --- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl 12 Dec 2003 13:37:42 -0000 1.36.2.3 +++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl 12 Dec 2003 15:24:54 -0000 1.36.2.4 @@ -331,14 +331,12 @@ file mkdir $catalog_dir } - # Create a backup file first if there isn't one already + # Create a backup file first if a file already exists set backup_path "${file_path}.orig" - if { [file exists $file_path] && ![file exists $backup_path] } { - ns_log Notice "Backing up catalog file $file_path" - file copy -- $file_path $backup_path - } else { - ns_log Notice "Not backing up $file_path as backup file already exists" - } + if { [file exists $file_path] } { + ns_log Notice "Creating backup catalog file $backup_path" + file copy -force -- $file_path $backup_path + } # Since the output charset, and thus the filename, may have changed since # last time that we wrote the catalog file we remove old files with the same locale