|
Lines 12-24
use Selenium::Waiter qw/wait_until/;
Link Here
|
| 12 |
use Try::Tiny; |
12 |
use Try::Tiny; |
| 13 |
|
13 |
|
| 14 |
my $dbh = C4::Context->dbh; |
14 |
my $dbh = C4::Context->dbh; |
| 15 |
my $login = 'koha'; |
15 |
my $login = $ENV{KOHA_USER} || 'koha'; |
| 16 |
my $password = 'koha'; |
16 |
my $password = $ENV{KOHA_PASS} || 'koha'; |
| 17 |
my $base_url= 'http://'.C4::Context->preference("staffClientBaseURL")."/cgi-bin/koha/"; |
17 |
my $staff_client_base_url = |
|
|
18 |
$ENV{KOHA_INTRANET_URL} || C4::Context->preference("staffClientBaseUrl") || q{}; |
| 19 |
my $base_url= $staff_client_base_url . "/cgi-bin/koha/"; |
| 20 |
my $opac_url = $ENV{KOHA_OPAC_URL} || C4::Context->preference("OPACBaseURL") || q{}; |
| 18 |
|
21 |
|
| 19 |
sub auth { |
22 |
sub auth { |
| 20 |
my ( $driver, $login, $password) = @_; |
23 |
my ( $driver, $login, $password) = @_; |
| 21 |
fill_form( $driver, { userid => 'koha', password => 'koha' } ); |
24 |
fill_form( $driver, { userid => $login, password => $password } ); |
| 22 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
25 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
| 23 |
$login_button->submit(); |
26 |
$login_button->submit(); |
| 24 |
} |
27 |
} |
| 25 |
- |
|
|