[Koha-devel] CVS: koha/C4 Catalogue.pm,1.1,1.2
Steve Tonnesen
tonnesen at users.sourceforge.net
Mon Jun 25 21:44:01 CEST 2001
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) = @_;
}
More information about the Koha-devel
mailing list