Index: Pg.pm
===================================================================
RCS file: /usr/local/cvsroot/dbdpg/dbdpg/Pg.pm,v
retrieving revision 1.24
diff -c -r1.24 Pg.pm
*** Pg.pm	26 Mar 2003 15:55:41 -0000	1.24
--- Pg.pm	28 Mar 2003 14:20:38 -0000
***************
*** 266,286 ****
  		for my $idx (0 .. $#attrs) {
  			next if ($flds[$idx] eq 'catname'); # Skip catalog
  			if(defined $attrs[$idx] and length $attrs[$idx]) {
! 				if ($attrs[$idx] =~ m/[,%_?]/) {
! 					# contains a meta character.
! 					push( @wh, q{( } . join ( " OR "
! 						, map { push(@dat, $_);
! 							m/[%_?]/ 
! 							? qq{$flds[$idx] iLIKE ? }
! 							: qq{$flds[$idx]    = ?  }
! 							} (split /,/, $attrs[$idx]) )
! 							. q{ )}
! 						);
! 				}
! 				else {
! 					push( @dat, $attrs[$idx] );
! 					push( @wh, qq{$flds[$idx] = ? } );
! 				}
  			}
  		}
  
--- 266,273 ----
  		for my $idx (0 .. $#attrs) {
  			next if ($flds[$idx] eq 'catname'); # Skip catalog
  			if(defined $attrs[$idx] and length $attrs[$idx]) {
! 				push( @dat, $attrs[$idx] );
! 				push( @wh, qq{$flds[$idx] = ? } );
  			}
  		}