From 5c0009e4fc3749ac18f7db191bc97fd19d6762b8 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 20 Mar 2008 13:46:47 +0000 Subject: [PATCH] added some timing logs git-svn-id: svn://svn.open-ils.org/ILS/trunk@9102 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index 056652709a..1e1ec03d93 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -794,7 +794,9 @@ sub staged_search { # 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 -- 2.43.2