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 |
- |
|
|