[LON-CAPA-cvs] cvs: loncom /publisher loncfile.pm publisher.html

[www]

www		Fri Mar  7 20:41:54 2003 EDT

  Modified files:              
    /loncom/publisher	loncfile.pm publisher.html 
  Log:
  New .sequence and .page menu options
  
  
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.27 loncom/publisher/loncfile.pm:1.28
--- loncom/publisher/loncfile.pm:1.27	Wed Feb 12 14:56:14 2003
+++ loncom/publisher/loncfile.pm	Fri Mar  7 20:41:53 2003
@@ -9,7 +9,7 @@
 #  and displays a page showing the results of the action.
 #
 #
-# $Id: loncfile.pm,v 1.27 2003/02/12 19:56:14 albertel Exp $
+# $Id: loncfile.pm,v 1.28 2003/03/08 01:41:53 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -863,7 +863,9 @@
     &NewDir1($r, $uname, $dir, $ENV{'form.newfilename'});
   }  elsif ($ENV{'form.action'} eq 'newfile' ||
 	    $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'}) {
 	  my $newfilename = $ENV{'form.newfilename'};
 	  if (!defined($dir)) {
@@ -1291,7 +1293,9 @@
       $r->print('<h3>Copy</h3>');
   } elsif ($ENV{'form.action'} eq 'newfile' ||
 	   $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>');
   } else {
      $r->print('<p>Unknown Action</p></body></html>');
Index: loncom/publisher/publisher.html
diff -u loncom/publisher/publisher.html:1.26 loncom/publisher/publisher.html:1.27
--- loncom/publisher/publisher.html:1.26	Mon Feb 10 17:52:59 2003
+++ loncom/publisher/publisher.html	Fri Mar  7 20:41:54 2003
@@ -123,6 +123,8 @@
 			    <option value="newfile">New file:</option>
 			    <option value="newhtmlfile">New HTML file:</option>
 			    <option value="newproblemfile">New problem:</option>
+                            <option value="newpagefile">New assembled page:</option>
+                            <option value="newsequencefile">New assembled sequence:</option>
 			    <option value="newdir">New subdirectory:</option>
 			    <option value="rename">Rename current file to:</option>
 			    <option value="copy">Copy current file to:</option>