loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

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

version 1.59, 2005/12/06 06:04:49	version 1.61, 2006/01/10 16:38:47
Line 378 Calls the system EXT function to determi	Line 378 Calls the system EXT function to determi

#-------------------------------------------------------	#-------------------------------------------------------
sub EXT {	sub EXT {
my ($parameter) = @_;	my ($parameter,$specific_symb) = @_;
return '' if (! defined($parameter) \|\| $parameter eq '');	return '' if (! defined($parameter) \|\| $parameter eq '');
$parameter =~ s/^parameter\./resource\./;	$parameter =~ s/^parameter\./resource\./;
my $value = &Apache::lonnet::EXT($parameter,$symb,$domain,$name,$usection);	if ($specific_symb eq '') { $specific_symb = $symb; }
	my $value = &Apache::lonnet::EXT($parameter,$specific_symb,$domain,$name,
	$usection);
return $value;	return $value;
}	}

Line 697 sub get_values {	Line 699 sub get_values {
}	}
return \@values;	return \@values;
} else {	} else {
$num = '(\d+)';	$num = '([1-9]\d*)';
}	}
if (($la eq '') \|\| ($ua eq '')) {	if (($la eq '') \|\| ($ua eq '')) {
$alpha='[A-z]';	$alpha='[A-z]';