Thread Datenbankabfrage dauert ewig (5 answers)
Opened by jerrylewis at 2010-12-27 16:12

jerrylewis
 2010-12-27 16:12
#143839 #143839
User since
2010-12-27
1 Artikel
BenutzerIn
[default_avatar]
Hallo Gemeinde

Ich habe ein Scriptteil, dass beim öffnen ewig dauert, die Datenbank auszulesen.
Es betrifft 2 Subs die gemeinsam aufgerufen werden um eine Kategorie Liste eines Shopservers aufzurufen.

Habt ihr vielleicht eine Idee , wo mein Fehler liegt oder was ich optimieren kann ?

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# 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;
}


Hoffentlich könnt ihr mir helfen

Viele Grüße
jerry
Last edited: 2010-12-27 16:33:40 +0100 (CET)

View full thread Datenbankabfrage dauert ewig