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

(-)a/t/db_dependent/selenium/basic_workflow.t (-2 / +14 lines)
Lines 38-43 use Time::HiRes qw(gettimeofday); Link Here
38
use C4::Context;
38
use C4::Context;
39
use C4::Biblio qw( AddBiblio ); # We shouldn't use it
39
use C4::Biblio qw( AddBiblio ); # We shouldn't use it
40
40
41
use Koha::CirculationRules;
42
41
use Test::More tests => 20;
43
use Test::More tests => 20;
42
use MARC::Record;
44
use MARC::Record;
43
use MARC::Field;
45
use MARC::Field;
Lines 147-153 SKIP: { Link Here
147
    $dbh->do(q|INSERT INTO itemtypes (itemtype, description, rentalcharge, notforloan) VALUES (?, ?, ?, ?)|, undef, $itemtype->{itemtype}, $itemtype->{description}, $itemtype->{rentalcharge}, $itemtype->{notforloan});
149
    $dbh->do(q|INSERT INTO itemtypes (itemtype, description, rentalcharge, notforloan) VALUES (?, ?, ?, ?)|, undef, $itemtype->{itemtype}, $itemtype->{description}, $itemtype->{rentalcharge}, $itemtype->{notforloan});
148
150
149
    my $issuing_rules = $sample_data->{issuingrule};
151
    my $issuing_rules = $sample_data->{issuingrule};
150
    $dbh->do(q|INSERT INTO issuingrules (categorycode, itemtype, branchcode, maxissueqty, issuelength, lengthunit, renewalperiod) VALUES (?, ?, ?, ?, ?, ?, ?)|, undef, $issuing_rules->{categorycode}, $issuing_rules->{itemtype}, $issuing_rules->{branchcode}, $issuing_rules->{maxissueqty}, $issuing_rules->{issuelength}, $issuing_rules->{lengthunit}, $issuing_rules->{renewalperiod});
152
    $dbh->do(q|INSERT INTO issuingrules (categorycode, itemtype, branchcode, issuelength, lengthunit, renewalperiod) VALUES (?, ?, ?, ?, ?, ?)|, undef, $issuing_rules->{categorycode}, $issuing_rules->{itemtype}, $issuing_rules->{branchcode}, $issuing_rules->{issuelength}, $issuing_rules->{lengthunit}, $issuing_rules->{renewalperiod});
153
    Koha::CirculationRules->set_rules(
154
        {
155
            categorycode => $issuing_rules->{categorycode},
156
            itemtype     => $issuing_rules->{itemtype},
157
            branchcode   => $issuing_rules->{branchcode},
158
            rules        => {
159
                maxissueqty => $issuing_rules->{maxissueqty}
160
            }
161
        }
162
    );
163
151
164
152
    for my $biblionumber ( @biblionumbers ) {
165
    for my $biblionumber ( @biblionumbers ) {
153
        $driver->get($base_url."/cataloguing/additem.pl?biblionumber=$biblionumber");
166
        $driver->get($base_url."/cataloguing/additem.pl?biblionumber=$biblionumber");
154
- 

Return to bug 18925