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 316-323 foreach my $biblionumber (@biblionumbers) { Link Here
316
    ## Should be same as biblionumber
316
    ## Should be same as biblionumber
317
    my @biblioitemnumbers = keys %itemnumbers_of_biblioitem;
317
    my @biblioitemnumbers = keys %itemnumbers_of_biblioitem;
318
318
319
    ## Hash of biblioitemnumber to 'biblioitem' table records
319
    my $biblioiteminfos_of = {
320
    my $biblioiteminfos_of  = GetBiblioItemInfosOf(@biblioitemnumbers);
320
        map {
321
            my $biblioitem = $_;
322
            ( $biblioitem->{biblioitemnumber} => $biblioitem )
323
          } @{ Koha::Biblioitems->search(
324
                { biblioitemnumber => { -in => \@biblioitemnumbers } },
325
                { select => ['biblioitemnumber', 'publicationyear', 'itemtype']}
326
            )->unblessed
327
          }
328
    };
321
329
322
    my $frameworkcode = GetFrameworkCode( $biblionumber );
330
    my $frameworkcode = GetFrameworkCode( $biblionumber );
323
    my @notforloan_avs = Koha::AuthorisedValues->search_by_koha_field({ kohafield => 'items.notforloan', frameworkcode => $frameworkcode });
331
    my @notforloan_avs = Koha::AuthorisedValues->search_by_koha_field({ kohafield => 'items.notforloan', frameworkcode => $frameworkcode });
324
- 

Return to bug 19940