loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.57, 2006/12/21 02:54:19	version 1.59, 2012/10/12 13:56:38
Line 156 sub initialize {	Line 156 sub initialize {
if (! defined($navmap)) {	if (! defined($navmap)) {
$navmap = Apache::lonnavmaps::navmap->new();	$navmap = Apache::lonnavmaps::navmap->new();
}	}
if (!defined($navmap)) {	if ((!defined($navmap)) \|\| (!ref($navmap))) {
&Apache::lonnet::logthis('assesscalc:Can not open Coursemap');	&Apache::lonnet::logthis('assesscalc:Can not open Coursemap');
}	}
&Apache::loncoursedata::clear_internal_caches();	&Apache::loncoursedata::clear_internal_caches();
Line 852 sub sett {	Line 852 sub sett {
# Replace 'A0' with the value from 'A0'	# Replace 'A0' with the value from 'A0'
$t{$cell}=~s/(^\|[^\"\'])([A-Za-z]\d+)/$1\$sheet_values\{\'$2\'\}/g;	$t{$cell}=~s/(^\|[^\"\'])([A-Za-z]\d+)/$1\$sheet_values\{\'$2\'\}/g;
# Replace parameters	# Replace parameters
$t{$cell}=~s/(^\|[^\"\'])\[([^\]]+)\]/$1.$self->expandnamed($2)/ge;	$t{$cell}=~s/(^\|[^\"\'])\[([^\]]+)\]/$1.$self->expandnamed($2)/sge;
}	}
}	}
#	#
Line 871 sub sett {	Line 871 sub sett {
$t{$cell}=$formula;	$t{$cell}=$formula;
$t{$cell}=~s/\.\.+/\,/g;	$t{$cell}=~s/\.\.+/\,/g;
$t{$cell}=~s/(^\|[^\"\'])([A-Za-z]\d+)/$1\$sheet_values\{\'$2\'\}/g;	$t{$cell}=~s/(^\|[^\"\'])([A-Za-z]\d+)/$1\$sheet_values\{\'$2\'\}/g;
$t{$cell}=~s/(^\|[^\"\'])\[([^\]]+)\]/$1.$self->expandnamed($2)/ge;	$t{$cell}=~s/(^\|[^\"\'])\[([^\]]+)\]/$1.$self->expandnamed($2)/sge;
}	}
}	}
# Put %t into the safe space	# Put %t into the safe space