[Koha-cvs] CVS: koha/C4 Biblio.pm,1.72,1.73

[Paul POULAIN]

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

Modified Files:
        Biblio.pm 
Log Message:
bugfix for iso2709 file import in the "notforloan" field.

But notforloan field called "loan" somewhere, so in case "loan" is used, copied 
to "notforloan" to avoid a bug.

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -C2 -r1.72 -r1.73
*** Biblio.pm   24 Nov 2003 17:40:14 -0000      1.72
--- Biblio.pm   28 Nov 2003 09:45:25 -0000      1.73
***************
*** 1437,1440 ****
--- 1437,1444 ----
        $itemnumber = $data->{'max(itemnumber)'} + 1;
        $sth->finish;
+ # FIXME the "notforloan" field seems to be named "loan" in some places. 
workaround bugfix.
+       if ($item->{'loan'}) {
+               $item->{'notforloan'} = $item->{'loan'};
+       }
  # if dateaccessioned is provided, use it. Otherwise, set to NOW()
        if ($item->{'dateaccessioned'}) {
***************
*** 1453,1457 ****
                                                                
$item->{'homebranch'},$item->{'holdingbranch'},
                                                                
$item->{'price'},$item->{'replacementprice'},
!                                                               
$item->{'itemnotes'},$item->{'loan'});
        } else {
                $sth=$dbh->prepare("Insert into items set
--- 1457,1461 ----
                                                                
$item->{'homebranch'},$item->{'holdingbranch'},
                                                                
$item->{'price'},$item->{'replacementprice'},
!                                                               
$item->{'itemnotes'},$item->{'notforloan'});
        } else {
                $sth=$dbh->prepare("Insert into items set
***************
*** 1469,1473 ****
                                                                
$item->{'homebranch'},$item->{'holdingbranch'},
                                                                
$item->{'price'},$item->{'replacementprice'},
!                                                               
$item->{'itemnotes'},$item->{'loan'});
        }
        if (defined $sth->errstr) {
--- 1473,1477 ----
                                                                
$item->{'homebranch'},$item->{'holdingbranch'},
                                                                
$item->{'price'},$item->{'replacementprice'},
!                                                               
$item->{'itemnotes'},$item->{'notforloan'});
        }
        if (defined $sth->errstr) {
***************
*** 2214,2217 ****
--- 2218,2226 ----
  # $Id$
  # $Log$
+ # Revision 1.73  2003/11/28 09:45:25  tipaul
+ # bugfix for iso2709 file import in the "notforloan" field.
+ #
+ # But notforloan field called "loan" somewhere, so in case "loan" is used, 
copied to "notforloan" to avoid a bug.
+ #
  # Revision 1.72  2003/11/24 17:40:14  tipaul
  # fix for #385