# The LearningOnline Network with CAPA
# Construction Space Buttons for Top Frame
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
###
package Apache::lonpubmenu;
use Apache::lonlocal;
use Apache::loncommon;
sub handler {
my $r = shift;
my %lt=&Apache::lonlocal::texthash(
cnpd => 'Cannot publish directory',
cnrd => 'Cannot retrieve directory',
mcdi => 'Must create new subdirectory inside a directory',
pubr => 'Publish this Resource',
pubd => 'Publish this Directory',
rtrv => 'Retrieve Old Version',
pubs => 'Publish with Subdirectories',
list => 'List Directory',
uplo => 'Upload file',
dele => 'Delete',
edit => 'Edit Catalog Information',
sela => 'Select Action',
nfil => 'New file',
nhtm => 'New HTML file',
nprb => 'New problem',
npag => 'New assembled page',
nseq => 'New assembled sequence',
ncrf => 'New custom rights file',
nsty => 'New style file',
nsub => 'New subdirectory',
renm => 'Rename current file to',
move => 'Move current file to',
copy => 'Copy current file to',
type => 'Type Name Here',
go => 'Go',
prnt => 'Print'
);
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['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\./[^/]+/([^/]+)#) {
$defaultdir = '/priv/'.$1.'/';
}
$r->print(<<"ENDONE");
LON-CAPA Publishing Frame
END
if ($disp eq 'dir') {
$r->print('
');
} else {
$r->print('
');
}
$r->print(<<"ENDTWO");
|
|
|
|
ENDTWO
if ($disp eq 'dir') {
$r->print(<<"ENDDIR");
|
|
ENDDIR
} else {
$r->print(<<"ENDFILE");
|
|
ENDFILE
}
$r->print(<<"ENDOPTIONS");
|
|
ENDPAGE
}
1;