From 9bbcaf3cdc2567da936c2a4807345e0fa1f54aee Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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 <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Andrei <acovaliov@gmail.com>
---
 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 e260268..cbe36aa 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.7.4