|
version 1.35, 2002/03/26 23:14:39
|
version 1.37, 2002/06/27 14:08:05
|
|
Line 612 sub handler {
|
Line 612 sub handler {
|
| my $indent;my $indentstr; |
my $indent;my $indentstr; |
| my $linkid; |
my $linkid; |
| my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
| |
$rid=~/(\d+)\.(\d+)$/; |
| |
my $src= |
| |
&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2}); |
| |
my $symb= |
| |
&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src; |
| my $add='<td>'; |
my $add='<td>'; |
| my $adde='</td>'; |
my $adde='</td>'; |
| my $hwk='<font color="#223322">'; |
my $hwk='<font color="#223322">'; |
|
Line 622 sub handler {
|
Line 627 sub handler {
|
| $rid=$1; |
$rid=$1; |
| $add='<th bgcolor="#AAFF55"><a name="'.$rid.'">'; |
$add='<th bgcolor="#AAFF55"><a name="'.$rid.'">'; |
| $adde='</th>'; |
$adde='</th>'; |
| |
if (($ENV{'user.adv'}) && |
| |
($parmhash{$symb.'.0.parameter_randompick'})) { |
| |
$adde=' (randomly select '. |
| |
$parmhash{$symb.'.0.parameter_randompick'}. |
| |
')</th>'; |
| |
} |
| } |
} |
| if ($rid=~/^j(.+)/) { $rid=$1; } |
if ($rid=~/^j(.+)/) { $rid=$1; } |
| if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
|
Line 667 sub handler {
|
Line 678 sub handler {
|
| $adde= |
$adde= |
| '<font color=red size=+2><b> <</b></font>'.$adde; |
'<font color=red size=+2><b> <</b></font>'.$adde; |
| } |
} |
| my $src= |
|
| &Apache::lonnet::declutter($hash{'src_'.$rid}); |
|
| $rid=~/^(\d+)\.(\d+)$/; |
|
| my $symb= |
|
| &Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src; |
|
| if ($discussiontimes{$symb}>$lastcheck) { |
if ($discussiontimes{$symb}>$lastcheck) { |
| $adde= |
$adde= |
| '<img border=0 src="/adm/lonMisc/chat.gif">'. |
'<img border=0 src="/adm/lonMisc/chat.gif">'. |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnavmaps.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface