[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 {