Thanks Webmaster.
sub {
#Editor Monitor Plug-in
my $tags = shift;
my $cat_id = $tags->{'ID'};
my $cat_db = $DB->table('Category');
my $parents = $cat_db->parents($cat_id);
push @$parents, $cat_id;
my $ed_db = $DB->table('Editors', 'Users');
my $sth = $ed_db->select ( GT::SQL::Condition->new('CategoryID', 'IN', $parents) );
return {} unless ($sth->rows);
# Make any formatting changes you need here.
my $output = qq~<font color="#FF3300" size="3"><b>Editors: </b></font> ~;
my @editors;
my %seen;
while (my $user = $sth->fetchrow_hashref) {
next if ($seen{$user->{Username}}++);
$output .= qq~
<a href="$CFG->{build_root_url}/editors/profiles/$user->{Username}.html">$user->{Username}</a>
~;
push @editors, $user;
}
#return { editors => $output, editors_loop => \@editors };
return $output;
}
http://www.iuni.com/...tware/web/index.html
Links Plugins
Code:
sub {
#Editor Monitor Plug-in
my $tags = shift;
my $cat_id = $tags->{'ID'};
my $cat_db = $DB->table('Category');
my $parents = $cat_db->parents($cat_id);
push @$parents, $cat_id;
my $ed_db = $DB->table('Editors', 'Users');
my $sth = $ed_db->select ( GT::SQL::Condition->new('CategoryID', 'IN', $parents) );
return {} unless ($sth->rows);
# Make any formatting changes you need here.
my $output = qq~<font color="#FF3300" size="3"><b>Editors: </b></font> ~;
my @editors;
my %seen;
while (my $user = $sth->fetchrow_hashref) {
next if ($seen{$user->{Username}}++);
$output .= qq~
<a href="$CFG->{build_root_url}/editors/profiles/$user->{Username}.html">$user->{Username}</a>
~;
push @editors, $user;
}
#return { editors => $output, editors_loop => \@editors };
return $output;
}
http://www.iuni.com/...tware/web/index.html
Links Plugins