View | Details | Raw Unified | Return to bug 19940
Collapse All | Expand All

(-)a/C4/Biblio.pm (-23 lines)
Lines 68-74 BEGIN { Link Here
68
      GetBiblioData
68
      GetBiblioData
69
      GetMarcBiblio
69
      GetMarcBiblio
70
      GetBiblioItemData
70
      GetBiblioItemData
71
      GetBiblioItemInfosOf
72
      GetBiblioItemByBiblioNumber
71
      GetBiblioItemByBiblioNumber
73
72
74
      &GetRecordValue
73
      &GetRecordValue
Lines 909-936 sub GetISBDView { Link Here
909
    return $res;
908
    return $res;
910
}
909
}
911
910
912
=head2 GetBiblioItemInfosOf
913
914
  GetBiblioItemInfosOf(@biblioitemnumbers);
915
916
=cut
917
918
sub GetBiblioItemInfosOf {
919
    my @biblioitemnumbers = @_;
920
921
    my $biblioitemnumber_values = @biblioitemnumbers ? join( ',', @biblioitemnumbers ) : "''";
922
923
    my $dbh = C4::Context->dbh;
924
    my $query = "
925
        SELECT biblioitemnumber,
926
            publicationyear,
927
            itemtype
928
        FROM biblioitems
929
        WHERE biblioitemnumber IN ($biblioitemnumber_values)
930
    ";
931
    return $dbh->selectall_hashref($query, 'biblioitemnumber');
932
}
933
934
=head1 FUNCTIONS FOR HANDLING MARC MANAGEMENT
911
=head1 FUNCTIONS FOR HANDLING MARC MANAGEMENT
935
912
936
=head2 IsMarcStructureInternal
913
=head2 IsMarcStructureInternal
(-)a/reserve/request.pl (-3 / +10 lines)
Lines 329-336 foreach my $biblionumber (@biblionumbers) { Link Here
329
    ## Should be same as biblionumber
329
    ## Should be same as biblionumber
330
    my @biblioitemnumbers = keys %itemnumbers_of_biblioitem;
330
    my @biblioitemnumbers = keys %itemnumbers_of_biblioitem;
331
331
332
    ## Hash of biblioitemnumber to 'biblioitem' table records
332
    my $biblioiteminfos_of = {
333
    my $biblioiteminfos_of  = GetBiblioItemInfosOf(@biblioitemnumbers);
333
        map {
334
            my $biblioitem = $_;
335
            ( $biblioitem->{biblioitemnumber} => $biblioitem )
336
          } @{ Koha::Biblioitems->search(
337
                { biblioitemnumber => { -in => \@biblioitemnumbers } },
338
                { select => ['biblioitemnumber', 'publicationyear', 'itemtype']}
339
            )->unblessed
340
          }
341
    };
334
342
335
    my $frameworkcode = GetFrameworkCode( $biblionumber );
343
    my $frameworkcode = GetFrameworkCode( $biblionumber );
336
    my @notforloan_avs = Koha::AuthorisedValues->search_by_koha_field({ kohafield => 'items.notforloan', frameworkcode => $frameworkcode });
344
    my @notforloan_avs = Koha::AuthorisedValues->search_by_koha_field({ kohafield => 'items.notforloan', frameworkcode => $frameworkcode });
337
- 

Return to bug 19940