--- loncom/publisher/lonpubmenu.pm 2005/03/10 03:50:49 1.2 +++ 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', @@ -61,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
@@ -350,8 +352,7 @@ ENDPROBOPS
- - +$end_page ENDPAGE }