moving non koha-running files to misc dir

[koha.git] / currency.pl

diff --git a/currency.pl b/currency.pl
index fabc1fe..78aa974 100755 (executable)
--- a/currency.pl
+++ b/currency.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+# $Id$
+
 #written by chris@katipo.co.nz
 #9/10/2000
 #script to display and update currency rates
@@ -22,8 +24,11 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
+# FIXME - There's an "admin/currency.pl", and this script never seems
+# to be used. Is it obsolete?
+
 use CGI;
-use C4::Acquisitions;
+use C4::Catalogue;
 use C4::Biblio;
 
 my $input=new CGI;
@@ -40,7 +45,7 @@ if ($type ne 'change'){
   <input type=hidden name=type value=change>
   <TR VALIGN=TOP>
   <TD  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2 ><b>EXCHANGE RATES </b></TD></TR>
-  <TR VALIGN=TOP>                                                                 
+  <TR VALIGN=TOP>
   <TD>
 printend
 ;
@@ -52,12 +57,12 @@ printend
 #    print $rates->[$i]->{'currency'};
   }
   print <<printend
-    <p>                                                                             
+    <p>
   <input type=image  name=submit src=/images/save-changes.gif border=0 width=187 height=42>
-  
-  </TD></TR>                                                                      
-  </form>                                                                         
-  </table>                                                
+
+  </TD></TR>
+  </form>
+  </table>
 printend
 ;
 } else {