loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.70, 2005/07/14 22:49:26	version 1.72, 2005/08/26 19:44:16
Line 321 sub cleanDest {	Line 321 sub cleanDest {
$foundbad=1;	$foundbad=1;
$dest=~s/\.//g;	$dest=~s/\.//g;
}	}
if ($dest=~/[\#\?&%\"]/) {	if ($dest=~/[\#\?&%\":]/) {
$foundbad=1;	$foundbad=1;
$dest=~s/[\#\?&%\"]//g;	$dest=~s/[\#\?&%\":]//g;
}	}
if ($dest=~m\|/\|) {	if ($dest=~m\|/\|) {
my ($newpath)=($dest=~m\|(.*)/\|);	my ($newpath)=($dest=~m\|(.*)/\|);
Line 1025 sub Delete2 {	Line 1025 sub Delete2 {

=back	=back

Returns 0 failure, and 0 successs.	Returns 0 failure, and 1 successs.

=cut	=cut

Line 1033 sub Copy2 {	Line 1033 sub Copy2 {
my ($request, $username, $dir, $oldfile, $newfile) = @_;	my ($request, $username, $dir, $oldfile, $newfile) = @_;
&Debug($request ,"Will try to copy $oldfile to $newfile");	&Debug($request ,"Will try to copy $oldfile to $newfile");
if(-e $oldfile) {	if(-e $oldfile) {
	if ($oldfile eq $newfile) {
	$request->print('<font color="red"> '.&mt('Warning').': '.&mt('Name of new file is the same as name of old file').' - '.&mt('no action taken').'.</font>');
	return 1;
	}
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;