| 13 |
|
# setparam(name,value) : set a parameter |
| 14 |
|
# setifundef(name,value) : only set param to value if undefined |
| 15 |
|
# getparam(name) : return value of named parameter |
| 16 |
+ |
# getexpandedparam(name) : return the value of the parameter with any |
| 17 |
+ |
# variables expanded in the context of the UserQuery |
| 18 |
+ |
# variables |
| 19 |
|
# clearquery() : remove all queries to be asked |
| 20 |
|
# setquery($type,$parameter,$string,@args) : register a query of type for |
| 21 |
|
# $parameter |
| 101 |
|
|
| 102 |
|
sub params { |
| 103 |
|
my $self=shift; |
| 101 |
– |
|
| 104 |
|
return ( keys %{$self->{params}} ); |
| 105 |
|
} |
| 106 |
|
|
| 120 |
|
return $self->{params}{$name}; |
| 121 |
|
} |
| 122 |
|
|
| 123 |
+ |
sub getexpandedparam { |
| 124 |
+ |
my $self=shift; |
| 125 |
+ |
my $name=shift; |
| 126 |
+ |
|
| 127 |
+ |
my $string=$self->getparam($name); |
| 128 |
+ |
$string=~s/\$\((.*?)\)/$self->{paramhash}{$1}/g; |
| 129 |
+ |
$string=~s/\$(.*?)( |\/|\Z)/$self->{paramhash}{$1}$2/g; |
| 130 |
+ |
|
| 131 |
+ |
return $string; |
| 132 |
+ |
} |
| 133 |
+ |
|
| 134 |
|
sub clearquery { |
| 135 |
|
my $self=shift; |
| 136 |
|
undef %self->{querytype}; |
