--- loncom/publisher/lonpubmenu.pm	2004/12/10 14:57:47	1.1
+++ loncom/publisher/lonpubmenu.pm	2005/04/07 06:56:27	1.3
@@ -27,6 +27,7 @@
 
 package Apache::lonpubmenu;
 use Apache::lonlocal;
+use Apache::lonnet;
 use Apache::loncommon;
 
 sub handler {
@@ -51,6 +52,7 @@ sub handler {
                                        nseq => 'New assembled sequence',
                                        ncrf => 'New custom rights file',
                                        nsty => 'New style file',
+                                       nlib => 'New library file',
                                        nsub => 'New subdirectory',
                                        renm => 'Rename current file to',
                                        move => 'Move current file to',
@@ -60,10 +62,10 @@ sub handler {
                                        prnt => 'Print'
                                       );
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']);
-    my $disp = $ENV{'form.disp'};
+    my $disp = $env{'form.disp'};
 # set defaults for parent directory in case frameloc is unable to determine directory
-    my $defaultdir = '/priv/'.$ENV{'user.name'}.'/'; 
-    if ($ENV{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) {
+    my $defaultdir = '/priv/'.$env{'user.name'}.'/'; 
+    if ($env{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) {
         $defaultdir = '/priv/'.$1.'/';
     }
     $r->print(<<"ENDONE");
@@ -329,6 +331,7 @@ ENDFILE
                             <option value="newsequencefile">$lt{'nseq'}:</option>
                             <option value="newrightsfile">$lt{'ncrf'}:</option>
                             <option value="newstyfile">$lt{'nsty'}:</option>
+                            <option value="newlibraryfile">$lt{'nlib'}:</option>
 			    <option value="newdir">$lt{'nsub'}:</option>
 ENDOPTIONS
     if ($disp ne 'dir') {