loncom/interface/spreadsheet/studentcalc.pm - diff

Return to studentcalc.pm CVS log

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

version 1.33, 2005/05/17 17:48:19	version 1.35, 2005/08/26 20:46:46
Line 458 sub put_sequence_data_in_safe_space {	Line 458 sub put_sequence_data_in_safe_space {
# 1. duplicate titles - they get the total for the titles	# 1. duplicate titles - they get the total for the titles
# 2. control characters in titles - use q{} around the string to	# 2. control characters in titles - use q{} around the string to
# deal with it.	# deal with it.
my $title = &HTML::Entities::decode($seq->{'title'});	my $title = &HTML::Entities::decode($seq->title());
$title =~ s/&\#058;/:/g;	$title =~ s/&\#058;/:/g;
if (@Rows) {	if (@Rows) {
$data .= 'push(@{$Sequence_Rows{"'.quotemeta($title).'"}},'.	$data .= 'push(@{$Sequence_Rows{"'.quotemeta($title).'"}},'.
Line 585 sub compute {	Line 585 sub compute {

sub set_row_sources {	sub set_row_sources {
my $self = shift;	my $self = shift;
	$self->check_formulas_loaded();
while (my ($cell,$value) = each(%{$self->{'formulas'}})) {	while (my ($cell,$value) = each(%{$self->{'formulas'}})) {
next if ($cell !~ /^A(\d+)$/ \|\| $1 < 1);	next if ($cell !~ /^A(\d+)$/ \|\| $1 < 1);
my $row = $1;	my $row = $1;
Line 597 sub set_row_sources {	Line 598 sub set_row_sources {

sub set_row_numbers {	sub set_row_numbers {
my $self = shift;	my $self = shift;
	$self->check_formulas_loaded();
while (my ($cell,$formula) = each(%{$self->{'formulas'}})) {	while (my ($cell,$formula) = each(%{$self->{'formulas'}})) {
next if ($cell !~ /^A(\d+)/);	next if ($cell !~ /^A(\d+)/);
my $row = $1;	my $row = $1;