loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.109, 2003/12/09 21:14:23	version 1.110, 2003/12/11 22:18:04
Line 188 sub get_sequence_assessment_data {	Line 188 sub get_sequence_assessment_data {
$title =~ s/\&colon;/\&\#058;/g;	$title =~ s/\&colon;/\&\#058;/g;
$symb = $curRes->symb();	$symb = $curRes->symb();
$src = $curRes->src();	$src = $curRes->src();
	# Grab the filename if there is not title available
	if (! defined($title) \|\| $title eq '') {
	($title) = ($src=~ m:/([^/]*)$:);
	}
my $parts = $curRes->parts();	my $parts = $curRes->parts();
my %partdata;	my %partdata;
foreach my $part (@$parts) {	foreach my $part (@$parts) {