Attachment #78020 for bug #7614

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




	
	my $localitemmarc=MARC::Record->new;
	$localitemmarc->append_fields($source_item_marc->field($itemtag));
    my $item = C4::Biblio::TransformMarcToKoha( $localitemmarc, $frameworkcode ,'items');
    my $unlinked_item_subfields = _get_unlinked_item_subfields($localitemmarc, $frameworkcode);
    return AddItem($item, $biblionumber, $dbh, $frameworkcode, $unlinked_item_subfields);
}


    $item->{'itemnumber'} = $itemnumber;

    C4::Biblio::ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver" );

    logaction( "CATALOGUING", "ADD", $itemnumber, "item" )
      if C4::Context->preference("CataloguingLog");

    my $original_item_marc = shift;
    my $frameworkcode = shift;

    my $marcstructure = C4::Biblio::GetMarcStructure(1, $frameworkcode, { unsafe => 1 });

    # assume that this record has only one field, and that that
    # field contains only the item information

Lines 449-455 sub CanItemBeReserved { Link Here

(-)a/C4/Reserves.pm (-1 / +1 lines)
449	unless ($destination->pickup_location) {	449	unless ($destination->pickup_location) {
450	return 'libraryNotPickupLocation';	450	return 'libraryNotPickupLocation';
451	}	451	}
452	unless ($item->can_be_transferred({ to => $destination->branchcode })) {	452	unless ($item->can_be_transferred({ to => $destination })) {
453	return 'cannotBeTransferred';	453	return 'cannotBeTransferred';
454	}	454	}
455	}	455	}

Lines 224-230 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-reserve.tt (-1 lines)
224	</li>	224	</li>
225	[% END %]	225	[% END %]
226		226
227
228	[% UNLESS ( singleBranchMode ) %]	227	[% UNLESS ( singleBranchMode ) %]
229	[% IF ( bibitemloo.holdable && choose_branch ) %]	228	[% IF ( bibitemloo.holdable && choose_branch ) %]
230	<li class="branch">	229	<li class="branch">

Lines 178-183 foreach my $biblioNumber (@biblionumbers) { Link Here

(-)a/opac/opac-reserve.pl (-2 / +7 lines)
178		178
179	# Compute the priority rank.	179	# Compute the priority rank.
180	my $biblio = Koha::Biblios->find( $biblioNumber );	180	my $biblio = Koha::Biblios->find( $biblioNumber );
		181	$biblioData->{object} = $biblio;
181	my $holds = $biblio->holds;	182	my $holds = $biblio->holds;
182	my $rank = $holds->count;	183	my $rank = $holds->count;
183	$biblioData->{reservecount} = 1; # new reserve	184	$biblioData->{reservecount} = 1; # new reserve
Lines 394-400 $template->param('item_level_itypes' => $itemLevelTypes); Link Here
394		395
395	foreach my $biblioNum (@biblionumbers) {	396	foreach my $biblioNum (@biblionumbers) {
396		397
397	my @not_available_at = ();
398	my $record = GetMarcBiblio({ biblionumber => $biblioNum });	398	my $record = GetMarcBiblio({ biblionumber => $biblioNum });
399	# Init the bib item with the choices for branch pickup	399	# Init the bib item with the choices for branch pickup
400	my %biblioLoopIter;	400	my %biblioLoopIter;
Lines 406-411 foreach my $biblioNum (@biblionumbers) { Link Here
406	&get_out($query, $cookie, $template->output);	406	&get_out($query, $cookie, $template->output);
407	}	407	}
408		408
		409	my @not_available_at = ();
		410	my $biblio = $biblioData->{object};
		411	foreach my $library ( $pickup_locations->as_list ) {
		412	push( @not_available_at, $library->branchcode ) unless $biblio->can_be_transferred({ to => $library });
		413	}
		414
409	my $frameworkcode = GetFrameworkCode( $biblioData->{biblionumber} );	415	my $frameworkcode = GetFrameworkCode( $biblioData->{biblionumber} );
410	$biblioLoopIter{biblionumber} = $biblioData->{biblionumber};	416	$biblioLoopIter{biblionumber} = $biblioData->{biblionumber};
411	$biblioLoopIter{title} = $biblioData->{title};	417	$biblioLoopIter{title} = $biblioData->{title};
412	-

Return to bug 7614

Lines 240-246 sub AddItemFromMarc { Link Here

(-)a/C4/Items.pm (-3 / +3 lines)
240		240
241	my $localitemmarc=MARC::Record->new;	241	my $localitemmarc=MARC::Record->new;
242	$localitemmarc->append_fields($source_item_marc->field($itemtag));	242	$localitemmarc->append_fields($source_item_marc->field($itemtag));
243	my $item = &TransformMarcToKoha( $localitemmarc, $frameworkcode ,'items');	243	my $item = C4::Biblio::TransformMarcToKoha( $localitemmarc, $frameworkcode ,'items');
244	my $unlinked_item_subfields = _get_unlinked_item_subfields($localitemmarc, $frameworkcode);	244	my $unlinked_item_subfields = _get_unlinked_item_subfields($localitemmarc, $frameworkcode);
245	return AddItem($item, $biblionumber, $dbh, $frameworkcode, $unlinked_item_subfields);	245	return AddItem($item, $biblionumber, $dbh, $frameworkcode, $unlinked_item_subfields);
246	}	246	}
Lines 299-305 sub AddItem { Link Here
299		299
300	$item->{'itemnumber'} = $itemnumber;	300	$item->{'itemnumber'} = $itemnumber;
301		301
302	ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver" );	302	C4::Biblio::ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver" );
303		303
304	logaction( "CATALOGUING", "ADD", $itemnumber, "item" )	304	logaction( "CATALOGUING", "ADD", $itemnumber, "item" )
305	if C4::Context->preference("CataloguingLog");	305	if C4::Context->preference("CataloguingLog");
Lines 2190-2196 sub _get_unlinked_item_subfields { Link Here
2190	my $original_item_marc = shift;	2190	my $original_item_marc = shift;
2191	my $frameworkcode = shift;	2191	my $frameworkcode = shift;
2192		2192
2193	my $marcstructure = GetMarcStructure(1, $frameworkcode, { unsafe => 1 });	2193	my $marcstructure = C4::Biblio::GetMarcStructure(1, $frameworkcode, { unsafe => 1 });
2194		2194
2195	# assume that this record has only one field, and that that	2195	# assume that this record has only one field, and that that
2196	# field contains only the item information	2196	# field contains only the item information