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

(-)a/t/db_dependent/selenium/basic_workflow.t (-3 / +2 lines)
Lines 53-59 my $base_url= ( $ENV{KOHA_INTRANET_URL} || 'http://'.C4::Context->preference("st Link Here
53
my $number_of_biblios_to_insert = 3;
53
my $number_of_biblios_to_insert = 3;
54
our $sample_data = {
54
our $sample_data = {
55
    category => {
55
    category => {
56
        categorycode    => 'test_cat',
56
        categorycode    => 'TEST_CAT',
57
        description     => 'test cat description',
57
        description     => 'test cat description',
58
        enrolmentperiod => '12',
58
        enrolmentperiod => '12',
59
        category_type   => 'A'
59
        category_type   => 'A'
Lines 206-213 sub fill_form { Link Here
206
206
207
sub cleanup {
207
sub cleanup {
208
    my $dbh = C4::Context->dbh;
208
    my $dbh = C4::Context->dbh;
209
    $dbh->do(q|DELETE FROM categories WHERE categorycode = ?|, {}, $sample_data->{category}{categorycode});
210
    $dbh->do(q|DELETE FROM borrowers WHERE userid = ?|, {}, $sample_data->{patron}{userid});
209
    $dbh->do(q|DELETE FROM borrowers WHERE userid = ?|, {}, $sample_data->{patron}{userid});
210
    $dbh->do(q|DELETE FROM categories WHERE categorycode = ?|, {}, $sample_data->{category}{categorycode});
211
    for my $i ( 1 .. $number_of_biblios_to_insert ) {
211
    for my $i ( 1 .. $number_of_biblios_to_insert ) {
212
        $dbh->do(qq|DELETE FROM biblio WHERE title = "test biblio $i"|);
212
        $dbh->do(qq|DELETE FROM biblio WHERE title = "test biblio $i"|);
213
    };
213
    };
214
- 

Return to bug 18982