version 1.148, 2005/02/18 21:23:12
|
version 1.150, 2005/02/26 06:14:01
|
Line 60 sub initlittle {
|
Line 60 sub initlittle {
|
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', |
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', |
'nav' => 'Navigate Contents', |
'nav' => 'Navigate Contents', |
'main' => 'Main Menu', |
'main' => 'Main Menu', |
|
'roles' => ($ENV{'user.adv'}? |
|
'Roles':'Courses'), |
|
'exit' => 'Exit', |
'launch' => 'Launch Remote Control'); |
'launch' => 'Launch Remote Control'); |
} |
} |
|
|
Line 72 sub menubuttons {
|
Line 75 sub menubuttons {
|
my $titletable=shift; |
my $titletable=shift; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['inhibitmenu']); |
['inhibitmenu']); |
if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; } |
if (($ENV{'form.inhibitmenu'} eq 'yes') || |
|
($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; } |
|
|
my $navmaps=''; |
my $navmaps=''; |
my $reloadlink=''; |
my $reloadlink=''; |
Line 103 ENDNAV
|
Line 107 ENDNAV
|
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a> |
<a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a> |
ENDRELOAD |
ENDRELOAD |
} |
} |
} |
} |
my $form=&serverform(); |
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
my $output=(<<ENDMAINMENU); |
my $output=(<<ENDMAINMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
<!-- // BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
$utility |
$utility |
--> |
|
</script> |
</script> |
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
<a href="/adm/menu" target="_top">$lt{'main'}</a> |
$reloadlink $navmaps<br /> |
$reloadlink $navmaps |
|
<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a> |
|
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a> |
|
<br /> |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
Line 181 ENDRELOAD
|
Line 187 ENDRELOAD
|
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
<!-- // BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
|
// <![CDATA[ |
$utility |
$utility |
--> |
// ]]> |
</script> |
</script> |
<font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1"> |
<font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1"> |
<tr> |
<tr> |
Line 196 $navmaps
|
Line 203 $navmaps
|
<a href="/adm/remote?action=launch&url=$escurl" target="_top"> |
<a href="/adm/remote?action=launch&url=$escurl" target="_top"> |
<font color="$font">$lt{'launch'}</font></a></td> |
<font color="$font">$lt{'launch'}</font></a></td> |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
|
<a href="/adm/roles" target="_top"><font color="$font">$lt{'roles'}</font></a> |
|
</td> |
|
<td bgcolor="$tabbg"> |
|
<a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a> |
|
</td> |
|
<td bgcolor="$tabbg"> |
<img align="right" src="$logo" /> |
<img align="right" src="$logo" /> |
<b>LON-CAPA</b></td> |
<b>LON-CAPA</b></td> |
$form |
$form |
Line 296 sub innerregister {
|
Line 309 sub innerregister {
|
} |
} |
if ($ENV{'request.state'} eq 'construct') { |
if ($ENV{'request.state'} eq 'construct') { |
$newmail = $titletable; |
$newmail = $titletable; |
} |
} else { |
if ($noremote) { |
if ($noremote) { |
$newmail.='</td></tr></table></font>'; |
$newmail.='</td></tr></table></font>'; |
|
} |
} |
} |
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?'<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 />':''); |
Line 490 ENDREGTEXT
|
Line 504 ENDREGTEXT
|
$result = (<<ENDREGTHIS); |
$result = (<<ENDREGTHIS); |
|
|
<script type="text/javascript"> |
<script type="text/javascript"> |
// <!-- BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
var swmenu=null; |
var swmenu=null; |
|
|
function LONCAPAreg() { |
function LONCAPAreg() { |
Line 525 var swmenu=null;
|
Line 539 var swmenu=null;
|
2000); |
2000); |
} |
} |
|
|
// END LON-CAPA Internal --> |
// END LON-CAPA Internal |
</script> |
</script> |
ENDREGTHIS |
ENDREGTHIS |
} |
} |