5 |
|
|
6 |
sub url { |
sub url { |
7 |
my ($self,$url) = @_; |
my ($self,$url) = @_; |
8 |
qq{ <a href="$url">Pristup iz ustanove</a> }; |
qq{ <a target="ecas" href="$url">Pristup iz ustanove</a> }; |
9 |
} |
} |
10 |
|
|
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 href="$proxy">Pristup od kuće</a> }; |
qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> }; |
16 |
} |
} |
17 |
|
|
18 |
|
sub urlpe { |
19 |
|
my ($self,$urlpe) = @_; |
20 |
|
my $proxy = $urlpe; |
21 |
|
$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> }; |
23 |
|
} |
24 |
|
|
25 |
|
|
26 |
sub urlf { |
sub urlf { |
27 |
my ($self,$urlf) = @_; |
my ($self,$urlf) = @_; |
28 |
qq{ <a href="$urlf">Slobodni pristup</a> }; |
qq{ <a target="ecas" href="$urlf">Slobodni pristup</a> }; |
29 |
} |
} |
30 |
#sub publisher { |
#sub publisher { |
31 |
# my ($self,$publisher) = @_; |
# my ($self,$publisher) = @_; |