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.4 by williamc, Thu Jan 6 13:21:55 2000 UTC vs.
Revision 1.6 by williamc, Wed Feb 23 14:54:01 2000 UTC

# 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 129 | Line 131 | sub expand {
131          my $self=shift;
132          my $string=shift;
133  
134 +        return "" , if ( ! defined $string );
135          $string=~s{
136                  \$\((\w+)\)
137          }{
# Line 232 | 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   }

Diff Legend

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