vhost/ecas/html.pm

package ecas::html;

use strict;
use warnings;

sub url {
        my ($self,$url) = @_;
        qq{ <a target="ecas" 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 target="ecas" href="$proxy">Pristup od kuće</a> };
}

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


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

1;
1	package ecas::html;
2
3	use strict;
4	use warnings;
5
6	sub url {
7	my ($self,$url) = @_;
8	qq{ <a target="ecas" href="$url">Pristup iz ustanove</a> };
9	}
10
11	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 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://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy2.cgi/000100A/http/};
22	qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> };
23	}
24
25
26	sub urlf {
27	my ($self,$urlf) = @_;
28	qq{ <a target="ecas" href="$urlf">Slobodni pristup</a> };
29	}
30	#sub publisher {
31	# my ($self,$publisher) = @_;
32	# qq{<a href="?search=$publisher">$publisher</a>};
33	#}
34
35	1;