version 1.102, 2002/08/28 19:50:29
|
version 1.103, 2002/08/29 15:35:01
|
Line 721 sub SUMMIN {
|
Line 721 sub SUMMIN {
|
return $sum; |
return $sum; |
} |
} |
|
|
|
#------------------------------------------------------- |
|
|
|
=item MINPARM(parametername) |
|
|
|
Returns the minimum value of the parameters matching the parametername. |
|
parametername should be a string such as 'duedate'. |
|
|
|
=cut |
|
|
|
#------------------------------------------------------- |
|
sub MINPARM { |
|
my ($expression) = @_; |
|
my $min = undef; |
|
study($expression); |
|
foreach $parameter (keys(%c)) { |
|
next if ($parameter !~ /$expression/); |
|
if ((! defined($min)) || ($min > $c{$parameter})) { |
|
$min = $c{$parameter} |
|
} |
|
} |
|
return $min; |
|
} |
|
|
|
#------------------------------------------------------- |
|
|
|
=item MAXPARM(parametername) |
|
|
|
Returns the maximum value of the parameters matching the input parameter name. |
|
parametername should be a string such as 'duedate'. |
|
|
|
=cut |
|
|
|
#------------------------------------------------------- |
|
sub MAXPARM { |
|
my ($expression) = @_; |
|
my $max = undef; |
|
study($expression); |
|
foreach $parameter (keys(%c)) { |
|
next if ($parameter !~ /$expression/); |
|
if ((! defined($min)) || ($max < $c{$parameter})) { |
|
$max = $c{$parameter} |
|
} |
|
} |
|
return $max; |
|
} |
|
|
|
#-------------------------------------------------------- |
sub expandnamed { |
sub expandnamed { |
my $expression=shift; |
my $expression=shift; |
if ($expression=~/^\&/) { |
if ($expression=~/^\&/) { |