projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
s/croak/die/; #oops
[freeside.git]
/
site_perl
/
Record.pm
diff --git
a/site_perl/Record.pm
b/site_perl/Record.pm
index
7c2980b
..
b8d565c
100644
(file)
--- 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 {
my($statement) = "SELECT * FROM $table". ( @fields
? " WHERE ". join(' AND ',
map {
- $
self->getfield($_)
eq ''
+ $
record->{$_}
eq ''
? "$_ IS NULL"
? "$_ IS NULL"
- : "$_ = ". _quote($
self->getfield($_)
,$table,$_)
- } @fields
)
+ : "$_ = ". _quote($
record->{$_}
,$table,$_)
+ } @fields
) : ''
);
$sth=$dbh->prepare($statement)
) : ''
);
$sth=$dbh->prepare($statement)
@@
-409,7
+409,7
@@
sub rep {
my(@diff)=grep $new->getfield($_) ne $old->getfield($_), @fields;
if ( scalar(@diff) == 0 ) {
my(@diff)=grep $new->getfield($_) ne $old->getfield($_), @fields;
if ( scalar(@diff) == 0 ) {
- carp "
R
ecords identical";
+ carp "
warning: r
ecords identical";
return '';
}
return '';
}
@@
-759,7
+759,7
@@
sub fields {
=head1 VERSION
=head1 VERSION
-$Id: Record.pm,v 1.
7 1998-11-15 10:56:31
ivan Exp $
+$Id: Record.pm,v 1.
9 1998-11-21 07:26:45
ivan Exp $
=head1 BUGS
=head1 BUGS
@@
-878,7
+878,13
@@
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 $
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.9 1998-11-21 07:26:45 ivan
+"Records identical" carp tells us it is just a warning.
+
+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
qsearch gets sames "IS NULL" semantics as other WHERE clauses
Revision 1.6 1998/11/15 05:31:03 ivan