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://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/en/00/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://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy2.cgi/en/00/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
  31 sub urlebsco {
  32         my ($self,$urlebsco) = @_;
  33         my $shib = $urlebsco . '&authtype=shib';
  34         qq{ <a target="ecas" href="$shib">Pristup od kuće</a> };
  35 }
  36
  37 #sub publisher {
  38 #       my ($self,$publisher) = @_;
  39 #       qq{<a href="?search=$publisher">$publisher</a>};
  40 #}
  41
  42 1;