removing unused sub

diff --git a/C4/Catalogue.pm b/C4/Catalogue.pm
index 7e3835c..82cea15 100644 (file)
--- a/C4/Catalogue.pm
+++ b/C4/Catalogue.pm
@@ -793,19 +793,6 @@ sub getcurrencies {
   return($i,\@results);
 }
 
-# FIXME - Never used
-sub getcurrency {
-  my ($cur)=@_;
-  my $dbh = C4::Context->dbh;
-  my $query="Select * from currency where currency='$cur'";
-  my $sth=$dbh->prepare($query);
-  $sth->execute;
-
-  my $data=$sth->fetchrow_hashref;
-  $sth->finish;
-  return($data);
-}
-
 =item updatecurrencies
 
   &updatecurrencies($currency, $newrate);