Learn to read Perl!
No, really, I'm serious.
Let's take a look at this code.
if ($vars_display{author_post_total} eq 'yes') {
$post_total_line = qq( $vars_wordlets{author_posts} $vars_config{'jc'}->{'no-b'}$user_profile[7]$vars_config{'jc'}->{'no-b-close'} );
push (@author_extra, $post_total_line);
}
(This is as of 6.2.2 - your code will lack the $vars_config{jc} bits)
This code checks the value of the author_post_total entry in the %vars_config list (hash)... if it's "yes", then it creates a variable containing some text and pushes it into a list (@author_extra)...
There are a few more of those above and below.
Finally comes
if ($author_extra[0]) {
$AuthorExtra = join ("|", @author_extra);
} else {
$AuthorExtra = '';
}
So the @author_extra list is joined together using a pipe character to seperate each entry, then that is stuck in the variable $AuthorExtra.
What you want to do is:
- Change the sequence that joins the entries together from a pipe to something like "
"
- Move the location of $AuthorExtra in public_topic_page from the bottom of each post to wherever you desire it.
