Parent Directory | Revision Log | Patch
revision 29 by laperla, Sun Nov 12 01:21:05 2000 UTC | revision 82 by ulpfr, Mon Apr 22 10:09:34 2002 UTC | |
---|---|---|
# | Line 84 sub have { | Line 84 sub have { |
84 | ||
85 | my $tuple = join($;, map($parm{$_}, @{$self->{attr}})); | my $tuple = join($;, map($parm{$_}, @{$self->{attr}})); |
86 | ||
87 | exists $self->{db}->{$tuple} && $self->{db}->{$tuple}; | $self->{db}->{$tuple}; |
88 | } | } |
89 | ||
90 | sub fetch { | sub fetch { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |