From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Tue, 2 Jul 2013 10:56:21 +0000 (+0200)
Subject: Bug 10527: remove disused routine C4::Branch::get_branch_code_from_name
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=7d930649065663325de95c3f8ecdbcea3bddb3b5;hp=e504b6f53c234cb3f786435e6fb8380379bac7b8;p=koha.git

Bug 10527: remove disused routine C4::Branch::get_branch_code_from_name

This routine is not in used and does not make sense. It should not be
used later.

Signed-off-by: Srdjan <srdjan@catalyst.net.nz>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Passes koha-qa.pl, not references to get_branch_code_from_name found.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/C4/Branch.pm b/C4/Branch.pm
index 5770f7ba17..b1e66be105 100644
--- a/C4/Branch.pm
+++ b/C4/Branch.pm
@@ -48,7 +48,7 @@ BEGIN {
 		&mybranch
 		&GetBranchesCount
 	);
-	@EXPORT_OK = qw( &onlymine &mybranch get_branch_code_from_name );
+    @EXPORT_OK = qw( &onlymine &mybranch );
 }
 
 =head1 NAME
@@ -589,15 +589,6 @@ sub CheckBranchCategorycode {
     return $total;
 }
 
-sub get_branch_code_from_name {
-   my @branch_name = @_;
-   my $query = "SELECT branchcode FROM branches WHERE branchname=?;";
-   my $dbh = C4::Context->dbh();
-   my $sth = $dbh->prepare($query);
-   $sth->execute(@branch_name);
-   return $sth->fetchrow_array;
-}
-
 sub GetBranchesCount {
     my $dbh = C4::Context->dbh();
     my $query = "SELECT COUNT(*) AS branches_count FROM branches";
diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl
index d534b873c1..aea4742034 100755
--- a/labels/label-edit-batch.pl
+++ b/labels/label-edit-batch.pl
@@ -26,7 +26,6 @@ use CGI;
 
 use C4::Auth qw(get_template_and_user);
 use C4::Output qw(output_html_with_http_headers);
-use C4::Branch qw(get_branch_code_from_name);
 use C4::Items qw(GetItemnumberFromBarcode);
 use C4::Creators;
 use C4::Labels;
diff --git a/labels/label-manage.pl b/labels/label-manage.pl
index 7ef3300a43..871780d932 100755
--- a/labels/label-manage.pl
+++ b/labels/label-manage.pl
@@ -27,7 +27,6 @@ use Data::Dumper;
 
 use C4::Auth qw(get_template_and_user);
 use C4::Output qw(output_html_with_http_headers);
-use autouse 'C4::Branch' => qw(get_branch_code_from_name);
 use C4::Creators;
 use C4::Labels;
 
diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl
index 4897e5f4e6..497c01cab9 100755
--- a/patroncards/edit-batch.pl
+++ b/patroncards/edit-batch.pl
@@ -27,7 +27,6 @@ use autouse 'Data::Dumper' => qw(Dumper);
 
 use C4::Auth qw(get_template_and_user);
 use C4::Output qw(output_html_with_http_headers);
-use C4::Branch qw(get_branch_code_from_name);
 use C4::Creators;
 use C4::Patroncards;
 
diff --git a/patroncards/manage.pl b/patroncards/manage.pl
index d052f677df..2af8c0e0e5 100755
--- a/patroncards/manage.pl
+++ b/patroncards/manage.pl
@@ -27,7 +27,6 @@ use autouse 'Data::Dumper' => qw(Dumper);
 
 use C4::Auth qw(get_template_and_user);
 use C4::Output qw(output_html_with_http_headers);
-use autouse 'C4::Branch' => qw(get_branch_code_from_name);
 use C4::Creators;
 use C4::Patroncards;
 use C4::Labels;
diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl
index 25f7769c1c..c0584c9369 100755
--- a/tools/manage-marc-import.pl
+++ b/tools/manage-marc-import.pl
@@ -36,7 +36,6 @@ use C4::ImportBatch;
 use C4::Matcher;
 use C4::BackgroundJob;
 use C4::Labels::Batch;
-use C4::Branch qw(get_branch_code_from_name);
 
 my $script_name = "/cgi-bin/koha/tools/manage-marc-import.pl";