| 24 |
|
# getparam(name) : return the absolute value of the param (non expanded) - not |
| 25 |
|
# affected by lodgevalue until OK called. |
| 26 |
|
# setparam(name,value) : set the value of a given query to list |
| 27 |
+ |
# setifundef(name,value) : set the value of a given query to list |
| 28 |
|
# expand(@string) : expand given strings |
| 29 |
|
# lodgevalue(name,val) : set a value of a given query variable to the list |
| 30 |
|
# current value will be expanded in terms of these |
| 168 |
|
} |
| 169 |
|
} |
| 170 |
|
|
| 171 |
+ |
sub setifundef { |
| 172 |
+ |
my $self=shift; |
| 173 |
+ |
my $name=shift; |
| 174 |
+ |
my $value=shift; |
| 175 |
+ |
|
| 176 |
+ |
if ( ! defined $self->{params}{$name} ) { |
| 177 |
+ |
$self->setparam($name,$value); |
| 178 |
+ |
} |
| 179 |
+ |
} |
| 180 |
+ |
|
| 181 |
|
sub setparam { |
| 182 |
|
my $self=shift; |
| 183 |
|
my $name=shift; |
