From b9fbe0083f963d274d2e148954c5398648c8db59 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 10 Mar 2003 15:19:33 +0000
Subject: [PATCH] *** empty log message ***

---
 C4/Circulation/Circ2.pm | 102 +---------------------------------------
 1 file changed, 2 insertions(+), 100 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 377d63ab9e..8f57353c0b 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -66,110 +66,12 @@ returns, as well as general information about the library.
 =cut
 
 @ISA = qw(Exporter);
-@EXPORT = qw(&getbranches &getprinters &getpatroninformation
-	&getbranch &getprinter
+@EXPORT = qw(&getpatroninformation
 	&currentissues &getissues &getiteminformation &findborrower
 	&issuebook &returnbook &find_reserves &transferbook &decode
 	&calc_charges);
 
-=item getbranches
-
-  $branches = &getbranches();
-  @branch_codes = keys %$branches;
-  %main_branch_info = %{$branches->{"MAIN"}};
-
-Returns information about existing library branches.
-
-C<$branches> is a reference-to-hash. Its keys are the branch codes for
-all of the existing library branches, and its values are
-references-to-hash describing that particular branch.
-
-In each branch description (C<%main_branch_info>, above), there is a
-key for each field in the branches table of the Koha database. In
-addition, there is a key for each branch category code to which the
-branch belongs (the category codes are taken from the branchrelations
-table).
-
-=cut
-#'
-# FIXME - This function doesn't feel as if it belongs here. It should
-# go in some generic or administrative module, not in circulation.
-sub getbranches {
-# returns a reference to a hash of references to branches...
-    my %branches;
-    my $dbh = C4::Context->dbh;
-    my $sth=$dbh->prepare("select * from branches");
-    $sth->execute;
-    while (my $branch=$sth->fetchrow_hashref) {
-	my $tmp = $branch->{'branchcode'}; my $brc = $dbh->quote($tmp);
-		# FIXME - my $brc = $dbh->quote($branch->{"branchcode"});
-	my $query = "select categorycode from branchrelations where branchcode = $brc";
-	my $nsth = $dbh->prepare($query);
-	$nsth->execute;
-	while (my ($cat) = $nsth->fetchrow_array) {
-	    # FIXME - This seems wrong. It ought to be
-	    # $branch->{categorycodes}{$cat} = 1;
-	    # otherwise, there's a namespace collision if there's a
-	    # category with the same name as a field in the 'branches'
-	    # table (i.e., don't create a category called "issuing").
-	    # In addition, the current structure doesn't really allow
-	    # you to list the categories that a branch belongs to:
-	    # you'd have to list keys %$branch, and remove those keys
-	    # that aren't fields in the "branches" table.
-	    $branch->{$cat} = 1;
-	}
-	$nsth->finish;
-	$branches{$branch->{'branchcode'}}=$branch;
-    }
-    return (\%branches);
-}
-
-=item getprinters
-
-  $printers = &getprinters($env);
-  @queues = keys %$printers;
-
-Returns information about existing printer queues.
-
-C<$env> is ignored.
-
-C<$printers> is a reference-to-hash whose keys are the print queues
-defined in the printers table of the Koha database. The values are
-references-to-hash, whose keys are the fields in the printers table.
-
-=cut
-#'
-# FIXME - Perhaps this really belongs in C4::Print?
-sub getprinters {
-    my ($env) = @_;
-    my %printers;
-    my $dbh = C4::Context->dbh;
-    my $sth=$dbh->prepare("select * from printers");
-    $sth->execute;
-    while (my $printer=$sth->fetchrow_hashref) {
-	$printers{$printer->{'printqueue'}}=$printer;
-    }
-    return (\%printers);
-}
-
-# FIXME - This function doesn't feel as if it belongs here. It should
-# go in some generic or administrative module, not in circulation.
-sub getbranch ($$) {
-    my($query, $branches) = @_; # get branch for this query from branches
-    my $branch = $query->param('branch');
-    ($branch) || ($branch = $query->cookie('branch'));
-    ($branches->{$branch}) || ($branch=(keys %$branches)[0]);
-    return $branch;
-}
-
-# FIXME - Perhaps this really belongs in C4::Print?
-sub getprinter ($$) {
-    my($query, $printers) = @_; # get printer for this query from printers
-    my $printer = $query->param('printer');
-    ($printer) || ($printer = $query->cookie('printer'));
-    ($printers->{$printer}) || ($printer = (keys %$printers)[0]);
-    return $printer;
-}
+# &getbranches &getprinters &getbranch &getprinter => moved to C4::Koha.pm
 
 =item getpatroninformation
 
-- 
2.39.5