version 1.9, 2003/05/28 15:20:40
|
version 1.11, 2003/05/29 13:39:38
|
Line 222 sub is_default {
|
Line 222 sub is_default {
|
return 0; |
return 0; |
} |
} |
|
|
|
sub initialize { |
|
# This method is here to remind you that it will be overridden by |
|
# the descendents of the spreadsheet class. |
|
} |
|
|
sub initialize_spreadsheet_package { |
sub initialize_spreadsheet_package { |
&load_spreadsheet_expirationdates(); |
&load_spreadsheet_expirationdates(); |
&clear_spreadsheet_definition_cache(); |
&clear_spreadsheet_definition_cache(); |
Line 816 sub expandnamed {
|
Line 821 sub expandnamed {
|
push @matches,$parameter if ($parameter =~ /$expression/); |
push @matches,$parameter if ($parameter =~ /$expression/); |
} |
} |
if (scalar(@matches) == 0) { |
if (scalar(@matches) == 0) { |
$returnvalue = 'unmatched parameter: '.$parameter; |
$returnvalue = '""';#'"unmatched parameter: '.$parameter.'"'; |
} elsif (scalar(@matches) == 1) { |
} elsif (scalar(@matches) == 1) { |
# why do we not do this lookup here, instead of delaying it? |
# why do we not do this lookup here, instead of delaying it? |
$returnvalue = '$c{\''.$matches[0].'\'}'; |
$returnvalue = '$c{\''.$matches[0].'\'}'; |
Line 832 sub expandnamed {
|
Line 837 sub expandnamed {
|
} else { |
} else { |
# There was a negative number of matches, which indicates |
# There was a negative number of matches, which indicates |
# something is wrong with reality. Better warn the user. |
# something is wrong with reality. Better warn the user. |
$returnvalue = 'bizzare parameter: '.$parameter; |
$returnvalue = '"bizzare parameter: '.$parameter.'"'; |
} |
} |
return $returnvalue; |
return $returnvalue; |
} |
} |