for my $in ( @itemnumbers ) {

            for my $in ( @itemnumbers ) {

                my $item = Koha::Items->find( $in ); # FIXME We do not need that, we already have Koha::Items from $order_obj->items

                my $item = Koha::Items->find( $in ); # FIXME We do not need that, we already have Koha::Items from $order_obj->items

                my $biblio = $item->biblio;

                my $biblio = $item->biblio;

                my $item_marc = C4::Items::GetMarcItem( $biblio->biblionumber, $in );

                my $item_marc = C4::Items::GetMarcItem( $biblio->biblionumber, $in );

                for my $affect ( @affects ) {

                for my $affect ( @affects ) {

                    my ( $sf, $v ) = split q{=}, $affect, 2;

                    my ( $sf, $v ) = split q{=}, $affect, 2;

    my $tagslib = C4::Biblio::GetMarcStructure( 1, 'ACQ', { unsafe => 1 } );

    my $tagslib = C4::Biblio::GetMarcStructure( 1, 'ACQ', { unsafe => 1 } );

    if ($tagslib) {

    if ($tagslib) {

        my ($itemfield) =

        my ($itemfield) =

        for my $tag ( sort keys %$tagslib ) {

        for my $tag ( sort keys %$tagslib ) {

            next unless $tag;

            next unless $tag;

            next if $tag == $itemfield;

            next if $tag == $itemfield;

    my $record = shift;

    my $record = shift;

    my $frameworkcode = shift;

    my $frameworkcode = shift;

    # get the items before and append them to the biblio before updating the record, atm we just have the biblio

    # get the items before and append them to the biblio before updating the record, atm we just have the biblio

    # delete any item fields from incoming record to avoid

    # delete any item fields from incoming record to avoid

    # duplication or incorrect data - use AddItem() or ModItem()

    # duplication or incorrect data - use AddItem() or ModItem()

    my $sysprefname = $template eq 'opac' ? 'opacisbd' : 'isbd';

    my $sysprefname = $template eq 'opac' ? 'opacisbd' : 'isbd';

    my $framework = $params->{framework};

    my $framework = $params->{framework};

    my $itemtype  = $framework;

    my $itemtype  = $framework;

    my $tagslib = GetMarcStructure( 1, $itemtype, { unsafe => 1 } );

    my $tagslib = GetMarcStructure( 1, $itemtype, { unsafe => 1 } );

    my $ISBD = C4::Context->preference($sysprefname);

    my $ISBD = C4::Context->preference($sysprefname);

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

    my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?");

    my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?");

    $sth->execute($biblionumber);

    $sth->execute($biblionumber);

    my @item_fields; # Array holding the actual MARC data for items to be included.

    my @item_fields; # Array holding the actual MARC data for items to be included.

    my @items;       # Array holding items which are both in the list (sitenumbers)

    my @items;       # Array holding items which are both in the list (sitenumbers)

sub _koha_marc_update_bib_ids {

sub _koha_marc_update_bib_ids {

    my ( $record, $frameworkcode, $biblionumber, $biblioitemnumber ) = @_;

    my ( $record, $frameworkcode, $biblionumber, $biblioitemnumber ) = @_;

    die qq{No biblionumber tag for framework "$frameworkcode"} unless $biblio_tag;

    die qq{No biblionumber tag for framework "$frameworkcode"} unless $biblio_tag;

    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;

    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;

    if ( $biblio_tag < 10 ) {

    if ( $biblio_tag < 10 ) {

    my $biblioitem    = shift;

    my $biblioitem    = shift;

    my $frameworkcode = shift;

    my $frameworkcode = shift;

    return unless $biblioitem_tag;

    return unless $biblioitem_tag;

    my ($cn_sort) = GetClassSort( $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );

    my ($cn_sort) = GetClassSort( $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );

        return;

        return;

    }

    }

    my $biblioitem = $biblio->biblioitem;

    my $biblioitem = $biblio->biblioitem;

    unless ($totalissuestag) {

    unless ($totalissuestag) {

        return 1; # There is nothing to do

        return 1; # There is nothing to do

    }

    }

    my $record_modified = 0;

    my $record_modified = 0;

    my $frameworkcode   = C4::Biblio::GetFrameworkCode($biblionumber);

    my $frameworkcode   = C4::Biblio::GetFrameworkCode($biblionumber);

    my ( $url_field, $url_subfield ) =

    my ( $url_field, $url_subfield ) =

    foreach my $field ( $record->fields() ) {

    foreach my $field ( $record->fields() ) {

        if ( $field->is_control_field() ) {

        if ( $field->is_control_field() ) {

            my $value           = $field->data();

            my $value           = $field->data();

sub EmbedItemsInImportBiblio {

sub EmbedItemsInImportBiblio {

    my ( $record, $import_record_id ) = @_;

    my ( $record, $import_record_id ) = @_;

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

    my $import_items = $dbh->selectall_arrayref(q|

    my $import_items = $dbh->selectall_arrayref(q|

        SELECT import_items.marcxml

        SELECT import_items.marcxml

    my @import_items_ids = ();

    my @import_items_ids = ();

    my $dbh = C4::Context->dbh; 

    my $dbh = C4::Context->dbh; 

    foreach my $item_field ($marc_record->field($item_tag)) {

    foreach my $item_field ($marc_record->field($item_tag)) {

        my $item_marc = MARC::Record->new();

        my $item_marc = MARC::Record->new();

        $item_marc->leader("00000    a              "); # must set Leader/09 to 'a'

        $item_marc->leader("00000    a              "); # must set Leader/09 to 'a'

        if ($record_type eq 'biblio') {

        if ($record_type eq 'biblio') {

            # remove any item tags - rely on BatchCommitItems

            # remove any item tags - rely on BatchCommitItems

            foreach my $item_field ($marc_record->field($item_tag)) {

            foreach my $item_field ($marc_record->field($item_tag)) {

                $marc_record->delete_field($item_field);

                $marc_record->delete_field($item_field);

            }

            }

        my $item_marc = MARC::Record->new_from_xml( StripNonXmlChars( $row->{'marcxml'} ), 'UTF-8', $row->{'encoding'} );

        my $item_marc = MARC::Record->new_from_xml( StripNonXmlChars( $row->{'marcxml'} ), 'UTF-8', $row->{'encoding'} );

        # Delete date_due subfield as to not accidentally delete item checkout due dates

        # Delete date_due subfield as to not accidentally delete item checkout due dates

        $item_marc->field($MARCfield)->delete_subfield( code => $MARCsubfield );

        $item_marc->field($MARCfield)->delete_subfield( code => $MARCsubfield );

        my $item = TransformMarcToKoha( $item_marc );

        my $item = TransformMarcToKoha( $item_marc );

    # parse item hash from MARC

    # parse item hash from MARC

    my $frameworkcode = C4::Biblio::GetFrameworkCode($biblionumber);

    my $frameworkcode = C4::Biblio::GetFrameworkCode($biblionumber);

    my $localitemmarc = MARC::Record->new;

    my $localitemmarc = MARC::Record->new;

    $localitemmarc->append_fields( $source_item_marc->field($itemtag) );

    $localitemmarc->append_fields( $source_item_marc->field($itemtag) );

    $record = $record->clone();

    $record = $record->clone();

    # loop through the item tags and start creating items

    # loop through the item tags and start creating items

    my @bad_item_fields = ();

    my @bad_item_fields = ();

    my $item_sequence_num = 0;

    my $item_sequence_num = 0;

    ITEMFIELD: foreach my $item_field ($record->field($itemtag)) {

    ITEMFIELD: foreach my $item_field ($record->field($itemtag)) {

        $item_sequence_num++;

        $item_sequence_num++;

    my $itemnumber = shift;

    my $itemnumber = shift;

    my $frameworkcode = C4::Biblio::GetFrameworkCode($biblionumber);

    my $frameworkcode = C4::Biblio::GetFrameworkCode($biblionumber);

    my $localitemmarc = MARC::Record->new;

    my $localitemmarc = MARC::Record->new;

    $localitemmarc->append_fields( $item_marc->field($itemtag) );

    $localitemmarc->append_fields( $item_marc->field($itemtag) );

    my $item_marc = MARC::Record->new();

    my $item_marc = MARC::Record->new();

    foreach my $item_field ( keys %{$mungeditem} ) {

    foreach my $item_field ( keys %{$mungeditem} ) {

        next unless defined $tag and defined $subfield;    # skip if not mapped to MARC field

        next unless defined $tag and defined $subfield;    # skip if not mapped to MARC field

        my @values = split(/\s?\|\s?/, $mungeditem->{$item_field}, -1);

        my @values = split(/\s?\|\s?/, $mungeditem->{$item_field}, -1);

        foreach my $value (@values){

        foreach my $value (@values){

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

    $frameworkcode = C4::Biblio::GetFrameworkCode($bibnum) if $bibnum;

    $frameworkcode = C4::Biblio::GetFrameworkCode($bibnum) if $bibnum;

    # Note: $tagslib obtained from GetMarcStructure() in 'unsafe' mode is

    # Note: $tagslib obtained from GetMarcStructure() in 'unsafe' mode is

    # a shared data structure. No plugin (including custom ones) should change

    # a shared data structure. No plugin (including custom ones) should change

        elsif ( $f =~ /^([0-9a-z]{3})(\w)(\W?).*?/ ) {

        elsif ( $f =~ /^([0-9a-z]{3})(\w)(\W?).*?/ ) {

            my ($field,$subf,$ws) = ($1,$2,$3);

            my ($field,$subf,$ws) = ($1,$2,$3);

            my $subf_data;

            my $subf_data;

            my @marcfield = $record->field($field);

            my @marcfield = $record->field($field);

            if(@marcfield) {

            if(@marcfield) {

                if($field eq $itemtag) {  # item-level data, we need to get the right item.

                if($field eq $itemtag) {  # item-level data, we need to get the right item.

    my ($source_record, $max_matches) = @_;

    my ($source_record, $max_matches) = @_;

    my $matches = {};

    my $matches = {};

    my $QParser;

    my $QParser;

    $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser'));

    $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser'));

            else {

            else {

                foreach my $matched ( @{$searchresults} ) {

                foreach my $matched ( @{$searchresults} ) {

                    my $target_record = C4::Search::new_record_from_zebra( 'biblioserver', $matched );

                    my $target_record = C4::Search::new_record_from_zebra( 'biblioserver', $matched );

                    my $id = ( $biblionumber_tag > 10 ) ?

                    my $id = ( $biblionumber_tag > 10 ) ?

                        $target_record->field($biblionumber_tag)->subfield($biblionumber_subfield) :

                        $target_record->field($biblionumber_tag)->subfield($biblionumber_subfield) :

                        $target_record->field($biblionumber_tag)->data();

                        $target_record->field($biblionumber_tag)->data();

    my %itemtypes = map { $_->{itemtype} => $_ } @{ $itemtypes->unblessed };

    my %itemtypes = map { $_->{itemtype} => $_ } @{ $itemtypes->unblessed };

    #search item field code

    #search item field code

    ## find column names of items related to MARC

    ## find column names of items related to MARC

    my %subfieldstosearch;

    my %subfieldstosearch;

    my @columns = Koha::Database->new()->schema()->resultset('Item')->result_source->columns;

    my @columns = Koha::Database->new()->schema()->resultset('Item')->result_source->columns;

    for my $column ( @columns ) {

    for my $column ( @columns ) {

        my ( $tagfield, $tagsubfield ) =

        my ( $tagfield, $tagsubfield ) =

        if ( defined $tagsubfield ) {

        if ( defined $tagsubfield ) {

            $subfieldstosearch{$column} = $tagsubfield;

            $subfieldstosearch{$column} = $tagsubfield;

        }

        }

    my $marcflavour = C4::Context->preference("marcflavour");

    my $marcflavour = C4::Context->preference("marcflavour");

    # We get the biblionumber position in MARC

    # We get the biblionumber position in MARC

    # set stuff for XSLT processing here once, not later again for every record we retrieved

    # set stuff for XSLT processing here once, not later again for every record we retrieved

    my $xslfile;

    my $xslfile;

                    my $hostbiblio = GetMarcBiblio({

                    my $hostbiblio = GetMarcBiblio({

                        biblionumber => $hostbiblionumber,

                        biblionumber => $hostbiblionumber,

                        embed_items  => 1 });

                        embed_items  => 1 });

                    if( $hostbiblio ) {

                    if( $hostbiblio ) {

                        my @hostitems = $hostbiblio->field($itemfield);

                        my @hostitems = $hostbiblio->field($itemfield);

                        foreach my $hostitem (@hostitems){

                        foreach my $hostitem (@hostitems){

    my $biblio = Koha::Biblios->find( $biblionumber );

    my $biblio = Koha::Biblios->find( $biblionumber );

    if ( $biblio and !$biblio->serial ) {

    if ( $biblio and !$biblio->serial ) {

        my $record = GetMarcBiblio({ biblionumber => $biblionumber });

        my $record = GetMarcBiblio({ biblionumber => $biblionumber });

        if ($tag) {

        if ($tag) {

            eval { $record->field($tag)->update( $subf => 1 ); };

            eval { $record->field($tag)->update( $subf => 1 ); };

        }

        }

            item_numbers => $itemnumbers });

            item_numbers => $itemnumbers });

        if ($only_export_items_for_branches && @$only_export_items_for_branches) {

        if ($only_export_items_for_branches && @$only_export_items_for_branches) {

            my %export_items_for_branches = map { $_ => 1 } @$only_export_items_for_branches;

            my %export_items_for_branches = map { $_ => 1 } @$only_export_items_for_branches;

            for my $itemfield ( $record->field($homebranchfield) ) {

            for my $itemfield ( $record->field($homebranchfield) ) {

                my $homebranch = $itemfield->subfield($homebranchsubfield);

                my $homebranch = $itemfield->subfield($homebranchsubfield);

    my $record = shift;

    my $record = shift;

    my $biblionumber  = ( $biblionumber_field > 9 )

    my $biblionumber  = ( $biblionumber_field > 9 )

                      ? $record->field($biblionumber_field)->subfield($biblionumber_subfield)

                      ? $record->field($biblionumber_field)->subfield($biblionumber_subfield)

                      : $record->field($biblionumber_field)->data();

                      : $record->field($biblionumber_field)->data();

sub _processrecord {

sub _processrecord {

    my $record = shift;

    my $record = shift;

    $item_tag ||= '';

    $item_tag ||= '';

    foreach my $field ( $record->fields() ) {

    foreach my $field ( $record->fields() ) {

use base qw(Class::Accessor);

use base qw(Class::Accessor);

use C4::Context;

use C4::Context;

__PACKAGE__->mk_ro_accessors( qw|

__PACKAGE__->mk_ro_accessors( qw|

    name path errstr javascript noclick

    name path errstr javascript noclick

sub extract_biblionumber {

sub extract_biblionumber {

    my ( $record ) = @_;

    my ( $record ) = @_;

    return if ref($record) ne 'MARC::Record';

    return if ref($record) ne 'MARC::Record';

    if( $biblionumbertagfield < 10 ) {

    if( $biblionumbertagfield < 10 ) {

        my $controlfield = $record->field( $biblionumbertagfield );

        my $controlfield = $record->field( $biblionumbertagfield );

        return $controlfield ? $controlfield->data : undef;

        return $controlfield ? $controlfield->data : undef;

            my $bibitemnum;

            my $bibitemnum;

            # remove ISBN -

            # remove ISBN -

            if ( $marcrecord->field($isbnfield) ) {

            if ( $marcrecord->field($isbnfield) ) {

                foreach my $field ( $marcrecord->field($isbnfield) ) {

                foreach my $field ( $marcrecord->field($isbnfield) ) {

                    foreach my $subfield ( $field->subfield($isbnsubfield) ) {

                    foreach my $subfield ( $field->subfield($isbnsubfield) ) {

        my @affects = split q{\|}, C4::Context->preference("AcqItemSetSubfieldsWhenReceived");

        my @affects = split q{\|}, C4::Context->preference("AcqItemSetSubfieldsWhenReceived");

        if ( @affects ) {

        if ( @affects ) {

            my $frameworkcode = GetFrameworkCode($biblionumber);

            my $frameworkcode = GetFrameworkCode($biblionumber);

            for my $in ( @received_items ) {

            for my $in ( @received_items ) {

                my $item = C4::Items::GetMarcItem( $biblionumber, $in );

                my $item = C4::Items::GetMarcItem( $biblionumber, $in );

                for my $affect ( @affects ) {

                for my $affect ( @affects ) {

my ( @order_user_ids, @order_users, @catalog_details );

my ( @order_user_ids, @order_users, @catalog_details );

our $tagslib = GetMarcStructure(1, 'ACQ', { unsafe => 1 } );

our $tagslib = GetMarcStructure(1, 'ACQ', { unsafe => 1 } );

if ( not $ordernumber ) {    # create order

if ( not $ordernumber ) {    # create order

    $new = 'yes';

    $new = 'yes';

}

}

# Find the items.barcode subfield for barcode validations

# Find the items.barcode subfield for barcode validations

# fill template

# fill template

$template->param(

$template->param(

    # remove the - in isbn, koha store isbn without any -

    # remove the - in isbn, koha store isbn without any -

    if ($marc) {

    if ($marc) {

        my $record = MARC::Record->new_from_usmarc($marc);

        my $record = MARC::Record->new_from_usmarc($marc);

        if ( $record->field($isbnfield) ) {

        if ( $record->field($isbnfield) ) {

            foreach my $field ( $record->field($isbnfield) ) {

            foreach my $field ( $record->field($isbnfield) ) {

                foreach my $subfield ( $field->subfield($isbnsubfield) ) {

                foreach my $subfield ( $field->subfield($isbnsubfield) ) {

            if (    C4::Context->preference("z3950NormalizeAuthor")

            if (    C4::Context->preference("z3950NormalizeAuthor")

                and C4::Context->preference("z3950AuthorAuthFields") )

                and C4::Context->preference("z3950AuthorAuthFields") )

            {

            {

                my $auth_fields =

                my $auth_fields =

                C4::Context->preference("z3950AuthorAuthFields");

                C4::Context->preference("z3950AuthorAuthFields");

    push @item_loop, $item if $item;

    push @item_loop, $item if $item;

}

}

@item_loop = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @item_loop;

@item_loop = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @item_loop;

@item_subfield_codes = uniq @item_subfield_codes;

@item_subfield_codes = uniq @item_subfield_codes;

    # remove the - in isbn, koha store isbn without any -

    # remove the - in isbn, koha store isbn without any -

    if ($marc) {

    if ($marc) {

        my $record = MARC::Record->new_from_usmarc($marc);

        my $record = MARC::Record->new_from_usmarc($marc);

        if ( $record->field($isbnfield) ) {

        if ( $record->field($isbnfield) ) {

            foreach my $field ( $record->field($isbnfield) ) {

            foreach my $field ( $record->field($isbnfield) ) {

                foreach my $subfield ( $field->subfield($isbnsubfield) ) {

                foreach my $subfield ( $field->subfield($isbnsubfield) ) {

                and C4::Context->preference("z3950AuthorAuthFields")

                and C4::Context->preference("z3950AuthorAuthFields")

                and C4::Context->preference("marcflavour") eq 'UNIMARC' )

                and C4::Context->preference("marcflavour") eq 'UNIMARC' )

            {

            {

                my $auth_fields =

                my $auth_fields =

                  C4::Context->preference("z3950AuthorAuthFields");

                  C4::Context->preference("z3950AuthorAuthFields");

sub GetMandatoryFieldZ3950 {

sub GetMandatoryFieldZ3950 {

    my $frameworkcode = shift;

    my $frameworkcode = shift;

    return {

    return {

        $isbn[0].$isbn[1]     => 'isbn',

        $isbn[0].$isbn[1]     => 'isbn',

    # if it's a modif, retrieve bibli and biblioitem numbers for the future modification of old-DB.

    # if it's a modif, retrieve bibli and biblioitem numbers for the future modification of old-DB.

    ( $biblionumbertagfield, $biblionumbertagsubfield ) =

    ( $biblionumbertagfield, $biblionumbertagsubfield ) =

    ( $biblioitemnumtagfield, $biblioitemnumtagsubfield ) =

    ( $biblioitemnumtagfield, $biblioitemnumtagsubfield ) =

    # search biblioitems value

    # search biblioitems value

    my $sth =  $dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");

    my $sth =  $dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");

    $sth->execute($biblionumber);

    $sth->execute($biblionumber);

# NOTE: 'incremental' is the ONLY autoBarcode option available to those not using javascript

# NOTE: 'incremental' is the ONLY autoBarcode option available to those not using javascript

sub _increment_barcode {

sub _increment_barcode {

    my ($record, $frameworkcode) = @_;

    my ($record, $frameworkcode) = @_;

    unless ($record->field($tagfield)->subfield($tagsubfield)) {

    unless ($record->field($tagfield)->subfield($tagsubfield)) {

        my $sth_barcode = $dbh->prepare("select max(abs(barcode)) from items");

        my $sth_barcode = $dbh->prepare("select max(abs(barcode)) from items");

        $sth_barcode->execute;

        $sth_barcode->execute;

    my $item = shift;

    my $item = shift;

    # Getting item tag

    # Getting item tag

    # Getting list of subfields to keep

    # Getting list of subfields to keep

    my $subfieldsToUseWhenPrefill = C4::Context->preference('SubfieldsToUseWhenPrefill');

    my $subfieldsToUseWhenPrefill = C4::Context->preference('SubfieldsToUseWhenPrefill');

        }

        }

        else {

        else {

            # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin

            # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin

            my $fieldItem = $itemrecord->field($tagfield);

            my $fieldItem = $itemrecord->field($tagfield);

            $itemrecord->delete_field($fieldItem);

            $itemrecord->delete_field($fieldItem);

            $fieldItem->delete_subfields($tagsubfield);

            $fieldItem->delete_subfields($tagsubfield);

        my $barcodeobj = C4::Barcodes->new;

        my $barcodeobj = C4::Barcodes->new;

        my $copynumber = $addedolditem->{'copynumber'};

        my $copynumber = $addedolditem->{'copynumber'};

        my $oldbarcode = $addedolditem->{'barcode'};

        my $oldbarcode = $addedolditem->{'barcode'};

    # If there is a barcode and we can't find their new values, we can't add multiple copies

    # If there is a barcode and we can't find their new values, we can't add multiple copies

	my $testbarcode;

	my $testbarcode;

    }

    }

    else {

    else {

        # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin

        # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin

        my $fieldItem = $itemrecord->field($tagfield);

        my $fieldItem = $itemrecord->field($tagfield);

        $itemrecord->delete_field($fieldItem);

        $itemrecord->delete_field($fieldItem);

        $fieldItem->delete_subfields($tagsubfield);

        $fieldItem->delete_subfields($tagsubfield);

my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code

my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code

my @big_array;

my @big_array;

#---- finds where items.itemnumber is stored

#---- finds where items.itemnumber is stored

C4::Biblio::EmbedItemsInMarcBiblio({

C4::Biblio::EmbedItemsInMarcBiblio({

    marc_record  => $temp,

    marc_record  => $temp,

    biblionumber => $biblionumber });

    biblionumber => $biblionumber });

                biblionumber => $hostbiblionumber,

                biblionumber => $hostbiblionumber,

                embed_items  => 1 });

                embed_items  => 1 });

            if ($hostrecord) {

            if ($hostrecord) {

                foreach my $hostitem ($hostrecord->field($itemfield)){

                foreach my $hostitem ($hostrecord->field($itemfield)){

                    if ($hostitem->subfield('9') eq $hostfield->subfield('9')){

                    if ($hostitem->subfield('9') eq $hostfield->subfield('9')){

                        push (@fields, $hostitem);

                        push (@fields, $hostitem);

    }

    }

}

}

@big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array;

@big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array;

# now, construct template !

# now, construct template !

use C4::Context;

use C4::Context;

use C4::Barcodes::ValueBuilder;

use C4::Barcodes::ValueBuilder;

use Koha::DateUtils;

use Koha::DateUtils;

use Algorithm::CheckDigits;

use Algorithm::CheckDigits;

	# find today's date

	# find today's date

    ($args{year}, $args{mon}, $args{day}) = split('-', output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }));

    ($args{year}, $args{mon}, $args{day}) = split('-', output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }));

	my $nextnum;

	my $nextnum;

    my $scr;

    my $scr;

# find today's date

# find today's date

    ($args{year}, $args{mon}, $args{day}) = split('-', output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }));

    ($args{year}, $args{mon}, $args{day}) = split('-', output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }));

    my $nextnum;

    my $nextnum;

    my $scr;

    my $scr;

my @getoverdues = GetOverduesForBranch( $default, $location );

my @getoverdues = GetOverduesForBranch( $default, $location );

$debug and warn "HERE : $default / $location" . Dumper(@getoverdues);

$debug and warn "HERE : $default / $location" . Dumper(@getoverdues);

# search for location authorised value

# search for location authorised value

my $tagslib = &GetMarcStructure(1,'');

my $tagslib = &GetMarcStructure(1,'');

if ($tagslib->{$tag}->{$subfield}->{authorised_value}) {

if ($tagslib->{$tag}->{$subfield}->{authorised_value}) {

    my $values= GetAuthorisedValues($tagslib->{$tag}->{$subfield}->{authorised_value});

    my $values= GetAuthorisedValues($tagslib->{$tag}->{$subfield}->{authorised_value});

my $batch = MARC::Batch->new( 'USMARC', $fh );

my $batch = MARC::Batch->new( 'USMARC', $fh );

$batch->warnings_off();

$batch->warnings_off();

$batch->strict_off();

$batch->strict_off();

my $i=0;

my $i=0;

while ( my $record = $batch->next() ) {

while ( my $record = $batch->next() ) {

$starttime = gettimeofday;

$starttime = gettimeofday;

#1st of all, find item MARC tag.

#1st of all, find item MARC tag.

# $dbh->do("lock tables biblio write, biblioitems write, items write, marc_biblio write, marc_subfield_table write, marc_blob_subfield write, marc_word write, marc_subfield_structure write");

# $dbh->do("lock tables biblio write, biblioitems write, items write, marc_biblio write, marc_subfield_table write, marc_blob_subfield write, marc_word write, marc_subfield_structure write");

my $sth = $dbh->prepare("SELECT biblionumber FROM biblio");

my $sth = $dbh->prepare("SELECT biblionumber FROM biblio");

$sth->execute;

$sth->execute;

$dbh->do("UPDATE systempreferences SET value=0 WHERE variable='CataloguingLog'");

$dbh->do("UPDATE systempreferences SET value=0 WHERE variable='CataloguingLog'");

$dbh->do("UPDATE systempreferences SET value=0 where variable='AuthorityMergeLimit'");

$dbh->do("UPDATE systempreferences SET value=0 where variable='AuthorityMergeLimit'");

$dbh->commit() unless $test_parameter;

$dbh->commit() unless $test_parameter;

#dbh query init

#dbh query init

my $query =

my $query =

    return unless $record;

    return unless $record;

    my $update=0;

    my $update=0;

    if (defined $record) {

    if (defined $record) {

}

}

else {

else {

   ( $tagid, $subfieldid ) =

   ( $tagid, $subfieldid ) =

	$tagid||="001";

	$tagid||="001";

}

}

			}

			}

            if ($dedup_barcode && grep { exists $_->{error_code} && $_->{error_code} eq 'duplicate_barcode' } @$errors_ref) {

            if ($dedup_barcode && grep { exists $_->{error_code} && $_->{error_code} eq 'duplicate_barcode' } @$errors_ref) {

                # Find the record called 'barcode'

                # Find the record called 'barcode'

                # Now remove any items that didn't have a duplicate_barcode error,

                # Now remove any items that didn't have a duplicate_barcode error,

                # erase the barcodes on items that did, and re-add those items.

                # erase the barcodes on items that did, and re-add those items.

                my %dupes;

                my %dupes;

my $kohadir = C4::Context->config('intranetdir');

my $kohadir = C4::Context->config('intranetdir');

my $marcxml_open = q{<?xml version="1.0" encoding="UTF-8"?>

my $marcxml_open = q{<?xml version="1.0" encoding="UTF-8"?>

<collection xmlns="http://www.loc.gov/MARC21/slim">

<collection xmlns="http://www.loc.gov/MARC21/slim">

    print {$fh} $marcxml_open;

    print {$fh} $marcxml_open;

    my $i = 0;

    my $i = 0;

    while (my ($record_number) = $sth->fetchrow_array) {

    while (my ($record_number) = $sth->fetchrow_array) {

        print "." if ( $verbose_logging );

        print "." if ( $verbose_logging );

        print "\r$i" unless ($i++ %100 or !$verbose_logging);

        print "\r$i" unless ($i++ %100 or !$verbose_logging);

my $biblio = Koha::Biblios->find( $biblionumber );

my $biblio = Koha::Biblios->find( $biblionumber );

my $framework = $biblio ? $biblio->frameworkcode : q{};

my $framework = $biblio ? $biblio->frameworkcode : q{};

my $tagslib = &GetMarcStructure( 0, $framework );

my $tagslib = &GetMarcStructure( 0, $framework );

my @nonhiddenitems = $record->field($tag_itemnumber);

my @nonhiddenitems = $record->field($tag_itemnumber);

if (scalar @all_items >= 1 && scalar @nonhiddenitems == 0) {

if (scalar @all_items >= 1 && scalar @nonhiddenitems == 0) {

    print $query->redirect("/cgi-bin/koha/errors/404.pl");

    print $query->redirect("/cgi-bin/koha/errors/404.pl");

    }

    }

}

}

$template->param(

$template->param(

    bibliotitle => $biblio->title,

    bibliotitle => $biblio->title,

) if $tagslib->{$bt_tag}->{$bt_subtag}->{hidden} <= 0 && # <=0 OPAC visible.

) if $tagslib->{$bt_tag}->{$bt_subtag}->{hidden} <= 0 && # <=0 OPAC visible.

    push @item_loop, $item if $item;

    push @item_loop, $item if $item;

}

}

my ( $holdingbrtagf, $holdingbrtagsubf ) =

my ( $holdingbrtagf, $holdingbrtagsubf ) =

@item_loop =

@item_loop =

  sort { ($a->{$holdingbrtagsubf}||'') cmp ($b->{$holdingbrtagsubf}||'') } @item_loop;

  sort { ($a->{$holdingbrtagsubf}||'') cmp ($b->{$holdingbrtagsubf}||'') } @item_loop;

                    #New Item

                    #New Item

                  # if autoBarcode is set to 'incremental', calculate barcode...

                  # if autoBarcode is set to 'incremental', calculate barcode...

                    if ( C4::Context->preference('autoBarcode') eq

                    if ( C4::Context->preference('autoBarcode') eq

                        'incremental' )

                        'incremental' )

                    {

                    {

    } else {

    } else {

        my $fullrecord = $record->clone();

        my $fullrecord = $record->clone();

        my ( $itemtag, $itemsubfield ) =

        my ( $itemtag, $itemsubfield ) =

        # delete any item tags

        # delete any item tags

        foreach my $field ( $record->field($itemtag) ) {

        foreach my $field ( $record->field($itemtag) ) {

        # delete any item tags

        # delete any item tags

        my ( $itemtag, $itemsubfield ) =

        my ( $itemtag, $itemsubfield ) =

        foreach my $field ( $record->field($itemtag) ) {

        foreach my $field ( $record->field($itemtag) ) {

            $record->delete_field($field);

            $record->delete_field($field);

        }

        }

        biblionumber => $biblionumber,

        biblionumber => $biblionumber,

        embed_items  => 0 });

        embed_items  => 0 });

    my $frameworkcode = GetFrameworkCode($biblionumber);

    my $frameworkcode = GetFrameworkCode($biblionumber);

    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;

    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;

    my $biblioitemnumbertotest;

    my $biblioitemnumbertotest;

    if ( $biblioitem_tag < 10 ) {

    if ( $biblioitem_tag < 10 ) {

use C4::Biblio;

use C4::Biblio;

subtest 'Biblio record' => sub {

subtest 'Biblio record' => sub {

    plan tests => 10;

    plan tests => 10;

    my $leader = '00203nam a2200097   4500';

    my $leader = '00203nam a2200097   4500';

    INSERT INTO marc_subfield_structure(frameworkcode,kohafield,tagfield,tagsubfield)

    INSERT INTO marc_subfield_structure(frameworkcode,kohafield,tagfield,tagsubfield)

    VALUES ('$frameworkcode', 'biblioitems.url', '856', 'u')

    VALUES ('$frameworkcode', 'biblioitems.url', '856', 'u')

|);

|);

my $title = q|My title & a word & another word|;

my $title = q|My title & a word & another word|;

my $url = q|http://www.example.org/index.pl?arg1=val1&arg2=val2|;

my $url = q|http://www.example.org/index.pl?arg1=val1&arg2=val2|;

sub create_biblio {

sub create_biblio {

    my ($title, $itemtype) = @_;

    my ($title, $itemtype) = @_;

    my $record = MARC::Record->new();

    my $record = MARC::Record->new();

    $record->append_fields(

    $record->append_fields(

    };

    };

    my ( $isbn_field, $isbn_subfield ) =

    my ( $isbn_field, $isbn_subfield ) =

    my $update_sql = q{UPDATE marc_subfield_structure SET hidden=? };

    my $update_sql = q{UPDATE marc_subfield_structure SET hidden=? };

    my $sth        = $dbh->prepare($update_sql);

    my $sth        = $dbh->prepare($update_sql);

    foreach my $hidden_value (@valid_hidden_values) {

    foreach my $hidden_value (@valid_hidden_values) {

sub create_marc_record {

sub create_marc_record {

    my ( $title_field, $title_subfield ) =

    my ( $title_field, $title_subfield ) =

    my ( $isbn_field, $isbn_subfield ) =

    my ( $isbn_field, $isbn_subfield ) =

    my $isbn        = '0590353403';

    my $isbn        = '0590353403';

    my $title       = 'Foundation';

    my $title       = 'Foundation';

    my $marc_record = MARC::Record->new;

    my $marc_record = MARC::Record->new;

my $original_record = MARC::Record->new;

my $original_record = MARC::Record->new;

$record->leader('03174nam a2200445 a 4500');

$record->leader('03174nam a2200445 a 4500');

$original_record->leader('03174nam a2200445 a 4500');

$original_record->leader('03174nam a2200445 a 4500');

my @fields = (

my @fields = (

    MARC::Field->new(

    MARC::Field->new(

        100, '1', ' ',

        100, '1', ' ',

    ok($found, "item1 found");

    ok($found, "item1 found");

    my $frameworkcode = q||;

    my $frameworkcode = q||;

    # Create item subfield 'z' without link

    # Create item subfield 'z' without link

    $dbh->do('DELETE FROM marc_subfield_structure WHERE tagfield=? AND tagsubfield="z" AND frameworkcode=?', undef, $itemfield, $frameworkcode);

    $dbh->do('DELETE FROM marc_subfield_structure WHERE tagfield=? AND tagsubfield="z" AND frameworkcode=?', undef, $itemfield, $frameworkcode);

    t::lib::Mocks::mock_preference( 'OpacHiddenItems', '' );

    t::lib::Mocks::mock_preference( 'OpacHiddenItems', '' );

    my ($itemfield) =

    my ($itemfield) =

    my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->biblionumber });

    my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->biblionumber });

    warning_is { C4::Biblio::EmbedItemsInMarcBiblio() }

    warning_is { C4::Biblio::EmbedItemsInMarcBiblio() }

    { carped => 'EmbedItemsInMarcBiblio: No MARC record passed' },

    { carped => 'EmbedItemsInMarcBiblio: No MARC record passed' },

my $item = Koha::Items->find( $itemnumber );

my $item = Koha::Items->find( $itemnumber );

is ( $item->new_status, 'new_value', q|AddItem insert the 'new_status' field| );

is ( $item->new_status, 'new_value', q|AddItem insert the 'new_status' field| );

my $marc_item = C4::Items::GetMarcItem( $biblionumber, $itemnumber );

my $marc_item = C4::Items::GetMarcItem( $biblionumber, $itemnumber );

is( $marc_item->subfield($tagfield, $new_tagfield), 'new_value', q|Koha mapping is correct|);

is( $marc_item->subfield($tagfield, $new_tagfield), 'new_value', q|Koha mapping is correct|);

        # Auth values

        # Auth values

        foreach my $field (sort keys %$row) {

        foreach my $field (sort keys %$row) {

            # If the koha field is mapped to a marc field

            # If the koha field is mapped to a marc field

            if (defined($f) and defined($sf)) {

            if (defined($f) and defined($sf)) {

                # We replace the code with it's description

                # We replace the code with it's description

                my $avs;

                my $avs;

    my $biblio = Test::MockModule->new('C4::Biblio');

    my $biblio = Test::MockModule->new('C4::Biblio');

    $biblio->mock( 'GetMarcFromKohaField', sub {

    $biblio->mock( 'GetMarcFromKohaField', sub {

        if ( $kohafield eq 'biblio.biblionumber' ) {

        if ( $kohafield eq 'biblio.biblionumber' ) {

            if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {

            if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {

                return ( '001', '@' );

                return ( '001', '@' );

        }

        }

        else {

        else {

            my $func_ref = $biblio->original( 'GetMarcFromKohaField' );

            my $func_ref = $biblio->original( 'GetMarcFromKohaField' );

        }

        }

    });

    });

    my $biblio = $builder->build_sample_biblio();

    my $biblio = $builder->build_sample_biblio();

    my $biblionumber = $biblio->biblionumber;

    my $biblionumber = $biblio->biblionumber;

    my $itemtype = $builder->build( { source => 'Itemtype' } )->{itemtype};

    my $itemtype = $builder->build( { source => 'Itemtype' } )->{itemtype};

    my $itemcallnumber = 'XXXmy itemcallnumberXXX';

    my $itemcallnumber = 'XXXmy itemcallnumberXXX';

my $context = C4::Context->new;

my $context = C4::Context->new;

my ( $biblionumber_tag, $biblionumber_subfield ) =

my ( $biblionumber_tag, $biblionumber_subfield ) =

my ( $isbn_tag, $isbn_subfield ) =

my ( $isbn_tag, $isbn_subfield ) =

# Harry Potter and the Sorcerer's Stone, 1st American ed. 1997

# Harry Potter and the Sorcerer's Stone, 1st American ed. 1997

my $isbn1 = '0590353403';

my $isbn1 = '0590353403';

	}

	}

	#initializing values for updates

	#initializing values for updates

	if ($values_to_modify){

	if ($values_to_modify){

	    my $xml = TransformHtmlToXml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag, 'ITEM');

	    my $xml = TransformHtmlToXml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag, 'ITEM');

	    $marcitem = MARC::Record::new_from_xml($xml, 'UTF-8');

	    $marcitem = MARC::Record::new_from_xml($xml, 'UTF-8');

		my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code

		my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code

		my @big_array;

		my @big_array;

		#---- finds where items.itemnumber is stored

		#---- finds where items.itemnumber is stored

		foreach my $itemnumber (@itemnumbers){

		foreach my $itemnumber (@itemnumbers){

            my $itemdata = Koha::Items->find($itemnumber);

            my $itemdata = Koha::Items->find($itemnumber);

            next unless $itemdata; # Should have been tested earlier, but just in case...

            next unless $itemdata; # Should have been tested earlier, but just in case...

# And $tag>10

# And $tag>10

sub UpdateMarcWith {

sub UpdateMarcWith {

  my ($marcfrom,$marcto)=@_;

  my ($marcfrom,$marcto)=@_;

    my $fieldfrom=$marcfrom->field($itemtag);

    my $fieldfrom=$marcfrom->field($itemtag);

    my @fields_to=$marcto->field($itemtag);

    my @fields_to=$marcto->field($itemtag);

    my $modified = 0;

    my $modified = 0;