Bug 15451: Koha::CsvProfiles - Remove GetCsvProfilesLoop

[srvgit] / C4 / Csv.pm

diff --git a/C4/Csv.pm b/C4/Csv.pm
index ce4693a..275fb49 100644 (file)
--- a/C4/Csv.pm
+++ b/C4/Csv.pm
@@ -34,7 +34,6 @@ use vars qw(@ISA @EXPORT);
   &GetCsvProfiles
   &GetCsvProfile
   &GetCsvProfileId
-  &GetCsvProfilesLoop
   &GetMarcFieldsForCsv
 );
 
@@ -94,23 +93,5 @@ sub GetMarcFieldsForCsv {
  
 }
 
-# Returns informations aboout csv profiles suitable for html templates
-sub GetCsvProfilesLoop {
-    my ( $type ) = @_;
-    # List of existing profiles
-    my $dbh = C4::Context->dbh;
-    my $sth;
-    my $query = "SELECT export_format_id, profile FROM export_format";
-    if ( $type ) {
-        $query .= " WHERE type = ?";
-    }
-
-    $sth = $dbh->prepare($query);
-    $sth->execute( $type ? $type : () );
-    return $sth->fetchall_arrayref({});
-
-}
-
-
 
 1;