From bee78deec100ba6eeeb3100ad7ce20263154fa57 Mon Sep 17 00:00:00 2001
From: plugz <plugz>
Date: Tue, 1 Jul 2003 10:30:05 +0000
Subject: [PATCH] Added &getbranchname and &getborrowercategory getbranchname :
 given branchcode returns branch name getborrowercategory : given categorycode
 returns description

---
 C4/Search.pm | 57 +++++++++++++++++++++++++++++++++++++++++++++-------
 1 file changed, 50 insertions(+), 7 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 718b95730e..b24874e2c9 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -62,7 +62,7 @@ on what is passed to it, it calls the appropriate search function.
 &getboracctrecord &ItemType &itemissues &subject &subtitle
 &addauthor &bibitems &barcodes &findguarantees &allissues
 &findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2
-&isbnsearch &breedingsearch &getallthemes &getalllanguages);
+&isbnsearch &breedingsearch &getallthemes &getalllanguages &getbranchname &getborrowercategory);
 # make all your functions, whether exported or not;
 
 =item findguarantees
@@ -1844,10 +1844,10 @@ sub borrissues {
   my ($bornum)=@_;
   my $dbh = C4::Context->dbh;
   my $query;
-  $query="Select * from issues,biblio,items where borrowernumber='$bornum' and
-items.itemnumber=issues.itemnumber and
-items.biblionumber=biblio.biblionumber and issues.returndate is NULL order
-by date_due";
+  $query="Select * from issues,biblio,items where borrowernumber='$bornum'
+   and items.itemnumber=issues.itemnumber
+	and items.biblionumber=biblio.biblionumber
+	and issues.returndate is NULL order by date_due";
   #print $query;
   my $sth=$dbh->prepare($query);
     $sth->execute;
@@ -2439,7 +2439,7 @@ sub breedingsearch {
 } # sub breedingsearch
 
 
-=item getalllanguages 
+=item getalllanguages
 
   (@languages) = &getalllanguages();
   (@languages) = &getalllanguages($theme);
@@ -2524,7 +2524,7 @@ sub getalllanguages {
     }
 }
 
-=item getallthemes 
+=item getallthemes
 
   (@themes) = &getallthemes('opac');
   (@themes) = &getallthemes('intranet');
@@ -2594,6 +2594,49 @@ sub isbnsearch {
     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 $query = "SELECT branchname FROM branches WHERE branchcode = '$branchcode'";
+	my $sth = $dbh->prepare($query);
+	$sth->execute;
+	my $branchname = $sth->fetchrow();
+	$sth->finish();
+	return $branchname;
+} # sub getbranchname
+
+=item getborrowercategory
+
+  $description = &getborrowercategory($categorycode);
+
+Given the borrower's category code, the function returns the corresponding
+description for a comprehensive information display.
+
+=cut
+
+sub getborrowercategory
+{
+	my ($catcode) = @_;
+	my $dbh = C4::Context->dbh;
+	my $query = "SELECT description FROM categories WHERE categorycode = '$catcode'";
+	my $sth = $dbh->prepare($query);
+	$sth->execute;
+	my $description = $sth->fetchrow();
+	$sth->finish();
+	return $description;
+} # sub getborrowercategory
+
+
 END { }       # module clean-up code here (global destructor)
 
 1;
-- 
2.39.2