← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:01:06 2013

Filename/usr/share/koha/lib/C4/ItemType.pm
StatementsExecuted 11 statements in 374µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11134µs41µsC4::ItemType::::BEGIN@21C4::ItemType::BEGIN@21
11118µs20µsC4::ItemType::::BEGIN@23C4::ItemType::BEGIN@23
11112µs26µsC4::ItemType::::BEGIN@22C4::ItemType::BEGIN@22
0000s0sC4::ItemType::::AUTOLOADC4::ItemType::AUTOLOAD
0000s0sC4::ItemType::::DESTROYC4::ItemType::DESTROY
0000s0sC4::ItemType::::allC4::ItemType::all
0000s0sC4::ItemType::::newC4::ItemType::new
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package C4::ItemType;
2
3# Copyright Liblime 2009
4# Parts Copyright Tamil 2011
5#
6# This file is part of Koha.
7#
8# Koha is free software; you can redistribute it and/or modify it under the
9# terms of the GNU General Public License as published by the Free Software
10# Foundation; either version 2 of the License, or (at your option) any later
11# version.
12#
13# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License along
18# with Koha; if not, write to the Free Software Foundation, Inc.,
19# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20
21341µs248µs
# spent 41µs (34+7) within C4::ItemType::BEGIN@21 which was called: # once (34µs+7µs) by C4::ItemCirculationAlertPreference::BEGIN@24 at line 21
use strict;
# spent 41µs making 1 call to C4::ItemType::BEGIN@21 # spent 7µs making 1 call to strict::import
22326µs240µs
# spent 26µs (12+14) within C4::ItemType::BEGIN@22 which was called: # once (12µs+14µs) by C4::ItemCirculationAlertPreference::BEGIN@24 at line 22
use warnings;
# spent 26µs making 1 call to C4::ItemType::BEGIN@22 # spent 14µs making 1 call to warnings::import
233302µs222µs
# spent 20µs (18+2) within C4::ItemType::BEGIN@23 which was called: # once (18µs+2µs) by C4::ItemCirculationAlertPreference::BEGIN@24 at line 23
use C4::Context;
# spent 20µs making 1 call to C4::ItemType::BEGIN@23 # spent 2µs making 1 call to C4::Context::import
24
251300nsour $AUTOLOAD;
26
- -
30=head1 NAME
31
- -
54=head3 C4::ItemType->new(\%opts)
55
- -
61sub new {
62 my ($class, $opts) = @_;
63 bless $opts => $class;
64}
65
- -
69=head3 C4::ItemType->all
70
- -
76sub all {
77 my ($class) = @_;
78 my $dbh = C4::Context->dbh;
79
80 my @itypes;
81 for ( @{$dbh->selectall_arrayref(
82 "SELECT * FROM itemtypes ORDER BY description", { Slice => {} })} )
83 {
84 utf8::encode($_->{description});
85 push @itypes, $class->new($_);
86 }
87 return @itypes;
88}
89
- -
93=head2 Object Methods
94
- -
101=head3 $itemtype->description
102
- -
105=head3 $itemtype->renewalsallowed
106
- -
109=head3 $itemtype->rentalcharge
110
- -
113=head3 $itemtype->notforloan
114
- -
117=head3 $itemtype->imageurl
118
- -
121=head3 $itemtype->summary
122
- -
125sub AUTOLOAD {
126 my $self = shift;
127 my $attr = $AUTOLOAD;
128 $attr =~ s/.*://;
129 if (exists $self->{$attr}) {
130 return $self->{$attr};
131 } else {
132 return undef;
133 }
134}
135
136sub DESTROY { }
137
- -
140# ack itemtypes | grep '\.pm' | awk '{ print $1 }' | sed 's/:.*$//' | sort | uniq | sed -e 's,/,::,g' -e 's/\.pm//' -e 's/^/L<C4::/' -e 's/$/>,/'
141
142=head1 SEE ALSO
143
- -
16713µs1;