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