|
Lines 14-26
BEGIN {
Link Here
|
| 14 |
} |
14 |
} |
| 15 |
|
15 |
|
| 16 |
|
16 |
|
| 17 |
my $CARDNUMBER = 'TESTCARD01'; |
17 |
my $CARDNUMBER = 'TESTCARD9999'; |
| 18 |
my $FIRSTNAME = 'Marie'; |
18 |
my $FIRSTNAME = 'Heidi'; |
| 19 |
my $SURNAME = 'Mcknight'; |
19 |
my $SURNAME = 'Tibbits'; |
| 20 |
my $CATEGORYCODE = 'S'; |
20 |
my $CATEGORYCODE = 'S'; |
| 21 |
my $BRANCHCODE = 's'; |
21 |
my $BRANCHCODE = 'CPL'; |
| 22 |
|
22 |
|
| 23 |
my $CHANGED_FIRSTNAME = "Marry Ann"; |
23 |
my $CHANGED_FIRSTNAME = "Heidelberg"; |
| 24 |
my $EMAIL = "Marie\@email.com"; |
24 |
my $EMAIL = "Marie\@email.com"; |
| 25 |
my $ETHNICITY = "German"; |
25 |
my $ETHNICITY = "German"; |
| 26 |
my $PHONE = "555-12123"; |
26 |
my $PHONE = "555-12123"; |
|
Lines 43-49
my @USERENV = (
Link Here
|
| 43 |
'Test', |
43 |
'Test', |
| 44 |
0, |
44 |
0, |
| 45 |
); |
45 |
); |
| 46 |
my $BRANCH_IDX = 5; |
46 |
my $BRANCH_IDX = 4; |
| 47 |
|
47 |
|
| 48 |
C4::Context->_new_userenv ('DUMMY_SESSION_ID'); |
48 |
C4::Context->_new_userenv ('DUMMY_SESSION_ID'); |
| 49 |
C4::Context->set_userenv ( @USERENV ); |
49 |
C4::Context->set_userenv ( @USERENV ); |
| 50 |
- |
|
|