version 1.358, 2006/05/01 19:28:21
|
version 1.359, 2006/05/01 20:48:55
|
Line 2805 sub bodytag {
|
Line 2805 sub bodytag {
|
@$addentries{keys(%design)} = @design{keys(%design)}; |
@$addentries{keys(%design)} = @design{keys(%design)}; |
|
|
# role and realm |
# role and realm |
my ($role,$realm) |
my ($role,$realm) = |
=&Apache::lonnet::plaintext((split(/\./,$env{'request.role'}))[0]); |
&Apache::lonnet::plaintext((split(/\./,$env{'request.role'}))[0]); |
# realm |
# realm |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$realm= |
$realm = $env{'course.'.$env{'request.course.id'}.'.description'}; |
$env{'course.'.$env{'request.course.id'}.'.description'}; |
|
} |
} |
unless ($realm) { $realm=' '; } |
if (!$realm) { $realm=' '; } |
# Set messages |
# Set messages |
my $messages=&domainlogo($domain); |
my $messages=&domainlogo($domain); |
# Port for miniserver |
# Port for miniserver |
Line 2822 sub bodytag {
|
Line 2821 sub bodytag {
|
my $extra_body_attr = &make_attr_string($forcereg,$addentries); |
my $extra_body_attr = &make_attr_string($forcereg,$addentries); |
|
|
# construct main body tag |
# construct main body tag |
my $bodytag = <<END; |
my $bodytag = "<body $extra_body_attr>". |
<body $extra_body_attr> |
&Apache::lontexconvert::init_math_support(); |
END |
|
|
|
$bodytag .= &Apache::lontexconvert::init_math_support(); |
|
|
|
my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'. |
|
$lonhttpdPort.$img.'" alt="'.$function.'" />'; |
|
if ($bodyonly |
if ($bodyonly |
|| ($env{'request.state'} eq 'construct' |
|| ($env{'request.state'} eq 'construct' |
&& $env{'environment.remote'} ne 'off' )) { |
&& $env{'environment.remote'} ne 'off' )) { |
Line 2842 END
|
Line 2836 END
|
$bodytag.='<h1>LON-CAPA: '.$title.'</h1>'; |
$bodytag.='<h1>LON-CAPA: '.$title.'</h1>'; |
} |
} |
return $bodytag; |
return $bodytag; |
} elsif ($env{'environment.remote'} eq 'off') { |
} |
# No Remote |
|
my $roleinfo=(<<ENDROLE); |
|
<td bgcolor="$tabbg" align="right"> |
|
<font size="2" face="Arial, Helvetica, sans-serif"> |
my $roleinfo=(<<ENDROLE); |
|
<td class="LC_title_bar_who"> |
|
<div class="LC_title_bar_name"> |
$env{'environment.firstname'} |
$env{'environment.firstname'} |
$env{'environment.middlename'} |
$env{'environment.middlename'} |
$env{'environment.lastname'} |
$env{'environment.lastname'} |
$env{'environment.generation'} |
$env{'environment.generation'} |
</font> |
</div> |
<br /> |
<div class="LC_title_bar_role"> |
<font size="2" face="Arial, Helvetica, sans-serif">$role</font> |
$role |
<br /> |
</div> |
<font size="2" face="Arial, Helvetica, sans-serif">$realm</font> |
<div class="LC_title_bar_realm"> |
|
$realm |
|
</div> |
</td> |
</td> |
ENDROLE |
ENDROLE |
my $titleinfo = '<font face="Arial, Helvetica, sans-serif" size="+3" color="'. |
|
$font.'"><b>'.$title.'</b></font>'; |
|
if ($customtitle) { |
|
$titleinfo = $customtitle; |
|
} |
|
|
|
|
my $titleinfo = '<span class="LC_title_bar_title">'.$title.'</span>'; |
|
if ($customtitle) { |
|
$titleinfo = $customtitle; |
|
} |
|
# |
|
# Extra info if you are the DC |
|
my $dc_info = ''; |
|
if ($env{'user.adv'} && exists($env{'user.role.dc./'. |
|
$env{'course.'.$env{'request.course.id'}. |
|
'.domain'}.'/'})) { |
|
my $cid = $env{'request.course.id'}; |
|
$dc_info.= $cid.' '.$env{'course.'.$cid.'.internal.coursecode'}; |
|
$dc_info = '('.$dc_info.')'; |
|
} |
|
|
|
if ($env{'environment.remote'} eq 'off') { |
|
# No Remote |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
|
$forcereg=1; |
|
} |
|
|
|
if (!$customtitle && $env{'request.state'} eq 'construct') { |
|
# this is for resources; directories have customtitle, and crumbs |
|
# and select recent are created in lonpubdir.pm |
my ($uname,$thisdisfn)= |
my ($uname,$thisdisfn)= |
($env{'request.filename'} =~ m|^/home/([^/]+)/public_html/(.*)|); |
($env{'request.filename'} =~ m|^/home/([^/]+)/public_html/(.*)|); |
my $formaction='/priv/'.$uname.'/'.$thisdisfn; |
my $formaction='/priv/'.$uname.'/'.$thisdisfn; |
$formaction=~s/\/+/\//g; |
$formaction=~s/\/+/\//g; |
unless ($customtitle) { #this is for resources; directories have customtitle, and crumbs and select recent are created in lonpubdir.pm |
|
my $parentpath = ''; |
|
my $lastitem = ''; |
|
if ($thisdisfn =~ m-(.+/)([^/]*)$-) { |
|
$parentpath = $1; |
|
$lastitem = $2; |
|
} else { |
|
$lastitem = $thisdisfn; |
|
} |
|
$titleinfo = &Apache::loncommon::help_open_menu('','','','',3,'Authoring'). |
|
'<font face="Arial, Helvetica, sans-serif"><b>Construction Space</b>:</font> '. |
|
'<form name="dirs" method="post" action="'.$formaction |
|
.'" target="_top"><tt><b>' |
|
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />" |
|
.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()') |
|
.'</form>' |
|
.&Apache::lonmenu::constspaceform(); |
|
|
|
} |
my $parentpath = ''; |
$forcereg=1; |
my $lastitem = ''; |
|
if ($thisdisfn =~ m-(.+/)([^/]*)$-) { |
|
$parentpath = $1; |
|
$lastitem = $2; |
|
} else { |
|
$lastitem = $thisdisfn; |
|
} |
|
$titleinfo = |
|
&Apache::loncommon::help_open_menu('','','','',3,'Authoring'). |
|
'<b>Construction Space</b>: '. |
|
'<form name="dirs" method="post" action="'.$formaction |
|
.'" target="_top"><tt><b>' |
|
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />" |
|
.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()') |
|
.'</form>' |
|
.&Apache::lonmenu::constspaceform(); |
} |
} |
|
|
my $titletable; |
my $titletable; |
if (!$notitle) { |
if (!$notitle) { |
$titletable = |
$titletable = |
'<table bgcolor="'.$pgbg.'" width="100%" border="0" '. |
'<table id="LC_title_bar">'. |
'cellspacing="3" cellpadding="3">'. |
"<tr><td> $titleinfo $dc_info</td>".$roleinfo. |
'<tr><td bgcolor="'.$tabbg.'">'. |
'</tr></table>'; |
$titleinfo.'</td>'.$roleinfo.'</tr></table>'; |
|
} |
} |
if ($env{'request.state'} eq 'construct') { |
if ($notopbar) { |
if ($notopbar) { |
$bodytag .= $titletable; |
$bodytag .= $titletable; |
} else { |
} else { |
if ($env{'request.state'} eq 'construct') { |
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg, |
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg, |
$titletable); |
$titletable); |
} |
|
} else { |
|
if ($notopbar) { |
|
$bodytag .= $titletable; |
|
} else { |
} else { |
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg). |
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg). |
$titletable; |
$titletable; |
} |
} |
} |
} |
return $bodytag; |
return $bodytag; |
Line 2919 ENDROLE
|
Line 2929 ENDROLE
|
# |
# |
# Top frame rendering, Remote is up |
# Top frame rendering, Remote is up |
# |
# |
my $titleinfo = ' <font size="5" face="Arial, Helvetica, sans-serif"><b>'.$title.'</b></font>'; |
|
if ($customtitle) { |
my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'. |
$titleinfo = $customtitle; |
$lonhttpdPort.$img.'" alt="'.$function.'" />'; |
} |
|
# |
|
# Extra info if you are the DC |
|
my $dc_info = ''; |
|
if ($env{'user.adv'} && exists($env{'user.role.dc./'. |
|
$env{'course.'.$env{'request.course.id'}. |
|
'.domain'}.'/'})) { |
|
my $cid = $env{'request.course.id'}; |
|
$dc_info.= $cid.' '.$env{'course.'.$cid.'.internal.coursecode'}; |
|
$dc_info = '('.$dc_info.')'; |
|
} |
|
# Explicit link to get inline menu |
# Explicit link to get inline menu |
my $menu='<br /><font size="2" face="Arial, Helvetica, sans-serif"> <a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a></font>'; |
my $menu='<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>'; |
# |
# |
if ($notitle) { |
if ($notitle) { |
return $bodytag; |
return $bodytag; |
} |
} |
return(<<ENDBODY); |
return(<<ENDBODY); |
$bodytag |
$bodytag |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<table id="LC_title_bar" class="LC_with_remote"> |
<tr><td bgcolor="$sidebg"> |
<tr><td>$upperleft</td> |
$upperleft</td> |
<td class="LC_title_bar_domain_logo">$messages </td> |
<td bgcolor="$sidebg" align="right">$messages </td> |
|
</tr> |
|
<tr> |
|
<td rowspan="3" bgcolor="$tabbg"> |
|
$titleinfo $dc_info $menu |
|
</td><td bgcolor="$tabbg" align="right"> |
|
<font size="2" face="Arial, Helvetica, sans-serif"> |
|
$env{'environment.firstname'} |
|
$env{'environment.middlename'} |
|
$env{'environment.lastname'} |
|
$env{'environment.generation'} |
|
</font> |
|
</td> |
|
</tr> |
</tr> |
<tr><td bgcolor="$tabbg" align="right"> |
<tr><td>$titleinfo $dc_info $menu</td> |
<font size="2" face="Arial, Helvetica, sans-serif">$role</font> |
$roleinfo |
</td></tr> |
|
<tr> |
|
<td bgcolor="$tabbg" align="right"><font size="2" face="Arial, Helvetica, sans-serif">$realm</font> </td></tr> |
|
</table> |
</table> |
ENDBODY |
ENDBODY |
} |
} |
Line 3127 table#LC_top_nav, table#LC_menubuttons,
|
Line 3111 table#LC_top_nav, table#LC_menubuttons,
|
margin: 0px; |
margin: 0px; |
border-collapse: separate; |
border-collapse: separate; |
} |
} |
|
table#LC_title_bar { |
|
width: 100%; |
|
border: 0; |
|
border-spacing: 3px; |
|
background: $pgbg; |
|
font-family: $sans; |
|
} |
|
table#LC_title_bar.LC_with_remote { |
|
width: 100%; |
|
border: 0; |
|
border-spacing: 0; |
|
background: $pgbg; |
|
font-family: $sans; |
|
border-collapse: collapse; |
|
} |
|
table#LC_title_bar td { |
|
padding: 3px; |
|
background: $tabbg; |
|
} |
|
table#LC_title_bar td.LC_title_bar_who { |
|
background: $tabbg; |
|
color: $font; |
|
font: medium $sans; |
|
text-align: right; |
|
} |
|
span.LC_title_bar_title { |
|
font: bold xx-large $sans; |
|
} |
|
table#LC_title_bar td.LC_title_bar_domain_logo { |
|
background: $sidebg; |
|
text-align: right; |
|
} |
|
|
table#LC_menubuttons_mainmenu { |
table#LC_menubuttons_mainmenu { |
background: $pgbg; |
background: $pgbg; |
border: 0px; |
border: 0px; |