+sub ptags {
+ my ( $package, @tags ) = @_;
+ my $str = "";
+
+ $str .= "<div id=\"ptags\">\n<p>";
+ $str .= "<a href=\"http://debtags.alioth.debian.org/cgi-bin/edit.cgi?pkg=".uri_escape($package)."\">Tags</a>:\n";
+ foreach my $tag (@tags) {
+ $str .= "<a href=\"http://debtags.alioth.debian.org/cgi-bin/index.cgi?tags=".uri_escape($tag)."\">$tag</a>\n";
+ }
+ $str .= "</p>\n</div> <!-- end ptags -->\n";
+
+ return $str;
+}
+