| 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. |
| 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; |
