|
Lines 44-50
my $file =
Link Here
|
| 44 |
my $user = $ENV{KOHA_USER} || $xml->{config}->{user}; |
44 |
my $user = $ENV{KOHA_USER} || $xml->{config}->{user}; |
| 45 |
my $password = $ENV{KOHA_PASS} || $xml->{config}->{pass}; |
45 |
my $password = $ENV{KOHA_PASS} || $xml->{config}->{pass}; |
| 46 |
my $intranet = $ENV{KOHA_INTRANET_URL}; |
46 |
my $intranet = $ENV{KOHA_INTRANET_URL}; |
| 47 |
my $opac = $ENV{KOHA_OPAC_URL}; |
|
|
| 48 |
|
47 |
|
| 49 |
BAIL_OUT("You must set the environment variable KOHA_INTRANET_URL to ". |
48 |
BAIL_OUT("You must set the environment variable KOHA_INTRANET_URL to ". |
| 50 |
"point this test to your staff client. If you do not have ". |
49 |
"point this test to your staff client. If you do not have ". |
|
Lines 52-58
BAIL_OUT("You must set the environment variable KOHA_INTRANET_URL to ".
Link Here
|
| 52 |
"your username and password") unless $intranet; |
51 |
"your username and password") unless $intranet; |
| 53 |
|
52 |
|
| 54 |
$intranet =~ s#/$##; |
53 |
$intranet =~ s#/$##; |
| 55 |
$opac =~ s#/$##; |
|
|
| 56 |
|
54 |
|
| 57 |
my $agent = Test::WWW::Mechanize->new( autocheck => 1 ); |
55 |
my $agent = Test::WWW::Mechanize->new( autocheck => 1 ); |
| 58 |
my $jsonresponse; |
56 |
my $jsonresponse; |
| 59 |
- |
|
|