X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=vhost%2Fkoha%2Fhtml.pm;fp=vhost%2Fkoha%2Fhtml.pm;h=9aabf1e845b35621fb5d2a5d575b33161153b262;hb=3f2da5feb7a81fe92e484d2e691905ee2d97f4e9;hp=0000000000000000000000000000000000000000;hpb=5ebb6723e1fac31e01fc757c4472be1fddc64984;p=webpac2

diff --git a/vhost/koha/html.pm b/vhost/koha/html.pm
new file mode 100644
index 0000000..9aabf1e
--- /dev/null
+++ b/vhost/koha/html.pm
@@ -0,0 +1,18 @@
+package koha::html;
+
+use strict;
+use warnings;
+
+sub url {
+	my ($self,$url) = @_;
+	qq{<a href="$url">$url</a>};
+}
+
+sub title {
+	my ($self,$title,$data) = @_;
+	my $biblionumber = $data->{biblionumber} || die; # title only without biblionumber
+
+	qq|<a target="koha.ffzg.hr" href="http://koha.ffzg.hr/cgi-bin/koha/opac-detail.pl?biblionumber=$biblionumber">$title</a>|;
+}
+
+1;