| 1 |
+ |
BEGIN |
| 2 |
+ |
{ |
| 3 |
+ |
print " ActiveDoc::Query: I AM used!!","\n"; |
| 4 |
+ |
}; |
| 5 |
+ |
|
| 6 |
+ |
|
| 7 |
|
# |
| 8 |
|
# Query.pm |
| 9 |
|
# |
| 182 |
|
my ($ret,$message,@vals)=$self->runchecker($name,$value); |
| 183 |
|
# only lodge the value if its valid |
| 184 |
|
if ( $ret eq 0 ) { |
| 185 |
< |
$self->{lodgehash}{$name}=$value; |
| 185 |
> |
$self->_lodgevalue($name,$value); |
| 186 |
|
} |
| 187 |
|
return ($ret,$message,@vals); |
| 188 |
|
} |
| 189 |
|
|
| 190 |
+ |
sub _lodgevalue { |
| 191 |
+ |
my $self=shift; |
| 192 |
+ |
my $name=shift; |
| 193 |
+ |
my $value=shift; |
| 194 |
+ |
|
| 195 |
+ |
$self->{lodgehash}{$name}=$value; |
| 196 |
+ |
} |
| 197 |
+ |
|
| 198 |
|
sub runchecker { |
| 199 |
|
my $self=shift; |
| 200 |
|
my $name=shift; |
| 249 |
|
my $name=shift; |
| 250 |
|
my $value=shift; |
| 251 |
|
|
| 238 |
– |
#print "Setting $name = $value\n"; |
| 252 |
|
$self->{params}{$name}=$value; |
| 253 |
< |
$self->lodgevalue($name,$value); |
| 253 |
> |
$self->_lodgevalue($name,$value); |
| 254 |
|
} |
| 255 |
|
|
| 256 |
|
sub params { |
