Lines 35-44
use MARC::Record;
Link Here
|
35 |
use MARC::Field; |
35 |
use MARC::Field; |
36 |
|
36 |
|
37 |
my $dbh = C4::Context->dbh; |
37 |
my $dbh = C4::Context->dbh; |
38 |
my $login = 'koha'; |
38 |
my $login = $ENV{KOHA_USER} || 'koha'; |
39 |
my $password = 'koha'; |
39 |
my $password = $ENV{KOHA_PASS} || 'koha'; |
40 |
my $base_url= 'http://'.C4::Context->preference("staffClientBaseURL")."/cgi-bin/koha/"; |
40 |
my $staff_client_base_url = |
41 |
my $opac_url= C4::Context->preference("OPACBaseURL"); |
41 |
$ENV{KOHA_INTRANET_URL} || C4::Context->preference("staffClientBaseUrl") || q{}; |
|
|
42 |
my $base_url= $staff_client_base_url . "/cgi-bin/koha/"; |
43 |
my $opac_url = $ENV{KOHA_OPAC_URL} || C4::Context->preference("OPACBaseURL") || q{}; |
42 |
|
44 |
|
43 |
my $number_of_biblios_to_insert = 3; |
45 |
my $number_of_biblios_to_insert = 3; |
44 |
our $sample_data = { |
46 |
our $sample_data = { |
Lines 52-59
our $sample_data = {
Link Here
|
52 |
surname => 'test_patron_surname', |
54 |
surname => 'test_patron_surname', |
53 |
cardnumber => '4242424242', |
55 |
cardnumber => '4242424242', |
54 |
userid => 'test_username', |
56 |
userid => 'test_username', |
55 |
password => 'password', |
57 |
password => 'Password123', |
56 |
password2 => 'password' |
58 |
password2 => 'Password123' |
57 |
}, |
59 |
}, |
58 |
}; |
60 |
}; |
59 |
|
61 |
|
Lines 131-137
END {
Link Here
|
131 |
|
133 |
|
132 |
sub auth { |
134 |
sub auth { |
133 |
my ( $driver, $login, $password) = @_; |
135 |
my ( $driver, $login, $password) = @_; |
134 |
fill_form( $driver, { userid => 'koha', password => 'koha' } ); |
136 |
fill_form( $driver, { userid => $login, password => $password } ); |
135 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
137 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
136 |
$login_button->submit(); |
138 |
$login_button->submit(); |
137 |
} |
139 |
} |
138 |
- |
|
|