--- 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
}
|
---|