koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/C4 Biblio.pm [rel_3_0]


From: LAURIN arnaud
Subject: [Koha-cvs] koha/C4 Biblio.pm [rel_3_0]
Date: Wed, 06 Dec 2006 10:02:12 +0000

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     LAURIN arnaud <alaurin> 06/12/06 10:02:12

Modified files:
        C4             : Biblio.pm 

Log message:
        bugfixing for delete a biblio :
        
        restore itemissue fonction .... :
        
        other is pointed, zebra error 224... for biblio is not deleted in zebra 
..
        ....

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.34&r2=1.178.2.35

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.34
retrieving revision 1.178.2.35
diff -u -b -r1.178.2.34 -r1.178.2.35
--- Biblio.pm   6 Dec 2006 09:14:25 -0000       1.178.2.34
+++ Biblio.pm   6 Dec 2006 10:02:12 -0000       1.178.2.35
@@ -33,7 +33,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.178.2.34 $' =~ /\d+/g; 
shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.178.2.35 $' =~ /\d+/g; 
shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -454,7 +454,7 @@
         "SELECT biblioitemnumber FROM biblioitems WHERE biblionumber=?");
     $sth->execute($biblionumber);
     while ( my $biblioitemnumber = $sth->fetchrow ) {
-        my @issues = itemissues($biblioitemnumber);
+        my @issues = C4::Circulation::Circ2::itemissues($biblioitemnumber);
         foreach my $issue (@issues) {
             if (   ( $issue->{date_due} )
                 && ( $issue->{date_due} ne "Available" ) )
@@ -3572,8 +3572,16 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.178.2.34 2006/12/06 09:14:25 toins Exp $
+# $Id: Biblio.pm,v 1.178.2.35 2006/12/06 10:02:12 alaurin Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.178.2.35  2006/12/06 10:02:12  alaurin
+# bugfixing for delete a biblio :
+#
+# restore itemissue fonction .... :
+#
+# other is pointed, zebra error 224... for biblio is not deleted in zebra ..
+# ....
+#
 # Revision 1.178.2.34  2006/12/06 09:14:25  toins
 # Correct the link to the MARC subjects.
 #




reply via email to

[Prev in Thread] Current Thread [Next in Thread]