Attachment #110902 for bug #26518

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




    # transform the data into koha-table style data
    SetUTF8Flag($record);
    my $olddata = TransformMarcToKoha( $record, $frameworkcode );
    my $schema = Koha::Database->schema;
    try {
        $schema->txn_do(sub {

            my $biblio = Koha::Biblio->new(
                {
                    frameworkcode => $frameworkcode,
                    author        => $olddata->{author},
                    title         => $olddata->{title},
                    subtitle      => $olddata->{subtitle},
                    medium        => $olddata->{medium},
                    part_number   => $olddata->{part_number},
                    part_name     => $olddata->{part_name},
                    unititle      => $olddata->{unititle},
                    notes         => $olddata->{notes},
                    serial =>
                      ( $olddata->{serial} || $olddata->{seriestitle} ? 1 : 0 ),
                    seriestitle   => $olddata->{seriestitle},
                    copyrightdate => $olddata->{copyrightdate},
                    datecreated   => \'NOW()',
                    abstract      => $olddata->{abstract},
                }
            )->store;
            $biblionumber = $biblio->biblionumber;

            my ($cn_sort) = GetClassSort( $olddata->{'biblioitems.cn_source'}, $olddata->{'cn_class'}, $olddata->{'cn_item'} );
            my $biblioitem = Koha::Biblioitem->new(
                {
                    biblionumber          => $biblionumber,
                    volume                => $olddata->{volume},
                    number                => $olddata->{number},
                    itemtype              => $olddata->{itemtype},
                    isbn                  => $olddata->{isbn},
                    issn                  => $olddata->{issn},
                    publicationyear       => $olddata->{publicationyear},
                    publishercode         => $olddata->{publishercode},
                    volumedate            => $olddata->{volumedate},
                    volumedesc            => $olddata->{volumedesc},
                    collectiontitle       => $olddata->{collectiontitle},
                    collectionissn        => $olddata->{collectionissn},
                    collectionvolume      => $olddata->{collectionvolume},
                    editionstatement      => $olddata->{editionstatement},
                    editionresponsibility => $olddata->{editionresponsibility},
                    illus                 => $olddata->{illus},
                    pages                 => $olddata->{pages},
                    notes                 => $olddata->{bnotes},
                    size                  => $olddata->{size},
                    place                 => $olddata->{place},
                    lccn                  => $olddata->{lccn},
                    url                   => $olddata->{url},
                    cn_source      => $olddata->{'biblioitems.cn_source'},
                    cn_class       => $olddata->{cn_class},
                    cn_item        => $olddata->{cn_item},
                    cn_suffix      => $olddata->{cn_suff},
                    cn_sort        => $cn_sort,
                    totalissues    => $olddata->{totalissues},
                    ean            => $olddata->{ean},
                    agerestriction => $olddata->{agerestriction},
                }
            )->store;
            $biblioitemnumber = $biblioitem->biblioitemnumber;

            _koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber, $biblioitemnumber );

            # update MARC subfield that stores biblioitems.cn_sort
            _koha_marc_update_biblioitem_cn_sort( $record, $olddata, $frameworkcode );

            # now add the record
            ModBiblioMarc( $record, $biblionumber, $frameworkcode ) unless $defer_marc_save;

            # update OAI-PMH sets
            if(C4::Context->preference("OAI-PMH:AutoUpdateSets")) {
                C4::OAI::Sets::UpdateOAISetsBiblio($biblionumber, $record);
            }

            _after_biblio_action_hooks({ action => 'create', biblio_id => $biblionumber });

            logaction( "CATALOGUING", "ADD", $biblionumber, "biblio" ) if C4::Context->preference("CataloguingLog");
        });
    } catch {
        warn $_;
        return (undef, undef);
    };
    return ( $biblionumber, $biblioitemnumber );
}


    }
}

=head2 _koha_add_biblio

  my ($biblionumber,$error) = _koha_add_biblio($dbh,$biblioitem);

Internal function to add a biblio ($biblio is a hash with the values)

=cut

sub _koha_add_biblio {
    my ( $dbh, $biblio, $frameworkcode ) = @_;

    my $error;

    # set the series flag
    unless (defined $biblio->{'serial'}){
    	$biblio->{'serial'} = 0;
    	if ( $biblio->{'seriestitle'} ) { $biblio->{'serial'} = 1 }
    }

    my $query = "INSERT INTO biblio
        SET frameworkcode = ?,
            author = ?,
            title = ?,
            subtitle = ?,
            medium = ?,
            part_number = ?,
            part_name = ?,
            unititle =?,
            notes = ?,
            serial = ?,
            seriestitle = ?,
            copyrightdate = ?,
            datecreated=NOW(),
            abstract = ?
        ";
    my $sth = $dbh->prepare($query);
    $sth->execute(
        $frameworkcode,        $biblio->{'author'},      $biblio->{'title'},       $biblio->{'subtitle'},
        $biblio->{'medium'},   $biblio->{'part_number'}, $biblio->{'part_name'},   $biblio->{'unititle'},
        $biblio->{'notes'},    $biblio->{'serial'},      $biblio->{'seriestitle'}, $biblio->{'copyrightdate'},
        $biblio->{'abstract'}
    );

    my $biblionumber = $dbh->{'mysql_insertid'};
    if ( $dbh->errstr ) {
        $error .= "ERROR in _koha_add_biblio $query" . $dbh->errstr;
        warn $error;
    }

    $sth->finish();

    #warn "LEAVING _koha_add_biblio: ".$biblionumber."\n";
    return ( $biblionumber, $error );
}

=head2 _koha_modify_biblio

  my ($biblionumber,$error) == _koha_modify_biblio($dbh,$biblio,$frameworkcode);

    return ( $biblioitem->{'biblioitemnumber'}, $error );
}

=head2 _koha_add_biblioitem

  my ($biblioitemnumber,$error) = _koha_add_biblioitem( $dbh, $biblioitem );

Internal function to add a biblioitem

=cut

sub _koha_add_biblioitem {
    my ( $dbh, $biblioitem ) = @_;
    my $error;

    my ($cn_sort) = GetClassSort( $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );
    my $query = "INSERT INTO biblioitems SET
        biblionumber    = ?,
        volume          = ?,
        number          = ?,
        itemtype        = ?,
        isbn            = ?,
        issn            = ?,
        publicationyear = ?,
        publishercode   = ?,
        volumedate      = ?,
        volumedesc      = ?,
        collectiontitle = ?,
        collectionissn  = ?,
        collectionvolume= ?,
        editionstatement= ?,
        editionresponsibility = ?,
        illus           = ?,
        pages           = ?,
        notes           = ?,
        size            = ?,
        place           = ?,
        lccn            = ?,
        url             = ?,
        cn_source       = ?,
        cn_class        = ?,
        cn_item         = ?,
        cn_suffix       = ?,
        cn_sort         = ?,
        totalissues     = ?,
        ean             = ?,
        agerestriction  = ?
        ";
    my $sth = $dbh->prepare($query);
    $sth->execute(
        $biblioitem->{'biblionumber'},     $biblioitem->{'volume'},           $biblioitem->{'number'},                $biblioitem->{'itemtype'},
        $biblioitem->{'isbn'},             $biblioitem->{'issn'},             $biblioitem->{'publicationyear'},       $biblioitem->{'publishercode'},
        $biblioitem->{'volumedate'},       $biblioitem->{'volumedesc'},       $biblioitem->{'collectiontitle'},       $biblioitem->{'collectionissn'},
        $biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'},
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
        $biblioitem->{'lccn'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'},              $biblioitem->{'agerestriction'}
    );
    my $bibitemnum = $dbh->{'mysql_insertid'};

    if ( $dbh->errstr ) {
        $error .= "ERROR in _koha_add_biblioitem $query" . $dbh->errstr;
        warn $error;
    }
    $sth->finish();
    return ( $bibitemnum, $error );
}

=head2 _koha_delete_biblio

  $error = _koha_delete_biblio($dbh,$biblionumber);





use Modern::Perl;

use Test::More tests => 15;
use Test::MockModule;
use List::MoreUtils qw( uniq );
use MARC::Record;


my $builder = t::lib::TestBuilder->new;

subtest 'AddBiblio' => sub {
    plan tests => 3;

    my $marcflavour = 'MARC21';
    t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour );
    my $record = MARC::Record->new();

    warn Koha::Biblios->count;
    my ( $f, $sf ) = GetMarcFromKohaField('biblioitems.lccn');
    my $lccn_field = MARC::Field->new( $f, ' ', ' ',
        $sf => 'ThisisgoingtobetoomanycharactersfortheLCCNfield' );
    $record->append_fields($lccn_field);

    my $nb_biblios = Koha::Biblios->count;
    my ( $biblionumber, $biblioitemnumber ) =
      C4::Biblio::AddBiblio( $record, '' );
    is( $biblionumber, undef,
        'AddBiblio returns undef for biblionumber if something went wrong' );
    is( $biblioitemnumber, undef,
        'AddBiblio returns undef for biblioitemnumber if something went wrong'
    );
    is( $nb_biblios, Koha::Biblios->count,
        'No biblio should have been added if something went wrong' );
};

subtest 'GetMarcSubfieldStructureFromKohaField' => sub {
    plan tests => 25;


        "Tolkien, J. R. R. (John Ronald Reuel), 1892-1973. Lord of the rings",
        "The generated record contains the correct subfields"
    );



};

# Cleanup
- 

Return to bug 26518

Lines 17-23 Link Here

(-)a/t/db_dependent/Biblio.t (-5 / +26 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Test::More tests => 14;	20	use Test::More tests => 15;
21	use Test::MockModule;	21	use Test::MockModule;
22	use List::MoreUtils qw( uniq );	22	use List::MoreUtils qw( uniq );
23	use MARC::Record;	23	use MARC::Record;
Lines 42-47 Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); Link Here
42		42
43	my $builder = t::lib::TestBuilder->new;	43	my $builder = t::lib::TestBuilder->new;
44		44
		45	subtest 'AddBiblio' => sub {
		46	plan tests => 3;
		47
		48	my $marcflavour = 'MARC21';
		49	t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour );
		50	my $record = MARC::Record->new();
		51
		52	warn Koha::Biblios->count;
		53	my ( $f, $sf ) = GetMarcFromKohaField('biblioitems.lccn');
		54	my $lccn_field = MARC::Field->new( $f, ' ', ' ',
		55	$sf => 'ThisisgoingtobetoomanycharactersfortheLCCNfield' );
		56	$record->append_fields($lccn_field);
		57
		58	my $nb_biblios = Koha::Biblios->count;
		59	my ( $biblionumber, $biblioitemnumber ) =
		60	C4::Biblio::AddBiblio( $record, '' );
		61	is( $biblionumber, undef,
		62	'AddBiblio returns undef for biblionumber if something went wrong' );
		63	is( $biblioitemnumber, undef,
		64	'AddBiblio returns undef for biblioitemnumber if something went wrong'
		65	);
		66	is( $nb_biblios, Koha::Biblios->count,
		67	'No biblio should have been added if something went wrong' );
		68	};
		69
45	subtest 'GetMarcSubfieldStructureFromKohaField' => sub {	70	subtest 'GetMarcSubfieldStructureFromKohaField' => sub {
46	plan tests => 25;	71	plan tests => 25;
47		72
Lines 758-766 subtest "LinkBibHeadingsToAuthorities record generation tests" => sub { Link Here
758	"Tolkien, J. R. R. (John Ronald Reuel), 1892-1973. Lord of the rings",	783	"Tolkien, J. R. R. (John Ronald Reuel), 1892-1973. Lord of the rings",
759	"The generated record contains the correct subfields"	784	"The generated record contains the correct subfields"
760	);	785	);
761
762
763
764	};	786	};
765		787
766	# Cleanup	788	# Cleanup
767	-

Lines 216-241 sub AddBiblio { Link Here

(-)a/C4/Biblio.pm (-135 / +77 lines)
216	# transform the data into koha-table style data	216	# transform the data into koha-table style data
217	SetUTF8Flag($record);	217	SetUTF8Flag($record);
218	my $olddata = TransformMarcToKoha( $record, $frameworkcode );	218	my $olddata = TransformMarcToKoha( $record, $frameworkcode );
219	( $biblionumber, $error ) = _koha_add_biblio( $dbh, $olddata, $frameworkcode );	219	my $schema = Koha::Database->schema;
220	$olddata->{'biblionumber'} = $biblionumber;	220	try {
221	( $biblioitemnumber, $error ) = _koha_add_biblioitem( $dbh, $olddata );	221	$schema->txn_do(sub {
		222
		223	my $biblio = Koha::Biblio->new(
		224	{
		225	frameworkcode => $frameworkcode,
		226	author => $olddata->{author},
		227	title => $olddata->{title},
		228	subtitle => $olddata->{subtitle},
		229	medium => $olddata->{medium},
		230	part_number => $olddata->{part_number},
		231	part_name => $olddata->{part_name},
		232	unititle => $olddata->{unititle},
		233	notes => $olddata->{notes},
		234	serial =>
		235	( $olddata->{serial} \|\| $olddata->{seriestitle} ? 1 : 0 ),
		236	seriestitle => $olddata->{seriestitle},
		237	copyrightdate => $olddata->{copyrightdate},
		238	datecreated => \'NOW()',
		239	abstract => $olddata->{abstract},
		240	}
		241	)->store;
		242	$biblionumber = $biblio->biblionumber;
		243
		244	my ($cn_sort) = GetClassSort( $olddata->{'biblioitems.cn_source'}, $olddata->{'cn_class'}, $olddata->{'cn_item'} );
		245	my $biblioitem = Koha::Biblioitem->new(
		246	{
		247	biblionumber => $biblionumber,
		248	volume => $olddata->{volume},
		249	number => $olddata->{number},
		250	itemtype => $olddata->{itemtype},
		251	isbn => $olddata->{isbn},
		252	issn => $olddata->{issn},
		253	publicationyear => $olddata->{publicationyear},
		254	publishercode => $olddata->{publishercode},
		255	volumedate => $olddata->{volumedate},
		256	volumedesc => $olddata->{volumedesc},
		257	collectiontitle => $olddata->{collectiontitle},
		258	collectionissn => $olddata->{collectionissn},
		259	collectionvolume => $olddata->{collectionvolume},
		260	editionstatement => $olddata->{editionstatement},
		261	editionresponsibility => $olddata->{editionresponsibility},
		262	illus => $olddata->{illus},
		263	pages => $olddata->{pages},
		264	notes => $olddata->{bnotes},
		265	size => $olddata->{size},
		266	place => $olddata->{place},
		267	lccn => $olddata->{lccn},
		268	url => $olddata->{url},
		269	cn_source => $olddata->{'biblioitems.cn_source'},
		270	cn_class => $olddata->{cn_class},
		271	cn_item => $olddata->{cn_item},
		272	cn_suffix => $olddata->{cn_suff},
		273	cn_sort => $cn_sort,
		274	totalissues => $olddata->{totalissues},
		275	ean => $olddata->{ean},
		276	agerestriction => $olddata->{agerestriction},
		277	}
		278	)->store;
		279	$biblioitemnumber = $biblioitem->biblioitemnumber;
222		280
223	_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber, $biblioitemnumber );	281	_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber, $biblioitemnumber );
224		282
225	# update MARC subfield that stores biblioitems.cn_sort	283	# update MARC subfield that stores biblioitems.cn_sort
226	_koha_marc_update_biblioitem_cn_sort( $record, $olddata, $frameworkcode );	284	_koha_marc_update_biblioitem_cn_sort( $record, $olddata, $frameworkcode );
227		285
228	# now add the record	286	# now add the record
229	ModBiblioMarc( $record, $biblionumber, $frameworkcode ) unless $defer_marc_save;	287	ModBiblioMarc( $record, $biblionumber, $frameworkcode ) unless $defer_marc_save;
230		288
231	# update OAI-PMH sets	289	# update OAI-PMH sets
232	if(C4::Context->preference("OAI-PMH:AutoUpdateSets")) {	290	if(C4::Context->preference("OAI-PMH:AutoUpdateSets")) {
233	C4::OAI::Sets::UpdateOAISetsBiblio($biblionumber, $record);	291	C4::OAI::Sets::UpdateOAISetsBiblio($biblionumber, $record);
234	}	292	}
235		293
236	_after_biblio_action_hooks({ action => 'create', biblio_id => $biblionumber });	294	_after_biblio_action_hooks({ action => 'create', biblio_id => $biblionumber });
237		295
238	logaction( "CATALOGUING", "ADD", $biblionumber, "biblio" ) if C4::Context->preference("CataloguingLog");	296	logaction( "CATALOGUING", "ADD", $biblionumber, "biblio" ) if C4::Context->preference("CataloguingLog");
		297	});
		298	} catch {
		299	warn $_;
		300	return (undef, undef);
		301	};
239	return ( $biblionumber, $biblioitemnumber );	302	return ( $biblionumber, $biblioitemnumber );
240	}	303	}
241		304
Lines 2670-2730 sub _koha_marc_update_biblioitem_cn_sort { Link Here
2670	}	2733	}
2671	}	2734	}
2672		2735
2673	=head2 _koha_add_biblio
2674
2675	my ($biblionumber,$error) = _koha_add_biblio($dbh,$biblioitem);
2676
2677	Internal function to add a biblio ($biblio is a hash with the values)
2678
2679	=cut
2680
2681	sub _koha_add_biblio {
2682	my ( $dbh, $biblio, $frameworkcode ) = @_;
2683
2684	my $error;
2685
2686	# set the series flag
2687	unless (defined $biblio->{'serial'}){
2688	$biblio->{'serial'} = 0;
2689	if ( $biblio->{'seriestitle'} ) { $biblio->{'serial'} = 1 }
2690	}
2691
2692	my $query = "INSERT INTO biblio
2693	SET frameworkcode = ?,
2694	author = ?,
2695	title = ?,
2696	subtitle = ?,
2697	medium = ?,
2698	part_number = ?,
2699	part_name = ?,
2700	unititle =?,
2701	notes = ?,
2702	serial = ?,
2703	seriestitle = ?,
2704	copyrightdate = ?,
2705	datecreated=NOW(),
2706	abstract = ?
2707	";
2708	my $sth = $dbh->prepare($query);
2709	$sth->execute(
2710	$frameworkcode, $biblio->{'author'}, $biblio->{'title'}, $biblio->{'subtitle'},
2711	$biblio->{'medium'}, $biblio->{'part_number'}, $biblio->{'part_name'}, $biblio->{'unititle'},
2712	$biblio->{'notes'}, $biblio->{'serial'}, $biblio->{'seriestitle'}, $biblio->{'copyrightdate'},
2713	$biblio->{'abstract'}
2714	);
2715
2716	my $biblionumber = $dbh->{'mysql_insertid'};
2717	if ( $dbh->errstr ) {
2718	$error .= "ERROR in _koha_add_biblio $query" . $dbh->errstr;
2719	warn $error;
2720	}
2721
2722	$sth->finish();
2723
2724	#warn "LEAVING _koha_add_biblio: ".$biblionumber."\n";
2725	return ( $biblionumber, $error );
2726	}
2727
2728	=head2 _koha_modify_biblio	2736	=head2 _koha_modify_biblio
2729		2737
2730	my ($biblionumber,$error) == _koha_modify_biblio($dbh,$biblio,$frameworkcode);	2738	my ($biblionumber,$error) == _koha_modify_biblio($dbh,$biblio,$frameworkcode);
Lines 2835-2906 sub _koha_modify_biblioitem_nonmarc { Link Here
2835	return ( $biblioitem->{'biblioitemnumber'}, $error );	2843	return ( $biblioitem->{'biblioitemnumber'}, $error );
2836	}	2844	}
2837		2845
2838	=head2 _koha_add_biblioitem
2839
2840	my ($biblioitemnumber,$error) = _koha_add_biblioitem( $dbh, $biblioitem );
2841
2842	Internal function to add a biblioitem
2843
2844	=cut
2845
2846	sub _koha_add_biblioitem {
2847	my ( $dbh, $biblioitem ) = @_;
2848	my $error;
2849
2850	my ($cn_sort) = GetClassSort( $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'}, $biblioitem->{'cn_item'} );
2851	my $query = "INSERT INTO biblioitems SET
2852	biblionumber = ?,
2853	volume = ?,
2854	number = ?,
2855	itemtype = ?,
2856	isbn = ?,
2857	issn = ?,
2858	publicationyear = ?,
2859	publishercode = ?,
2860	volumedate = ?,
2861	volumedesc = ?,
2862	collectiontitle = ?,
2863	collectionissn = ?,
2864	collectionvolume= ?,
2865	editionstatement= ?,
2866	editionresponsibility = ?,
2867	illus = ?,
2868	pages = ?,
2869	notes = ?,
2870	size = ?,
2871	place = ?,
2872	lccn = ?,
2873	url = ?,
2874	cn_source = ?,
2875	cn_class = ?,
2876	cn_item = ?,
2877	cn_suffix = ?,
2878	cn_sort = ?,
2879	totalissues = ?,
2880	ean = ?,
2881	agerestriction = ?
2882	";
2883	my $sth = $dbh->prepare($query);
2884	$sth->execute(
2885	$biblioitem->{'biblionumber'}, $biblioitem->{'volume'}, $biblioitem->{'number'}, $biblioitem->{'itemtype'},
2886	$biblioitem->{'isbn'}, $biblioitem->{'issn'}, $biblioitem->{'publicationyear'}, $biblioitem->{'publishercode'},
2887	$biblioitem->{'volumedate'}, $biblioitem->{'volumedesc'}, $biblioitem->{'collectiontitle'}, $biblioitem->{'collectionissn'},
2888	$biblioitem->{'collectionvolume'}, $biblioitem->{'editionstatement'}, $biblioitem->{'editionresponsibility'}, $biblioitem->{'illus'},
2889	$biblioitem->{'pages'}, $biblioitem->{'bnotes'}, $biblioitem->{'size'}, $biblioitem->{'place'},
2890	$biblioitem->{'lccn'}, $biblioitem->{'url'}, $biblioitem->{'biblioitems.cn_source'},
2891	$biblioitem->{'cn_class'}, $biblioitem->{'cn_item'}, $biblioitem->{'cn_suffix'}, $cn_sort,
2892	$biblioitem->{'totalissues'}, $biblioitem->{'ean'}, $biblioitem->{'agerestriction'}
2893	);
2894	my $bibitemnum = $dbh->{'mysql_insertid'};
2895
2896	if ( $dbh->errstr ) {
2897	$error .= "ERROR in _koha_add_biblioitem $query" . $dbh->errstr;
2898	warn $error;
2899	}
2900	$sth->finish();
2901	return ( $bibitemnum, $error );
2902	}
2903
2904	=head2 _koha_delete_biblio	2846	=head2 _koha_delete_biblio
2905		2847
2906	$error = _koha_delete_biblio($dbh,$biblionumber);	2848	$error = _koha_delete_biblio($dbh,$biblionumber);