version 1.106, 2008/01/16 12:08:04
|
version 1.109, 2008/07/29 10:06:27
|
Line 207 sub startpage {
|
Line 207 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::start_page(&mt('Construction Space'),undef, |
$r->print(&Apache::loncommon::start_page('Construction Space',undef, |
{'body_title' => |
{'body_title' => |
$pagetitle,})); |
$pagetitle,})); |
} else { |
} else { |
$r->print(&Apache::loncommon::start_page(&mt('Construction Space'),undef, |
$r->print(&Apache::loncommon::start_page('Construction Space',undef, |
{ 'only_body' => 1,})); |
{ 'only_body' => 1,})); |
$r->print($pagetitle); |
$r->print($pagetitle); |
} |
} |
|
|
my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); |
|
my $doctitle = 'LON-CAPA '.&mt('Construction Space'); |
|
my $newname = &mt('New Name'); |
my $pubdirscript=(<<ENDPUBDIRSCRIPT); |
my $pubdirscript=(<<ENDPUBDIRSCRIPT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
top.document.title = '$esc_thisdisfn/ - '.&mt('LON-CAPA Construction Space'); |
top.document.title = '$esc_thisdisfn/ - $doctitle'; |
// Store directory location for menu bar to find |
// Store directory location for menu bar to find |
|
|
parent.lastknownpriv='/~$uname$esc_thisdisfn/'; |
parent.lastknownpriv='/~$uname$esc_thisdisfn/'; |
Line 313 parent.lastknownpriv='/~$uname$esc_thisd
|
Line 315 parent.lastknownpriv='/~$uname$esc_thisd
|
} |
} |
function changename(theform,activity) { |
function changename(theform,activity) { |
var oldname=theform.dispfilename.value; |
var oldname=theform.dispfilename.value; |
var newname=prompt('New Name',oldname); |
var newname=prompt('$newname',oldname); |
if (newname == "" || !newname || newname == oldname) { |
if (newname == "" || !newname || newname == oldname) { |
return |
return |
} |
} |
Line 539 sub putdirectory {
|
Line 541 sub putdirectory {
|
)); |
)); |
my $actionitem = ''; |
my $actionitem = ''; |
if ($dirname eq '..') { |
if ($dirname eq '..') { |
$actionitem = 'Go to ...'; |
$actionitem = &mt('Go to ...'); |
} else { |
} else { |
$actionitem = |
$actionitem = |
'<form name="dirselect_'.$$numdir. |
'<form name="dirselect_'.$$numdir. |