--- loncom/publisher/lonpubmenu.pm 2004/12/10 14:57:47 1.1 +++ loncom/publisher/lonpubmenu.pm 2009/02/13 17:20:32 1.5 @@ -1,6 +1,8 @@ # The LearningOnline Network with CAPA # Construction Space Buttons for Top Frame # +# $Id: lonpubmenu.pm,v 1.5 2009/02/13 17:20:32 bisitz 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 { @@ -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 }