Profile of Koha/Template/Plugin/Branches.pm

Filename	/home/vagrant/kohaclone/Koha/Template/Plugin/Branches.pm
Statements	Executed 15 statements in 1.16ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	34µs	141µs	Koha::Template::Plugin::Branches::BEGIN@21
2	2	2	22µs	38µs	Koha::Template::Plugin::Branches::GetLoggedInBranchcode
1	1	1	17µs	255µs	Koha::Template::Plugin::Branches::BEGIN@26
1	1	1	15µs	15µs	Koha::Template::Plugin::Branches::BEGIN@23
1	1	1	14µs	17µs	Koha::Template::Plugin::Branches::BEGIN@27
1	1	1	13µs	74µs	Koha::Template::Plugin::Branches::BEGIN@24
0	0	0	0s	0s	Koha::Template::Plugin::Branches::GetName
0	0	0	0s	0s	Koha::Template::Plugin::Branches::GetURL
0	0	0	0s	0s	Koha::Template::Plugin::Branches::::allKoha::Template::Plugin::Branches::all

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Koha::Template::Plugin::Branches;
2
3					# Copyright ByWater Solutions 2012
4					# Copyright BibLibre 2014
5
6					# This file is part of Koha.
7					#
8					# Koha is free software; you can redistribute it and/or modify it
9					# under the terms of the GNU General Public License as published by
10					# the Free Software Foundation; either version 3 of the License, or
11					# (at your option) any later version.
12					#
13					# Koha is distributed in the hope that it will be useful, but
14					# WITHOUT ANY WARRANTY; without even the implied warranty of
15					# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16					# GNU General Public License for more details.
17					#
18					# You should have received a copy of the GNU General Public License
19					# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
21	2	155µs	2	249µs	# spent 141µs (34+108) within Koha::Template::Plugin::Branches::BEGIN@21 which was called: # once (34µs+108µs) by Template::Plugins::_load at line 21 use Modern::Perl; # spent 141µs making 1 call to Koha::Template::Plugin::Branches::BEGIN@21 # spent 108µs making 1 call to Modern::Perl::import
22
23	2	41µs	1	15µs	# spent 15µs within Koha::Template::Plugin::Branches::BEGIN@23 which was called: # once (15µs+0s) by Template::Plugins::_load at line 23 use Template::Plugin; # spent 15µs making 1 call to Koha::Template::Plugin::Branches::BEGIN@23
24	2	103µs	2	134µs	# spent 74µs (13+61) within Koha::Template::Plugin::Branches::BEGIN@24 which was called: # once (13µs+61µs) by Template::Plugins::_load at line 24 use base qw( Template::Plugin ); # spent 74µs making 1 call to Koha::Template::Plugin::Branches::BEGIN@24 # spent 61µs making 1 call to base::import
25
26	2	281µs	2	493µs	# spent 255µs (17+238) within Koha::Template::Plugin::Branches::BEGIN@26 which was called: # once (17µs+238µs) by Template::Plugins::_load at line 26 use C4::Koha; # spent 255µs making 1 call to Koha::Template::Plugin::Branches::BEGIN@26 # spent 238µs making 1 call to Exporter::import
27	2	533µs	2	20µs	# spent 17µs (14+3) within Koha::Template::Plugin::Branches::BEGIN@27 which was called: # once (14µs+3µs) by Template::Plugins::_load at line 27 use C4::Context; # spent 17µs making 1 call to Koha::Template::Plugin::Branches::BEGIN@27 # spent 3µs making 1 call to C4::Context::import
28
29					sub GetName {
30					my ( $self, $branchcode ) = @_;
31
32					my $query = "SELECT branchname FROM branches WHERE branchcode = ?";
33					my $sth = C4::Context->dbh->prepare($query);
34					$sth->execute($branchcode);
35					my $b = $sth->fetchrow_hashref();
36					return $b ? $b->{'branchname'} : q{};
37					}
38
39					# spent 38µs (22+15) within Koha::Template::Plugin::Branches::GetLoggedInBranchcode which was called 2 times, avg 19µs/call: # once (14µs+7µs) by Template::Stash::XS::get at line 31 of koha-tmpl/intranet-tmpl/prog/en/includes/patron-search-box.inc # once (8µs+8µs) by Template::Stash::XS::get at line 58 of koha-tmpl/intranet-tmpl/prog/en/includes/header.inc sub GetLoggedInBranchcode {
40	2	800ns			my ($self) = @_;
41
42	2	42µs	4	16µs	return C4::Context->userenv ? # spent 16µs making 4 calls to C4::Context::userenv, avg 4µs/call
43					C4::Context->userenv->{'branch'} :
44					'';
45					}
46
47					sub GetURL {
48					my ( $self, $branchcode ) = @_;
49
50					my $query = "SELECT branchurl FROM branches WHERE branchcode = ?";
51					my $sth = C4::Context->dbh->prepare($query);
52					$sth->execute($branchcode);
53					my $b = $sth->fetchrow_hashref();
54					return $b->{branchurl};
55					}
56
57					sub all {
58					my ( $self, $params ) = @_;
59					my $selected = $params->{selected};
60					my $dbh = C4::Context->dbh;
61					my @params;
62					my $query = q\|
63					SELECT branchcode, branchname
64					FROM branches
65					\|;
66					if ( C4::Branch::onlymine
67					and C4::Context->userenv
68					and C4::Context->userenv->{branch} )
69					{
70					$query .= q\| WHERE branchcode = ? \|;
71					push @params, C4::Context->userenv->{branch};
72					}
73					$query .= q\| ORDER BY branchname\|;
74					my $branches = $dbh->selectall_arrayref( $query, { Slice => {} }, @params );
75
76					if ( $selected ) {
77					for my $branch ( @$branches ) {
78					if ( $branch->{branchcode} eq $selected ) {
79					$branch->{selected} = 1;
80					}
81					}
82					}
83					return $branches;
84					}
85
86	1	3µs			1;