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 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 href="$proxy">Pristup od kuće</a> };
  16 }
  17
  18 sub urlf {
  19         my ($self,$urlf) = @_;
  20         qq{ <a href="$urlf">Slobodni pristup</a> };
  21 }
  22 #sub publisher {
  23 #       my ($self,$publisher) = @_;
  24 #       qq{<a href="?search=$publisher">$publisher</a>};
  25 #}
  26
  27 1;