git.rot13.org Git - webpac2/blob - vhost/ecas/html.pm

   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;