--- loncom/publisher/loncfile.pm 2003/06/20 15:30:13 1.33 +++ loncom/publisher/loncfile.pm 2003/08/01 18:06:33 1.34 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.33 2003/06/20 15:30:13 www Exp $ +# $Id: loncfile.pm,v 1.34 2003/08/01 18:06:33 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -879,6 +879,8 @@ sub phaseone { $ENV{'form.action'} eq 'newproblemfile' || $ENV{'form.action'} eq 'newpagefile' || $ENV{'form.action'} eq 'newsequencefile' || + $ENV{'form.action'} eq 'newrightsfile' || + $ENV{'form.action'} eq 'newstyfile' || $ENV{'form.action'} eq 'Select Action') { if($ENV{'form.newfilename'}) { my $newfilename = $ENV{'form.newfilename'}; @@ -1309,6 +1311,8 @@ sub handler { $ENV{'form.action'} eq 'newproblemfile' || $ENV{'form.action'} eq 'newpagefile' || $ENV{'form.action'} eq 'newsequencefile' || + $ENV{'form.action'} eq 'newrightsfile' || + $ENV{'form.action'} eq 'newstyfile' || $ENV{'form.action'} eq 'Select Action' ) { $r->print('

New Resource

'); } else {