Parent Directory | Revision Log
e-journals catalog configuration files
1 | dpavlin | 1137 | package ecas::html; |
2 | |||
3 | use strict; | ||
4 | use warnings; | ||
5 | |||
6 | sub url { | ||
7 | my ($self,$url) = @_; | ||
8 | mglavica | 1251 | qq{ <a href="$url">$url</a> }; |
9 | dpavlin | 1137 | } |
10 | |||
11 | mglavica | 1251 | sub urlp { |
12 | my ($self,$urlp) = @_; | ||
13 | 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 | mglavica | 1172 | } |
17 | |||
18 | mglavica | 1251 | 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 | dpavlin | 1137 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |