|
Lines 22-28
$dbh->{RaiseError} = 1;
Link Here
|
| 22 |
my %data = ( |
22 |
my %data = ( |
| 23 |
firstname => 'my firstname', |
23 |
firstname => 'my firstname', |
| 24 |
surname => 'my surname', |
24 |
surname => 'my surname', |
| 25 |
categorycode => 'PT', |
25 |
categorycode => 'UT', |
| 26 |
branchcode => 'UT', |
26 |
branchcode => 'UT', |
| 27 |
cardnumber => 'ilsdi-cardnumber', |
27 |
cardnumber => 'ilsdi-cardnumber', |
| 28 |
userid => 'ilsdi-userid', |
28 |
userid => 'ilsdi-userid', |
|
Lines 30-40
my %data = (
Link Here
|
| 30 |
); |
30 |
); |
| 31 |
|
31 |
|
| 32 |
# Crate patron category |
32 |
# Crate patron category |
| 33 |
unless ( GetBorrowercategory('PT') ) { |
33 |
unless ( GetBorrowercategory('UT') ) { |
| 34 |
$dbh->do("INSERT INTO categories |
34 |
$dbh->do("INSERT INTO categories |
| 35 |
(categorycode,description,enrolmentperiod,upperagelimit,enrolmentfee,overduenoticerequired,reservefee,category_type,default_privacy) |
35 |
(categorycode,description,enrolmentperiod,upperagelimit,enrolmentfee,overduenoticerequired,reservefee,category_type,default_privacy) |
| 36 |
VALUES |
36 |
VALUES |
| 37 |
('PT','Unit tester',99,99,0.000000,1,0.000000,'C','default');"); |
37 |
('UT','Unit tester',99,99,0.000000,1,0.000000,'C','default');"); |
| 38 |
} |
38 |
} |
| 39 |
|
39 |
|
| 40 |
# Create branch |
40 |
# Create branch |