|
Lines 33-38
my $itemtype = 'UT_DVD';
Link Here
|
| 33 |
my $frameworkcode = 'UTFW'; # frameworkcode is only 4 characters max! |
33 |
my $frameworkcode = 'UTFW'; # frameworkcode is only 4 characters max! |
| 34 |
my $branchcode = 'UT_BC'; |
34 |
my $branchcode = 'UT_BC'; |
| 35 |
my $av_category = 'AV_CAT_TEST'; |
35 |
my $av_category = 'AV_CAT_TEST'; |
|
|
36 |
my $category_code = 'PATRON_CAT'; |
| 36 |
our ($cleanup_needed); |
37 |
our ($cleanup_needed); |
| 37 |
|
38 |
|
| 38 |
SKIP: { |
39 |
SKIP: { |
|
Lines 159-181
SKIP: {
Link Here
|
| 159 |
main => 'doc3' |
160 |
main => 'doc3' |
| 160 |
} |
161 |
} |
| 161 |
); |
162 |
); |
| 162 |
$s->driver->accept_alert; |
163 |
$s->driver->accept_alert; # Accept the modal "Are you sure you want to delete this authorized value?" |
| 163 |
}; |
164 |
}; |
| 164 |
|
165 |
|
| 165 |
{ #Patron categories |
166 |
{ # Patron categories |
| 166 |
$driver->get($mainpage); |
167 |
$driver->get($mainpage); |
| 167 |
$s->click( { href => '/admin/categories.pl', main => 'doc3' } ); #Koha administration |
168 |
$s->click( { href => '/admin/admin-home.pl', main => 'container-main' } ); # Koha administration |
| 168 |
$s->click( { href => '/admin/categories.pl?op=add_form', main => 'doc' } ); #New patron category |
169 |
$s->click( { href => '/admin/categories.pl', main => 'doc' } ); # Patron categories |
|
|
170 |
$s->click( { href => '/admin/categories.pl?op=add_form', main => 'doc3' } ); # New patron category |
| 169 |
|
171 |
|
| 170 |
$s->fill_form( { categorycode => 'Test', description => 'Test category', enrolmentperiod => 12, category_type => 'Adult' } ); |
172 |
$s->fill_form( { categorycode => $category_code, description => 'Test category', enrolmentperiod => 12, category_type => 'A' } ); |
| 171 |
$s->submit_form; |
173 |
$s->submit_form; |
| 172 |
|
174 |
|
| 173 |
$s->click( |
175 |
$s->click( |
| 174 |
{ |
176 |
{ |
| 175 |
href => '/admin/categories.pl?op=delete_confirm&categorycode=TEST', |
177 |
href => '/admin/categories.pl?op=delete_confirm&categorycode=' . $category_code, |
| 176 |
main => 'doc3' |
178 |
main => 'doc3' |
| 177 |
} |
179 |
} |
| 178 |
); |
180 |
); # Delete button |
|
|
181 |
|
| 182 |
$s->submit_form; # Delete this category |
| 183 |
|
| 184 |
# TODO Make sure the category has been deleted |
| 179 |
}; |
185 |
}; |
| 180 |
|
186 |
|
| 181 |
$driver->quit(); |
187 |
$driver->quit(); |
|
Lines 191-194
sub cleanup {
Link Here
|
| 191 |
$dbh->do(q|DELETE FROM biblio_framework WHERE frameworkcode=?|, undef, $frameworkcode); |
197 |
$dbh->do(q|DELETE FROM biblio_framework WHERE frameworkcode=?|, undef, $frameworkcode); |
| 192 |
$dbh->do(q|DELETE FROM branches WHERE branchcode=?|, undef, $branchcode); |
198 |
$dbh->do(q|DELETE FROM branches WHERE branchcode=?|, undef, $branchcode); |
| 193 |
$dbh->do(q|DELETE FROM authorised_value_categories WHERE category_name=?|, undef, $av_category); |
199 |
$dbh->do(q|DELETE FROM authorised_value_categories WHERE category_name=?|, undef, $av_category); |
|
|
200 |
$dbh->do(q|DELETE FROM categories WHERE categorycode=?|, undef, $category_code); |
| 194 |
} |
201 |
} |
| 195 |
- |
|
|