5 |
|
|
6 |
sub url { |
sub url { |
7 |
my ($self,$url) = @_; |
my ($self,$url) = @_; |
8 |
qq{<a href="$url">$url</a>}; |
qq{ <a href="$url">$url</a> }; |
9 |
} |
} |
10 |
|
|
11 |
sub publisher { |
sub urlp { |
12 |
my ($self,$publisher) = @_; |
my ($self,$urlp) = @_; |
13 |
qq{<a href="?search=$publisher">$publisher</a>}; |
my $proxy = $urlp; |
14 |
|
$proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/000100A/http/}; |
15 |
|
qq{ <a href="$proxy">za korisnike Knjižnice FF-a</a> }; |
16 |
} |
} |
17 |
|
|
18 |
|
sub urlf { |
19 |
|
my ($self,$urlf) = @_; |
20 |
|
qq{ <a href="$urlf">$urlf</a> }; |
21 |
|
} |
22 |
|
#sub publisher { |
23 |
|
# my ($self,$publisher) = @_; |
24 |
|
# qq{<a href="?search=$publisher">$publisher</a>}; |
25 |
|
#} |
26 |
|
|
27 |
1; |
1; |