From 99ea62e8f3e4d612b187372badbacf447f83704c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 15 Nov 1998 11:02:04 +0000
Subject: [PATCH] bugsquash

---
 site_perl/Record.pm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/site_perl/Record.pm b/site_perl/Record.pm
index 7c2980b9f..89793d2ad 100644
--- a/site_perl/Record.pm
+++ b/site_perl/Record.pm
@@ -170,10 +170,10 @@ sub qsearch {
   my($statement) = "SELECT * FROM $table". ( @fields
     ? " WHERE ". join(' AND ',
       map {
-        $self->getfield($_) eq ''
+        $record->{$_} eq ''
           ? "$_ IS NULL"
-          : "$_ = ". _quote($self->getfield($_),$table,$_)
-      } @fields)
+          : "$_ = ". _quote($record->{$_},$table,$_)
+      } @fields
     ) : ''
   );
   $sth=$dbh->prepare($statement)
@@ -759,7 +759,7 @@ sub fields {
 
 =head1 VERSION
 
-$Id: Record.pm,v 1.7 1998-11-15 10:56:31 ivan Exp $
+$Id: Record.pm,v 1.8 1998-11-15 11:02:04 ivan Exp $
 
 =head1 BUGS
 
@@ -878,7 +878,10 @@ added pod documentation ivan@sisd.com 98-sep-6
 ut_phonen got ''; at the end ivan@sisd.com 98-sep-27
 
 $Log: Record.pm,v $
-Revision 1.7  1998-11-15 10:56:31  ivan
+Revision 1.8  1998-11-15 11:02:04  ivan
+bugsquash
+
+Revision 1.7  1998/11/15 10:56:31  ivan
 qsearch gets sames "IS NULL" semantics as other WHERE clauses
 
 Revision 1.6  1998/11/15 05:31:03  ivan
-- 
2.11.0