[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)");