[open-ils-commits] r9102 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-20 09:46:47 -0400 (Thu, 20 Mar 2008)
New Revision: 9102

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
added some timing logs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-03-20 13:46:01 UTC (rev 9101)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-03-20 13:46:47 UTC (rev 9102)
@@ -794,7 +794,9 @@
             # retrieve the window of results from the database
             $logger->debug("staged search: fetching results from the database");
             $search_hash->{skip_check} = $page * $PAGE_SIZE;
+            my $start = time;
             $results = $U->storagereq($method, %$search_hash);
+            $logger->info("staged search: DB call took ".(time - $start)." seconds");
             $summary = shift(@$results);
 
             # Create backwards-compatible result structures