/[wait]/trunk/lib/WAIT/Query/Base.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WAIT/Query/Base.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 107 by dpavlin, Mon May 24 13:44:01 2004 UTC revision 108 by dpavlin, Tue Jul 13 17:41:12 2004 UTC
# Line 91  sub execute { Line 91  sub execute {
91    my $fld;    my $fld;
92    
93    for $fld (keys %{$self->{Plain}}, keys %{$self->{Raw}}) {    for $fld (keys %{$self->{Plain}}, keys %{$self->{Raw}}) {
94      %r = $tb->search(      $r = $tb->search_ref(
95                       { attr => $fld,                       { attr => $fld,
96                         cont => $self->{Plain}->{$fld},                         cont => $self->{Plain}->{$fld},
97                         raw  => $self->{Raw}->{$fld},                         raw  => $self->{Raw}->{$fld},
# Line 105  sub execute { Line 105  sub execute {
105      #             scalar keys %r      #             scalar keys %r
106      #            );      #            );
107      my ($key, $val);      my ($key, $val);
108      while (($key, $val) = each %r) {      while (($key, $val) = each %$r) {
109        if (exists $result{$key}) {        if (exists $result{$key}) {
110          $result{$key} += $val;          $result{$key} += $val;
111        } else {        } else {
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.26