Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Added &getbranchname and &getborrowercategory

Browse source 
getbranchname : given branchcode returns branch name
getborrowercategory : given categorycode returns description
This commit is contained in:
plugz 2003-07-01 10:30:05 +00:00
parent 66df3391d5
commit bee78deec1
1 changed files with 50 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
C4/Search.pm
View file

@ -62,7 +62,7 @@ on what is passed to it, it calls the appropriate search function.
&getboracctrecord &ItemType &itemissues &subject &subtitle &getboracctrecord &ItemType &itemissues &subject &subtitle
&addauthor &bibitems &barcodes &findguarantees &allissues &addauthor &bibitems &barcodes &findguarantees &allissues
&findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2 &findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2
&isbnsearch &breedingsearch &getallthemes &getalllanguages); &isbnsearch &breedingsearch &getallthemes &getalllanguages &getbranchname &getborrowercategory);
# make all your functions, whether exported or not; # make all your functions, whether exported or not;
=item findguarantees =item findguarantees
@ -1844,10 +1844,10 @@ sub borrissues {
my ($bornum)=@_; my ($bornum)=@_;
my $dbh = C4::Context->dbh; my $dbh = C4::Context->dbh;
my $query; my $query;
$query="Select * from issues,biblio,items where borrowernumber='$bornum' and $query="Select * from issues,biblio,items where borrowernumber='$bornum'
items.itemnumber=issues.itemnumber and and items.itemnumber=issues.itemnumber
items.biblionumber=biblio.biblionumber and issues.returndate is NULL order and items.biblionumber=biblio.biblionumber
by date_due"; and issues.returndate is NULL order by date_due";
#print $query; #print $query;
my $sth=$dbh->prepare($query); my $sth=$dbh->prepare($query);
$sth->execute; $sth->execute;
@ -2439,7 +2439,7 @@ sub breedingsearch {
} # sub breedingsearch } # sub breedingsearch
=item getalllanguages =item getalllanguages
(@languages) = &getalllanguages(); (@languages) = &getalllanguages();
(@languages) = &getalllanguages($theme); (@languages) = &getalllanguages($theme);
@ -2524,7 +2524,7 @@ sub getalllanguages {
} }
} }
=item getallthemes =item getallthemes
(@themes) = &getallthemes('opac'); (@themes) = &getallthemes('opac');
(@themes) = &getallthemes('intranet'); (@themes) = &getallthemes('intranet');
@ -2594,6 +2594,49 @@ sub isbnsearch {
return($count, @results); return($count, @results);
} # sub isbnsearch } # 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) END { } # module clean-up code here (global destructor)
1; 1;