[Koha-patches] [PATCH] Bug 10426 Remove unused sub GetCcodes from Koha.pm

Colin Campbell colin.campbell at ptfs-europe.com
Thu Jun 6 12:54:02 CEST 2013


Remove uncalled sub GetCcodes

Also remove comment in opac-search.pl which is
remaining reference to it and serves no
useful purpose
---
 C4/Koha.pm          | 22 ----------------------
 opac/opac-search.pl |  4 ----
 2 files changed, 26 deletions(-)

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 9976995..412fa06 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -41,7 +41,6 @@ BEGIN {
 		&subfield_is_koha_internal_p
 		&GetPrinters &GetPrinter
 		&GetItemTypes &getitemtypeinfo
-		&GetCcodes
 		&GetSupportName &GetSupportList
 		&get_itemtypeinfos_of
 		&getframeworks &getframeworkinfo
@@ -286,27 +285,6 @@ END_SQL
     return get_infos_of( $query, 'itemtype', undef, \@itemtypes );
 }
 
-# this is temporary until we separate collection codes and item types
-sub GetCcodes {
-    my $count = 0;
-    my @results;
-    my $dbh = C4::Context->dbh;
-    my $sth =
-      $dbh->prepare(
-        "SELECT * FROM authorised_values ORDER BY authorised_value");
-    $sth->execute;
-    while ( my $data = $sth->fetchrow_hashref ) {
-        if ( $data->{category} eq "CCODE" ) {
-            $count++;
-            $results[$count] = $data;
-
-            #warn "data: $data";
-        }
-    }
-    $sth->finish;
-    return ( $count, @results );
-}
-
 =head2 getauthtypes
 
   $authtypes = &getauthtypes();
diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index dfe651e..36d3adb 100755
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -246,10 +246,6 @@ foreach my $advanced_srch_type (@advanced_search_types) {
 }
 $template->param(advancedsearchesloop => \@advancedsearchesloop);
 
-# # load the itypes (Called item types in the template -- just authorized values for searching)
-# my ($itypecount, at itype_loop) = GetCcodes();
-# $template->param(itypeloop=>\@itype_loop,);
-
 # The following should only be loaded if we're bringing up the advanced search template
 if ( $template_type && $template_type eq 'advsearch' ) {
     # load the servers (used for searching -- to do federated searching, etc.)
-- 
1.8.3.rc2



More information about the Koha-patches mailing list