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	dpavlin	1239	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	mglavica	1252	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	dpavlin	1239	}
19
20			1;