| # | Line 92 | Line 92 | sub querymessage { | |
|---|---|---|
| 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 { | |
| # | Line 233 | Line 235 | sub setparam { | |
| 235 | my $name=shift; | |
| 236 | my $value=shift; | |
| 237 | ||
| 238 | < | print "Setting $name = $value\n"; |
| 238 | > | #print "Setting $name = $value\n"; |
| 239 | $self->{params}{$name}=$value; | |
| 240 | $self->lodgevalue($name,$value); | |
| 241 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |