/[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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1251 by mglavica, Mon Jul 27 13:33:31 2009 UTC revision 1261 by mglavica, Tue Jul 28 22:52:43 2009 UTC
# Line 5  use warnings; Line 5  use warnings;
5    
6  sub url {  sub url {
7          my ($self,$url) = @_;          my ($self,$url) = @_;
8          qq{ <a href="$url">$url</a> };          qq{ <a href="$url">Pristup iz ustanove</a> };
9  }  }
10    
11  sub urlp {  sub urlp {
12          my ($self,$urlp) = @_;          my ($self,$urlp) = @_;
13          my $proxy = $urlp;          my $proxy = $urlp;
14          $proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/000100A/http/};          $proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/000100A/http/};
15          qq{ <a href="$proxy">za korisnike Knjižnice FF-a</a> };          qq{ <a href="$proxy">Pristup od kuće</a> };
16  }  }
17    
18  sub urlf {  sub urlf {
19          my ($self,$urlf) = @_;          my ($self,$urlf) = @_;
20          qq{ <a href="$urlf">$urlf</a> };          qq{ <a href="$urlf">Slobodni pristup</a> };
21  }  }
22  #sub publisher {  #sub publisher {
23  #       my ($self,$publisher) = @_;  #       my ($self,$publisher) = @_;
Legend:
Removed from v.1251  
changed lines
  Added in v.1261
  ViewVC Help
Powered by ViewVC 1.1.26