|
Lines 34-41
use MARC::Record;
Link Here
|
| 34 |
use MARC::Field; |
34 |
use MARC::Field; |
| 35 |
|
35 |
|
| 36 |
my $dbh = C4::Context->dbh; |
36 |
my $dbh = C4::Context->dbh; |
| 37 |
my $login = 'koha_kohadev'; |
37 |
my $login = $ENV{KOHA_USER} || 'koha_kohadev'; |
| 38 |
my $password = 'password'; |
38 |
my $password = $ENV{KOHA_PASS} || 'password'; |
|
|
39 |
my $staff_client_base_url = |
| 40 |
$ENV{KOHA_INTRANET_URL} || C4::Context->preference("staffClientBaseUrl") || q{}; |
| 41 |
my $base_url= $staff_client_base_url . "/cgi-bin/koha/"; |
| 42 |
my $opac_url = $ENV{KOHA_OPAC_URL} || C4::Context->preference("OPACBaseURL") || q{}; |
| 39 |
|
43 |
|
| 40 |
our $sample_data = { |
44 |
our $sample_data = { |
| 41 |
category => { |
45 |
category => { |
|
Lines 48-55
our $sample_data = {
Link Here
|
| 48 |
surname => 'test_patron_surname', |
52 |
surname => 'test_patron_surname', |
| 49 |
cardnumber => '4242424242', |
53 |
cardnumber => '4242424242', |
| 50 |
userid => 'test_username', |
54 |
userid => 'test_username', |
| 51 |
password => 'password', |
55 |
password => 'Password123', |
| 52 |
password2 => 'password' |
56 |
password2 => 'Password123' |
| 53 |
}, |
57 |
}, |
| 54 |
}; |
58 |
}; |
| 55 |
|
59 |
|
|
Lines 182-189
END {
Link Here
|
| 182 |
|
186 |
|
| 183 |
sub auth { |
187 |
sub auth { |
| 184 |
my ( $driver, $login, $password) = @_; |
188 |
my ( $driver, $login, $password) = @_; |
| 185 |
fill_form( $driver, { userid => 'koha_kohadev', password => 'password' } ); |
189 |
fill_form( $driver, { userid => $login, password => $password } ); |
| 186 |
my $login_button = $driver->find_element_by_xpath('/html/body/div/div/div/form/fieldset/input'); |
190 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
| 187 |
$login_button->submit(); |
191 |
$login_button->submit(); |
| 188 |
} |
192 |
} |
| 189 |
|
193 |
|
| 190 |
- |
|
|