<!--spmacro:module(verz)

my $index = 0;
my @subpages = ssp::get_subpages($ssp::pgid);

sub count {
     if ($index > $#subpages) {return;}
    my $count = _count ($subpages[$index]);
    main::mprint("Anzahl: $count");
   ++$index;
}

sub _count {
    $pgid = $_[0];
    my %pages = ();
    ssp::getChildCategoriesRecursive ($pgid, \%pages);
   
    my @keys = keys %pages;
 
    if ($#keys  == -1) {return 0;}   
 
    my $pre = ssp::db_get_prefix();
    my $TABLE = $pre . "ITEM";
   
    my $sqlstring = qq |SELECT COUNT(*) FROM $TABLE WHERE |;
    $sqlstring .= qq| PGID IN (|. join(",", @keys) .qq|)|;
           
    ssp::readSQLData($sqlstring, "COUNT");
    my $count = ssp::get_var_db("COUNT", 0);
    return($count);
   
}
-->

<div class="katlist">
<div>
<div class="kattitle">__titel__ __verz::count__</div>
<div class="image">__image__</div>
<div class="descr">__seite__</div>
<div class="floater">&nbsp;</div>
</div>
<div>
<div class="kattitle">__titel__  __verz::count__</div>
<div class="image">__image__</div>
<div class="descr">__seite__</div>
<div class="floater">&nbsp;</div>
</div>

u.s.w.