- Koha-devel - lists.koha-community.org

Is this useful?
by Nicholas Stephen Rosasco 04 Feb '02

04 Feb '02

Some of the items listed have been updated recently... http://search.cpan.org/search?mode=module&query=MARC Nick

1 0

Question
by Nicholas Stephen Rosasco 01 Feb '02

01 Feb '02

Besides the FAQ, does anyone want more documentation? The install directions, last I looked, were OK. Do we have notes on how to adjust Koha in appearance and for different databases. Also, I've had a question about installing Koha to use a database (MySQL, as I recall) on a seperate server (that is, distinct from the webserver with Koha/Apache installed). Has anyone done this? Also, what is the situation on the MARC enabled release? Last I heard was an "umm, couple of months" in re to someone elses questions. Nick ...willing to help work on the Koha.org page rework that has been mentioned.

2 2

CVS: koha/acqui.simple marcimport.pl,1.5,1.6 processz3950queue,1.2,1.3
by Steve Tonnesen 01 Feb '02

01 Feb '02

Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv32238/koha/acqui.simple Modified Files: marcimport.pl processz3950queue Log Message: Changes from a long time ago that I don't even remember anymore. :) Index: marcimport.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -r1.5 -r1.6 *** marcimport.pl 2001/11/06 18:13:59 1.5 --- marcimport.pl 2002/02/01 18:00:28 1.6 *************** *** 829,839 **** ($author) && ($author="by $author"); if ($isbn) { ! print "<li><a href=$ENV{'SCRIPT_NAME'}?file=$file&resultsid=$resultsid&isbn=$isbn>$title$subtitle $author</a> $donetext \n"; } elsif ($lccn) { ! print "<li><a href=$ENV{'SCRIPT_NAME'}?file=$file&resultsid=$resultsid&lccn=$lccn>$title$subtitle $author</a> $donetext \n"; } elsif ($issn) { ! print "<li><a href=$ENV{'SCRIPT_NAME'}?file=$file&resultsid=$resultsid&issn=$issn>$title$subtitle $author</a> $donetext\n"; } elsif ($controlnumber) { ! print "<li><a href=$ENV{'SCRIPT_NAME'}?file=$file&resultsid=$resultsid&controlnumber=$controlnumber>$title $author</a> $donetext\n"; } else { print "Error: Contact steve regarding $title by $author \n"; --- 829,839 ---- ($author) && ($author="by $author"); if ($isbn) { ! print "<li><a href=$ENV{'SCRIPT_NAME'}?file=$file&resultsid=$resultsid&isbn=$isbn>$title $subtitle $author</a> $donetext \n"; } elsif ($lccn) { ! print "<li><a href=$ENV{'SCRIPT_NAME'}?file=$file&resultsid=$resultsid&lccn=$lccn>$title $subtitle $author</a> $donetext \n"; } elsif ($issn) { ! print "<li><a href=$ENV{'SCRIPT_NAME'}?file=$file&resultsid=$resultsid&issn=$issn>$title $subtitle $author</a> $donetext\n"; } elsif ($controlnumber) { ! print "<li><a href=$ENV{'SCRIPT_NAME'}?file=$file&resultsid=$resultsid&controlnumber=$controlnumber>$title $subtitle $author</a> $donetext\n"; } else { print "Error: Contact steve regarding $title by $author \n"; Index: processz3950queue =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/processz3950queue,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** processz3950queue 2001/11/06 18:13:59 1.2 --- processz3950queue 2002/02/01 18:00:28 1.3 *************** *** 25,29 **** my $now=time(); $stk=$dbh->prepare("select id,server,startdate,enddate,numrecords,active from z3950results where queryid=$id"); ! $stk->execute; my %serverdone; unless ($stk->rows) { --- 25,29 ---- my $now=time(); $stk=$dbh->prepare("select id,server,startdate,enddate,numrecords,active from z3950results where queryid=$id"); ! ($stk->execute) || (next); my %serverdone; unless ($stk->rows) { *************** *** 82,88 **** ($resultsid) = $stj->fetchrow; } else { ! my $stj=$dbi->prepare("insert into z3950results (server, queryid, startdate) values ($q_serverinfo, $id, $now)"); $stj->execute; ! $resultsid=$dbi->{'mysql_insertid'}; } my $stj=$dbh->prepare("update z3950results set active=1 where id=$resultsid"); --- 82,93 ---- ($resultsid) = $stj->fetchrow; } else { ! my $stj=$dbi->prepare("select id from z3950results where server=$q_serverinfo and queryid=$id"); $stj->execute; ! ($resultsid) = $stj->fetchrow; ! unless ($resultsid) { ! my $stj=$dbi->prepare("insert into z3950results (server, queryid, startdate) values ($q_serverinfo, $id, $now)"); ! $stj->execute; ! $resultsid=$dbi->{'mysql_insertid'}; ! } } my $stj=$dbh->prepare("update z3950results set active=1 where id=$resultsid"); *************** *** 90,168 **** my $conn; my $noconnection=0; if ($user) { eval { $conn= new Net::Z3950::Connection($servername, $port, databaseName => $database, user => $user, password => $password); }; if ($@) { $noconnection=1; } - pe(); } else { eval { $conn= new Net::Z3950::Connection($servername, $port, databaseName => $database); }; if ($@) { $noconnection=1; } - pe(); } ! if ($noconnection) { } else { my $rs=$conn->search($query); - pe(); - $rs->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::USMARC); - pe(); - my $numresults=$rs->size(); pe(); ! my $i; ! my $result=''; ! my $scantimerstart=time(); ! for ($i=1; $i<=(($numresults<80) ? ($numresults) : (80)); $i++) { ! my $rec=$rs->record($i); ! my $marcdata=$rec->rawdata(); ! $result.=$marcdata; ! } ! my $scantimerend=time(); ! my $numrecords; ! ($numresults<80) ? ($numrecords=$numresults) : ($numrecords=80); ! my $elapsed=$scantimerend-$scantimerstart; ! if ($elapsed) { ! my $speed=int($numresults/$elapsed*100)/100; ! print " SPEED: $speed $server done $numrecords\n"; ! } ! my $q_result=$dbi->quote($result); ! ($q_result) || ($q_result='""'); ! $now=time(); ! my $task="update z3950results set numrecords=$numresults,numdownloaded=$numrecords,highestseen=0,results=$q_result,enddate=$now where id=$resultsid"; ! my $stj=$dbi->prepare($task); ! $stj->execute; ! my $counter=0; ! while ($counter<60 && $numrecords<$numresults) { ! $counter++; ! my $stj=$dbi->prepare("select highestseen from z3950results where id=$resultsid"); $stj->execute; ! my ($highestseen) = $stj->fetchrow; ! if ($highestseen>($numrecords-30)) { ! $counter=0; ! print " $server rescanning\n"; ! my $scantimerstart=time(); ! for ($i=$numrecords+1; $i<=(($numresults<($numrecords+40)) ? ($numresults) : ($numrecords+40)); $i++) { ! my $rec=$rs->record($i); ! my $marcdata=$rec->rawdata(); ! $result.=$marcdata; ! } ! my $scantimerend=time(); ! ($numresults<$numrecords+40) ? ($numrecords=$numresults) : ($numrecords=$numrecords+40); ! my $elapsed=$scantimerend-$scantimerstart; ! if ($elapsed) { ! my $speed=int($numresults/$elapsed*100)/100; ! print " SPEED: $speed $server done $numrecords\n"; ! } ! ! my $q_result=$dbi->quote($result); ! ($q_result) || ($q_result='""'); ! $now=time(); ! my $task="update z3950results set numdownloaded=$numrecords,results=$q_result where id=$resultsid"; ! my $stj=$dbi->prepare($task); $stj->execute; } - sleep 5; } } --- 95,181 ---- my $conn; my $noconnection=0; + my $error=0; if ($user) { eval { $conn= new Net::Z3950::Connection($servername, $port, databaseName => $database, user => $user, password => $password); }; if ($@) { $noconnection=1; + } else { + $error=pe(); } } else { eval { $conn= new Net::Z3950::Connection($servername, $port, databaseName => $database); }; if ($@) { $noconnection=1; + } else { + $error=pe(); } } ! if ($noconnection || $error) { } else { + print "Q: $query\n"; my $rs=$conn->search($query); pe(); ! eval { $rs->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::USMARC);}; ! if ($@) { ! print "ERROR: $@\n"; ! } else { ! pe(); ! my $numresults=$rs->size(); ! pe(); ! my $i; ! my $result=''; ! my $scantimerstart=time(); ! for ($i=1; $i<=(($numresults<80) ? ($numresults) : (80)); $i++) { ! my $rec=$rs->record($i); ! my $marcdata=$rec->rawdata(); ! $result.=$marcdata; ! } ! my $scantimerend=time(); ! my $numrecords; ! ($numresults<80) ? ($numrecords=$numresults) : ($numrecords=80); ! my $elapsed=$scantimerend-$scantimerstart; ! if ($elapsed) { ! my $speed=int($numresults/$elapsed*100)/100; ! print " SPEED: $speed $server done $numrecords\n"; ! } ! my $q_result=$dbi->quote($result); ! ($q_result) || ($q_result='""'); ! $now=time(); ! my $task="update z3950results set numrecords=$numresults,numdownloaded=$numrecords,highestseen=0,results=$q_result,enddate=$now where id=$resultsid"; ! my $stj=$dbi->prepare($task); $stj->execute; ! my $counter=0; ! while ($counter<60 && $numrecords<$numresults) { ! $counter++; ! my $stj=$dbi->prepare("select highestseen from z3950results where id=$resultsid"); $stj->execute; + my ($highestseen) = $stj->fetchrow; + if ($highestseen>($numrecords-30)) { + $counter=0; + print " $server rescanning\n"; + my $scantimerstart=time(); + for ($i=$numrecords+1; $i<=(($numresults<($numrecords+40)) ? ($numresults) : ($numrecords+40)); $i++) { + my $rec=$rs->record($i); + my $marcdata=$rec->rawdata(); + $result.=$marcdata; + } + my $scantimerend=time(); + ($numresults<$numrecords+40) ? ($numrecords=$numresults) : ($numrecords=$numrecords+40); + my $elapsed=$scantimerend-$scantimerstart; + if ($elapsed) { + my $speed=int($numresults/$elapsed*100)/100; + print " SPEED: $speed $server done $numrecords\n"; + } + + my $q_result=$dbi->quote($result); + ($q_result) || ($q_result='""'); + $now=time(); + my $task="update z3950results set numdownloaded=$numrecords,results=$q_result where id=$resultsid"; + my $stj=$dbi->prepare($task); + $stj->execute; + } + sleep 5; } } } *************** *** 174,178 **** exit; sub pe { ! (return) unless ($code); my $code=$conn->errcode(); my $msg=$conn->errmsg(); --- 187,191 ---- exit; sub pe { ! return 0; my $code=$conn->errcode(); my $msg=$conn->errmsg(); *************** *** 184,187 **** --- 197,204 ---- EOF + # if ($msg =~/not yet available/) { + # return 1; + # } + return 0; } } *************** *** 204,208 **** $lastrun=time(); } ! sleep 1; } --- 221,225 ---- $lastrun=time(); } ! sleep 10; }

1 0

Keyword searches
by Chris Cormack 30 Dec '01

30 Dec '01

Hi all Hope everyones holidays are going well. I ended up taking a look at the keyword searching in koha the other day, it was running slow and was causing much consternation in the holiday rush. What was happening is because of the likes in the search and the wildcarding from the front of the search terms. Mysql couldnt use any indices to make the search faster. Which is fine until you have to join the biblio, biblioitems and bibliosubtitle tables together to search over. Which is what the keyword search needs. It meant that for the Horowhenua library's for every keyword entered mysql had to scan 160955 rows. Which isnt pretty when a few ppl are doing it at the same time with a few keywords. What I did was pretty much a quick bodge I ended up using Set::Scalar, and breaking the queries down into one per table, then using set unions to join the results together. As bodges go it worked nicely, searches that previously took 10+ seconds now take less than 1. But im hesistant to commit my change to cvs as I think that with steves work the database structure is going to change and the searches will need to be rewritten anyway. Plus it also means another module that ppl would have to install to get koha going. So if we can fix the broken database design, (putting subtitles as just a column in biblio would be one way to drop an unnessecary table for a start) and do the searches without the uses of Set::Scalar i think that would be far preferable. What do others think? Is it worth committing the change to the sourceforge cvs? Would anyone find it useful as a quick fix? If not ill just keep it in my local copy. Hope everyone is well and Happy new year Chris -- Chris Cormack Programmer 025 500 789 Katipo Communications Ltd chris(a)katipo.co.nz www.katipo.co.nz

1 0

CVS: koha/C4 Search.pm,1.10,1.11
by Chris Cormack 11 Dec '01

11 Dec '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv5285/C4 Modified Files: Search.pm Log Message: Added the facility to restrict a keyword search by dewey number Index: Search.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Search.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -r1.10 -r1.11 *** Search.pm 2001/11/27 02:01:39 1.10 --- Search.pm 2001/12/12 02:31:28 1.11 *************** *** 262,268 **** my @results; my $query ="Select * from biblio,bibliosubtitle,biblioitems where biblio.biblionumber=bibliosubtitle.biblionumber and - biblioitems.biblionumber=biblio.biblionumber and (((title like '$key[0]%' or title like '% $key[0]%')"; while ($i < $count){ $query=$query." and (title like '$key[$i]%' or title like '% $key[$i]%')"; --- 262,269 ---- my @results; my $query ="Select * from biblio,bibliosubtitle,biblioitems where + biblio.biblionumber=biblioitems.biblionumber and biblio.biblionumber=bibliosubtitle.biblionumber and (((title like '$key[0]%' or title like '% $key[0]%')"; + while ($i < $count){ $query=$query." and (title like '$key[$i]%' or title like '% $key[$i]%')"; *************** *** 311,315 **** $query.=")"; } ! $query.="group by biblio.biblionumber order by author,title"; # print $query; my $sth=$dbh->prepare($query); --- 312,320 ---- $query.=")"; } ! if ($search->{'dewey'} ne ''){ ! $query.= "and (dewey like '$search->{'dewey'}%') "; ! } ! $query.="group by biblio.biblionumber"; ! #$query.=" order by author,title"; # print $query; my $sth=$dbh->prepare($query); *************** *** 317,328 **** $i=0; while (my $data=$sth->fetchrow_hashref){ ! my $sti=$dbh->prepare("select dewey,subclass from biblioitems where biblionumber=$data->{'biblionumber'} ! "); ! $sti->execute; ! my ($dewey, $subclass) = $sti->fetchrow; $dewey=~s/\.*0*$//; ($dewey == 0) && ($dewey=''); ($dewey) && ($dewey.=" $subclass"); ! $sti->finish; $results[$i]="$data->{'author'}\t$data->{'title'}\t$data->{'biblionumber'}\t$data->{'copyrightdate'}\t$dewey"; # print $results[$i]; --- 322,335 ---- $i=0; while (my $data=$sth->fetchrow_hashref){ ! # my $sti=$dbh->prepare("select dewey,subclass from biblioitems where biblionumber=$data->{'biblionumber'} ! # "); ! # $sti->execute; ! # my ($dewey, $subclass) = $sti->fetchrow; ! my $dewey=$data->{'dewey'}; ! my $subclass=$data->{'subclass'}; $dewey=~s/\.*0*$//; ($dewey == 0) && ($dewey=''); ($dewey) && ($dewey.=" $subclass"); ! # $sti->finish; $results[$i]="$data->{'author'}\t$data->{'title'}\t$data->{'biblionumber'}\t$data->{'copyrightdate'}\t$dewey"; # print $results[$i]; *************** *** 345,348 **** --- 352,359 ---- } $query.=")"; + + } + if ($search->{'dewey'} ne ''){ + $query.= "and (dewey like '$search->{'dewey'}%') "; } my $sth2=$dbh->prepare($query);

1 0

MARC enabled version
by Nicholas Stephen Rosasco 28 Nov '01

28 Nov '01

Semi-idle question -- how close are y'all to a fully MARC OK Koha version? On that note: http://www.oclc.org/home Has some interesting data, and may have a list of z39.50 servers, if you want to add more to the DB. We may also want to add the ability to give Koha a file of ISBNs or whatever to go get data in bulk, since if you're starting from no cataloging data, you have problems :) (Say, a file import button on the ISBN list?). Nick ...throwing ideas around today.

1 0

CVS: koha/C4 Search.pm,1.9,1.10
by Chris Cormack 26 Nov '01

26 Nov '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv10044/C4 Modified Files: Search.pm Log Message: Fixing error in keyword search (fixing my mistake from yesterday) Index: Search.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Search.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -r1.9 -r1.10 *** Search.pm 2001/11/26 04:33:42 1.9 --- Search.pm 2001/11/27 02:01:39 1.10 *************** *** 302,306 **** } $query=$query."))"; ! if ($search->{'class'} ne ''){ my @temp=split(/\|/,$search->{'class'}); my $count=@temp; --- 302,306 ---- } $query=$query."))"; ! if ($search->{'class'} ne ''){ my @temp=split(/\|/,$search->{'class'}); my $count=@temp; *************** *** 308,313 **** for (my $i=1;$i<$count;$i++){ $query.=" or itemtype='$temp[$i]'"; ! } ! $query.=")"; } $query.="group by biblio.biblionumber order by author,title"; --- 308,313 ---- for (my $i=1;$i<$count;$i++){ $query.=" or itemtype='$temp[$i]'"; ! } ! $query.=")"; } $query.="group by biblio.biblionumber order by author,title"; *************** *** 335,340 **** while (my $data=$sth->fetchrow_hashref){ $query="Select * from biblio,biblioitems where ! biblio.biblionumber=$data->{'biblionumber'} and biblio.biblionumber=biblioitems.biblionumber ! group by biblio.biblionumber"; if ($search->{'class'} ne ''){ my @temp=split(/\|/,$search->{'class'}); --- 335,340 ---- while (my $data=$sth->fetchrow_hashref){ $query="Select * from biblio,biblioitems where ! biblio.biblionumber=$data->{'biblionumber'} and ! biblio.biblionumber=biblioitems.biblionumber "; if ($search->{'class'} ne ''){ my @temp=split(/\|/,$search->{'class'});

1 0

CVS: koha/C4 Search.pm,1.8,1.9
by Chris Cormack 25 Nov '01

25 Nov '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv28117 Modified Files: Search.pm Log Message: Fixing a bug in keyword search was duplicating results Index: Search.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Search.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -r1.8 -r1.9 *** Search.pm 2001/11/26 00:41:34 1.8 --- Search.pm 2001/11/26 04:33:42 1.9 *************** *** 317,321 **** $i=0; while (my $data=$sth->fetchrow_hashref){ ! my $sti=$dbh->prepare("select dewey,subclass from biblioitems where biblionumber=$data->{'biblionumber'}"); $sti->execute; my ($dewey, $subclass) = $sti->fetchrow; --- 317,322 ---- $i=0; while (my $data=$sth->fetchrow_hashref){ ! my $sti=$dbh->prepare("select dewey,subclass from biblioitems where biblionumber=$data->{'biblionumber'} ! "); $sti->execute; my ($dewey, $subclass) = $sti->fetchrow; *************** *** 330,338 **** $sth->finish; $sth=$dbh->prepare("Select biblionumber from bibliosubject where subject ! like '%$search->{'keyword'}%'"); $sth->execute; while (my $data=$sth->fetchrow_hashref){ $query="Select * from biblio,biblioitems where ! biblio.biblionumber=$data->{'biblionumber'} and biblio.biblionumber=biblioitems.biblionumber"; if ($search->{'class'} ne ''){ my @temp=split(/\|/,$search->{'class'}); --- 331,340 ---- $sth->finish; $sth=$dbh->prepare("Select biblionumber from bibliosubject where subject ! like '%$search->{'keyword'}%' group by biblionumber"); $sth->execute; while (my $data=$sth->fetchrow_hashref){ $query="Select * from biblio,biblioitems where ! biblio.biblionumber=$data->{'biblionumber'} and biblio.biblionumber=biblioitems.biblionumber ! group by biblio.biblionumber"; if ($search->{'class'} ne ''){ my @temp=split(/\|/,$search->{'class'}); *************** *** 348,352 **** # print $query; while (my $data2=$sth2->fetchrow_hashref){ ! $results[$i]="$data2->{'author'}\t$data2->{'title'}\t$data2->{'biblionumber'}\t$data2->{'copyrightdate'}"; # print $results[$i]; $i++; --- 350,360 ---- # print $query; while (my $data2=$sth2->fetchrow_hashref){ ! my $dewey= $data2->{'dewey'}; ! my $subclass=$data2->{'subclass'}; ! $dewey=~s/\.*0*$//; ! ($dewey == 0) && ($dewey=''); ! ($dewey) && ($dewey.=" $subclass") ; ! # $sti->finish; ! $results[$i]="$data2->{'author'}\t$data2->{'title'}\t$data2->{'biblionumber'}\t$data2->{'copyrightdate'}\t$dewey"; # print $results[$i]; $i++;

1 0

CVS: koha insertdata.pl,1.3,1.4
by Chris Cormack 25 Nov '01

25 Nov '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv29415 Modified Files: insertdata.pl Log Message: Modify an adult with guarantees now modifies the guarantees also. IE change of address effects the guarantees record as well Index: insertdata.pl =================================================================== RCS file: /cvsroot/koha/koha/insertdata.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** insertdata.pl 2001/03/07 21:12:47 1.3 --- insertdata.pl 2001/11/26 02:03:23 1.4 *************** *** 8,11 **** --- 8,12 ---- use C4::Database; use C4::Input; + use C4::Search; use Date::Manip; use strict; *************** *** 61,64 **** --- 62,83 ---- '$data{'ethnicity'}','$data{'borrowernumber'}')"; } + # ok if its an adult (type) it may have borrowers that depend on it as a guarantor + # so when we update information for an adult we should check for guarantees and update the relevant part + # of their records, ie addresses and phone numbers + + if ($data{'categorycode'} eq 'A' || $data{'categorycode'} eq 'W'){ + # is adult check guarantees; + my ($count,$guarantees)=findguarantees($data{'borrowernumber'}); + for (my $i=0;$i<$count;$i++){ + my $guaquery="update borrowers set streetaddress='$data{'address'}',faxnumber='$data{'faxnumber'}', + streetcity='$data{'streetcity'}',phoneday='$data{'phoneday'}',city='$data{'city'}',area='$data{'area'}',phone='$data{'phone'}' + ,streetaddress='$data{'address'}' + where borrowernumber='$guarantees->[$i]->{'borrowernumber'}'"; + my $sth3=$dbh->prepare($guaquery); + $sth3->execute; + $sth3->finish; + } + } + #print $query; my $sth2=$dbh->prepare($query);

1 0

CVS: koha/C4 Search.pm,1.7,1.8
by Chris Cormack 25 Nov '01

25 Nov '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv14012 Modified Files: Search.pm Log Message: Added a findguarantor routine to search for the guarantor of a given borrower. Probably it and findgurantees need to moved out to borrowers.pm Index: Search.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Search.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -r1.7 -r1.8 *** Search.pm 2001/11/25 22:25:55 1.7 --- Search.pm 2001/11/26 00:41:34 1.8 *************** *** 20,24 **** &OpacSearch &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues &getboracctrecord &ItemType &itemissues &FrontSearch &subject &subtitle ! &addauthor &bibitems &barcodes &findguarantees &allissues &systemprefs); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], --- 20,25 ---- &OpacSearch &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues &getboracctrecord &ItemType &itemissues &FrontSearch &subject &subtitle ! &addauthor &bibitems &barcodes &findguarantees &allissues &systemprefs ! &findguarantor); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 72,76 **** return($i,\@dat); } ! sub systemprefs { --- 73,94 ---- return($i,\@dat); } ! sub findguarantor{ ! my ($bornum)=@_; ! my $dbh=C4Connect; ! my $query="select guarantor from borrowers where ! borrowernumber='$bornum'"; ! my $sth=$dbh->prepare($query); ! $sth->execute; ! my $data=$sth->fetchrow_hashref; ! $sth->finish; ! $query="Select * from borrowers where ! borrowernumber='$data->{'guarantor'}'"; ! $sth=$dbh->prepare($query); ! $sth->execute; ! $data=$sth->fetchrow_hashref; ! $sth->finish; ! $dbh->disconnect; ! return($data); ! } sub systemprefs {

1 0