From bd9239fee1b9cf0c1d31a1c18939ca4696e28e1d Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 10 Feb 2003 13:37:08 +0000
Subject: [PATCH] removing unused sub

---
 C4/Catalogue.pm | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/C4/Catalogue.pm b/C4/Catalogue.pm
index 7e3835cb36..82cea15f15 100644
--- 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);
-- 
2.39.5