use C4::Members qw/AddMember GetMember GetBorrowercategory/;
use C4::Branch;
-use CGI;
+use CGI qw ( -utf8 );
use Test::More tests => 15;
my %data = (
firstname => 'my firstname',
surname => 'my surname',
- categorycode => 'PT',
+ categorycode => 'UT',
branchcode => 'UT',
cardnumber => 'ilsdi-cardnumber',
userid => 'ilsdi-userid',
);
# Crate patron category
-unless ( GetBorrowercategory('PT') ) {
+unless ( GetBorrowercategory('UT') ) {
$dbh->do("INSERT INTO categories
(categorycode,description,enrolmentperiod,upperagelimit,enrolmentfee,overduenoticerequired,reservefee,category_type,default_privacy)
VALUES
- ('PT','Unit tester',99,99,0.000000,1,0.000000,'C','default');");
+ ('UT','Unit tester',99,99,0.000000,1,0.000000,'C','default');");
}
# Create branch