--- rat/lonpage.pm 2005/06/29 19:20:10 1.72 +++ rat/lonpage.pm 2006/01/11 09:13:15 1.73 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Page Handler # -# $Id: lonpage.pm,v 1.72 2005/06/29 19:20:10 albertel Exp $ +# $Id: lonpage.pm,v 1.73 2006/01/11 09:13:15 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -180,8 +180,10 @@ sub handler { for ($i=0;$i<=$#rows;$i++) { if ($rows[$i]) { my @colcont=split(/\&/,$rows[$i]); - foreach (@colcont) { - $symbhash{$hash{'src_'.$_}}=['page','notasymb']; + foreach my $rid (@colcont) { + my ($mapid,$resid)=split(/\./,$rid); + $symbhash{$hash{'src_'.$rid}}= + [$hash{'src_'.$rid},$resid]; } } }