| File | opac/opac-main.pl | Statements Executed | 12 | Total Time | 0.000429 seconds |
| Calls | Inclusive Time | Subroutine | |
|---|---|---|---|
| 0 | 0 | main:: | BEGIN |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | 1 | 0.00021 | 0.00021 | #!/usr/bin/perl |
| 2 | ||||
| 3 | # This file is part of Koha. | |||
| 4 | # | |||
| 5 | # Koha is free software; you can redistribute it and/or modify it under the | |||
| 6 | # terms of the GNU General Public License as published by the Free Software | |||
| 7 | # Foundation; either version 2 of the License, or (at your option) any later | |||
| 8 | # version. | |||
| 9 | # | |||
| 10 | # Koha is distributed in the hope that it will be useful, but WITHOUT ANY | |||
| 11 | # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR | |||
| 12 | # A PARTICULAR PURPOSE. See the GNU General Public License for more details. | |||
| 13 | # | |||
| 14 | # You should have received a copy of the GNU General Public License along with | |||
| 15 | # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, | |||
| 16 | # Suite 330, Boston, MA 02111-1307 USA | |||
| 17 | ||||
| 18 | ||||
| 19 | use strict; | |||
| 20 | 1 | 3e-06 | 3e-06 | require Exporter; |
| 21 | use CGI; | |||
| 22 | use C4::Auth; # get_template_and_user | |||
| 23 | use C4::Output; | |||
| 24 | use C4::VirtualShelves; | |||
| 25 | use C4::Branch; # GetBranches | |||
| 26 | use C4::Members; # GetMember | |||
| 27 | use C4::NewsChannels; # get_opac_news | |||
| 28 | use C4::Acquisition; # GetRecentAcqui | |||
| 29 | ||||
| 30 | 1 | 0.00004 | 0.00004 | my $input = new CGI; # spent 0.00700s making 1 calls to CGI::new |
| 31 | 1 | 0.00001 | 0.00001 | my $dbh = C4::Context->dbh; # spent 0.00030s making 1 calls to C4::Context::dbh |
| 32 | ||||
| 33 | 1 | 0.00002 | 0.00002 | my ( $template, $borrowernumber, $cookie ) = get_template_and_user( # spent 0.12511s making 1 calls to C4::Auth::get_template_and_user |
| 34 | { | |||
| 35 | template_name => "opac-main.tmpl", | |||
| 36 | type => "opac", | |||
| 37 | query => $input, | |||
| 38 | authnotrequired => 1, | |||
| 39 | flagsrequired => { borrow => 1 }, | |||
| 40 | } | |||
| 41 | ); | |||
| 42 | ||||
| 43 | 1 | 0.00001 | 0.00001 | my $borrower = GetMember( $borrowernumber, 'borrowernumber' ); # spent 0.00044s making 1 calls to C4::Members::GetMember |
| 44 | 1 | 0.00001 | 0.00001 | $template->param( # spent 0.00002s making 1 calls to HTML::Template::Pro::param |
| 45 | textmessaging => $borrower->{textmessaging}, | |||
| 46 | ); | |||
| 47 | ||||
| 48 | # display news | |||
| 49 | # use cookie setting for language, bug default to syspref if it's not set | |||
| 50 | 1 | 9e-06 | 9e-06 | my $news_lang = $input->cookie('KohaOpacLanguage') || 'en'; # spent 0.00008s making 1 calls to CGI::cookie |
| 51 | 1 | 9e-06 | 9e-06 | my $all_koha_news = &GetNewsToDisplay($news_lang); # spent 0.00138s making 1 calls to C4::NewsChannels::GetNewsToDisplay |
| 52 | 1 | 1e-06 | 1e-06 | my $koha_news_count = scalar @$all_koha_news; |
| 53 | ||||
| 54 | 1 | 8e-06 | 8e-06 | $template->param( # spent 0.00003s making 1 calls to HTML::Template::Pro::param |
| 55 | koha_news => $all_koha_news, | |||
| 56 | koha_news_count => $koha_news_count | |||
| 57 | ); | |||
| 58 | ||||
| 59 | 1 | 0.00009 | 0.00009 | output_html_with_http_headers $input, $cookie, $template->output; # spent 0.00634s making 1 calls to C4::Output::output_html_with_http_headers
# spent 0.00266s making 1 calls to HTML::Template::Pro::output |