loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.174, 2003/03/07 04:20:20	version 1.177, 2003/03/11 15:00:47
Line 183 sub handler {	Line 183 sub handler {
# Header....	# Header....
#	#
$r->print('<html><head><title>LON-CAPA Spreadsheet</title>');	$r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
my $nothing = "''";	my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
if ($ENV{'browser.type'} eq 'explorer') {
$nothing = "'javascript:void(0);'";
}

if ($ENV{'request.role'} !~ /^st\./) {	if ($ENV{'request.role'} !~ /^st\./) {
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);
Line 1526 sub expandnamed {	Line 1523 sub expandnamed {
foreach my $varname ( @vars ) {	foreach my $varname ( @vars ) {
if ($varname=~/\D/) {	if ($varname=~/\D/) {
$formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;	$formula=~s/$varname/'$c{\''.$varname.'\'}'/ge;
$varname=~s/$var/$[\\w:-]\+$/g;	$varname=~s/$var/$[\\w:\\- ]\+$/g;
foreach (keys(%{$self->{'constants'}})) {	foreach (keys(%{$self->{'constants'}})) {
if ($_=~/$varname/) {	if ($_=~/$varname/) {
$values{$1}=1;	$values{$1}=1;