[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Context.pm,1.13,1.14 Search.pm,1.66,1.67
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4 Context.pm,1.13,1.14 Search.pm,1.66,1.67 |
Date: |
Thu, 05 Jun 2003 10:03:37 -0700 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv19413/C4
Modified Files:
Context.pm Search.pm
Log Message:
removing searchborrower from circ2.pm.
Already exists in Search.pm
this fixes bug #439 and improve consistency.
Index: Context.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Context.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** Context.pm 10 Feb 2003 06:37:00 -0000 1.13
--- Context.pm 5 Jun 2003 17:03:32 -0000 1.14
***************
*** 366,370 ****
my $db_user = $context->{"config"}{"user"};
my $db_passwd = $context->{"config"}{"pass"};
-
return DBI->connect("DBI:$db_driver:$db_name:$db_host",
$db_user, $db_passwd);
--- 366,369 ----
Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -r1.66 -r1.67
*** Search.pm 19 May 2003 14:55:32 -0000 1.66
--- Search.pm 5 Jun 2003 17:03:32 -0000 1.67
***************
*** 1738,1772 ****
#called by member.pl
sub BornameSearch {
! my ($env,$searchstring,$type)address@hidden;
! my $dbh = C4::Context->dbh;
! $searchstring=~ s/\'/\\\'/g;
! my @data=split(' ',$searchstring);
! my address@hidden;
! my $query="Select * from borrowers
! where ((surname like \"$data[0]%\" or surname like \"% $data[0]%\"
! or firstname like \"$data[0]%\" or firstname like \"% $data[0]%\"
! or othernames like \"$data[0]%\" or othernames like \"% $data[0]%\")
! ";
! for (my $i=1;$i<$count;$i++){
! $query=$query." and (surname like \"$data[$i]%\" or surname like \"%
$data[$i]%\"
! or firstname like \"$data[$i]%\" or firstname like \"% $data[$i]%\"
! or othernames like \"$data[$i]%\" or othernames like \"% $data[$i]%\")";
! # FIXME - .= <<EOT;
! }
! $query=$query.") or cardnumber = \"$searchstring\"
! order by surname,firstname";
! # FIXME - .= <<EOT;
! # print $query,"\n";
! my $sth=$dbh->prepare($query);
! $sth->execute;
! my @results;
! my $cnt=0;
! while (my $data=$sth->fetchrow_hashref){
! push(@results,$data);
! $cnt ++;
! }
! # $sth->execute;
! $sth->finish;
! return ($cnt,address@hidden);
}
--- 1738,1773 ----
#called by member.pl
sub BornameSearch {
! my ($env,$searchstring,$type)address@hidden;
! my $dbh = C4::Context->dbh;
! $searchstring=~ s/\,//g;
! $searchstring=~ s/\'/\\\'/g;
! my @data=split(' ',$searchstring);
! my address@hidden;
! my $query="Select * from borrowers
! where ((surname like \"$data[0]%\" or surname like \"% $data[0]%\"
! or firstname like \"$data[0]%\" or firstname like \"% $data[0]%\"
! or othernames like \"$data[0]%\" or othernames like \"% $data[0]%\")
! ";
! for (my $i=1;$i<$count;$i++){
! $query=$query." and (surname like \"$data[$i]%\" or surname like \"%
$data[$i]%\"
! or firstname like \"$data[$i]%\" or firstname like \"% $data[$i]%\"
! or othernames like \"$data[$i]%\" or othernames like \"% $data[$i]%\")";
! # FIXME - .= <<EOT;
! }
! $query=$query.") or cardnumber = \"$searchstring\"
! order by surname,firstname";
! # FIXME - .= <<EOT;
! # print $query,"\n";
! my $sth=$dbh->prepare($query);
! $sth->execute;
! my @results;
! my $cnt=0;
! while (my $data=$sth->fetchrow_hashref){
! push(@results,$data);
! $cnt ++;
! }
! # $sth->execute;
! $sth->finish;
! return ($cnt,address@hidden);
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Context.pm,1.13,1.14 Search.pm,1.66,1.67,
Paul POULAIN <=