[Koha-cvs] CVS: koha/acqui.simple processz3950queue,1.3.2.6,1.3.2.7

[Steve Tonnesen]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv16100

Modified Files:
      Tag: rel-1-2
        processz3950queue 
Log Message:
Z39.50 queries that take longer than 20 minutes are marked as done.  Hack that
should more properly be handled by better error checking when busy z39.50
servers (LOC typically) drop the connection.


Index: processz3950queue
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/Attic/processz3950queue,v
retrieving revision 1.3.2.6
retrieving revision 1.3.2.7
diff -C2 -r1.3.2.6 -r1.3.2.7
*** processz3950queue   18 Nov 2002 21:47:49 -0000      1.3.2.6
--- processz3950queue   4 Dec 2002 17:50:10 -0000       1.3.2.7
***************
*** 72,77 ****
--- 72,87 ----
                            $serverdone{$r_server}=1;
                        } elsif ($active) {
+                           my $now=time();
+                           if ($now-$r_startdate > 1000) {
+                               my $sti=$dbh->prepare("update z3950results set 
enddate=$now where id=$r_id");
+                               $sti->execute;
+                           }
                            $serverdone{$r_server}=1;
                        } else {
+                           my $now=time();
+                           if ($now-$r_startdate > 1000) {
+                               my $sti=$dbh->prepare("update z3950results set 
enddate=$now where id=$r_id");
+                               $sti->execute;
+                           }
                            $serverdone{$r_server}=-1;
                        }