From 60478e6544ddfd37dc82829f684c3837b534d146 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 25 Jul 2017 16:46:08 -0300 Subject: [PATCH] Bug 18982: category.categorycode must be uppercase Otherwise it is not selected in the dropdown list and the patron created does not belong to this category Signed-off-by: Jonathan Druart --- t/db_dependent/selenium/basic_workflow.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/selenium/basic_workflow.t b/t/db_dependent/selenium/basic_workflow.t index e2602686f6..cbe36aa86c 100644 --- a/t/db_dependent/selenium/basic_workflow.t +++ b/t/db_dependent/selenium/basic_workflow.t @@ -53,7 +53,7 @@ my $base_url= ( $ENV{KOHA_INTRANET_URL} || 'http://'.C4::Context->preference("st my $number_of_biblios_to_insert = 3; our $sample_data = { category => { - categorycode => 'test_cat', + categorycode => 'TEST_CAT', description => 'test cat description', enrolmentperiod => '12', category_type => 'A' @@ -206,8 +206,8 @@ sub fill_form { sub cleanup { my $dbh = C4::Context->dbh; - $dbh->do(q|DELETE FROM categories WHERE categorycode = ?|, {}, $sample_data->{category}{categorycode}); $dbh->do(q|DELETE FROM borrowers WHERE userid = ?|, {}, $sample_data->{patron}{userid}); + $dbh->do(q|DELETE FROM categories WHERE categorycode = ?|, {}, $sample_data->{category}{categorycode}); for my $i ( 1 .. $number_of_biblios_to_insert ) { $dbh->do(qq|DELETE FROM biblio WHERE title = "test biblio $i"|); }; -- 2.11.0