sub url {
my ($self,$url) = @_;
- qq{<a href="$url">$url</a>};
+ qq{ <a href="$url">$url</a> };
}
-sub publisher {
- my ($self,$publisher) = @_;
- qq{<a href="?search=$publisher">$publisher</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">za korisnike Knjižnice FF-a</a> };
}
+sub urlf {
+ my ($self,$urlf) = @_;
+ qq{ <a href="$urlf">$urlf</a> };
+}
+#sub publisher {
+# my ($self,$publisher) = @_;
+# qq{<a href="?search=$publisher">$publisher</a>};
+#}
+
1;