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

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
        processz3950queue 
Log Message:
Better handling of stuck z39.50 queries


Index: processz3950queue
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/Attic/processz3950queue,v
retrieving revision 1.3.2.7
retrieving revision 1.3.2.8
diff -C2 -r1.3.2.7 -r1.3.2.8
*** processz3950queue   4 Dec 2002 17:50:10 -0000       1.3.2.7
--- processz3950queue   9 Dec 2002 17:53:10 -0000       1.3.2.8
***************
*** 124,127 ****
--- 124,128 ----
                                my $stj=$dbi->prepare("select id from 
z3950results where server=$q_serverinfo and queryid=$id");
                                $stj->execute;
+                               exit if $dbi->err;
                                ($resultsid) = $stj->fetchrow;
                            } else {
***************
*** 255,258 ****
--- 256,270 ----
        }
        sleep 10;
+       my $sth=$dbh->prepare("select id,startdate from z3950results where 
isnull(enddate)");
+       $sth->execute;
+       if ($sth->rows) {
+           $checkqueue=1;
+       }
+       my $now=time();
+       while (my ($id, $startdate) = $sth->fetchrow) {
+           if ($now-$startdate>1200) {
+               my $sti=$dbh->do("update z3950results set enddate=$now where 
id=$id");
+           }
+       }
      }
  }