version 1.128, 2004/11/11 23:45:36
|
version 1.129, 2004/11/13 21:07:19
|
Line 98 ENDRELOAD
|
Line 98 ENDRELOAD
|
} |
} |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
my $output=(<<ENDMAINMENU); |
my $output=(<<ENDMAINMENU); |
<script> |
<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<br /> |
<script> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
ENDMAINMENU |
ENDMAINMENU |
Line 137 ENDMAINMENU
|
Line 137 ENDMAINMENU
|
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="javascript:gonav('/adm/navmaps?postdata=$escurl&postsymb=$escsymb')"><font color="$font">$lt{'nav'}</font></a></td> |
<a href="javascript:gonav('/adm/navmaps?postdata=$escurl&postsymb=$escsymb')"><font color="$font">$lt{'nav'}</font></a></td> |
ENDNAV |
ENDNAV |
if (($ENV{'request.noversionuri'}=~/^\/adm\//) && |
if (($ENV{'request.noversionuri'}=~/^\/adm\//) && |
($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
Line 155 ENDRELOAD
|
Line 155 ENDRELOAD
|
} |
} |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
$utility |
$utility |
</script> |
</script> |
Line 167 $utility
|
Line 167 $utility
|
$reloadlink |
$reloadlink |
$navmaps |
$navmaps |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<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"> |
<img align="right" src="/adm/lonIcons/minilogo.gif" /> |
<img align="right" src="/adm/lonIcons/minilogo.gif" /> |
Line 175 $navmaps
|
Line 175 $navmaps
|
</tr> |
</tr> |
</table> |
</table> |
</font> |
</font> |
<script> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
$reg |
$reg |
Line 414 ENDREALRES
|
Line 414 ENDREALRES
|
join('',map { (defined($_)?$_:'') } @inlineremote); |
join('',map { (defined($_)?$_:'') } @inlineremote); |
} else { |
} else { |
$inlinebuttons=(<<ENDINLINE); |
$inlinebuttons=(<<ENDINLINE); |
<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr> |
<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr> |
<tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr> |
<tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr> |
<tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr> |
<tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr> |
<tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr> |
<tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr> |
Line 422 ENDREALRES
|
Line 422 ENDREALRES
|
ENDINLINE |
ENDINLINE |
} |
} |
$result =(<<ENDREGTEXT); |
$result =(<<ENDREGTEXT); |
<script> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
</script> |
</script> |
$timesync |
$timesync |
Line 431 $tablestart
|
Line 431 $tablestart
|
$inlinebuttons |
$inlinebuttons |
$tableend |
$tableend |
$form |
$form |
<script> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
|
|
Line 444 ENDREGTEXT
|
Line 444 ENDREGTEXT
|
my $navstatus=&get_nav_status(); |
my $navstatus=&get_nav_status(); |
$result = (<<ENDREGTHIS); |
$result = (<<ENDREGTHIS); |
|
|
<script language="JavaScript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
var swmenu=null; |
var swmenu=null; |
|
|
Line 495 ENDDONOTREGTEXT
|
Line 495 ENDDONOTREGTEXT
|
# Not registered, graphical |
# Not registered, graphical |
$result = (<<ENDDONOTREGTHIS); |
$result = (<<ENDDONOTREGTHIS); |
|
|
<script language="JavaScript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
var swmenu=null; |
var swmenu=null; |
|
|
Line 553 sub startupremote {
|
Line 553 sub startupremote {
|
my $esclowerurl=&Apache::lonnet::escape($lowerurl); |
my $esclowerurl=&Apache::lonnet::escape($lowerurl); |
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); |
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); |
return(<<ENDREMOTESTARTUP); |
return(<<ENDREMOTESTARTUP); |
<script> |
<script type="text/javascript"> |
var timestart; |
var timestart; |
function wheelswitch() { |
function wheelswitch() { |
if (typeof(document.wheel) != 'undefined') { |
if (typeof(document.wheel) != 'undefined') { |
Line 610 ENDREMOTESTARTUP
|
Line 610 ENDREMOTESTARTUP
|
|
|
sub setflags() { |
sub setflags() { |
return(<<ENDSETFLAGS); |
return(<<ENDSETFLAGS); |
<script> |
<script type="text/javascript"> |
menuloaded=0; |
menuloaded=0; |
tim=0; |
tim=0; |
</script> |
</script> |
Line 621 sub maincall() {
|
Line 621 sub maincall() {
|
if (($ENV{'browser.interface'} eq 'textual') || |
if (($ENV{'browser.interface'} eq 'textual') || |
($ENV{'environment.remote'} eq 'off')) { return ''; } |
($ENV{'environment.remote'} eq 'off')) { return ''; } |
return(<<ENDMAINCALL); |
return(<<ENDMAINCALL); |
<script> |
<script type="text/javascript"> |
main(); |
main(); |
</script> |
</script> |
ENDMAINCALL |
ENDMAINCALL |
Line 679 var menu=window.open("/res/adm/pages/men
|
Line 679 var menu=window.open("/res/adm/pages/men
|
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
self.name='loncapaclient'; |
self.name='loncapaclient'; |
ENDOPEN |
ENDOPEN |
return '<script>'.$returnval.'</script>'; |
return '<script type="text/javascript">'.$returnval.'</script>'; |
} |
} |
|
|
|
|
Line 907 sub close {
|
Line 907 sub close {
|
($ENV{'environment.remote'} eq 'off')) { return ''; } |
($ENV{'environment.remote'} eq 'off')) { return ''; } |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
return(<<ENDCLOSE); |
return(<<ENDCLOSE); |
<script> |
<script type="text/javascript"> |
window.status='Accessing Remote Control'; |
window.status='Accessing Remote Control'; |
menu=window.open("/adm/rat/empty.html","$menuname", |
menu=window.open("/adm/rat/empty.html","$menuname", |
"height=350,width=150,scrollbars=no,menubar=no"); |
"height=350,width=150,scrollbars=no,menubar=no"); |