Return to lonpage.pm CVS log | Up to [LON-CAPA] / rat |
version 1.72, 2005/06/29 19:20:10 | version 1.73, 2006/01/11 09:13:15 |
---|---|
Line 180 sub handler { | Line 180 sub handler { |
for ($i=0;$i<=$#rows;$i++) { | for ($i=0;$i<=$#rows;$i++) { |
if ($rows[$i]) { | if ($rows[$i]) { |
my @colcont=split(/\&/,$rows[$i]); | my @colcont=split(/\&/,$rows[$i]); |
foreach (@colcont) { | foreach my $rid (@colcont) { |
$symbhash{$hash{'src_'.$_}}=['page','notasymb']; | my ($mapid,$resid)=split(/\./,$rid); |
$symbhash{$hash{'src_'.$rid}}= | |
[$hash{'src_'.$rid},$resid]; | |
} | } |
} | } |
} | } |