[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