/[wait]/cvs-head/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 /cvs-head/lib/WAIT/Query/Base.pm

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

revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC revision 19 by ulpfr, Tue May 9 11:29:45 2000 UTC
# Line 4  Line 4 
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
5  # Created On      : Fri Sep 13 13:05:52 1996  # Created On      : Fri Sep 13 13:05:52 1996
6  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
7  # Last Modified On: Sun Nov 22 18:44:40 1998  # Last Modified On: Fri Apr 14 16:27:01 2000
8  # Language        : CPerl  # Language        : CPerl
9  # Update Count    : 55  # Update Count    : 57
10  # Status          : Unknown, Use with caution!  # Status          : Unknown, Use with caution!
11  #  #
12  # Copyright (c) 1996-1997, Ulrich Pfeifer  # Copyright (c) 1996-1997, Ulrich Pfeifer
# 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($fld,      %r = $tb->search(
95                       $self->{Plain}->{$fld},                       { attr => $fld,
96                       $self->{Raw}->{$fld},                         cont => $self->{Plain}->{$fld},
97                           raw  => $self->{Raw}->{$fld},
98                           @_
99                         }
100                      );                      );
101      my ($key, $val);      my ($key, $val);
102      while (($key, $val) = each %r) {      while (($key, $val) = each %r) {
Legend:
Removed from v.13  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26