From 14def333db6a6533f0756878e75a87531d25a3d3 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Thu, 6 Mar 2014 17:12:26 +0100
Subject: [PATCH] Bug 766: remove disused routine buildCGISort

buildCGISort can be deleted.

Test plan:
  git grep buildCGISort
should return no result.

Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>

No more buildCGISort

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 C4/Input.pm            | 53 ------------------------------------------
 admin/aqplan.pl        |  1 -
 members/memberentry.pl | 11 +--------
 3 files changed, 1 insertion(+), 64 deletions(-)

diff --git a/C4/Input.pm b/C4/Input.pm
index ba304607a7..38042421da 100644
--- a/C4/Input.pm
+++ b/C4/Input.pm
@@ -52,7 +52,6 @@ number or ISBN is valid.
 @ISA = qw(Exporter);
 @EXPORT = qw(
 	&checkdigit
-	&buildCGIsort
 );
 
 =item checkdigit
@@ -109,58 +108,6 @@ sub checkdigit ($;$) {
 	return 0;
 } # sub checkdigit
 
-=item buildCGISort
-
-  $CGIScrollingList = &buildCGISort($name string, $input_name string);
-
-Returns the scrolling list with name $input_name, built on authorised Values named $name.
-Returns NULL if no authorised values found
-
-=cut
-
-sub buildCGIsort {
-    my ( $name, $input_name, $data ) = @_;
-    my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : "";
-
-    my $dbh=C4::Context->dbh;
-    my $query = qq{
-        SELECT *
-        FROM authorised_values
-    };
-    $query .= qq{
-          LEFT JOIN authorised_values_branches ON ( id = av_id )
-    } if $branch_limit;
-    $query .= qq{
-        WHERE category = ?
-    };
-    $query .= qq{ AND ( branchcode = ? OR branchcode IS NULL )} if $branch_limit;
-    $query .= qq{ GROUP BY lib ORDER BY lib};
-
-    my $sth=$dbh->prepare($query);
-    $sth->execute( $name, $branch_limit ? $branch_limit : () );
-    my $CGISort;
-    if ($sth->rows>0){
-        my @values;
-        my %labels;
-
-        for (my $i =0;$i<$sth->rows;$i++){
-            my $results = $sth->fetchrow_hashref;
-            push @values, $results->{authorised_value};
-            $labels{$results->{authorised_value}}=$results->{lib};
-        }
-        $CGISort= CGI::scrolling_list(
-                    -name => $input_name,
-                    -id =>   $input_name,
-                    -values => \@values,
-                    -labels => \%labels,
-                    -default=> $data,
-                    -size => 1,
-                    -multiple => 0);
-    }
-    $sth->finish;
-    return $CGISort;
-}
-
 END { }       # module clean-up code here (global destructor)
 
 1;
diff --git a/admin/aqplan.pl b/admin/aqplan.pl
index 9cc8c5990d..0614babb9d 100755
--- a/admin/aqplan.pl
+++ b/admin/aqplan.pl
@@ -225,7 +225,6 @@ HideCols($authcat, @hide_cols);
 }
 # ------------------------------------------------------------
 if ( $authcat =~ m/^Asort/ ) {
-    # ----------- copied from C4::Input::buildCGIsort()
    my $query = qq{ SELECT * FROM authorised_values WHERE category=? order by lib };
     my $sth   = $dbh->prepare($query);
     $sth->execute($authcat  );
diff --git a/members/memberentry.pl b/members/memberentry.pl
index 3b042e3d94..dee53c5988 100755
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -621,16 +621,7 @@ if($no_categories){
 $template->param(no_add => $no_add);
 # --------------------------------------------------------------------------------------------------------
 
-my $CGIsort = buildCGIsort("Bsort1","sort1",$data{'sort1'});
-if ($CGIsort) {
-    $template->param(CGIsort1 => $CGIsort);
-}
-$template->param( sort1 => $data{'sort1'});		# shouldn't this be in an "else" statement like the 2nd one?
-
-$CGIsort = buildCGIsort("Bsort2","sort2",$data{'sort2'});
-if ($CGIsort) {
-    $template->param(CGIsort2 => $CGIsort);
-}
+$template->param( sort1 => $data{'sort1'});
 $template->param( sort2 => $data{'sort2'});
 
 if ($nok) {
-- 
2.39.5