From 3801a7a0e13c3db8282407488c8f9625d95e37db Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 2 Jul 2013 12:56:21 +0200 Subject: [PATCH] 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 Signed-off-by: Kyle M Hall Passes koha-qa.pl, not references to get_branch_code_from_name found. Signed-off-by: Galen Charlton (cherry picked from commit 7d930649065663325de95c3f8ecdbcea3bddb3b5) Signed-off-by: Tomas Cohen Arazi (cherry picked from commit aa15f7031bc7d9c0f2c9901db491dada53f21c65) Signed-off-by: Bernardo Gonzalez Kriegel (cherry picked from commit aa15f7031bc7d9c0f2c9901db491dada53f21c65) Conflicts: C4/Branch.pm Signed-off-by: Chris Hall (cherry picked from commit 1eb41a81ee0b07026e22d069279e1be2b37caae3) --- C4/Branch.pm | 11 +---------- labels/label-edit-batch.pl | 1 - labels/label-manage.pl | 1 - patroncards/edit-batch.pl | 1 - patroncards/manage.pl | 1 - tools/manage-marc-import.pl | 1 - 6 files changed, 1 insertion(+), 15 deletions(-) diff --git a/C4/Branch.pm b/C4/Branch.pm index aeb1f5dc35..580df40c84 100644 --- a/C4/Branch.pm +++ b/C4/Branch.pm @@ -47,7 +47,7 @@ BEGIN { &CheckCategoryUnique &mybranch ); - @EXPORT_OK = qw( &onlymine &mybranch get_branch_code_from_name ); + @EXPORT_OK = qw( &onlymine &mybranch ); } =head1 NAME @@ -571,15 +571,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; -} - 1; __END__ 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 03f5bb98e3..8088486e14 100755 --- a/tools/manage-marc-import.pl +++ b/tools/manage-marc-import.pl @@ -35,7 +35,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"; -- 2.39.5