[LON-CAPA-cvs] cvs: loncom /publisher loncfile.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Thu, 28 Aug 2003 20:28:33 -0000
matthew Thu Aug 28 16:28:33 2003 EDT
Modified files:
/loncom/publisher loncfile.pm
Log:
no comment
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.40 loncom/publisher/loncfile.pm:1.41
--- loncom/publisher/loncfile.pm:1.40 Tue Aug 26 15:17:02 2003
+++ loncom/publisher/loncfile.pm Thu Aug 28 16:28:33 2003
@@ -9,7 +9,7 @@
# and displays a page showing the results of the action.
#
#
-# $Id: loncfile.pm,v 1.40 2003/08/26 19:17:02 www Exp $
+# $Id: loncfile.pm,v 1.41 2003/08/28 20:28:33 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -758,28 +758,28 @@
my $tmp2=$nRN.'.meta';
if(-e $tmp1){
unless(rename($tmp1,$tmp2)){ }
- }else if(-e $tmp2){
+ } elsif(-e $tmp2){
unlink $tmp2;
}
$tmp1=$oRN.'.save';
$tmp2=$nRN.'.save';
if(-e $tmp1){
unless(rename($tmp1,$tmp2)){ }
- }else if(-e $tmp2){
+ } elsif(-e $tmp2){
unlink $tmp2;
}
$tmp1=$oRN.'.log';
$tmp2=$nRN.'.log';
if(-e $tmp1){
unless(rename($tmp1,$tmp2)){ }
- }else if(-e $tmp2){
+ } elsif(-e $tmp2){
unlink $tmp2;
}
$tmp1=$oRN.'.bak';
$tmp2=$nRN.'.bak';
if(-e $tmp1){
unless(rename($tmp1,$tmp2)){ }
- }else if(-e $tmp2){
+ } elsif(-e $tmp2){
unlink $tmp2;
}
} else {