[Koha-cvs] CVS: koha currency.pl,1.6,1.7

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv338

Modified Files:
        currency.pl 
Log Message:
script now used only when currencies rates modified in acqui/acqui-home.pl page 
=> removed unused code

Index: currency.pl
===================================================================
RCS file: /cvsroot/koha/koha/currency.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** currency.pl 12 Nov 2002 16:41:55 -0000      1.6
--- currency.pl 13 Feb 2003 18:03:36 -0000      1.7
***************
*** 25,31 ****
  # 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::Catalogue;
--- 25,28 ----
***************
*** 34,78 ****
  my $input=new CGI;
  
! my $type=$input->param('type');
! #find out what the script is being called for
! #print $input->header();
! if ($type ne 'change'){
!   #display, we must fetch the exchange rate data and output it
!   print $input->header();
!   print <<printend
!   <TABLE width="40%" cellspacing=0 cellpadding=5 border=1 >
!   <FORM ACTION="/cgi-bin/koha/currency.pl">
!   <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>
!   <TD>
! printend
! ;
!   my ($count,$rates)=getcurrencies();
!   for (my $i=0;$i<$count;$i++){
!     if ($rates->[$i]->{'currency'} ne 'NZD'){
!       print "$rates->[$i]->{'currency'}<INPUT TYPE=\"text\"  SIZE=\"5\"   
NAME=\"$rates->[$i]->{'currency'}\" value=$rates->[$i]->{'rate'}>";
!     }
! #    print $rates->[$i]->{'currency'};
!   }
!   print <<printend
!     <p>
!   <input type=image  name=submit src=/images/save-changes.gif border=0 
width=187 height=42>
! 
!   </TD></TR>
!   </form>
!   </table>
! printend
! ;
! } else {
! #  print $input->Dump;
!   my @params=$input->param;
!   foreach my $param (@params){
!     if ($param ne 'type' && $param !~ /submit/){
!       my $data=$input->param($param);
!       updatecurrencies($param,$data);
!     }
!   }
!   print $input->redirect('/acquisitions/');
  }
--- 31,41 ----
  my $input=new CGI;
  
! my @params=$input->param;
! foreach my $param (@params){
!       if ($param ne 'type' && $param !~ /submit/){
!               my $data=$input->param($param);
!               warn "$data / $param";
!               updatecurrencies($param,$data);
! }
  }
+ print $input->redirect('/cgi-bin/koha/acqui/acqui-home.pl');