quote:
[qb]Originally posted by Dibrus:
Zudem würde ich gerne auf der Hauptseite über Who`s Onle sehen können, ob neine persönliche Nachrichten im Profil vorhanden sind. [/qb]

code:
[qb]

Code

in der public_forum_summary.pl:
 
#####
# vor "sub Normal_Table_Row" den folgenden Code einfügen
#####
 
sub Cat_Row2 {
 
    my $row = qq~
<TR bgcolor="$vars_style{CategoryStripColor}">
<TD colspan="3">
<a href="$ULTIMATEBB?category=$thisforumcategory"><FONT SIZE="$vars_style{TextSize}" 
FACE="$vars_style{FontFace}" Color="$vars_style{CategoryStripTextColor}"><B>$CategoryName</B></FONT></a>
</TD>
<TD align="left" colspan="3">
<b><FONT SIZE="$vars_style{TextSize}" FACE="$vars_style{FontFace}" 
Color="$vars_style{CategoryStripTextColor}">$forum_count Foren in dieser Kategorie</font></b>
</TD></tr>
~;
 
    return ($row);
}    # end cat row
 
 
###
 
 
 
in der Datei "ubb_forum_summary.pl"
 
#####
# suche den folgenden Code
#####
 
    for $each (@forumlist) {
        undef($msg_icon2);
        undef($msg_icon);

        @thisforuminfo = split (/|^|/, $each);
        chomp($thisforuminfo[8]);
        $x = "$thisforuminfo[8]";
 
####
# füge danach den folgenden Code ein:
####

##
#   Check Category
##
 
if ($thisforuminfo[0] == $vars_config{short_cat_number}) {
    if (!$catAdd) {
        $catAdd     = 1;
        
        @cats       = sort(@CATEGORIES);
        @forum_list = @forumlist;
        
        # set row color
        $cat_color = "$vars_style{AltColumnColor1}";
    
        ($cat_order, $cat_name, $cat_number) = split (/|^|/, $cats[$vars_config{short_cat_number} - 1]);
        chomp($cat_number);
        $forum_count = 0;
        
        $CategoryName = &GetCatName($vars_config{short_cat_number});
        
        #sift forums
        foreach $k (@forum_list) {
            if ($k =~ /^$cat_number|/) {
                @this_match = split (/|^|/, $k);
                if ($this_match[3] eq 'On') {
                    $forum_count++;
                }
            }
        }
        
        if ($forum_count > 0) {
            $ThisHTML .= &Cat_Row2;  #patch courtesy Cal
            $cat_color = ($cat_color eq $vars_style{AltColumnColor1})?$vars_style{AltColumnColor2}:$vars_style{AltColumnColor1};
        }
    }
    
    next;
} 
 
 
####
 
in der Datei "var_config.cgi" muss die folgende Datei eingefügt werden:
 
    short_cat_number => q~3~,

[/qb]

quote:
[qb]Originally posted by Dibrus:
Wird das in die letzte Zeile gepackt?

Ich bekomme zumindest nen EOF Fehler, wenn ich das uppe. [/qb]