# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Kategorienliste
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub topcat {
$sektionstitel = "Verwaltung der Shopmenütopkategorien";

&Headerout;
print &tparser("$cgipfad/templates/user/header.html");
print &tparser("$cgipfad/templates/user/contentkopf.html");

print qq~
<form action="$cgiverzeichnis/$progname" method="POST">
<input type=hidden name="aktion" value="topsubkat">
<input type=hidden name="go" value="shoptopkatsave">
<table width="100%" cellspacing="1" cellpadding="0" border="0" class="innen">
<tr>
    <td class="innend" colspan="2"><b>Neue Topkategorie eintragen</b></td>
</tr>
<tr>
    <td class="innenh" colspan="2"><b>Hinweise hierzu:</b><br>
Die hier anzulegenden Topkategorien trennen die einzelnen Artikelbereiche voneinander ab. Haben Sie z.B. einen Shop f&uuml;r Haushaltwaren so k&ouml;nnten die Topkategorien
z.B. "Geschirr, Besteck, T&ouml;pfe, Elektroger&auml;te usw." lauten. Zu diesen Topkategorien k&ouml;nnen Sie dann die entspechenden Unterkategorien erstellen. 	
	</td>
</tr>
<tr>
    <td class="innenh">Kategorientitel</td>
    <td class="innenh"><input class="mb" style="width: 260px;" size="30" type="Text" name="kattitel" maxlength="250"></td>
</tr>
<tr>
    <td class="innenh"><label for="akt"><b>Kategorie aktiv?</b></label> <input id="akt" type="checkbox" name="aktiv" value="1" checked></td>
    <td class="innenh"><input class="los" type="Submit" value="Eintrag speichern"></td>
</tr>
</table>
</form>
<br>
~;

# mid, shopid, mtitel, tid, rf, aktiv
my $shopmenues = $prefix . "shopmenues";
my $shopmenuessub = $prefix . "shopmenues";
$menutopquery = "SELECT a.mid, a.shopid, a.mtitel, a.tid, a.rf, a.aktiv, COUNT(b.tid) AS total
FROM $shopmenues a
LEFT JOIN $shopmenuessub b
ON 'a.mid' = b.tid
WHERE a.shopid = '$usersid' AND a.tid = '0'
GROUP BY a.mid
ORDER BY a.rf ASC";

my $sth = $dbh->prepare($menutopquery);
my $success  = $sth->execute or die DBI->errstr;
$summe = $success  eq "0E0" ?  0 : $success;

$stcount = 0;
while (my  @inhalt = $sth->fetchrow_array()){
if ($stcount != 0) {
$linkoutup = "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=reordup&amp;nr=$inhalt[4]&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/up.gif\" hspace=\"5\" width=15 height=15 border=0 alt=\"Eins nach oben\"></a>";
} else {
$linkoutup = "<img src=\"$htmlverz/misc/pixel.gif\" hspace=\"5\" width=15 height=15 border=0 alt=\"\">";
}
if ($stcount != ($summe-1)) {
$linkoutdown = "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=reorddown&amp;nr=$inhalt[4]&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/down.gif\" hspace=\"5\" width=15 height=15 border=0 alt=\"Eins nach unten\"></a>";
} else {
$linkoutdown = "<img src=\"$htmlverz/misc/pixel.gif\" hspace=\"5\" width=15 height=15 border=0 alt=\"\">";
}

$cssclass = $cssclass eq "innenh" ? "innenh2" : "innenh";
$aktiv_or_not = $inhalt[5] == 0 ? "<span class=\"tippred\">&bull;</span>" : "<span class=\"tippgreen\">&bull;</span>";


$trout .=qq~
<tr>
<td class="$cssclass" width="20" align="center">$linkoutup</td>
<td class="$cssclass" width="20" align="center">$linkoutdown</td>
<td class="$cssclass" width="20" align="center"><a href="$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=edittop&amp;id=$inhalt[0]"><img src="$htmlverz/misc/edit.gif" hspace="5" width=18 height=15 border=0 alt="Eintrag bearbeiten"></a></td>
<td class="$cssclass" width="100%">$aktiv_or_not $inhalt[2] [$inhalt[6]] <a href="$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=newsub&amp;id=$inhalt[0]"><span class="los"> Neue Subkategorie erstellen</span> </a></td>
<td class="$cssclass" width="20" align="center"><a href="$cgiverzeichnis/$progname?aktion=misc&amp;go=abtkatdel&amp;ps=$inhalt[0]&amp;back=topcat"><img src="$htmlverz/misc/sdel.gif" alt="Kategorie $inhalt[2] mit allen Daten l&ouml;schen" title="Kategorie $inhalt[2] mit allen Daten l&ouml;schen" width="17" height="16" border="0"></a></td>
<td class="$cssclass" width="20" align="center"><a href="$cgiverzeichnis/$progname?aktion=shopcontent&amp;go=pv&amp;seiten_titel=$inhalt[2]&amp;rubid=$inhalt[0]"><img src="$htmlverz/misc/sedit.gif" alt="Kategorie $inhalt[2] Content anlegen" title="Kategorie $inhalt[2] Content anlegen" width="17" height="16" border="0"></a></td>
</tr>
~;
$stcount++;
}

$trout = getcategories(0, 0);

print qq~
<table width="100%" cellspacing="1" cellpadding="0" border="0" class="innen">
<tr>
<td class="innend" colspan="6"><b>Kategorien:</b> Symbol <img src="$htmlverz/misc/edit.gif" hspace="2" width=18 height=15 border=0 alt="Eintrag bearbeiten"> klicken um Kategorien zu bearbeiten.</td>
</tr>
<tr>
<td class="innenh" colspan="6">&bull; <b>&#187;</b> <a href="$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=reordercounttop">Topkategorien neu z&auml;hlen</a> <b>&#171;</b> Nur n&ouml;tig wenn sich die Topkategorien nicht ordnen lassen, z.B. nach L&ouml;schaktionen</td>
</tr>
<tr>
<td class="innenh" colspan="6"><b>Legende:</b> <span class="tippred">&bull; Kategorie deaktiviert</span>  <span class="tippgreen">&bull; Kategorie aktiv</span> - [n] = Anzahl Artikel</td>
</tr>
</table>
~;

print $trout;

print &tparser("$cgipfad/templates/user/contentfuss.html");


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Kategorien mit angegebener ParentKategorie ausgeben (Rekursiv)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub getcategories 
{
	my $shopmenues = $prefix . "shopmenues";
	my $shopmenuessub = $prefix . "shopmenues";
	$menutopquery = "SELECT a.mid, a.shopid, a.mtitel, a.tid, a.rf, a.aktiv AS total
	FROM $shopmenues a
	WHERE a.shopid = '$usersid' AND a.tid = '".@_[0]."'
	ORDER BY a.rf ASC";

	my $sth = $dbh->prepare($menutopquery);
	my $success  = $sth->execute or die DBI->errstr;
	
	my $count = 0;
	
	my $tree = "";
	
	if (@_[1] == 0)
	{
		$tree .= "<table style=\"border: 0px; font-size: 12px; width: 100%;\">";
	}
	
	
	while (my  @inhalt = $sth->fetchrow_array())
	{
		my $artnrsql = "SELECT COUNT(*) AS number FROM ".$prefix."artikel WHERE subkat='$inhalt[0]'";
		my $artnrsth = $dbh->prepare($artnrsql);
		$artnrsth->execute or die DBI->errstr;
		my @artcount = $artnrsth->fetchrow_array();
		
		$aktiv_or_not = $inhalt[5] == 0 ? "<span class=\"tippred\">&bull;</span>" : "<span class=\"tippgreen\">&bull;</span>";
		
		
		if (@_[1] == 0)
		{
			if ($count % 2 == 0)
			{
				$tree .= "<tr><td style=\"background-color: #DDDDDD;\">";
			}
			else
			{
				$tree .= "<tr><td style=\"background-color: #CCCCCC;\">";
			}
			#$tree .= "<div id=\"subcats_".$inhalt[0]."\" style=\"color: #FF0000;\">";
		}
		elsif (@_[1] == 1)
		{
			#$tree .= "<div id=\"subcats_".$inhalt[0]."\" style=\"color: #0000FF;\">";
		}
		else
		{
			#$tree .= "<div id=\"subcats_".$inhalt[0]."\">";
		}
		
		$tree .= '<span style="width: 400px; float: right; text-align: right;">';
		$tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=catup&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/up.gif\" alt=\"Nach oben\" style=\"border: 0px;\" /></a> <a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=catdown&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/down.gif\" alt=\"Nach unten\" style=\"border: 0px;\" /></a> ";	
		$tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=editcat&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/edit.gif\" hspace=\"5\" width=18 height=15 border=0 alt=\"Kategorie bearbeiten\"></a>";
		$tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=delcat&amp;id=$inhalt[0]\" onclick=\"if (!confirm('Achtung: Sind sie sicher, dass sie diese Kategorie INKLUSIVE ALLER UNTERKATEGORIEN UND ARTIKEL löschen wollen ?')) { return false; }\"><img src=\"$htmlverz/misc/delkat.gif\" hspace=\"5\" border=0 alt=\"Kategorie löschen\"></a>";
		$tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=artikel&amp;go=artlist&amp;si=$inhalt[0]\"><img src=\"$htmlverz/misc/sedit.gif\" hspace=\"5\" width=116 height=16 border=0 alt=\"Artikelliste\"></a>";
		$tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=artikel&amp;go=newartikel&amp;si=$inhalt[0]\"><img src=\"$htmlverz/misc/snew.gif\" hspace=\"5\" width=96 height=16 border=0 alt=\"Einen neuen Artikel anlegen\"></a>";
              $tree .= '</span>';
		
		for ($i = 0; $i < @_[1]; $i++)
		{
			$tree .= "&nbsp;&nbsp;";
		}
		if ($inhalt[6] > 0)
		{
			$tree .= "";
		}
		else
		{
			$tree .= "&nbsp;"
		}
		$tree .= $aktiv_or_not;
		$tree .= "&nbsp;&nbsp;";
		$tree .= "[".$artcount[0]."]&nbsp;";
		$tree .= $inhalt[2];
		#$tree .= "</div>";
		$tree .= '<div style="clear: both;"></div>';
		$tree .= '<br />';
		$tree .= getcategories($inhalt[0], @_[1]+1);
		
		if (@_[1] == 0)
		{
			$tree .= "</td></tr>";
		}
		
		$count++;
	}
	
	if (@_[1] == 0)
	{
		$tree .= "</table>";
	}
	
	return $tree;
}