loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.27, 2003/02/12 19:56:14	version 1.28, 2003/03/08 01:41:53
Line 863 sub phaseone {	Line 863 sub phaseone {
&NewDir1($r, $uname, $dir, $ENV{'form.newfilename'});	&NewDir1($r, $uname, $dir, $ENV{'form.newfilename'});
} 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' \|\|
	$ENV{'form.action'} eq 'newpagefile' \|\|
	$ENV{'form.action'} eq 'newsequencefile') {
if($ENV{'form.newfilename'}) {	if($ENV{'form.newfilename'}) {
my $newfilename = $ENV{'form.newfilename'};	my $newfilename = $ENV{'form.newfilename'};
if (!defined($dir)) {	if (!defined($dir)) {
Line 1291 sub handler {	Line 1293 sub handler {
$r->print('<h3>Copy</h3>');	$r->print('<h3>Copy</h3>');
} 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' \|\|
	$ENV{'form.action'} eq 'newpagefile' \|\|
	$ENV{'form.action'} eq 'newsequencefile' ) {
$r->print('<h3>New Resource</h3>');	$r->print('<h3>New Resource</h3>');
} else {	} else {
$r->print('<p>Unknown Action</p></body></html>');	$r->print('<p>Unknown Action</p></body></html>');