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

(-)a/t/db_dependent/Circulation.t (-47 / +32 lines)
Lines 222-235 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
222
# CanBookBeRenewed tests
222
# CanBookBeRenewed tests
223
223
224
    # Generate test biblio
224
    # Generate test biblio
225
    my $biblio = MARC::Record->new();
226
    my $title = 'Silence in the library';
225
    my $title = 'Silence in the library';
227
    $biblio->append_fields(
226
    my ($biblionumber, $biblioitemnumber) = add_biblio($title, 'Moffat, Steven');
228
        MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
229
        MARC::Field->new('245', ' ', ' ', a => $title),
230
    );
231
232
    my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');
233
227
234
    my $barcode = 'R00000342';
228
    my $barcode = 'R00000342';
235
    my $branch = $library2->{branchcode};
229
    my $branch = $library2->{branchcode};
Lines 911-923 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
911
    my $branch   = $library2->{branchcode};
905
    my $branch   = $library2->{branchcode};
912
906
913
    #Create another record
907
    #Create another record
914
    my $biblio2 = MARC::Record->new();
915
    my $title2 = 'Something is worng here';
908
    my $title2 = 'Something is worng here';
916
    $biblio2->append_fields(
909
    my ($biblionumber2, $biblioitemnumber2) = add_biblio($title2, 'Anonymous');
917
        MARC::Field->new('100', ' ', ' ', a => 'Anonymous'),
918
        MARC::Field->new('245', ' ', ' ', a => $title2),
919
    );
920
    my ($biblionumber2, $biblioitemnumber2) = AddBiblio($biblio2, '');
921
910
922
    #Create third item
911
    #Create third item
923
    AddItem(
912
    AddItem(
Lines 996-1003 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
996
    my $barcode  = '1234567890';
985
    my $barcode  = '1234567890';
997
    my $branch   = $library2->{branchcode};
986
    my $branch   = $library2->{branchcode};
998
987
999
    my $biblio = MARC::Record->new();
988
    my ($biblionumber, $biblioitemnumber) = add_biblio();
1000
    my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');
1001
989
1002
    #Create third item
990
    #Create third item
1003
    my ( undef, undef, $itemnumber ) = AddItem(
991
    my ( undef, undef, $itemnumber ) = AddItem(
Lines 1054-1061 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
1054
        undef,  0,
1042
        undef,  0,
1055
        .10, 1
1043
        .10, 1
1056
    );
1044
    );
1057
    my $biblio = MARC::Record->new();
1045
    my ( $biblionumber, $biblioitemnumber ) = add_biblio();
1058
    my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $biblio, '' );
1059
1046
1060
    my $barcode1 = '1234';
1047
    my $barcode1 = '1234';
1061
    my ( undef, undef, $itemnumber1 ) = AddItem(
1048
    my ( undef, undef, $itemnumber1 ) = AddItem(
Lines 1138-1149 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
1138
    my $branch   = $library->{branchcode};
1125
    my $branch   = $library->{branchcode};
1139
1126
1140
    #Create another record
1127
    #Create another record
1141
    my $biblio = MARC::Record->new();
1128
    my ($biblionumber, $biblioitemnumber) = add_biblio('A title', 'Anonymous');
1142
    $biblio->append_fields(
1143
        MARC::Field->new('100', ' ', ' ', a => 'Anonymous'),
1144
        MARC::Field->new('245', ' ', ' ', a => 'A title'),
1145
    );
1146
    my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');
1147
1129
1148
    my (undef, undef, $itemnumber) = AddItem(
1130
    my (undef, undef, $itemnumber) = AddItem(
1149
        {
1131
        {
Lines 1173-1180 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
1173
{
1155
{
1174
    my $library = $builder->build({ source => 'Branch' });
1156
    my $library = $builder->build({ source => 'Branch' });
1175
1157
1176
    my $biblio = MARC::Record->new();
1158
    my ($biblionumber, $biblioitemnumber) = add_biblio();
1177
    my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');
1178
1159
1179
    my $barcode = 'just a barcode';
1160
    my $barcode = 'just a barcode';
1180
    my ( undef, undef, $itemnumber ) = AddItem(
1161
    my ( undef, undef, $itemnumber ) = AddItem(
Lines 1486-1499 subtest 'CanBookBeIssued + Statistic patrons "X"' => sub { Link Here
1486
subtest 'MultipleReserves' => sub {
1467
subtest 'MultipleReserves' => sub {
1487
    plan tests => 3;
1468
    plan tests => 3;
1488
1469
1489
    my $biblio = MARC::Record->new();
1490
    my $title = 'Silence in the library';
1470
    my $title = 'Silence in the library';
1491
    $biblio->append_fields(
1471
    my ($biblionumber, $biblioitemnumber) = add_biblio($title, 'Moffat, Steven');
1492
        MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
1493
        MARC::Field->new('245', ' ', ' ', a => $title),
1494
    );
1495
1496
    my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');
1497
1472
1498
    my $branch = $library2->{branchcode};
1473
    my $branch = $library2->{branchcode};
1499
1474
Lines 1855-1868 subtest '_FixAccountForLostAndReturned' => sub { Link Here
1855
    plan tests => 2;
1830
    plan tests => 2;
1856
1831
1857
    # Generate test biblio
1832
    # Generate test biblio
1858
    my $biblio = MARC::Record->new();
1859
    my $title  = 'Koha for Dummies';
1833
    my $title  = 'Koha for Dummies';
1860
    $biblio->append_fields(
1834
    my ( $biblionumber, $biblioitemnumber ) = add_biblio($title, 'Hall, Daria');
1861
        MARC::Field->new( '100', ' ', ' ', a => 'Hall, Daria' ),
1862
        MARC::Field->new( '245', ' ', ' ', a => $title ),
1863
    );
1864
1865
    my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $biblio, '' );
1866
1835
1867
    my $barcode = 'KD123456789';
1836
    my $barcode = 'KD123456789';
1868
    my $branchcode  = $library2->{branchcode};
1837
    my $branchcode  = $library2->{branchcode};
Lines 1902-1915 subtest '_FixOverduesOnReturn' => sub { Link Here
1902
    plan tests => 6;
1871
    plan tests => 6;
1903
1872
1904
    # Generate test biblio
1873
    # Generate test biblio
1905
    my $biblio = MARC::Record->new();
1906
    my $title  = 'Koha for Dummies';
1874
    my $title  = 'Koha for Dummies';
1907
    $biblio->append_fields(
1875
    my ( $biblionumber, $biblioitemnumber ) = add_biblio($title, 'Hall, Kylie');
1908
        MARC::Field->new( '100', ' ', ' ', a => 'Hall, Kylie' ),
1909
        MARC::Field->new( '245', ' ', ' ', a => $title ),
1910
    );
1911
1912
    my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $biblio, '' );
1913
1876
1914
    my $barcode = 'KD987654321';
1877
    my $barcode = 'KD987654321';
1915
    my $branchcode  = $library2->{branchcode};
1878
    my $branchcode  = $library2->{branchcode};
Lines 2097-2099 sub str { Link Here
2097
    $s .= %$alert    ? ' (alert: '    . join( ' ', keys %$alert    ) . ')' : '';
2060
    $s .= %$alert    ? ' (alert: '    . join( ' ', keys %$alert    ) . ')' : '';
2098
    return $s;
2061
    return $s;
2099
}
2062
}
2100
- 
2063
2064
sub add_biblio {
2065
    my ($title, $author) = @_;
2066
2067
    my $marcflavour = C4::Context->preference('marcflavour');
2068
2069
    my $biblio = MARC::Record->new();
2070
    if ($title) {
2071
        my $tag = $marcflavour eq 'UNIMARC' ? '200' : '245';
2072
        $biblio->append_fields(
2073
            MARC::Field->new($tag, ' ', ' ', a => $title),
2074
        );
2075
    }
2076
2077
    if ($author) {
2078
        my ($tag, $code) = $marcflavour eq 'UNIMARC' ? (200, 'f') : (100, 'a');
2079
        $biblio->append_fields(
2080
            MARC::Field->new($tag, ' ', ' ', $code => $author),
2081
        );
2082
    }
2083
2084
    return AddBiblio($biblio, '');
2085
}

Return to bug 19444