[Koha-cvs] CVS: koha/C4 Biblio.pm,1.101,1.102

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28965/C4

Modified Files:
        Biblio.pm 
Log Message:
adding a "location" field to the library.
This field is useful when the callnumber contains no information on the room 
where the item is stored.
With this field, we now have 3 levels of informations to find a book :
* the branch.
* the location.
* the callnumber.

This should be versatile enough to solve any storing method.
This hack is quite simple, due to the nice Biblio.pm API. The MARC => koha db 
link is automatically managed. Just add the link in the parameters section.

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.101
retrieving revision 1.102
diff -C2 -r1.101 -r1.102
*** Biblio.pm   18 Aug 2004 16:01:37 -0000      1.101
--- Biblio.pm   6 Sep 2004 10:00:19 -0000       1.102
***************
*** 1743,1747 ****
                                                        price                = 
?,                                               replacementprice     = ?,
                                                        replacementpricedate = 
NOW(),   itemnotes            = ?,
!                                                       itemcallnumber  =?,     
                                                notforloan = ?
                                                        "
          );
--- 1743,1748 ----
                                                        price                = 
?,                                               replacementprice     = ?,
                                                        replacementpricedate = 
NOW(),   itemnotes            = ?,
!                                                       itemcallnumber  =?,     
                                                notforloan = ?,
!                                                       location = ?
                                                        "
          );
***************
*** 1753,1757 ****
              $item->{'price'},            $item->{'replacementprice'},
              $item->{'itemnotes'},        $item->{'itemcallnumber'},
!             $item->{'notforloan'}
          );
      }
--- 1754,1758 ----
              $item->{'price'},            $item->{'replacementprice'},
              $item->{'itemnotes'},        $item->{'itemcallnumber'},
!             $item->{'notforloan'},            $item->{'location'}
          );
      }
***************
*** 1764,1768 ****
                                                        price                = 
?,                                               replacementprice     = ?,
                                                        replacementpricedate = 
NOW(),   itemnotes            = ?,
!                                                       itemcallnumber = ? , 
notforloan = ?
                                                        "
          );
--- 1765,1770 ----
                                                        price                = 
?,                                               replacementprice     = ?,
                                                        replacementpricedate = 
NOW(),   itemnotes            = ?,
!                                                       itemcallnumber = ? , 
notforloan = ?,
!                                                       location = ?
                                                        "
          );
***************
*** 1773,1777 ****
              $item->{'holdingbranch'},    $item->{'price'},
              $item->{'replacementprice'}, $item->{'itemnotes'},
!             $item->{'itemcallnumber'},   $item->{'notforloan'}
          );
      }
--- 1775,1780 ----
              $item->{'holdingbranch'},    $item->{'price'},
              $item->{'replacementprice'}, $item->{'itemnotes'},
!             $item->{'itemcallnumber'},   $item->{'notforloan'},
!                       $item->{'location'}
          );
      }
***************
*** 1789,1794 ****
      #  my $dbh=C4Connect;
      $item->{'itemnum'} = $item->{'itemnumber'} unless $item->{'itemnum'};
!     my $query =
! "update items set  barcode=?,itemnotes=?,itemcallnumber=?,notforloan=? where 
itemnumber=?";
      my @bind = (
          $item->{'barcode'},        $item->{'notes'},
--- 1792,1796 ----
      #  my $dbh=C4Connect;
      $item->{'itemnum'} = $item->{'itemnumber'} unless $item->{'itemnum'};
!     my $query = "update items set  
barcode=?,itemnotes=?,itemcallnumber=?,notforloan=? where itemnumber=?";
      my @bind = (
          $item->{'barcode'},        $item->{'notes'},
***************
*** 1809,1813 ****
                               wthdrawn=?,
                             itemcallnumber=?,
!                            notforloan=?";
          @bind = (
              $item->{'bibitemnum'},     $item->{'barcode'},
--- 1811,1816 ----
                               wthdrawn=?,
                             itemcallnumber=?,
!                            notforloan=?,
!                                location=?";
          @bind = (
              $item->{'bibitemnum'},     $item->{'barcode'},
***************
*** 1815,1819 ****
              $item->{'lost'},           $item->{'wthdrawn'},
              $item->{'itemcallnumber'}, $item->{'notforloan'},
!             $item->{'itemnum'}
          );
                if ($item->{homebranch}) {
--- 1818,1822 ----
              $item->{'lost'},           $item->{'wthdrawn'},
              $item->{'itemcallnumber'}, $item->{'notforloan'},
!             $item->{'location'},              $item->{'itemnum'}
          );
                if ($item->{homebranch}) {
***************
*** 2534,2537 ****
--- 2537,2551 ----
  # $Id$
  # $Log$
+ # Revision 1.102  2004/09/06 10:00:19  tipaul
+ # adding a "location" field to the library.
+ # This field is useful when the callnumber contains no information on the 
room where the item is stored.
+ # With this field, we now have 3 levels of informations to find a book :
+ # * the branch.
+ # * the location.
+ # * the callnumber.
+ #
+ # This should be versatile enough to solve any storing method.
+ # This hack is quite simple, due to the nice Biblio.pm API. The MARC => koha 
db link is automatically managed. Just add the link in the parameters section.
+ #
  # Revision 1.101  2004/08/18 16:01:37  tipaul
  # modifs to support frameworkcodes