projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
work on e-journals catalog
[webpac2]
/
vhost
/
ecas
/
html.pm
diff --git
a/vhost/ecas/html.pm
b/vhost/ecas/html.pm
index
1e417c0
..
0567050
100644
(file)
--- a/
vhost/ecas/html.pm
+++ b/
vhost/ecas/html.pm
@@
-5,19
+5,19
@@
use warnings;
sub url {
my ($self,$url) = @_;
sub url {
my ($self,$url) = @_;
- qq{ <a href="$url">
$url
</a> };
+ qq{ <a href="$url">
Pristup iz ustanove
</a> };
}
sub urlp {
my ($self,$urlp) = @_;
my $proxy = $urlp;
$proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/000100A/http/};
}
sub urlp {
my ($self,$urlp) = @_;
my $proxy = $urlp;
$proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/000100A/http/};
- qq{ <a href="$proxy">
za korisnike Knjižnice FF-a
</a> };
+ qq{ <a href="$proxy">
Pristup od kuće
</a> };
}
sub urlf {
my ($self,$urlf) = @_;
}
sub urlf {
my ($self,$urlf) = @_;
- qq{ <a href="$urlf">
$urlf
</a> };
+ qq{ <a href="$urlf">
Slobodni pristup
</a> };
}
#sub publisher {
# my ($self,$publisher) = @_;
}
#sub publisher {
# my ($self,$publisher) = @_;