/[webpac2]/trunk/vhost/ecas/html.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/vhost/ecas/html.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1371 - (hide annotations)
Sun Jan 27 19:24:38 2013 UTC (11 years, 2 months ago) by dpavlin
File size: 754 byte(s)
vhost

1 dpavlin 1137 package ecas::html;
2    
3     use strict;
4     use warnings;
5    
6     sub url {
7     my ($self,$url) = @_;
8 mglavica 1350 qq{ <a target="ecas" href="$url">Pristup iz ustanove</a> };
9 dpavlin 1137 }
10    
11 mglavica 1251 sub urlp {
12     my ($self,$urlp) = @_;
13     my $proxy = $urlp;
14 dpavlin 1371 $proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/00/http/};
15 mglavica 1350 qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> };
16 mglavica 1172 }
17    
18 mglavica 1350 sub urlpe {
19     my ($self,$urlpe) = @_;
20     my $proxy = $urlpe;
21 dpavlin 1371 $proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/00/http/};
22 mglavica 1350 qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> };
23     }
24    
25    
26 mglavica 1251 sub urlf {
27     my ($self,$urlf) = @_;
28 mglavica 1350 qq{ <a target="ecas" href="$urlf">Slobodni pristup</a> };
29 mglavica 1251 }
30     #sub publisher {
31     # my ($self,$publisher) = @_;
32     # qq{<a href="?search=$publisher">$publisher</a>};
33     #}
34    
35 dpavlin 1137 1;

  ViewVC Help
Powered by ViewVC 1.1.26