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

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  06/11/28 14:43:18

Modified files:
        C4             : Biblio.pm 

Log message:
        deleteditems table wasn't getting populaated because the execute was 
commented out. This puts it back
        -- some table changes are needed as well, I'll commit those separately.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.115.2.51.2.41&r2=1.115.2.51.2.42

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.51.2.41
retrieving revision 1.115.2.51.2.42
diff -u -b -r1.115.2.51.2.41 -r1.115.2.51.2.42
--- Biblio.pm   11 Oct 2006 03:10:49 -0000      1.115.2.51.2.41
+++ Biblio.pm   28 Nov 2006 14:43:18 -0000      1.115.2.51.2.42
@@ -740,7 +740,7 @@
        $sth->execute( $record->as_usmarc() , $biblionumber);     
        $sth->finish;
 
-       &zebraop($dbh,$biblionumber,"specialUpdate","biblioserver");
+#      &zebraop($dbh,$biblionumber,"specialUpdate","biblioserver");
     return $biblionumber;
 }
 
@@ -2167,10 +2167,10 @@
     }
     $query =~ s/\,$//;
 
-    #  print $query;
+    warn $query;
     $sth = $dbh->prepare($query);
-#    $sth->execute(@bind);
-#    $sth->finish;
+    $sth->execute(@bind);
+    $sth->finish;
     $sth = $dbh->prepare("Delete from items where itemnumber=?");
     $sth->execute($itemnum);
     $sth->finish;
@@ -3035,9 +3035,11 @@
                #goto "reconnect";
        } elsif ($error==10007 && $tried<2) {## timeout --another 30 looonng 
seconds for this update
                $tried=$tried+1;
+               warn "warn: timeout, trying again";
                goto "retry";
        } elsif($error==10004 && $recon==0) {##Lost connection -reconnect
                $recon=1;
+               warn "error: reconnecting to zebra";
                goto "reconnect";
        # as a last resort, we save the data to the filesystem to be indexed in 
batch
        } elsif ($error) {
@@ -3156,8 +3158,12 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.51.2.41 2006/10/11 03:10:49 kados Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.42 2006/11/28 14:43:18 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.42  2006/11/28 14:43:18  kados
+# deleteditems table wasn't getting populaated because the execute was 
commented out. This puts it back
+# -- some table changes are needed as well, I'll commit those separately.
+#
 # Revision 1.115.2.51.2.41  2006/10/11 03:10:49  kados
 # fix for bug 1214: Frameworkcode lost on additem
 #