ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/ActiveDoc/Query.pm
(Generate patch)

Comparing COMP/SCRAM/src/ActiveDoc/Query.pm (file contents):
Revision 1.5 by williamc, Fri Jan 14 18:54:09 2000 UTC vs.
Revision 1.9 by sashby, Wed Aug 17 11:04:33 2005 UTC

# Line 1 | Line 1
1 + BEGIN
2 +   {
3 +   print " ActiveDoc::Query: I AM used!!","\n";
4 +   };
5 +
6 +
7   #
8   # Query.pm
9   #
# Line 92 | Line 98 | sub querymessage {
98          my $self=shift;
99          my $name=shift;
100  
101 <        @_?($self->{querymessage}{$name}=shift)
102 <          :($self->expand($self->{querymessage}{$name}));
101 >        if ( @_ ) {
102 >          $self->{querymessage}{$name}=shift;
103 >        }
104 >        return  $self->expand($self->{querymessage}{$name});
105   }
106  
107   sub queryprompt {
# Line 174 | Line 182 | sub lodgevalue {
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;
# Line 233 | Line 249 | sub setparam {
249          my $name=shift;
250          my $value=shift;
251  
236 –        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 {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines