example search for Koha database

[webpac2] / vhost / koha / html.pm

diff --git a/vhost/koha/html.pm b/vhost/koha/html.pm
new file mode 100644 (file)
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;