loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.125, 2002/10/24 14:34:07	version 1.127, 2002/10/24 15:34:10
Line 1042 sub setconstants {	Line 1042 sub setconstants {
$constants = \%tmp;	$constants = \%tmp;
}	}
$sheet->{'constants'} = $constants;	$sheet->{'constants'} = $constants;
&Apache::lonnet::logthis("----------------------------------");
foreach my $c (keys(%{$sheet->{'constants'}})) {
&Apache::lonnet::logthis('constant '.$c.' = '.
$sheet->{'constants'}->{$c});
}
return %{$sheet->{'safe'}->varglob('c')}=%{$sheet->{'constants'}};	return %{$sheet->{'safe'}->varglob('c')}=%{$sheet->{'constants'}};
}	}

Line 1631 sub format_rowlabel {	Line 1626 sub format_rowlabel {
if ($ENV{'form.showcsv'}) {	if ($ENV{'form.showcsv'}) {
$result = $title;	$result = $title;
} else {	} else {
$result = '<a href="/adm/assesscalc?usmb='.$symb.	$result = '<a href="/adm/assesscalc?usymb='.$symb.
'&uname='.$uname.'&udom='.$udom.'">'.$title.'</a>';	'&uname='.$uname.'&udom='.$udom.'">'.$title.'</a>';
}	}
} elsif ($type eq 'student') {	} elsif ($type eq 'student') {
Line 1646 sub format_rowlabel {	Line 1641 sub format_rowlabel {
}	}
} elsif ($type eq 'parameter') {	} elsif ($type eq 'parameter') {
if ($ENV{'form.showcsv'}) {	if ($ENV{'form.showcsv'}) {
$result = $labeldata =~ s/<br>//g;	$labeldata =~ s/<br>/ /g;
} else {
$result = $labeldata;
}	}
	$result = $labeldata;
} else {	} else {
&Apache::lonnet::logthis("lonspreadsheet:bogus rowlabel type: $type");	&Apache::lonnet::logthis("lonspreadsheet:bogus rowlabel type: $type");
}	}