← 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/OAI/Sets.pm
StatementsExecuted 13 statements in 2.42ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11129µs29µsC4::OAI::Sets::::BEGIN@37C4::OAI::Sets::BEGIN@37
11121µs102µsC4::OAI::Sets::::BEGIN@32C4::OAI::Sets::BEGIN@32
11115µs18µsC4::OAI::Sets::::BEGIN@33C4::OAI::Sets::BEGIN@33
1119µs70µsC4::OAI::Sets::::BEGIN@35C4::OAI::Sets::BEGIN@35
0000s0sC4::OAI::Sets::::AddOAISetC4::OAI::Sets::AddOAISet
0000s0sC4::OAI::Sets::::AddOAISetsBibliosC4::OAI::Sets::AddOAISetsBiblios
0000s0sC4::OAI::Sets::::CalcOAISetsBiblioC4::OAI::Sets::CalcOAISetsBiblio
0000s0sC4::OAI::Sets::::DelOAISetC4::OAI::Sets::DelOAISet
0000s0sC4::OAI::Sets::::DelOAISetsBiblioC4::OAI::Sets::DelOAISetsBiblio
0000s0sC4::OAI::Sets::::GetOAISetC4::OAI::Sets::GetOAISet
0000s0sC4::OAI::Sets::::GetOAISetBySpecC4::OAI::Sets::GetOAISetBySpec
0000s0sC4::OAI::Sets::::GetOAISetMappingsC4::OAI::Sets::GetOAISetMappings
0000s0sC4::OAI::Sets::::GetOAISetsC4::OAI::Sets::GetOAISets
0000s0sC4::OAI::Sets::::GetOAISetsBiblioC4::OAI::Sets::GetOAISetsBiblio
0000s0sC4::OAI::Sets::::GetOAISetsMappingsC4::OAI::Sets::GetOAISetsMappings
0000s0sC4::OAI::Sets::::ModOAISetC4::OAI::Sets::ModOAISet
0000s0sC4::OAI::Sets::::ModOAISetMappingsC4::OAI::Sets::ModOAISetMappings
0000s0sC4::OAI::Sets::::ModOAISetsBibliosC4::OAI::Sets::ModOAISetsBiblios
0000s0sC4::OAI::Sets::::UpdateOAISetsBiblioC4::OAI::Sets::UpdateOAISetsBiblio
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package C4::OAI::Sets;
2
3# Copyright 2011 BibLibre
4#
5# This file is part of Koha.
6#
7# Koha is free software; you can redistribute it and/or modify it under the
8# terms of the GNU General Public License as published by the Free Software
9# Foundation; either version 2 of the License, or (at your option) any later
10# version.
11#
12# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15#
16# You should have received a copy of the GNU General Public License along
17# with Koha; if not, write to the Free Software Foundation, Inc.,
18# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20=head1 NAME
21
- -
32356µs2182µs
# spent 102µs (21+81) within C4::OAI::Sets::BEGIN@32 which was called: # once (21µs+81µs) by C4::Biblio::BEGIN@39 at line 32
use Modern::Perl;
# spent 102µs making 1 call to C4::OAI::Sets::BEGIN@32 # spent 81µs making 1 call to Modern::Perl::import
33339µs220µs
# spent 18µs (15+2) within C4::OAI::Sets::BEGIN@33 which was called: # once (15µs+2µs) by C4::Biblio::BEGIN@39 at line 33
use C4::Context;
# spent 18µs making 1 call to C4::OAI::Sets::BEGIN@33 # spent 2µs making 1 call to C4::Context::import
34
35370µs2130µs
# spent 70µs (9+61) within C4::OAI::Sets::BEGIN@35 which was called: # once (9µs+61µs) by C4::Biblio::BEGIN@39 at line 35
use vars qw(@ISA @EXPORT);
# spent 70µs making 1 call to C4::OAI::Sets::BEGIN@35 # spent 61µs making 1 call to vars::import
36
37
# spent 29µs within C4::OAI::Sets::BEGIN@37 which was called: # once (29µs+0s) by C4::Biblio::BEGIN@39 at line 46
BEGIN {
38328µs require Exporter;
39 @ISA = qw(Exporter);
40 @EXPORT = qw(
41 &GetOAISets &GetOAISet &GetOAISetBySpec &ModOAISet &DelOAISet &AddOAISet
42 &GetOAISetsMappings &GetOAISetMappings &ModOAISetMappings
43 &GetOAISetsBiblio &ModOAISetsBiblios &AddOAISetsBiblios
44 &CalcOAISetsBiblio &UpdateOAISetsBiblio
45 );
4612.22ms129µs}
# spent 29µs making 1 call to C4::OAI::Sets::BEGIN@37
47
48=head1 FUNCTIONS
49
- -
69sub GetOAISets {
70 my $dbh = C4::Context->dbh;
71 my $query = qq{
72 SELECT * FROM oai_sets
73 };
74 my $sth = $dbh->prepare($query);
75 $sth->execute;
76 my $results = $sth->fetchall_arrayref({});
77
78 $query = qq{
79 SELECT description
80 FROM oai_sets_descriptions
81 WHERE set_id = ?
82 };
83 $sth = $dbh->prepare($query);
84 foreach my $set (@$results) {
85 $sth->execute($set->{'id'});
86 my $desc = $sth->fetchall_arrayref({});
87 foreach (@$desc) {
88 push @{$set->{'descriptions'}}, $_->{'description'};
89 }
90 }
91
92 return $results;
93}
94
95=head2 GetOAISet
96
- -
105sub GetOAISet {
106 my ($set_id) = @_;
107
108 return unless $set_id;
109
110 my $dbh = C4::Context->dbh;
111 my $query = qq{
112 SELECT *
113 FROM oai_sets
114 WHERE id = ?
115 };
116 my $sth = $dbh->prepare($query);
117 $sth->execute($set_id);
118 my $set = $sth->fetchrow_hashref;
119
120 $query = qq{
121 SELECT description
122 FROM oai_sets_descriptions
123 WHERE set_id = ?
124 };
125 $sth = $dbh->prepare($query);
126 $sth->execute($set->{'id'});
127 my $desc = $sth->fetchall_arrayref({});
128 foreach (@$desc) {
129 push @{$set->{'descriptions'}}, $_->{'description'};
130 }
131
132 return $set;
133}
134
135=head2 GetOAISetBySpec
136
- -
143sub GetOAISetBySpec {
144 my $setSpec = shift;
145
146 return unless defined $setSpec;
147
148 my $dbh = C4::Context->dbh;
149 my $query = qq{
150 SELECT *
151 FROM oai_sets
152 WHERE spec = ?
153 LIMIT 1
154 };
155 my $sth = $dbh->prepare($query);
156 $sth->execute($setSpec);
157
158 return $sth->fetchrow_hashref;
159}
160
161=head2 ModOAISet
162
- -
175sub ModOAISet {
176 my ($set) = @_;
177
178 return unless($set && $set->{'spec'} && $set->{'name'});
179
180 if(!defined $set->{'id'}) {
181 warn "Set ID not defined, can't modify the set";
182 return;
183 }
184
185 my $dbh = C4::Context->dbh;
186 my $query = qq{
187 UPDATE oai_sets
188 SET spec = ?,
189 name = ?
190 WHERE id = ?
191 };
192 my $sth = $dbh->prepare($query);
193 $sth->execute($set->{'spec'}, $set->{'name'}, $set->{'id'});
194
195 if($set->{'descriptions'}) {
196 $query = qq{
197 DELETE FROM oai_sets_descriptions
198 WHERE set_id = ?
199 };
200 $sth = $dbh->prepare($query);
201 $sth->execute($set->{'id'});
202
203 if(scalar @{$set->{'descriptions'}} > 0) {
204 $query = qq{
205 INSERT INTO oai_sets_descriptions (set_id, description)
206 VALUES (?,?)
207 };
208 $sth = $dbh->prepare($query);
209 foreach (@{ $set->{'descriptions'} }) {
210 $sth->execute($set->{'id'}, $_) if $_;
211 }
212 }
213 }
214}
215
216=head2 DelOAISet
217
- -
224sub DelOAISet {
225 my ($set_id) = @_;
226
227 return unless $set_id;
228
229 my $dbh = C4::Context->dbh;
230 my $query = qq{
231 DELETE oai_sets, oai_sets_descriptions, oai_sets_mappings
232 FROM oai_sets
233 LEFT JOIN oai_sets_descriptions ON oai_sets_descriptions.set_id = oai_sets.id
234 LEFT JOIN oai_sets_mappings ON oai_sets_mappings.set_id = oai_sets.id
235 WHERE oai_sets.id = ?
236 };
237 my $sth = $dbh->prepare($query);
238 $sth->execute($set_id);
239}
240
241=head2 AddOAISet
242
- -
255sub AddOAISet {
256 my ($set) = @_;
257
258 return unless($set && $set->{'spec'} && $set->{'name'});
259
260 my $set_id;
261 my $dbh = C4::Context->dbh;
262 my $query = qq{
263 INSERT INTO oai_sets (spec, name)
264 VALUES (?,?)
265 };
266 my $sth = $dbh->prepare($query);
267 if( $sth->execute($set->{'spec'}, $set->{'name'}) ) {
268 $set_id = $dbh->last_insert_id(undef, undef, 'oai_sets', undef);
269 if($set->{'descriptions'}) {
270 $query = qq{
271 INSERT INTO oai_sets_descriptions (set_id, description)
272 VALUES (?,?)
273 };
274 $sth = $dbh->prepare($query);
275 foreach( @{ $set->{'descriptions'} } ) {
276 $sth->execute($set_id, $_) if $_;
277 }
278 }
279 } else {
280 warn "AddOAISet failed";
281 }
282
283 return $set_id;
284}
285
286=head2 GetOAISetsMappings
287
- -
327sub GetOAISetsMappings {
328 my $dbh = C4::Context->dbh;
329 my $query = qq{
330 SELECT * FROM oai_sets_mappings
331 };
332 my $sth = $dbh->prepare($query);
333 $sth->execute;
334
335 my $mappings = {};
336 while(my $result = $sth->fetchrow_hashref) {
337 push @{ $mappings->{$result->{'set_id'}} }, {
338 marcfield => $result->{'marcfield'},
339 marcsubfield => $result->{'marcsubfield'},
340 marcvalue => $result->{'marcvalue'}
341 };
342 }
343
344 return $mappings;
345}
346
347=head2 GetOAISetMappings
348
- -
355sub GetOAISetMappings {
356 my ($set_id) = @_;
357
358 return unless $set_id;
359
360 my $dbh = C4::Context->dbh;
361 my $query = qq{
362 SELECT *
363 FROM oai_sets_mappings
364 WHERE set_id = ?
365 };
366 my $sth = $dbh->prepare($query);
367 $sth->execute($set_id);
368
369 my @mappings;
370 while(my $result = $sth->fetchrow_hashref) {
371 push @mappings, {
372 marcfield => $result->{'marcfield'},
373 marcsubfield => $result->{'marcsubfield'},
374 marcvalue => $result->{'marcvalue'}
375 };
376 }
377
378 return \@mappings;
379}
380
381=head2 ModOAISetMappings {
382
- -
397sub ModOAISetMappings {
398 my ($set_id, $mappings) = @_;
399
400 return unless $set_id;
401
402 my $dbh = C4::Context->dbh;
403 my $query = qq{
404 DELETE FROM oai_sets_mappings
405 WHERE set_id = ?
406 };
407 my $sth = $dbh->prepare($query);
408 $sth->execute($set_id);
409
410 if(scalar @$mappings > 0) {
411 $query = qq{
412 INSERT INTO oai_sets_mappings (set_id, marcfield, marcsubfield, marcvalue)
413 VALUES (?,?,?,?)
414 };
415 $sth = $dbh->prepare($query);
416 foreach (@$mappings) {
417 $sth->execute($set_id, $_->{'marcfield'}, $_->{'marcsubfield'}, $_->{'marcvalue'});
418 }
419 }
420}
421
422=head2 GetOAISetsBiblio
423
- -
433sub GetOAISetsBiblio {
434 my ($biblionumber) = @_;
435
436 my $dbh = C4::Context->dbh;
437 my $query = qq{
438 SELECT oai_sets.*
439 FROM oai_sets
440 LEFT JOIN oai_sets_biblios ON oai_sets_biblios.set_id = oai_sets.id
441 WHERE biblionumber = ?
442 };
443 my $sth = $dbh->prepare($query);
444
445 $sth->execute($biblionumber);
446 return $sth->fetchall_arrayref({});
447}
448
449=head2 DelOAISetsBiblio
450
- -
457sub DelOAISetsBiblio {
458 my ($biblionumber) = @_;
459
460 return unless $biblionumber;
461
462 my $dbh = C4::Context->dbh;
463 my $query = qq{
464 DELETE FROM oai_sets_biblios
465 WHERE biblionumber = ?
466 };
467 my $sth = $dbh->prepare($query);
468 return $sth->execute($biblionumber);
469}
470
471=head2 CalcOAISetsBiblio
472
- -
481sub CalcOAISetsBiblio {
482 my ($record, $oai_sets_mappings) = @_;
483
484 return unless $record;
485
486 $oai_sets_mappings ||= GetOAISetsMappings;
487
488 my @biblio_sets;
489 foreach my $set_id (keys %$oai_sets_mappings) {
490 foreach my $mapping (@{ $oai_sets_mappings->{$set_id} }) {
491 next if not $mapping;
492 my $field = $mapping->{'marcfield'};
493 my $subfield = $mapping->{'marcsubfield'};
494 my $value = $mapping->{'marcvalue'};
495
496 my @subfield_values = $record->subfield($field, $subfield);
497 if(0 < grep /^$value$/, @subfield_values) {
498 push @biblio_sets, $set_id;
499 last;
500 }
501 }
502 }
503 return @biblio_sets;
504}
505
506=head2 ModOAISetsBiblios
507
- -
520sub ModOAISetsBiblios {
521 my $oai_sets_biblios = shift;
522
523 return unless ref($oai_sets_biblios) eq "HASH";
524
525 my $dbh = C4::Context->dbh;
526 my $query = qq{
527 TRUNCATE TABLE oai_sets_biblios
528 };
529 my $sth = $dbh->prepare($query);
530 $sth->execute;
531 AddOAISetsBiblios($oai_sets_biblios);
532}
533
534=head2 UpdateOAISetsBiblio
535
- -
543sub UpdateOAISetsBiblio {
544 my ($biblionumber, $record) = @_;
545
546 return unless($biblionumber and $record);
547
548 my $sets_biblios;
549 my @sets = CalcOAISetsBiblio($record);
550 foreach (@sets) {
551 push @{ $sets_biblios->{$_} }, $biblionumber;
552 }
553 DelOAISetsBiblio($biblionumber);
554 AddOAISetsBiblios($sets_biblios);
555}
556
557=head2 AddOAISetsBiblios
558
- -
571sub AddOAISetsBiblios {
572 my $oai_sets_biblios = shift;
573
574 return unless ref($oai_sets_biblios) eq "HASH";
575
576 my $dbh = C4::Context->dbh;
577 my $query = qq{
578 INSERT INTO oai_sets_biblios (set_id, biblionumber)
579 VALUES (?,?)
580 };
581 my $sth = $dbh->prepare($query);
582 foreach my $set_id (keys %$oai_sets_biblios) {
583 foreach my $biblionumber (@{$oai_sets_biblios->{$set_id}}) {
584 $sth->execute($set_id, $biblionumber);
585 }
586 }
587}
588
58913µs1;
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.