version 1.86, 2005/07/12 15:55:58
|
version 1.90, 2006/04/18 22:38:08
|
Line 137 sub handler {
|
Line 137 sub handler {
|
} |
} |
closedir(DIR); |
closedir(DIR); |
|
|
$r->print('</table></body></html>'); |
$r->print('</table>'.&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
# |
# |
Line 191 sub startpage {
|
Line 191 sub startpage {
|
my $currdir = '/priv/'.$uname.$thisdisfn; |
my $currdir = '/priv/'.$uname.$thisdisfn; |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print($html.'<head><title>LON-CAPA Construction Space</title></head>'); |
|
|
|
my $pagetitle; |
|
my $formaction='/priv/'.$uname.$thisdisfn.'/'; |
my $formaction='/priv/'.$uname.$thisdisfn.'/'; |
$formaction=~s/\/+/\//g; |
$formaction=~s|/+|/|g; |
$pagetitle .= &Apache::loncommon::help_open_menu('','','','',3,'Authoring'). |
my $pagetitle .= &Apache::loncommon::help_open_menu('','','','',3,'Authoring'). |
'<font face="Arial, Helvetica, sans-serif" size="+1"><b>Construction Space</b>:</font> '. |
'<font face="Arial, Helvetica, sans-serif" size="+1"><b>Construction Space</b>:</font> '. |
'<form name="dirs" method="post" action="'.$formaction. |
'<form name="dirs" method="post" action="'.$formaction. |
'" target="_parent"><tt><b>'. |
'" target="_parent"><tt><b>'. |
Line 208 sub startpage {
|
Line 205 sub startpage {
|
&Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction); |
&Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction); |
if ($env{'environment.remote'} eq 'off') { |
if ($env{'environment.remote'} eq 'off') { |
$env{'request.noversionuri'}=$currdir.'/'; |
$env{'request.noversionuri'}=$currdir.'/'; |
$r->print(&Apache::loncommon::bodytag('Construction Space',undef,undef,undef,undef,undef,$pagetitle)); |
$r->print(&Apache::loncommon::start_page('Construction Space',undef, |
|
{'body_title' => |
|
$pagetitle,})); |
} else { |
} else { |
|
$r->print(&Apache::loncommon::start_page('Construction Space',undef)); |
$r->print($pagetitle); |
$r->print($pagetitle); |
} |
} |
|
|
my $pubdirscript=(<<ENDPUBDIRSCRIPT); |
my $pubdirscript=(<<ENDPUBDIRSCRIPT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
top.document.title = '$thisdisfn/ - LON-CAPA Construction Space'; |
top.document.title = '$thisdisfn/ - LON-CAPA Construction Space'; |
Line 233 parent.lastknownpriv='/~$uname$thisdisfn
|
Line 234 parent.lastknownpriv='/~$uname$thisdisfn
|
document.printdir.postdata.value=theform.filename.value |
document.printdir.postdata.value=theform.filename.value |
document.printdir.submit(); |
document.printdir.submit(); |
} |
} |
|
if (theform.dirtask.options[theform.dirtask.selectedIndex].value == "delete") { |
|
var delform = document.delresource |
|
delform.filename.value = theform.filename.value |
|
delform.submit() |
|
} |
} |
} |
|
|
function checkUpload(theform) { |
function checkUpload(theform) { |
Line 259 parent.lastknownpriv='/~$uname$thisdisfn
|
Line 265 parent.lastknownpriv='/~$uname$thisdisfn
|
theform.postdata.value = theform.filename.value |
theform.postdata.value = theform.filename.value |
theform.submit() |
theform.submit() |
} |
} |
|
if (theform.diraction.options[theform.diraction.selectedIndex].value == "delete") { |
|
var delform = document.delresource |
|
delform.filename.value = theform.filename.value |
|
delform.submit() |
|
} |
return |
return |
} |
} |
function SetResChoice(theform) { |
function SetResChoice(theform) { |
Line 325 sub dircontrols {
|
Line 336 sub dircontrols {
|
mcdi => 'Must create new subdirectory inside a directory', |
mcdi => 'Must create new subdirectory inside a directory', |
pubr => 'Publish this Resource', |
pubr => 'Publish this Resource', |
pubd => 'Publish this Directory', |
pubd => 'Publish this Directory', |
|
dedr => 'Delete Directory', |
rtrv => 'Retrieve Old Version', |
rtrv => 'Retrieve Old Version', |
pubs => 'Publish with Subdirectories', |
|
list => 'List Directory', |
list => 'List Directory', |
uplo => 'Upload file', |
uplo => 'Upload file', |
dele => 'Delete', |
dele => 'Delete', |
Line 366 sub dircontrols {
|
Line 377 sub dircontrols {
|
<option value="publish">$lt{'pubd'}</option> |
<option value="publish">$lt{'pubd'}</option> |
<option value="editcat">$lt{'edit'}</option> |
<option value="editcat">$lt{'edit'}</option> |
<option value="printdir">$lt{'prnt'}</option> |
<option value="printdir">$lt{'prnt'}</option> |
|
<option value="delete">$lt{'dedr'}</option> |
</select> |
</select> |
<input type="hidden" name="filename" value="/~$uname$thisdisfn/" /> |
<input type="hidden" name="filename" value="/~$uname$thisdisfn/" /> |
</form> |
</form> |
Line 517 sub putdirectory {
|
Line 529 sub putdirectory {
|
'<option selected="selected">'.&mt('Select action').'</option>'. |
'<option selected="selected">'.&mt('Select action').'</option>'. |
'<option value="open">'.&mt('Open').'</option>'. |
'<option value="open">'.&mt('Open').'</option>'. |
'<option value="publish">'.&mt('Publish').'</option>'. |
'<option value="publish">'.&mt('Publish').'</option>'. |
'<option value="publishsub">'.&mt('Publish with subdirectories').'</option>'. |
|
'<option value="editcat">'.&mt('Edit catalog information').'</option>'. |
'<option value="editcat">'.&mt('Edit catalog information').'</option>'. |
'<option value="printdir">'.&mt('Print directory').'</option>'. |
'<option value="printdir">'.&mt('Print directory').'</option>'. |
|
'<option value="delete">'.&mt('Delete directory').'</option>'. |
'</select>'. |
'</select>'. |
'<input type="hidden" name="filename" value="'.&HTML::Entities::encode($dirpath.'/'.$dirname,'<>&"').'/" />'. |
'<input type="hidden" name="filename" value="'.&HTML::Entities::encode($dirpath.'/'.$dirname,'<>&"').'/" />'. |
'<input type="hidden" name="openname" value="'.$here.'/'.$dirname.'/" />'. |
'<input type="hidden" name="openname" value="'.$here.'/'.$dirname.'/" />'. |