version 1.2, 2005/03/10 03:50:49
|
version 1.7, 2015/06/09 21:23:27
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Construction Space Buttons for Top Frame |
# Construction Space Buttons for Top Frame |
# |
# |
|
# $Id$ |
|
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
Line 27
|
Line 29
|
|
|
package Apache::lonpubmenu; |
package Apache::lonpubmenu; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
my %lt=&Apache::lonlocal::texthash( |
my %js_lt=&Apache::lonlocal::texthash( |
cnpd => 'Cannot publish directory', |
cnpd => 'Cannot publish directory', |
cnrd => 'Cannot retrieve directory', |
cnrd => 'Cannot retrieve directory', |
mcdi => 'Must create new subdirectory inside a directory', |
mcdi => 'Must create new subdirectory inside a directory', |
|
); |
|
&js_escape(\%js_lt); |
|
my %html_lt=&Apache::lonlocal::texthash( |
pubr => 'Publish this Resource', |
pubr => 'Publish this Resource', |
pubd => 'Publish this Directory', |
pubd => 'Publish this Directory', |
rtrv => 'Retrieve Old Version', |
rtrv => 'Retrieve Old Version', |
Line 42 sub handler {
|
Line 48 sub handler {
|
list => 'List Directory', |
list => 'List Directory', |
uplo => 'Upload file', |
uplo => 'Upload file', |
dele => 'Delete', |
dele => 'Delete', |
edit => 'Edit Catalog Information', |
edit => 'Edit Metadata', |
sela => 'Select Action', |
sela => 'Select Action', |
nfil => 'New file', |
nfil => 'New file', |
nhtm => 'New HTML file', |
nhtm => 'New HTML file', |
Line 60 sub handler {
|
Line 66 sub handler {
|
go => 'Go', |
go => 'Go', |
prnt => 'Print' |
prnt => 'Print' |
); |
); |
|
&html_escape(\%html_lt); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']); |
&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 |
# set defaults for parent directory in case frameloc is unable to determine directory |
my $defaultdir = '/priv/'.$ENV{'user.name'}.'/'; |
my $defaultdir = '/priv/'.$env{'user.name'}.'/'; |
if ($ENV{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) { |
if ($env{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) { |
$defaultdir = '/priv/'.$1.'/'; |
$defaultdir = '/priv/'.$1.'/'; |
} |
} |
$r->print(<<"ENDONE"); |
my $js= |
<html> |
|
<head> |
|
<title>LON-CAPA Publishing Frame</title> |
|
<script type="text/javascript"> |
<script type="text/javascript"> |
//<!-- |
//<!-- |
function frameloc() { |
function frameloc() { |
Line 121 function getactionfilename() {
|
Line 125 function getactionfilename() {
|
if ((document.fileaction.filename.value.charAt( |
if ((document.fileaction.filename.value.charAt( |
document.fileaction.filename.value.length-1)!='/') && |
document.fileaction.filename.value.length-1)!='/') && |
(document.fileaction.filename.value.indexOf('/adm/pubdir')==-1)) { |
(document.fileaction.filename.value.indexOf('/adm/pubdir')==-1)) { |
alert('$lt{'mcdi'}'); |
alert('$js_lt{'mcdi'}'); |
return; |
return; |
} |
} |
} |
} |
Line 165 function getpostdata() {
|
Line 169 function getpostdata() {
|
ENDONE |
ENDONE |
|
|
if ($disp eq 'dir') { |
if ($disp eq 'dir') { |
$r->print(<<"ENDDIR"); |
$js .= <<"ENDDIR"; |
function getdirname() { |
function getdirname() { |
document.publishdir.filename.value=frameloc(); |
document.publishdir.filename.value=frameloc(); |
pubdir(document.publishdir) |
pubdir(document.publishdir) |
Line 200 function forcepub(theform) {
|
Line 204 function forcepub(theform) {
|
} |
} |
ENDDIR |
ENDDIR |
} else { |
} else { |
$r->print(<<"ENDRES"); |
$js.=<<"ENDRES"; |
function getfilename() { |
function getfilename() { |
document.publisher.filename.value=frameloc(); |
document.publisher.filename.value=frameloc(); |
if ((document.publisher.filename.value.charAt( |
if ((document.publisher.filename.value.charAt( |
Line 208 function getfilename() {
|
Line 212 function getfilename() {
|
(document.publisher.filename.value.indexOf('/adm/pubdir')==-1)) { |
(document.publisher.filename.value.indexOf('/adm/pubdir')==-1)) { |
document.publisher.submit(); |
document.publisher.submit(); |
} else { |
} else { |
alert('$lt{'cnpd'}'); |
alert('$js_lt{'cnpd'}'); |
} |
} |
} |
} |
|
|
Line 219 function getrfilename() {
|
Line 223 function getrfilename() {
|
(document.rpublisher.filename.value.indexOf('/adm/pubdir')==-1)) { |
(document.rpublisher.filename.value.indexOf('/adm/pubdir')==-1)) { |
document.rpublisher.submit(); |
document.rpublisher.submit(); |
} else { |
} else { |
alert('$lt{'cnrd'}'); |
alert('$js_lt{'cnrd'}'); |
} |
} |
} |
} |
|
|
Line 229 function getdelfilename() {
|
Line 233 function getdelfilename() {
|
} |
} |
ENDRES |
ENDRES |
} |
} |
|
my $start_page = |
|
&Apache::loncommon::start_page('Publishing Frame',$js, |
|
{'only_body' => 1,}); |
|
my $end_page = |
|
&Apache::loncommon::end_page(); |
$r->print(<<"END"); |
$r->print(<<"END"); |
//--> |
$start_page |
</script> |
|
</head> |
|
<body bgcolor="#ccffdd" text='#002200' link='#003333' vlink='#006666'> |
|
<table border="0" align="center"><tr><th bgcolor="#004400" height="20"> |
<table border="0" align="center"><tr><th bgcolor="#004400" height="20"> |
<table border="0" cellspacing="2" cellpadding="2"><tr valign="middle"> |
<table border="0" cellspacing="2" cellpadding="2"><tr valign="middle"> |
<td bgcolor="#ccddaa" align="center"> |
<td bgcolor="#ccddaa" align="center"> |
Line 243 END
|
Line 249 END
|
<form name="publishdir" action="/adm/publish" target="_parent" method="post"> |
<form name="publishdir" action="/adm/publish" target="_parent" method="post"> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="forcerepub" value="NO" /> |
<input type="hidden" name="forcerepub" value="NO" /> |
<input type="button" value="'.$lt{'pubd'}.'" onclick="getdirname();" /> |
<input type="button" value="'.$html_lt{'pubd'}.'" onclick="getdirname();" /> |
</form> |
</form> |
'); |
'); |
} else { |
} else { |
$r->print(' |
$r->print(' |
<form name="publisher" action="/adm/publish" target="_parent" method="post"> |
<form name="publisher" action="/adm/publish" target="_parent" method="post"> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<input type="button" value="'.$lt{'pubr'}.'" onclick="getfilename();" /> |
<input type="button" value="'.$html_lt{'pubr'}.'" onclick="getfilename();" /> |
</form> |
</form> |
'); |
'); |
} |
} |
Line 260 END
|
Line 266 END
|
<td bgcolor="#ccddaa" align="center"> |
<td bgcolor="#ccddaa" align="center"> |
<form name="dpublisher" action="/adm/pubdir" target="LONCAPAToBePublished" method="post"> |
<form name="dpublisher" action="/adm/pubdir" target="LONCAPAToBePublished" method="post"> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<input type="button" value="$lt{'list'}" onclick="getdfilename();" /> |
<input type="button" value="$html_lt{'list'}" onclick="getdfilename();" /> |
</form> |
</form> |
</td> |
</td> |
<td bgcolor="#ccddaa" valign="top" align="center"> |
<td bgcolor="#ccddaa" valign="top" align="center"> |
Line 268 END
|
Line 274 END
|
method="post" enctype="multipart/form-data"> |
method="post" enctype="multipart/form-data"> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<input type="file" name="upfile" size="20" /> |
<input type="file" name="upfile" size="20" /> |
<input type="button" value="$lt{'uplo'}" onclick="getufilename();" /> |
<input type="button" value="$html_lt{'uplo'}" onclick="getufilename();" /> |
</form> |
</form> |
</td> |
</td> |
<td rowspan="2" bgcolor="#ccddaa" align="center"> |
<td rowspan="2" bgcolor="#ccddaa" align="center"> |
Line 276 END
|
Line 282 END
|
<input type="hidden" name="postdata" value="" /> |
<input type="hidden" name="postdata" value="" /> |
<input type="hidden" name="curseed" value="" /> |
<input type="hidden" name="curseed" value="" /> |
<input type="hidden" name="problemtype" value="" /> |
<input type="hidden" name="problemtype" value="" /> |
<input type="button" value="$lt{'prnt'}" onclick="getpostdata();" /> |
<input type="button" value="$html_lt{'prnt'}" onclick="getpostdata();" /> |
</form> |
</form> |
</td> |
</td> |
</tr> |
</tr> |
Line 289 ENDTWO
|
Line 295 ENDTWO
|
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="forcerepub" value="NO" /> |
<input type="hidden" name="forcerepub" value="NO" /> |
<input type="hidden" name="pubrec" value="1" /> |
<input type="hidden" name="pubrec" value="1" /> |
<input type="button" value="$lt{'pubs'}" onclick="getsubdirname();" /> |
<input type="button" value="$html_lt{'pubs'}" onclick="getsubdirname();" /> |
</form> |
</form> |
</td> |
</td> |
<td bgcolor="#ccddaa"> |
<td bgcolor="#ccddaa"> |
<form name="editcat" action="/adm/cfile" target="_parent" method="post"> |
<form name="editcat" action="/adm/cfile" target="_parent" method="post"> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<input type="button" value="$lt{'edit'}" onclick="geteditcat();" /> |
<input type="button" value="$html_lt{'edit'}" onclick="geteditcat();" /> |
</form> |
</form> |
</td> |
</td> |
ENDDIR |
ENDDIR |
Line 304 ENDDIR
|
Line 310 ENDDIR
|
<td bgcolor="#ccddaa" align="center"> |
<td bgcolor="#ccddaa" align="center"> |
<form name="rpublisher" action="/adm/retrieve" target="_parent" method="post"> |
<form name="rpublisher" action="/adm/retrieve" target="_parent" method="post"> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<input type="button" value="$lt{'rtrv'}" onclick="getrfilename();" /> |
<input type="button" value="$html_lt{'rtrv'}" onclick="getrfilename();" /> |
</form> |
</form> |
</td> |
</td> |
<td bgcolor="#ccddaa"> |
<td bgcolor="#ccddaa"> |
<form name="del" action="/adm/cfile" target="_parent" method="post"> |
<form name="del" action="/adm/cfile" target="_parent" method="post"> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="action" value="delete" /> |
<input type="hidden" name="action" value="delete" /> |
<input type="button" value="$lt{'dele'}" onclick="getdelfilename();" /> |
<input type="button" value="$html_lt{'dele'}" onclick="getdelfilename();" /> |
</form> |
</form> |
</td> |
</td> |
ENDFILE |
ENDFILE |
Line 322 ENDFILE
|
Line 328 ENDFILE
|
<nobr> |
<nobr> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
<select name="action"> |
<select name="action"> |
<option value="Select Action">$lt{'sela'}</option> |
<option value="Select Action">$html_lt{'sela'}</option> |
<option value="newfile">$lt{'nfil'}:</option> |
<option value="newfile">$html_lt{'nfil'}:</option> |
<option value="newhtmlfile">$lt{'nhtm'}:</option> |
<option value="newhtmlfile">$html_lt{'nhtm'}:</option> |
<option value="newproblemfile">$lt{'nprb'}:</option> |
<option value="newproblemfile">$html_lt{'nprb'}:</option> |
<option value="newpagefile">$lt{'npag'}:</option> |
<option value="newpagefile">$html_lt{'npag'}:</option> |
<option value="newsequencefile">$lt{'nseq'}:</option> |
<option value="newsequencefile">$html_lt{'nseq'}:</option> |
<option value="newrightsfile">$lt{'ncrf'}:</option> |
<option value="newrightsfile">$html_lt{'ncrf'}:</option> |
<option value="newstyfile">$lt{'nsty'}:</option> |
<option value="newstyfile">$html_lt{'nsty'}:</option> |
<option value="newlibraryfile">$lt{'nlib'}:</option> |
<option value="newlibraryfile">$html_lt{'nlib'}:</option> |
<option value="newdir">$lt{'nsub'}:</option> |
<option value="newdir">$html_lt{'nsub'}:</option> |
ENDOPTIONS |
ENDOPTIONS |
if ($disp ne 'dir') { |
if ($disp ne 'dir') { |
$r->print(<<"ENDPROBOPS"); |
$r->print(<<"ENDPROBOPS"); |
<option value="rename">$lt{'renm'}:</option> |
<option value="rename">$html_lt{'renm'}:</option> |
<option value="move">$lt{'move'}:</option> |
<option value="move">$html_lt{'move'}:</option> |
<option value="copy">$lt{'copy'}:</option> |
<option value="copy">$html_lt{'copy'}:</option> |
ENDPROBOPS |
ENDPROBOPS |
} |
} |
$r->print(<<"ENDPAGE"); |
$r->print(<<"ENDPAGE"); |
</select> <input type="text" name="newfilename" value="$lt{'type'}" onfocus="if (this.value == '$lt{'type'}') this.value=''" /> <input type="button" value="$lt{'go'}" onclick="getactionfilename();" /> |
</select> <input type="text" name="newfilename" value="$html_lt{'type'}" onfocus="if (this.value == '$html_lt{'type'}') this.value=''" /> <input type="button" value="$html_lt{'go'}" onclick="getactionfilename();" /> |
</nobr> |
</nobr> |
</form> |
</form> |
</td> |
</td> |
Line 350 ENDPROBOPS
|
Line 356 ENDPROBOPS
|
</th> |
</th> |
</tr> |
</tr> |
</table> |
</table> |
</body> |
$end_page |
</html> |
|
ENDPAGE |
ENDPAGE |
} |
} |
|
|