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 |
- |
|
|