loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.30, 2003/12/08 19:58:39	version 1.33, 2004/02/24 20:47:14
Line 781 sub compute {	Line 781 sub compute {
while (my ($parm,$value) = each(%parameters)) {	while (my ($parm,$value) = each(%parameters)) {
my $cell = 'A'.$self->get_row_number_from_key($parm);	my $cell = 'A'.$self->get_row_number_from_key($parm);
$f{$cell} = $parm;	$f{$cell} = $parm;
$value = '"'.$value.'"' if ($value =~/[^0-9.]/);	if ($parm =~ /_submission$/ && $value =~ /(\{\|\})/) {
	$value = 'witheld';
	}
	$value = 'q{'.$value.'}' if ($value =~/([^\d\.]\|\.\.)/);
$c{$parm} = $value;	$c{$parm} = $value;
}	}
$self->formulas(\%f);	$self->formulas(\%f);
Line 873 sub load_cached_export_rows {	Line 876 sub load_cached_export_rows {
# We only got one key, so we will access it directly.	# We only got one key, so we will access it directly.
while (my ($key,$sheetdata) = each(%tmp)) {	while (my ($key,$sheetdata) = each(%tmp)) {
my ($sname,$sdom,$sheettype,$symb) = split(':',$key);	my ($sname,$sdom,$sheettype,$symb) = split(':',$key);
	if (! defined($sname) \|\| $sname eq '' \|\|
	! defined($sdom) \|\| $sdom eq '' ) {
	next;
	}
if ($symb =~ /\.time$/) {	if ($symb =~ /\.time$/) {
$symb =~ s/\.time$//;	$symb =~ s/\.time$//;
$Exportrows{$symb}->{'time'} = $sheetdata;	$Exportrows{$symb}->{'time'} = $sheetdata;