[Koha-devel] CVS: koha/C4 Catalogue.pm,1.1,1.2

[Steve Tonnesen]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv12288

Modified Files:
        Catalogue.pm 
Log Message:
Added skeletons of update routines.


Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** Catalogue.pm        2001/06/25 18:49:34     1.1
--- Catalogue.pm        2001/06/25 19:43:59     1.2
***************
*** 11,15 ****
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&newBiblio &newBiblioItem &newItem);
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
  
--- 11,16 ----
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&newBiblio &newBiblioItem &newItem &updateBiblio 
&updateBiblioItem
!            &updateItem);
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
  
***************
*** 63,66 ****
--- 64,79 ----
  }
  
+ sub updateBiblio {
+ # Update the biblio with biblionumber $biblio->{'biblionumber'}
+ # I guess this routine should search through all marc records for a record 
that
+ # has the same biblionumber stored in it, and modify the MARC record as well 
as
+ # the biblio table.
+ #
+ # Also, this subroutine should search through the $biblio object and compare 
it
+ # to the existing record and _LOG ALL CHANGES MADE_ in some way.  I'd like for
+ # this logging feature to be usable to undo changes easily.
+     my ($env, $biblio) = @_;
+ }
+ 
  
  sub addTag {
***************
*** 332,335 ****
--- 345,359 ----
  }
  
+ sub updateBiblioItem {
+ # Update the biblioitem with biblioitemnumber 
$biblioitem->{'biblioitemnumber'}
+ # This routine should also modify the corresponding MARC record data.
+ #
+ # This routine should also check to see which fields are actually being
+ # modified, and log all changes.
+ 
+     my ($env, $biblioitem) = @_;
+ }
+ 
+ 
  sub newItem {
      my ($env, $Record_ID, $item) = @_;
***************
*** 400,403 ****
--- 424,438 ----
      addTag($env, $Record_ID, $tag, ' ', ' ', $subfields2);
      $env->{'linkid'}='';
+ }
+ 
+ sub updateItem {
+ # Update the item with itemnumber $item->{'itemnumber'}
+ # This routine should also modify the corresponding MARC record data. (852 and
+ # 876 tags with 876p tag the same as $item->{'barcode'}
+ #
+ # This routine should also check to see which fields are actually being
+ # modified, and log all changes.
+ 
+     my ($env, $biblio) = @_;
  }