example search for Koha database

[webpac2] / vhost / koha / html.pm

diff --git a/vhost/koha/html.pm b/vhost/koha/html.pm
index 9aabf1e..73f705b 100644 (file)
--- a/vhost/koha/html.pm
+++ b/vhost/koha/html.pm
@@ -12,7 +12,9 @@ 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>|;
+       my $responsibility = $1 if $title =~ s{(\s+/\s+.+)$}{};
+
+       qq|<a target="koha.ffzg.hr" href="http://koha.ffzg.hr/cgi-bin/koha/opac-detail.pl?biblionumber=$biblionumber">$title</a>$responsibility|;
 }
 
 1;