[open-ils-commits] r9101 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

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

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

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-03-20 13:36:58 UTC (rev 9100)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-03-20 13:46:01 UTC (rev 9101)
@@ -729,7 +729,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