| 18 |
|
# query |
| 19 |
|
# queryprompt(name) : return/set the prompt string for the query |
| 20 |
|
# queryoptions(name) : return/set the query option list for the named query |
| 21 |
+ |
# querycheck(name) : return/set the query checker object |
| 22 |
|
# currentvalue(name) : return the current value of the query list exapnded |
| 23 |
|
# in the context of the other query values - affected |
| 24 |
|
# by lodgevalue. |
| 25 |
|
# getparam(name) : return the absolute value of the param (non expanded) - not |
| 26 |
|
# affected by lodgevalue until OK called. |
| 27 |
|
# setparam(name,value) : set the value of a given query to list |
| 28 |
+ |
# setifundef(name,value) : set the value of a given query to list |
| 29 |
|
# expand(@string) : expand given strings |
| 30 |
|
# lodgevalue(name,val) : set a value of a given query variable to the list |
| 31 |
|
# current value will be expanded in terms of these |
| 65 |
|
:$self->{querytype}{$name}; |
| 66 |
|
} |
| 67 |
|
|
| 68 |
+ |
sub querycheck { |
| 69 |
+ |
my $self=shift; |
| 70 |
+ |
my $name=shift; |
| 71 |
+ |
|
| 72 |
+ |
@_?$self->{querycheck}{$name}=shift |
| 73 |
+ |
:$self->{querycheck}{$name}; |
| 74 |
+ |
} |
| 75 |
+ |
|
| 76 |
|
sub querymessage { |
| 77 |
|
my $self=shift; |
| 78 |
|
my $name=shift; |
| 177 |
|
} |
| 178 |
|
} |
| 179 |
|
|
| 180 |
+ |
sub setifundef { |
| 181 |
+ |
my $self=shift; |
| 182 |
+ |
my $name=shift; |
| 183 |
+ |
my $value=shift; |
| 184 |
+ |
|
| 185 |
+ |
if ( ! defined $self->{params}{$name} ) { |
| 186 |
+ |
$self->setparam($name,$value); |
| 187 |
+ |
} |
| 188 |
+ |
} |
| 189 |
+ |
|
| 190 |
|
sub setparam { |
| 191 |
|
my $self=shift; |
| 192 |
|
my $name=shift; |
