<!--spmacro:module(Callback)
sub get_catalog_markup {
    $level = $_[0];
    $selecetd = $_[1];
    $first = $_[2];
    $last = $_[3];
    $link = $_[4];
    $title = $_[5];

    my $class = ("menu" . ($level));
                if ($selecetd) {   $class =~ s/menu/msel/; }			
	
    my $out = qq|<a href="$link" class="$class">$title</a>\n|;

    if ($link =~ /.*\?show(\d+),\d+$/) {
        my $pgid = $1;
        if ($pgid == $ssp::pgid) {
            ## Diese Seite ist selektiert!!!
            ## Also alle Artikel unterhalb dieser Seite auslesen und ausgeben durch anhängen an $out          
            my $ditemid = '';
            if ($main::ARGV[0] =~ /^showd/) {
                $ditemid = ssp::get_var_article('itemid', 0);
            }
            
            my $ITEM = ssp::db_get_prefix() . "ITEM";
            my $sql = qq|SELECT ITEMID, DESCR FROM $ITEM WHERE PGID=$pgid AND XISLINK=0 ORDER BY SID|;
            my $readitems = ssp::readSQLData($sql, "ITEMID", "DESCR");
            
            ## Artikel unterhalb der Seite anzeigen
            for (my $j = 0; $j < $readitems; $j++) {
                my $itemid = ssp::get_var_db("ITEMID", $j);
                my $descr = ssp::get_var_db("DESCR", $j);
 			           
                my $itemclass = "menu" . ($level+1);
                if ($itemid eq $ditemid) {
                    ## Falls aktuell angezeigt Detailseite: hervorheben!
                    $itemclass =~ s/menu/msel/;
                }
                $out .= qq|<a class="$itemclass" href="$ssp::xxpath?showd$pgid!0,$ssp::xxsession,$itemid">$descr</a> \n|;
            }
        }
    }

    return $out;
}
-->