vhost/koha/html.pm

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

        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;
1	package koha::html;
2
3	use strict;
4	use warnings;
5
6	sub url {
7	my ($self,$url) = @_;
8	qq{<a href="$url">$url</a>};
9	}
10
11	sub title {
12	my ($self,$title,$data) = @_;
13	my $biblionumber = $data->{biblionumber} \|\| die; # title only without biblionumber
14
15	my $responsibility = $1 if $title =~ s{(\s+/\s+.+)$}{};
16
17	qq\|<a target="koha.ffzg.hr" href="http://koha.ffzg.hr/cgi-bin/koha/opac-detail.pl?biblionumber=$biblionumber">$title</a>$responsibility\|;
18	}
19
20	1;