[Koha-cvs] CVS: koha currency.pl,1.6,1.7
Paul POULAIN
tipaul at users.sourceforge.net
Thu Feb 13 19:03:39 CET 2003
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');
More information about the Koha-cvs
mailing list