11 |
sub urlp { |
sub urlp { |
12 |
my ($self,$urlp) = @_; |
my ($self,$urlp) = @_; |
13 |
my $proxy = $urlp; |
my $proxy = $urlp; |
14 |
$proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/000100A/http/}; |
$proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/00/http/}; |
15 |
qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> }; |
qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> }; |
16 |
} |
} |
17 |
|
|
18 |
sub urlpe { |
sub urlpe { |
19 |
my ($self,$urlpe) = @_; |
my ($self,$urlpe) = @_; |
20 |
my $proxy = $urlpe; |
my $proxy = $urlpe; |
21 |
$proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy2.cgi/000100A/http/}; |
$proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/00/http/}; |
22 |
qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> }; |
qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> }; |
23 |
} |
} |
24 |
|
|