loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.69, 2002/09/18 19:41:06	version 1.70, 2002/09/18 20:40:32
Line 561 sub coming_from_hash {	Line 561 sub coming_from_hash {
my $mapstart = $hash{'map_start_'.$mainsequence};	my $mapstart = $hash{'map_start_'.$mainsequence};
my $mapfinish = $hash{'map_finish_'.$mainsequence};	my $mapfinish = $hash{'map_finish_'.$mainsequence};
my $symb = &Apache::lonnet::symbread($hash{'src_'.$mapstart});	my $symb = &Apache::lonnet::symbread($hash{'src_'.$mapstart});
$symb = m/^([^___]*)___/;	my ($presymb) = split(/___/,$symb);
my $presymb = $1.'___';	$presymb = $presymb.'___';
my $current_resource = $mapstart;	my $current_resource = $mapstart;
while ($current_resource ne $mapfinish) {	while ($current_resource ne $mapfinish) {
if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {	if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {