# to get something
push @EXPORT, qw(
- &Get
&GetBiblio
&GetBiblioData
&GetBiblioItemData
# Others functions
push @EXPORT, qw(
&TransformMarcToKoha
- &TransformHtmlToMarc2
&TransformHtmlToMarc
&TransformHtmlToXml
prepare_host_field
require C4::Reserves;
my ($count, $reserves) = C4::Reserves::GetReservesFromBiblionumber($biblionumber);
foreach my $res ( @$reserves ) {
- C4::Reserves::CancelReserve( $res->{'biblionumber'}, $res->{'itemnumber'}, $res->{'borrowernumber'} );
+ C4::Reserves::CancelReserve({ reserve_id => $res->{'reserve_id'} });
}
# Delete in Zebra. Be careful NOT to move this line after _koha_delete_biblio
my ( $record, $marcflavour ) = @_;
my ( $mintag, $maxtag, $fields_filter );
if ( $marcflavour eq "UNIMARC" ) {
- $mintag = "600";
- $maxtag = "619";
- $fields_filter = '6..';
+ $mintag = "225";
+ $maxtag = "225";
+ $fields_filter = '2..';
} else { # marc21/normarc
$mintag = "440";
$maxtag = "490";