[Koha-cvs] CVS: koha/C4 SearchMarc.pm,1.4,1.5

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv780/C4

Modified Files:
	SearchMarc.pm 
Log Message:
fix for 361

Index: SearchMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/SearchMarc.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** SearchMarc.pm	4 Apr 2003 08:41:17 -0000	1.4
--- SearchMarc.pm	24 Apr 2003 16:28:47 -0000	1.5
***************
*** 73,77 ****
  		if (@$value[$i]) {
  			if ($nb==1) {
! 				if (@$operator[$i] eq "starts") {
  					$sql_tables .= "marc_subfield_table as m$nb,";
  					$sql_where1 .= "@$excluding[$i](m1.subfieldvalue like '@$value[$i]%'";
--- 73,77 ----
  		if (@$value[$i]) {
  			if ($nb==1) {
! 				if (@$operator[$i] eq "start") {
  					$sql_tables .= "marc_subfield_table as m$nb,";
  					$sql_where1 .= "@$excluding[$i](m1.subfieldvalue like '@$value[$i]%'";
***************
*** 96,100 ****
  				}
  			} else {
! 				if (@$operator[$i] eq "starts") {
  					$sql_tables .= "marc_subfield_table as m$nb,";
  					$sql_where1 .= "@$and_or[$i] @$excluding[$i](m$nb.subfieldvalue like '@$value[$i]%'";
--- 96,100 ----
  				}
  			} else {
! 				if (@$operator[$i] eq "start") {
  					$sql_tables .= "marc_subfield_table as m$nb,";
  					$sql_where1 .= "@$and_or[$i] @$excluding[$i](m$nb.subfieldvalue like '@$value[$i]%'";
***************
*** 127,130 ****
--- 127,131 ----
  	chop $sql_tables;
  	my $sth;
+ 	warn "HERE";
  	if ($sql_where2) {
  		$sth = $dbh->prepare("select distinct m1.bibid from $sql_tables where $sql_where2 and ($sql_where1)");