version 1.90, 2003/09/17 18:47:15
|
version 1.96, 2003/10/24 21:04:21
|
Line 203 sub registerurl {
|
Line 203 sub registerurl {
|
} |
} |
# Graphical display after login only |
# Graphical display after login only |
if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
$result.=&innerregister($forcereg,$target); |
if ($target ne 'edit') { |
|
$result.=&innerregister($forcereg,$target); |
|
} |
return $result.$force_title; |
return $result.$force_title; |
} |
} |
|
|
Line 641 sub switch {
|
Line 643 sub switch {
|
if ($nobreak==2) { return ''; } |
if ($nobreak==2) { return ''; } |
my $text=$top.' '.$bot; |
my $text=$top.' '.$bot; |
$text=~s/\s*\-\s*//gs; |
$text=~s/\s*\-\s*//gs; |
$inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />'). |
if ($nobreak) { |
'<a href="javascript:'.$act.';">'.$text.'</a> '. |
$inlineremote[10*$row+$col]= |
($nobreak?'':$desc); |
'<a href="javascript:'.$act.';">'.$text.'</a>'; |
|
} else { |
|
$inlineremote[10*$row+$col]="\n<br />". |
|
'<a href="javascript:'.$act.';">'.$desc.'</a>'; |
|
} |
} else { |
} else { |
# Inline Remote |
# Inline Remote |
if ($nobreak==2) { return ''; } |
if ($nobreak==2) { return ''; } |
my $text=$top.' '.$bot; |
my $text=$top.' '.$bot; |
$text=~s/\s*\-\s*//gs; |
$text=~s/\s*\-\s*//gs; |
$inlineremote[10*$row+$col]="\n". |
if ($nobreak==3) { |
($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td'). |
$inlineremote[10*$row+$col]="\n". |
' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':''). |
'<td width="50%" colspan="2" align="right" bgcolor="'.$tabbg.'">'. |
'"><a href="javascript:'.$act.';"><font color="'.$font.'"'. |
'<a href="javascript:'.$act.';"><font color="'.$font.'" size="+1">'.$text. |
($nobreak?' size="+1"':''). |
'</font></a></td></tr>'; |
'>'.$text.'</font></a></td>'. |
} elsif ($nobreak) { |
($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':''); |
$inlineremote[10*$row+$col]="\n<tr>". |
|
'<td width="50%" colspan="2" align="left" bgcolor="'.$tabbg.'">'. |
|
'<a href="javascript:'.$act.';"><font color="'.$font.'" size="+1">'.$text. |
|
'</font></a></td>'; |
|
} else { |
|
$inlineremote[10*$row+$col]="\n<tr>". |
|
'<td width="50%" colspan="4" align="left" bgcolor="'.$tabbg.'">'. |
|
'<a href="javascript:'.$act.';"><font color="'.$font.'">'.$desc. |
|
'</font></a></td></tr>'; |
|
} |
} |
} |
return ''; |
return ''; |
} |
} |
Line 875 ENDSERVERFORM
|
Line 890 ENDSERVERFORM
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
# &Apache::lonlocal::clearreroutetrans(); |
&Apache::lonlocal::clearreroutetrans(); |
|
|
my $form=&serverform(); |
my $form=&serverform(); |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |