% include( 'elements/browse.html',
'title' => 'Tags',
'name_singular' => 'tag',
'menubar' => [ 'Add a new tag' =>
$p.'edit/part_tag.html',
],
'query' => { 'table' => 'part_tag', },
'count_query' => 'SELECT COUNT(*) FROM part_tag',
'header' => [ 'Tag', 'Message', ],
'fields' => [ 'tagname', 'tagdesc', ],
'links' => [ $link, '', ],
'cell_style' => [ '', $tagdesc_style ],
'disableable' => 1,
'disabled_statuspos' => 1,
)
%>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
my $tagdesc_style = sub { 'background-color:#'.shift->tagcolor };
my $link = [ "${p}edit/part_tag.html?", 'tagnum' ];
%init>