version 1.120, 2009/05/19 10:16:02
|
version 1.121, 2009/05/19 22:52:29
|
Line 199 sub startpage {
|
Line 199 sub startpage {
|
|
|
my $formaction='/priv/'.$uname.$thisdisfn.'/'; |
my $formaction='/priv/'.$uname.$thisdisfn.'/'; |
$formaction=~s|/+|/|g; |
$formaction=~s|/+|/|g; |
my $pagetitle .= &Apache::loncommon::help_open_menu('','',3,'Authoring'). |
|
'<font face="Arial, Helvetica, sans-serif" size="+1"><b>'.&mt('Construction Space').'</b>:</font> '. |
|
'<form name="dirs" method="post" action="'.$formaction. |
|
'" target="_parent"><tt><b>'. |
|
&Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />". |
|
&Apache::lonhtmlcommon::select_recent('construct','recent', |
|
'this.form.action=this.form.recent.value;this.form.submit()'). |
|
'</form>'; |
|
&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('Construction Space',undef, |
$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(&Apache::loncommon::start_page('Construction Space',undef, |
{ 'only_body' => 1,})); |
{ 'only_body' => 1,})); |
$r->print($pagetitle); |
|
} |
} |
|
|
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs()); # FIXME add breadcrumbs |
|
|
|
$r->print(&Apache::loncommon::head_subbox( |
|
&Apache::loncommon::CSTR_pageheader(1))); |
|
|
my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $doctitle = 'LON-CAPA '.&mt('Construction Space'); |
my $doctitle = 'LON-CAPA '.&mt('Construction Space'); |
my $newname = &mt('New Name'); |
my $newname = &mt('New Name'); |