View | Details | Raw Unified | Return to bug 19243
Collapse All | Expand All

(-)a/t/lib/Selenium.pm (-5 / +7 lines)
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
- 

Return to bug 19243