version 1.221, 2007/07/16 03:19:10
|
version 1.225, 2007/08/30 22:35:41
|
Line 547 $inlineremote[91] $inlineremote[92] $inl
|
Line 547 $inlineremote[91] $inlineremote[92] $inl
|
ENDINLINEICONS |
ENDINLINEICONS |
} |
} |
} else { |
} else { |
$inlinebuttons=(<<ENDFIRSTLINE); |
if ($inlineremote[21] ne '' || $inlineremote[23] ne '') { |
|
$inlinebuttons=(<<ENDFIRSTLINE); |
<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr> |
<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr> |
ENDFIRSTLINE |
ENDFIRSTLINE |
if (&hidden_button_check() ne 'yes') { |
|
$inlinebuttons .= (<<ENDINLINE); |
|
<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[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr> |
|
<tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr> |
|
ENDINLINE |
|
} |
} |
} |
if (&hidden_button_check() ne 'yes') { |
} |
foreach my $row (6..9) { |
|
if ($inlineremote[${row}.'1'] ne '' |
|
|| $inlineremote[$row.'2'] ne '' |
|
|| $inlineremote[$row.'3'] ne '') { |
|
$inlinebuttons .= <<"ENDLINE"; |
|
<tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr> |
|
ENDLINE |
|
} |
|
} |
|
} |
|
} |
|
} |
} |
} |
$result =(<<ENDREGTEXT); |
$result =(<<ENDREGTEXT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
</script> |
</script> |
$timesync |
$timesync |
$newmail |
|
$tablestart |
$tablestart |
$inlinebuttons |
$inlinebuttons |
|
$newmail |
$tableend |
$tableend |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
Line 807 sub open {
|
Line 812 sub open {
|
return '<script type="text/javascript">self.name="loncapaclient";</script>'; |
return '<script type="text/javascript">self.name="loncapaclient";</script>'; |
} |
} |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
unless (shift eq 'unix') { |
|
|
# unless (shift eq 'unix') { |
# resizing does not work on linux because of virtual desktop sizes |
# resizing does not work on linux because of virtual desktop sizes |
$returnval.=(<<ENDRESIZE); |
# $returnval.=(<<ENDRESIZE); |
if (window.screen) { |
#if (window.screen) { |
self.resizeTo(screen.availWidth-215,screen.availHeight-55); |
# self.resizeTo(screen.availWidth-215,screen.availHeight-55); |
self.moveTo(190,15); |
# self.moveTo(190,15); |
} |
#} |
ENDRESIZE |
#ENDRESIZE |
} |
# } |
$returnval.=(<<ENDOPEN); |
$returnval.=(<<ENDOPEN); |
window.status='Opening LON-CAPA Remote Control'; |
window.status='Opening LON-CAPA Remote Control'; |
var menu=window.open("/res/adm/pages/menu.html","$menuname", |
var menu=window.open("/res/adm/pages/menu.html","$menuname", |
Line 884 sub switch {
|
Line 890 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 alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}. |
'<img alt="'.$text.'" src="'. |
':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'. |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img). |
($nobreak==3?'right':'left').'" />'; |
'" align="'.($nobreak==3?'right':'left').'" />'; |
if ($env{'browser.interface'} eq 'faketextual') { |
if ($env{'browser.interface'} eq 'faketextual') { |
# Accessibility |
# Accessibility |
if ($nobreak==3) { |
if ($nobreak==3) { |