vhost/ecas changes

[webpac2] / vhost / ecas / html.pm

diff --git a/vhost/ecas/html.pm b/vhost/ecas/html.pm
index 4014b3e..f2bfb7f 100644 (file)
--- a/vhost/ecas/html.pm
+++ b/vhost/ecas/html.pm
@@ -11,14 +11,14 @@ sub url {
 sub urlp {
        my ($self,$urlp) = @_;
        my $proxy = $urlp;
-       $proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/00/http/};
+       $proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/en/00/http/};
        qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> };
 }
 
 sub urlpe {
        my ($self,$urlpe) = @_;
        my $proxy = $urlpe;
-       $proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/00/http/};
+       $proxy =~ s{http://}{http://proxy.knjiznice.ffzg.hr/proxy/nph-proxy2.cgi/en/00/http/};
        qq{ <a target="ecas" href="$proxy">Pristup od kuće</a> };
 }
 
@@ -27,6 +27,13 @@ sub urlf {
        my ($self,$urlf) = @_;
        qq{ <a target="ecas" href="$urlf">Slobodni pristup</a> };
 }
+
+sub urlebsco {
+       my ($self,$urlebsco) = @_;
+       my $cpid = $urlebsco . '&authtype=cpid&custid=s4311509';
+       qq{ <a target="ecas" href="$cpid">Pristup od kuće</a> };
+}
+
 #sub publisher {
 #      my ($self,$publisher) = @_;
 #      qq{<a href="?search=$publisher">$publisher</a>};