diff options
| author | ivan <ivan> | 1998-11-15 10:56:31 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-15 10:56:31 +0000 |
| commit | 1e8ee4ebfca24ef9039b565f26893d655ffa42f3 (patch) | |
| tree | 3b7bd80bd300ebee2dfb30bb1e4a8a996a0ac7b0 | |
| parent | 60b5717194d18401d8532ca8b09376edeea535d7 (diff) | |
qsearch gets sames "IS NULL" semantics as other WHERE clauses
| -rw-r--r-- | site_perl/Record.pm | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/site_perl/Record.pm b/site_perl/Record.pm index dbfae95ec..7c2980b9f 100644 --- a/site_perl/Record.pm +++ b/site_perl/Record.pm @@ -169,9 +169,12 @@ sub qsearch { my($sth); my($statement) = "SELECT * FROM $table". ( @fields ? " WHERE ". join(' AND ', - map("$_ = ". _quote($record->{$_},$table,$_), @fields) - ) - : '' + map { + $self->getfield($_) eq '' + ? "$_ IS NULL" + : "$_ = ". _quote($self->getfield($_),$table,$_) + } @fields) + ) : '' ); $sth=$dbh->prepare($statement) or croak $dbh->errstr; #is that a little too harsh? hmm. @@ -754,6 +757,10 @@ sub fields { =back +=head1 VERSION + +$Id: Record.pm,v 1.7 1998-11-15 10:56:31 ivan Exp $ + =head1 BUGS This module should probably be renamed, since much of the functionality is @@ -871,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.6 1998-11-15 05:31:03 ivan +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 bugfix for new config layout Revision 1.5 1998/11/13 09:56:51 ivan |