loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.33, 2003/06/20 15:30:13	version 1.34, 2003/08/01 18:06:33
Line 879 sub phaseone {	Line 879 sub phaseone {
$ENV{'form.action'} eq 'newproblemfile' \|\|	$ENV{'form.action'} eq 'newproblemfile' \|\|
$ENV{'form.action'} eq 'newpagefile' \|\|	$ENV{'form.action'} eq 'newpagefile' \|\|
$ENV{'form.action'} eq 'newsequencefile' \|\|	$ENV{'form.action'} eq 'newsequencefile' \|\|
	$ENV{'form.action'} eq 'newrightsfile' \|\|
	$ENV{'form.action'} eq 'newstyfile' \|\|
$ENV{'form.action'} eq 'Select Action') {	$ENV{'form.action'} eq 'Select Action') {
if($ENV{'form.newfilename'}) {	if($ENV{'form.newfilename'}) {
my $newfilename = $ENV{'form.newfilename'};	my $newfilename = $ENV{'form.newfilename'};
Line 1309 sub handler {	Line 1311 sub handler {
$ENV{'form.action'} eq 'newproblemfile' \|\|	$ENV{'form.action'} eq 'newproblemfile' \|\|
$ENV{'form.action'} eq 'newpagefile' \|\|	$ENV{'form.action'} eq 'newpagefile' \|\|
$ENV{'form.action'} eq 'newsequencefile' \|\|	$ENV{'form.action'} eq 'newsequencefile' \|\|
	$ENV{'form.action'} eq 'newrightsfile' \|\|
	$ENV{'form.action'} eq 'newstyfile' \|\|
$ENV{'form.action'} eq 'Select Action' ) {	$ENV{'form.action'} eq 'Select Action' ) {
$r->print('<h3>New Resource</h3>');	$r->print('<h3>New Resource</h3>');
} else {	} else {