--- loncom/publisher/lonpubmenu.pm 2004/12/10 14:57:47 1.1 +++ loncom/publisher/lonpubmenu.pm 2009/02/26 16:10:49 1.6 @@ -1,6 +1,8 @@ # The LearningOnline Network with CAPA # Construction Space Buttons for Top Frame # +# $Id: lonpubmenu.pm,v 1.6 2009/02/26 16:10:49 schafran Exp $ +# # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -27,6 +29,7 @@ package Apache::lonpubmenu; use Apache::lonlocal; +use Apache::lonnet; use Apache::loncommon; sub handler { @@ -42,7 +45,7 @@ sub handler { list => 'List Directory', uplo => 'Upload file', dele => 'Delete', - edit => 'Edit Catalog Information', + edit => 'Edit Metadata', sela => 'Select Action', nfil => 'New file', nhtm => 'New HTML file', @@ -51,6 +54,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,16 +64,13 @@ 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"); - - -LON-CAPA Publishing Frame + my $js= - - +$start_page
@@ -329,6 +332,7 @@ ENDFILE + ENDOPTIONS if ($disp ne 'dir') { @@ -348,8 +352,7 @@ ENDPROBOPS
- - +$end_page ENDPAGE }