local configuration for ecas

[webpac2] / vhost / ecas / html.pm

diff --git a/vhost/ecas/html.pm b/vhost/ecas/html.pm
index faa8259..2be3264 100644 (file)
--- a/vhost/ecas/html.pm
+++ b/vhost/ecas/html.pm
@@ -8,4 +8,9 @@ sub url {
        qq{<a href="$url">$url</a>};
 }
 
+sub publisher {
+       my ($self,$publisher) = @_;
+       qq{<a href="?search=$publisher">$publisher</a>};
+}
+
 1;