[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Biblio.pm
From: |
Chris Cormack |
Subject: |
[Koha-cvs] koha/C4 Biblio.pm |
Date: |
Tue, 07 Mar 2006 21:54:47 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Chris Cormack <address@hidden> 06/03/07 21:54:47
Modified files:
C4 : Biblio.pm
Log message:
Starting work on deletes
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?tr1=1.158&tr2=1.159&r1=text&r2=text
Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.158 koha/C4/Biblio.pm:1.159
--- koha/C4/Biblio.pm:1.158 Mon Mar 6 02:45:41 2006
+++ koha/C4/Biblio.pm Tue Mar 7 21:54:47 2006
@@ -22,6 +22,7 @@
use C4::Context;
use C4::Database;
use C4::Date;
+use C4::Search;
use MARC::Record;
use MARC::File::USMARC;
use MARC::File::XML;
@@ -29,7 +30,7 @@
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.158 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.159 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
@ISA = qw(Exporter);
@@ -1032,16 +1033,19 @@
sub NEWdelbiblio {
my ( $dbh, $bibid ) = @_;
- my $biblio = &MARCfind_oldbiblionumber_from_MARCbibid( $dbh, $bibid );
- &REALdelbiblio( $dbh, $biblio );
+# my $biblio = &MARCfind_oldbiblionumber_from_MARCbibid( $dbh, $bibid );
+ &REALdelbiblio( $dbh, $bibid );
my $sth =
$dbh->prepare(
"select biblioitemnumber from biblioitems where biblionumber=?");
- $sth->execute($biblio);
+ $sth->execute($bibid);
while ( my ($biblioitemnumber) = $sth->fetchrow ) {
REALdelbiblioitem( $dbh, $biblioitemnumber );
}
- &MARCdelbiblio( $dbh, $bibid, 0 );
+# &MARCdelbiblio( $dbh, $bibid, 0 );
+ # delete from zebra
+ my $record = get_record($bibid);
+# z3950_extended_services('update',set_service_options('update'),$record);
}
=head2 NEWnewitem
@@ -1112,9 +1116,9 @@
sub NEWdelitem {
my ( $dbh, $bibid, $itemnumber ) = @_;
- my $biblio = &MARCfind_oldbiblionumber_from_MARCbibid( $dbh, $bibid );
&REALdelitem( $dbh, $itemnumber );
- &MARCdelitem( $dbh, $bibid, $itemnumber );
+# &MARCdelitem( $dbh, $bibid, $itemnumber );
+ # we must now delete the item data from zebra
}
@@ -3033,8 +3037,11 @@
=cut
-# $Id: Biblio.pm,v 1.158 2006/03/06 02:45:41 kados Exp $
+# $Id: Biblio.pm,v 1.159 2006/03/07 21:54:47 rangi Exp $
# $Log: Biblio.pm,v $
+# Revision 1.159 2006/03/07 21:54:47 rangi
+# Starting work on deletes
+#
# Revision 1.158 2006/03/06 02:45:41 kados
# Adding fixes to MARC editor to HEAD
#