git.rot13.org Git - webpac2/blob - vhost/koha/html.pm

   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;