version 1.147, 2005/02/17 08:29:42
|
version 1.148, 2005/02/18 21:23:12
|
Line 443 ENDREALRES
|
Line 443 ENDREALRES
|
$buttons.=&clear(@rest); |
$buttons.=&clear(@rest); |
} |
} |
} |
} |
my $addremote=0; |
|
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } } |
if ($textual) { |
if ($textual && $addremote) { |
my $addremote=0; |
# Registered, textual output |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } } |
my $inlinebuttons=''; |
my $inlinebuttons=''; |
|
if ($addremote) { |
|
# Registered, textual output |
|
|
if ($ENV{'browser.interface'} eq 'textual') { |
if ($ENV{'browser.interface'} eq 'textual') { |
$inlinebuttons= |
$inlinebuttons= |
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> |
<tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr> |
<tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr> |
ENDINLINE |
ENDINLINE |
|
} |
} |
} |
if ($const_space && $is_const_dir) { |
|
$inlinebuttons = ''; |
|
} |
|
$result =(<<ENDREGTEXT); |
$result =(<<ENDREGTEXT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
Line 485 ENDREGTEXT
|
Line 485 ENDREGTEXT
|
my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
my $navstatus=&get_nav_status(); |
my $navstatus=&get_nav_status(); |
my $clearcstr; |
my $clearcstr; |
|
|
if ($ENV{'user.adv'}) { $clearcstr='clearbut(6,1)'; } |
if ($ENV{'user.adv'}) { $clearcstr='clearbut(6,1)'; } |
$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 524 var swmenu=null;
|
Line 525 var swmenu=null;
|
2000); |
2000); |
} |
} |
|
|
// END LON-CAPA Internal |
// END LON-CAPA Internal --> |
</script> |
</script> |
ENDREGTHIS |
ENDREGTHIS |
} |
} |