| 92 |
|
my $self=shift; |
| 93 |
|
my $name=shift; |
| 94 |
|
|
| 95 |
< |
@_?($self->{querymessage}{$name}=shift) |
| 96 |
< |
:($self->expand($self->{querymessage}{$name})); |
| 95 |
> |
if ( @_ ) { |
| 96 |
> |
$self->{querymessage}{$name}=shift; |
| 97 |
> |
} |
| 98 |
> |
return $self->expand($self->{querymessage}{$name}); |
| 99 |
|
} |
| 100 |
|
|
| 101 |
|
sub queryprompt { |
| 131 |
|
my $self=shift; |
| 132 |
|
my $string=shift; |
| 133 |
|
|
| 134 |
+ |
return "" , if ( ! defined $string ); |
| 135 |
|
$string=~s{ |
| 136 |
|
\$\((\w+)\) |
| 137 |
|
}{ |
| 176 |
|
my ($ret,$message,@vals)=$self->runchecker($name,$value); |
| 177 |
|
# only lodge the value if its valid |
| 178 |
|
if ( $ret eq 0 ) { |
| 179 |
< |
$self->{lodgehash}{$name}=$value; |
| 179 |
> |
$self->_lodgevalue($name,$value); |
| 180 |
|
} |
| 181 |
|
return ($ret,$message,@vals); |
| 182 |
|
} |
| 183 |
|
|
| 184 |
+ |
sub _lodgevalue { |
| 185 |
+ |
my $self=shift; |
| 186 |
+ |
my $name=shift; |
| 187 |
+ |
my $value=shift; |
| 188 |
+ |
|
| 189 |
+ |
$self->{lodgehash}{$name}=$value; |
| 190 |
+ |
} |
| 191 |
+ |
|
| 192 |
|
sub runchecker { |
| 193 |
|
my $self=shift; |
| 194 |
|
my $name=shift; |
| 243 |
|
my $name=shift; |
| 244 |
|
my $value=shift; |
| 245 |
|
|
| 246 |
< |
print "Setting $name = $value\n"; |
| 246 |
> |
#print "Setting $name = $value\n"; |
| 247 |
|
$self->{params}{$name}=$value; |
| 248 |
< |
$self->lodgevalue($name,$value); |
| 248 |
> |
$self->_lodgevalue($name,$value); |
| 249 |
|
} |
| 250 |
|
|
| 251 |
|
sub params { |
