|
Lines 32-41
use MARC::Record;
Link Here
|
| 32 |
use MARC::Field; |
32 |
use MARC::Field; |
| 33 |
|
33 |
|
| 34 |
my $dbh = C4::Context->dbh; |
34 |
my $dbh = C4::Context->dbh; |
| 35 |
my $login = 'koha'; |
35 |
my $login = $ENV{KOHA_USER} || 'koha'; |
| 36 |
my $password = 'koha'; |
36 |
my $password = $ENV{KOHA_PASS} || 'koha'; |
| 37 |
my $base_url= 'http://'.C4::Context->preference("staffClientBaseURL")."/cgi-bin/koha/"; |
37 |
my $staff_client_base_url = |
| 38 |
my $opac_url= C4::Context->preference("OPACBaseURL"); |
38 |
$ENV{KOHA_INTRANET_URL} || C4::Context->preference("staffClientBaseUrl") || q{}; |
|
|
39 |
my $base_url= $staff_client_base_url . "/cgi-bin/koha/"; |
| 40 |
my $opac_url = $ENV{KOHA_OPAC_URL} || C4::Context->preference("OPACBaseURL") || q{}; |
| 39 |
|
41 |
|
| 40 |
my $number_of_biblios_to_insert = 3; |
42 |
my $number_of_biblios_to_insert = 3; |
| 41 |
our $sample_data = { |
43 |
our $sample_data = { |
|
Lines 120-126
END {
Link Here
|
| 120 |
|
122 |
|
| 121 |
sub auth { |
123 |
sub auth { |
| 122 |
my ( $driver, $login, $password) = @_; |
124 |
my ( $driver, $login, $password) = @_; |
| 123 |
fill_form( $driver, { userid => 'koha', password => 'koha' } ); |
125 |
fill_form( $driver, { userid => $login, password => $password } ); |
| 124 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
126 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
| 125 |
$login_button->submit(); |
127 |
$login_button->submit(); |
| 126 |
} |
128 |
} |
| 127 |
- |
|
|