Parent Directory | Revision Log
vhost
1 | dpavlin | 1137 | package ecas::html; |
2 | |||
3 | use strict; | ||
4 | use warnings; | ||
5 | |||
6 | sub url { | ||
7 | my ($self,$url) = @_; | ||
8 | mglavica | 1350 | qq{ <a target="ecas" href="$url">Pristup iz ustanove</a> }; |
9 | dpavlin | 1137 | } |
10 | |||
11 | mglavica | 1251 | sub urlp { |
12 | my ($self,$urlp) = @_; | ||
13 | my $proxy = $urlp; | ||
14 | dpavlin | 1371 | $proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/00/http/}; |
15 | mglavica | 1350 | qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> }; |
16 | mglavica | 1172 | } |
17 | |||
18 | mglavica | 1350 | sub urlpe { |
19 | my ($self,$urlpe) = @_; | ||
20 | my $proxy = $urlpe; | ||
21 | dpavlin | 1371 | $proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/00/http/}; |
22 | mglavica | 1350 | qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> }; |
23 | } | ||
24 | |||
25 | |||
26 | mglavica | 1251 | sub urlf { |
27 | my ($self,$urlf) = @_; | ||
28 | mglavica | 1350 | qq{ <a target="ecas" href="$urlf">Slobodni pristup</a> }; |
29 | mglavica | 1251 | } |
30 | #sub publisher { | ||
31 | # my ($self,$publisher) = @_; | ||
32 | # qq{<a href="?search=$publisher">$publisher</a>}; | ||
33 | #} | ||
34 | |||
35 | dpavlin | 1137 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |