loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.24, 2003/02/10 23:13:17	version 1.25, 2003/02/10 23:19:45
Line 776 sub NewFile1 {	Line 776 sub NewFile1 {
$request->print('<p>File exists.</p></form>');	$request->print('<p>File exists.</p></form>');
}	}
else {	else {
$request->print('<p>Make new file <tt>'.$newfilename.'</tt>?</p>');	$request->print('<p>Make new file <tt>'.$dir.'/'.$newfilename.'</tt>?</p>');
my $dest=&MakeFinalUrl($request,$fullpath);	my $dest=&MakeFinalUrl($request,$fullpath);
&Debug($request, "Cancel url is: ".$cancelurl);	&Debug($request, "Cancel url is: ".$cancelurl);
&Debug($request, "Dest url is: ".$dest);	&Debug($request, "Dest url is: ".$dest);
Line 852 sub phaseone {	Line 852 sub phaseone {
} elsif ($ENV{'form.action'} eq 'newfile' \|\|	} elsif ($ENV{'form.action'} eq 'newfile' \|\|
$ENV{'form.action'} eq 'newhtmlfile' \|\|	$ENV{'form.action'} eq 'newhtmlfile' \|\|
$ENV{'form.action'} eq 'newproblemfile') {	$ENV{'form.action'} eq 'newproblemfile') {
if($ENV{'form.newfilename'}) {	if($ENV{'form.newfilename'}) {
my $newfilename = $ENV{'form.newfilename'};	my $newfilename = $ENV{'form.newfilename'};
if (!defined($dir)) {	if (!defined($dir)) {
$fn=~m:(.*)/:;	$fn=~m:(.*)/:;
$dir=$1;	$dir=$1;
	}
	&NewFile1($r, $uname, $udom, $dir, $newfilename);
	} else {
	$r->print('<p>No new filename specified.</p></form>');
}	}
&NewFile1($r, $uname, $udom, $dir, $fn, $newfilename);
}else {
$r->print('<p>No new filename specified.</p></form>');
}
}	}
}	}