Attachment #72555 for bug #19940

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




      GetBiblioData
      GetMarcBiblio
      GetBiblioItemData
      GetBiblioItemInfosOf
      GetBiblioItemByBiblioNumber

      &GetRecordValue

    return $res;
}

=head2 GetBiblioItemInfosOf

  GetBiblioItemInfosOf(@biblioitemnumbers);

=cut

sub GetBiblioItemInfosOf {
    my @biblioitemnumbers = @_;

    my $biblioitemnumber_values = @biblioitemnumbers ? join( ',', @biblioitemnumbers ) : "''";

    my $dbh = C4::Context->dbh;
    my $query = "
        SELECT biblioitemnumber,
            publicationyear,
            itemtype
        FROM biblioitems
        WHERE biblioitemnumber IN ($biblioitemnumber_values)
    ";
    return $dbh->selectall_hashref($query, 'biblioitemnumber');
}

=head1 FUNCTIONS FOR HANDLING MARC MANAGEMENT

=head2 IsMarcStructureInternal




    ## Should be same as biblionumber
    my @biblioitemnumbers = keys %itemnumbers_of_biblioitem;

    my $biblioiteminfos_of = {
        map {
            my $biblioitem = $_;
            ( $biblioitem->{biblioitemnumber} => $biblioitem )
          } @{ Koha::Biblioitems->search(
                { biblioitemnumber => { -in => \@biblioitemnumbers } },
                { select => ['biblioitemnumber', 'publicationyear', 'itemtype']}
            )->unblessed
          }
    };

    my $frameworkcode = GetFrameworkCode( $biblionumber );
    my @notforloan_avs = Koha::AuthorisedValues->search_by_koha_field({ kohafield => 'items.notforloan', frameworkcode => $frameworkcode });
- 

Return to bug 19940

Lines 68-74 BEGIN { Link Here

(-)a/C4/Biblio.pm (-23 lines)
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

Lines 316-323 foreach my $biblionumber (@biblionumbers) { Link Here

(-)a/reserve/request.pl (-3 / +10 lines)
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	-