vhost/ecas/html.pm

package ecas::html;

use strict;
use warnings;

sub url {
        my ($self,$url) = @_;
        qq{ <a href="$url">Pristup iz ustanove</a> };
}

sub urlp {
        my ($self,$urlp) = @_;
        my $proxy = $urlp;
        $proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/000100A/http/};
        qq{ <a href="$proxy">Pristup od kuće</a> };
}

sub urlf {
        my ($self,$urlf) = @_;
        qq{ <a href="$urlf">Slobodni pristup</a> };
}
#sub publisher {
#       my ($self,$publisher) = @_;
#       qq{<a href="?search=$publisher">$publisher</a>};
#}

1;
1	dpavlin	1137	package ecas::html;
2
3			use strict;
4			use warnings;
5
6			sub url {
7			my ($self,$url) = @_;
8	mglavica	1261	qq{ <a href="$url">Pristup iz ustanove</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	mglavica	1261	qq{ <a href="$proxy">Pristup od kuće</a> };
16	mglavica	1172	}
17
18	mglavica	1251	sub urlf {
19			my ($self,$urlf) = @_;
20	mglavica	1261	qq{ <a href="$urlf">Slobodni pristup</a> };
21	mglavica	1251	}
22			#sub publisher {
23			# my ($self,$publisher) = @_;
24			# qq{<a href="?search=$publisher">$publisher</a>};
25			#}
26
27	dpavlin	1137	1;