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

Comparing COMP/SCRAM/src/ActiveDoc/UserQuery.pm (file contents):
Revision 1.4 by williamc, Mon Oct 25 15:09:21 1999 UTC vs.
Revision 1.6 by williamc, Fri Dec 17 08:36:23 1999 UTC

# Line 13 | Line 13
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
# Line 42 | Line 45 | sub dump {
45          my $fh=shift;
46          my $string=shift;
47  
48 <        foreach $key ( %{$self->{params}} ) {
48 >        foreach $key ( keys %{$self->{params}} ) {
49            if ( $key=~/$string/ ) {
50                  print $fh "k:".$key."\n";
51 <                print $fh "v:".$$self->{params}{$key}."\n";
51 >                print $fh "v:".$self->{params}{$key}."\n";
52            }
53          }
54          print $fh "#End\n";
# Line 57 | Line 60 | sub store {
60  
61          my $key;
62          foreach $key ( keys %{$self->{params}} ) {
60 –          print "$fh $key\n";
63            print $fh "k:".$key."\n";
64            print $fh "v:".$self->{params}{$key}."\n";
65          }
# Line 99 | Line 101 | sub setparam {
101  
102   sub params {
103          my $self=shift;
102 –        
104          return ( keys %{$self->{params}} );
105   }
106  
# Line 119 | Line 120 | sub getparam {
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};

Diff Legend

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