version 1.176, 2006/04/21 20:45:42
|
version 1.178, 2006/05/08 19:32:09
|
Line 64 sub initlittle {
|
Line 64 sub initlittle {
|
'groups' => 'Groups'); |
'groups' => 'Groups'); |
} |
} |
|
|
sub get_colors { |
|
my ($font,$pgbg,$tabbg); |
|
if ($env{'browser.interface'} eq 'textual') { |
|
$pgbg='#FFFFFF'; |
|
$tabbg='#FFFFFF'; |
|
$font='#000000'; |
|
} else { |
|
my $domain =&Apache::loncommon::determinedomain(); |
|
my $function =&Apache::loncommon::get_users_function(); |
|
|
|
$pgbg =&Apache::loncommon::designparm($function.'.pgbg', $domain); |
|
$tabbg =&Apache::loncommon::designparm($function.'.tabbg',$domain); |
|
$font =&Apache::loncommon::designparm($function.'.font', $domain); |
|
} |
|
return ($font,$pgbg,$tabbg); |
|
} |
|
# ============================= This gets called at the top of the body section |
# ============================= This gets called at the top of the body section |
|
|
sub menubuttons { |
sub menubuttons { |
Line 259 $reloadlink
|
Line 243 $reloadlink
|
$navmaps |
$navmaps |
$docs |
$docs |
$groups |
$groups |
<td><a href="/adm/remote?action=launch&url=$escurl" target="_top">$lt{'launch'}</td> |
<td><a href="/adm/remote?action=launch&url=$escurl" target="_top">$lt{'launch'}</a></td> |
<td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td> |
<td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td> |
<td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td> |
<td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td> |
<td><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td> |
<td><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td> |
Line 320 sub innerregister {
|
Line 304 sub innerregister {
|
|
|
my $textual=($textinter || $noremote); |
my $textual=($textinter || $noremote); |
|
|
@inlineremote=(); |
undef(@inlineremote); |
undef @inlineremote; |
|
|
|
my $reopen=&Apache::lonmenu::reopenmenu(); |
my $reopen=&Apache::lonmenu::reopenmenu(); |
|
|
my ($font,$pgbg,$tabbg) = &get_colors(); |
|
|
|
my $newmail=''; |
my $newmail=''; |
if ($noremote) { |
if ($noremote) { |
$newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'"><font face="Arial,Helvetica,sans-serif">'; |
$newmail='<table id="LC_nav_location"><tr>'; |
} |
} |
if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) { |
if (&Apache::lonmsg::newmail()) { |
|
if ($textual) { |
|
$newmail.= '<td class="LC_new_mail"> |
|
<a href="/adm/communicate" target="_top">'. |
|
&mt('You have new messages').'</a></td>'; |
|
} else { |
|
$newmail= 'swmenu.setstatus("you have","messages");'; |
|
} |
|
} elsif (($textual) |
|
&& ($env{'request.symb'}) |
|
&& ($env{'request.course.id'})) { |
|
$newmail.= '<td class="LC_current_location">'; |
my ($mapurl,$rid,$resurl)= |
my ($mapurl,$rid,$resurl)= |
&Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
&Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'}; |
$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'}; |
Line 343 sub innerregister {
|
Line 335 sub innerregister {
|
if ($restitle) { |
if ($restitle) { |
$newmail.=': '.$restitle; |
$newmail.=': '.$restitle; |
} |
} |
$newmail.=' '; |
$newmail.=' </td>'; |
} |
|
if (&Apache::lonmsg::newmail()) { |
|
$newmail=($textual? |
|
'<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />': |
|
'swmenu.setstatus("you have","messages");'); |
|
} |
} |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
$newmail = $titletable; |
$newmail = $titletable; |
} else { |
} else { |
if ($noremote) { |
if ($noremote) { |
$newmail.='</font></td></tr></table>'; |
$newmail.='</td></tr></table>'; |
} |
} |
} |
} |
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); |
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); |
my $tablestart=($noremote?'<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%">':'').($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':''); |
my $tablestart=($noremote?'<table id="LC_menubuttons">':''). |
my $tableend=($noremote?'</table></font>':'').($textinter?'<a name="content" />':''); |
($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':''); |
|
my $tableend=($noremote?'</table>':'').($textinter?'<a name="content" />':''); |
# ============================================================================= |
# ============================================================================= |
# ============================ This is for URLs that actually can be registered |
# ============================ This is for URLs that actually can be registered |
if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) { |
if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) { |
Line 814 sub switch {
|
Line 802 sub switch {
|
$desc=&mt($desc); |
$desc=&mt($desc); |
$img=&mt($img); |
$img=&mt($img); |
|
|
my ($font,$pgbg,$tabbg) = &get_colors(); |
|
|
|
unless (($env{'browser.interface'} eq 'textual') || |
unless (($env{'browser.interface'} eq 'textual') || |
($env{'environment.remote'} eq 'off')) { |
($env{'environment.remote'} eq 'off')) { |
# Remote |
# Remote |
Line 842 sub switch {
|
Line 828 sub switch {
|
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } |
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } |
my $pic= |
my $pic= |
'<img border="0" alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}. |
'<img alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}. |
':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'. |
':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'. |
($nobreak==3?'right':'left').'" />'; |
($nobreak==3?'right':'left').'" />'; |
if (($env{'browser.interface'} eq 'textual') || ($env{'browser.interface'} eq 'faketextual')) { |
if ($env{'browser.interface'} eq 'faketextual') { |
# Accessibility |
# Accessibility |
if ($nobreak==3) { |
if ($nobreak==3) { |
$inlineremote[10*$row+$col]="\n". |
$inlineremote[10*$row+$col]="\n". |
'<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text. |
'<td class="LC_menubuttons_text" align="right">'.$text. |
'</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'. |
'</td><td class="LC_menubuttons_img" align="left">'. |
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>'; |
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>'; |
} elsif ($nobreak) { |
} elsif ($nobreak) { |
$inlineremote[10*$row+$col]="\n<tr>". |
$inlineremote[10*$row+$col]="\n<tr>". |
'<td width="10%" align="left" bgcolor="'.$tabbg.'">'. |
'<td class="LC_menubuttons_img" align="left">'. |
'<a href="javascript:'.$act.';">'.$pic. |
'<a href="javascript:'.$act.';">'.$pic.'</a></td> |
'</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>'; |
<td class="LC_menubuttons_text" align="left">'.$text.'</td>'; |
} else { |
} else { |
$inlineremote[10*$row+$col]="\n<tr>". |
$inlineremote[10*$row+$col]="\n<tr>". |
'<td width="10%" align="left" bgcolor="'.$tabbg.'">'. |
'<td class="LC_menubuttons_img" align="left">'. |
'<a href="javascript:'.$act.';">'.$pic. |
'<a href="javascript:'.$act.';">'.$pic. |
'</a></td><td colspan="3"><font color="'.$font.'">'.$desc. |
'</a></td><td class="LC_menubuttons_text" colspan="3">'. |
'</font></td></tr>'; |
$desc.'</td></tr>'; |
} |
} |
} else { |
} else { |
# Inline Menu |
# Inline Menu |
$inlineremote[10*$row+$col]= |
$inlineremote[10*$row+$col]= |
'<a href="javascript:'.$act.';">'.$pic. |
'<a href="javascript:'.$act.';">'.$pic. |
'</a><font color="'.$font.'" size="2">'.$desc. |
'</a><span class="LC_menubuttons_inline_text">'.$desc.'</span>'; |
'</font>'; |
|
} |
} |
} |
} |
return ''; |
return ''; |