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) = @_; }