version 1.138, 2003/11/21 18:18:04
|
version 1.139, 2003/11/21 19:54:42
|
Line 131 sub parmval {
|
Line 131 sub parmval {
|
|
|
# -------------------------------------------------------- first, check default |
# -------------------------------------------------------- first, check default |
|
|
if ($def) { $outpar[11]=$def; $result=11; } |
if (defined($def)) { $outpar[11]=$def; $result=11; } |
|
|
# ----------------------------------------------------- second, check map parms |
# ----------------------------------------------------- second, check map parms |
|
|
my $thisparm=$parmhash{$symbparm}; |
my $thisparm=$parmhash{$symbparm}; |
if ($thisparm) { $outpar[10]=$thisparm; $result=10; } |
if (defined($thisparm)) { $outpar[10]=$thisparm; $result=10; } |
|
|
# --------------------------------------------------------- third, check course |
# --------------------------------------------------------- third, check course |
|
|