[Koha-cvs] koha/C4 Search.pm [rel_3_0]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/10/31 17:26:24

Modified files:
	C4             : Search.pm 

Log message:
	moving getbranchname to koha.pm
	moving bibitemdata to search.pm

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.120.2.18&r2=1.120.2.19

Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.120.2.18
retrieving revision 1.120.2.19
diff -u -b -r1.120.2.18 -r1.120.2.19
--- Search.pm	30 Oct 2006 11:23:06 -0000	1.120.2.18
+++ Search.pm	31 Oct 2006 17:26:23 -0000	1.120.2.19
@@ -39,7 +39,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.120.2.18 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.120.2.19 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -75,15 +75,14 @@
 &itemdata &bibdata 
 
 &GetItems &borrdata &itemnodata &itemcount &itemcount2
-&borrdata2 &borrdata3 
 
-&NewBorrowerNumber &bibitemdata &borrissues
+&NewBorrowerNumber &borrissues
 &getboracctrecord &ItemType &itemissues &subject &subtitle
 &addauthor &bibitems &barcodes &findguarantees &allissues
 &findseealso &findguarantor 
 
 &getwebsites &getwebbiblioitems &FindDuplicate
-&isbnsearch &getbranchname &getborrowercategory &getborrowercategoryinfo 
+&isbnsearch &getborrowercategory &getborrowercategoryinfo
 
 &searchResults &getRecords &buildQuery &catalogsearch
 
@@ -1481,32 +1480,6 @@
     return($data);
 } # sub bibdata
 
-=item bibitemdata
-
-  $itemdata = &bibitemdata($biblioitemnumber);
-
-Looks up the biblioitem with the given biblioitemnumber. Returns a
-reference-to-hash. The keys are the fields from the C<biblio>,
-C<biblioitems>, and C<itemtypes> tables in the Koha database, except
-that C<biblioitems.notes> is given as C<$itemdata-E<gt>{bnotes}>.
-
-=cut
-
-#'
-sub bibitemdata {
-    my ($bibitem) = @_;
-    my $dbh   = C4::Context->dbh;
-    my $sth   = $dbh->prepare("Select *,biblioitems.notes as bnotes from biblioitems, biblio,itemtypes where biblio.biblionumber = biblioitems.biblionumber and biblioitemnumber = ? and biblioitems.itemtype = itemtypes.itemtype");
-    my $data;
-
-    $sth->execute($bibitem);
-
-    $data = $sth->fetchrow_hashref;
-
-    $sth->finish;
-    return($data);
-} # sub bibitemdata
-
 =item subject
 
   ($count, $subjects) = &subject($biblionumber);
@@ -2385,26 +2358,6 @@
     return($count, @results);
 } # sub isbnsearch
 
-=item getbranchname
-
-  $branchname = &getbranchname($branchcode);
-
-Given the branch code, the function returns the corresponding
-branch name for a comprehensive information display
-
-=cut
-
-sub getbranchname
-{
-    my ($branchcode) = @_;
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("SELECT branchname FROM branches WHERE branchcode = ?");
-    $sth->execute($branchcode);
-    my $branchname = $sth->fetchrow();
-    $sth->finish();
-    return $branchname;
-} # sub getbranchname
-
 =item getborrowercategory
 
   $description = &getborrowercategory($categorycode);