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