vhost/ecas/html.pm

package ecas::html;

use strict;
use warnings;

sub url {
        my ($self,$url) = @_;
        qq{<a href="$url">$url</a>};
}

sub publisher {
        my ($self,$publisher) = @_;
        qq{<a href="?search=$publisher">$publisher</a>};
}

1;
1	dpavlin	1137	package ecas::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	mglavica	1172	sub publisher {
12			my ($self,$publisher) = @_;
13			qq{<a href="?search=$publisher">$publisher</a>};
14			}
15
16	dpavlin	1137	1;