From 2fcd5891c2e4b45e1dff715010bb81c51b776f48 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 20 Mar 2008 13:46:01 +0000 Subject: [PATCH] added some timing logs git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@9101 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 58a4aedd2b..160b295866 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -729,7 +729,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.11.0