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.62, 2004/08/24 21:21:41
Line 988 sub Copy2 {	Line 988 sub Copy2 {
unless (copy($oldfile, $newfile)) {	unless (copy($oldfile, $newfile)) {
$request->print('<font color="red"> '.&mt('copy Error').': '.$!.'</font>');	$request->print('<font color="red"> '.&mt('copy Error').': '.$!.'</font>');
return 0;	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 {	} else {
unless (chmod(0660, $newfile)) {
$request->print('<font color="red"> '.&mt('chmod error').': '.$!.'</font>');
return 0;
}
return 1;	return 1;
}	}
} else {	} else {
Line 1118 sub phasetwo {	Line 1123 sub phasetwo {
return ;	return ;
}	}
$dest = $dir."/.";	$dest = $dir."/.";
} elsif ($ENV{'form.action'} eq 'rename') { # Rename.	} elsif ($ENV{'form.action'} eq 'rename' \|\|
	$ENV{'form.action'} eq 'move') {
if($ENV{'form.newfilename'}) {	if($ENV{'form.newfilename'}) {
if (!defined($dir)) {	if (!defined($dir)) {
$fn=~m:^(.*)/:;	$fn=~m:^(.*)/:;