loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.34, 2004/12/07 16:04:06	version 1.35, 2004/12/28 20:28:47
Line 282 END	Line 282 END
return $Str;	return $Str;
}	}

sub get_title {
my ($title,$src) = @_;
if ($title eq '') {
($title) = ($src =~ m\|/([^/]+)$\|);
} else {
$title =~ s/\&colon;/:/g;
}
return $title;
}

sub new_accumulator {	sub new_accumulator {
my ($title,$src,$symb,$seq_id,$inputname) = @_;	my ($title,$src,$symb,$seq_id,$inputname) = @_;
my $target;	my $target;