loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.60, 2004/08/20 16:29:15
+version 1.61, 2004/08/24 15:53:21
  Line 988  sub Copy2 {
  	unless (copy($oldfile, $newfile)) {
  	    $request->print('<font color="red"> '.&mt('copy Error').': '.$!.'</font>');
  	    return 0;
+ 	} elsif (!chmod(0660, $newfile)) {
+ 	    $request->print('<font color="red"> '.&mt('chmod error').': '.$!.'</font>');
+ 	    return 0;
+ 	} elsif (-e $oldfile.'.meta' &&
+ 		 !copy($oldfile.'.meta', $newfile.'.meta') &&
+ 		 !chmod(0660, $newfile.'.meta')) {
+ 	    $request->print('<font color="red"> '.&mt('copy metadata error').
+ 			    ': '.$!.'</font>');
+ 	    return 0;
  	} else {
- 	    unless (chmod(0660, $newfile)) {
- 		$request->print('<font color="red"> '.&mt('chmod error').': '.$!.'</font>');
- 		return 0;
- 	    }
  	    return 1;
  	}
      } else {