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

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/11/28 15:15:04

Modified files:
        C4             : Biblio.pm 

Log message:
        sync with dev_week.
        (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=rel_3_0&r1=1.178.2.27&r2=1.178.2.28

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.27
retrieving revision 1.178.2.28
diff -u -b -r1.178.2.27 -r1.178.2.28
--- Biblio.pm   20 Nov 2006 16:52:05 -0000      1.178.2.27
+++ Biblio.pm   28 Nov 2006 15:15:03 -0000      1.178.2.28
@@ -760,7 +760,7 @@
     $sth->execute( $record->as_usmarc(),$record->as_xml_record() , 
$biblionumber);
     warn $record->as_xml_record();
     $sth->finish;
-    &zebraop($dbh,$biblionumber,"specialUpdate","biblioserver");
+    #&zebraop($dbh,$biblionumber,"specialUpdate","biblioserver");
     return $biblionumber;
 }
 
@@ -2220,8 +2220,8 @@
 
     #  print $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;
@@ -3494,9 +3494,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){
@@ -3643,8 +3645,13 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.178.2.27 2006/11/20 16:52:05 alaurin Exp $
+# $Id: Biblio.pm,v 1.178.2.28 2006/11/28 15:15:03 toins Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.178.2.28  2006/11/28 15:15:03  toins
+# sync with dev_week.
+# (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.178.2.27  2006/11/20 16:52:05  alaurin
 # minor bugfixing :
 #