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

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

revision 12 by unknown, Fri Apr 28 15:41:10 2000 UTC revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC
# Line 1  Line 1 
1  #                              -*- Mode: Perl -*-  #                              -*- Mode: Cperl -*-
2  # Query.pm --  # Query.pm --
3  # ITIID           : $ITI$ $Header $__Header$  # ITIID           : $ITI$ $Header $__Header$
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
# Line 8  Line 8 
8  # Language        : CPerl  # Language        : CPerl
9  # Update Count    : 55  # Update Count    : 55
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
13  #  #
14    
15  package WAIT::Query::Base;  package WAIT::Query::Base;
16    
# Line 18  sub new { Line 18  sub new {
18    my $type  = shift;    my $type  = shift;
19    my $table = shift;    my $table = shift;
20    my $self  = {Table => $table};    my $self  = {Table => $table};
21      
22    bless $self, ref($type) || $type;    bless $self, ref($type) || $type;
23    if (@_) {    if (@_) {
24      $self->add(@_);      $self->add(@_);
# Line 72  sub clone { Line 72  sub clone {
72    my $self = shift;    my $self = shift;
73    my %copy;    my %copy;
74    my $fld;    my $fld;
75      
76    for $fld (keys %{$self->{Plain}}) {    for $fld (keys %{$self->{Plain}}) {
77      $copy{Plain}->{$fld} = $self->{Plain}->{$fld};      $copy{Plain}->{$fld} = $self->{Plain}->{$fld};
78    }    }
# Line 89  sub execute { Line 89  sub execute {
89    my $tb   = $self->{Table};    my $tb   = $self->{Table};
90    my %result;    my %result;
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($fld,
95                       $self->{Plain}->{$fld},                       $self->{Plain}->{$fld},
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26