bartjol: "I altered it slightly, so you can/must also give a parameter userId, so you can also dislpay karma in posts or profiles. Mind that for using the last parameter (userId) the alternate text should be purposely left empty or filled in:


package WebGUI::Macro::KarmaUser;

=head1 DESCRIPTION

Macro for displaying the amount of karma the current user has

=head2 process

=head3 text

The text to be displayed to the user.  The text will be processed by
sprintf, using %d to represent the integer karma.

=cut

use WebGUI::User;

#-------------------------------------------------------------------
sub process {
       my $session = shift;
       my $text = shift;
       my $userId = shift || $session->user->userId;
       my $user = WebGUI::User->new($session,$userId);
my $i18n = WebGUI::International->new($session, 'Macro_Karma');
       $text = $text || $i18n->get('karma message');
       return sprintf($text, $user->karma);
}

1;
"