Thread do { $parent--; }while( $parent >= 0 ): geht nicht bei 0 (12 answers)
Opened by pktm at 2004-01-11 20:25

pktm
 2004-01-12 01:09
#79066 #79066
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
[quote=kabel,11.01.2004, 21:01]kabel@kabel:~$ perl
$parent = 0;
do { $parent--; print "dec\n"; } while( $parent >= 0 ) # do

dec
kabel@kabel:~$[/quote]
Hm, einegtlich wollte ich mir den Post sparen weil es so unsinnig umfangreich ist aber - der Fehler muss dann wohl irgendwo IN der Schleife liegen.
Und los:
Also ich habe da ein CMS-Administrationsscript wo man bis jetzt neue Seiten in ein CMS einfügen kann.
Da ich die Navigation des CMS mehrstufig machen wollte, also so, dass sich die Navigation bei einer angeklickten
Seite aufklappt und die dem Menupunkt zugeordneten Seiten anzeigt werden wird die Sache etwas komplizierter.
Die Sache ist so vorzustellen:
Man hat 3 Menupunkte, A B & C.
Unter B sollen jetzt aber auch noch die Seiten 1. 2. & 3. untergeordnet werden.
Wenn dann B angeklickt wird sollen 1. 2. und 3. angezeigt werden.
Man kann auch einstellen, ob eine Seite angezeigt wird.
Die Navigationen die bei jeder Seite angezeigt werden sollen werden in der DB hinterlegt (komplett, ich weis, ist
unschön, jedoch dauert das Erstellen der Navs sonst zu lange).
Die nachfolgende Sub aktualisiert nun alle Navs vom untersten Menupunkt aufsteigend duch alle Ebenen, wenn eine neue Seite
angelegt wird.
Also wenn man jetz folgende Struktur hat...
Code: (dl )
1
2
3
4
5
6
7
8
9
10
A
->A.1
->A.2
->A.3 (nicht angezeigt)
->->A.3.I
->->A.3.II
B
->B.1
->B.2
C


...dann fängt die Sub bei A.3.II an und arbeitet sich durch die ganze DB.
Das hat damit etwas zu tun, dass später Seiten unter mehrere Menupunkte eingetragen werden können sollen (richtig?)
und so alle betroffenen Navs geändert werden müssen.
Das durcharbeiten funktioniert so:
Man fängt bei der untersten Ebene der Seiten an und guckt, welche Seiten noch unter den Punkt untergeordnet werden
sollen, dem die aktuelle Seite untergeordnet wird.
Also beim Beispiel, wenn der Punkt A.3.II angelegt würde  würde die Sub im ersten Durchlauf (ich weis, es ist die Schleife...) die Navs für A.3.II & A.3.I
erstellen / aktualisieren.
Dann ginge es weiter zu A.3 wo dann die Navs von A.3, A.2 & A.1 geändert würden.
Jetzt mein Problem:
Kommt man in der obertsen Ebene an soll die Navigation für diese natürlich auch geändert werden (könnte ja sein,
dass man z.B. Seite D hinzugefügt hat).
Nur werden für die oberste Ebene die Navigationen nicht erstellt.
Das muss irgendwie and er Logik in der Schleife do { $parent--; }while( $parent >= 0 ) # do liegen.
Ich habe aber noch nicht raus wieso.

Code: (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
sub erstelle_navs {
    my $insert_id = shift;
    my $parent = shift;
    my $vnav = get_template_bn('vnav');
    my $vnav_sub = get_template_bn('vnav_sub');
    do {
        # -- ist die aktuelle Nummer überhaupt irgendwo als parent angegeben?
        my $cmd0 = "SELECT parent FROM seiten";
        my $sth0 = $dbh->prepare($cmd0) || die $dbh->errstr;
        my $rv0 = $sth->execute || die $dbh->errstr;
        if( $rv0 eq "0E0" ){
            last;
        }else{
            my $found = 0;
            while( my ($proveParent) = $sth0->fetchrow_array() ){
                if( $proveParent == $parent ){
                    $found = 1;
                }
            }
            unless( $found ){
                $parent--;
                next;
            }
        }
        # gibt an, dass was gemacht wurde
        $template->param( "error" => "seite erstellt ($parent)" );
        my $cmd = undef;
        if( $parent == 0 ){
            # oberste Ebene: visible egal, da visible nur für subnavs!
            $cmd = "SELECT keyword, titel FROM seiten WHERE parent='$parent'";
        }else{
            $cmd = "SELECT keyword, titel FROM seiten WHERE parent='$parent' and visible=1";
        }
        my $sth = $dbh->prepare($cmd) || die $dbh->errstr;
        my $rv = $sth->execute || die $dbh->errstr;
        my $vnav_template = undef;
        if ( $parent == 0 ){
            $vnav_template = $vnav;
        }else{
            $vnav_template = $vnav_sub;
        }
        my @rec_sites = (); # merken, für welche Seiten die Nav erstellt wird
        my $seiten = []; #array für LOOP-values
        while( my ($keyword, $titel) = $sth->fetchrow_array() ) {
            push @{ $seiten }, { "link" => $cgi->a( {href => $template->{relative_url} . "?action=$keyword" }, "$titel") };
            push @rec_sites, $titel;
        } # while( my ($keyword, $titel) = $sth->fetchrow_array() ) {
        $sth->finish();
        # dieselbe Nav für alle mit gleichem parent!
        my $vnav_zw_t = HTML::Template->new(arrayref => [$vnav_template], die_on_bad_params => 0, associate => [$template, $cgi] );
        $vnav_zw_t->param( "vnav" => $seiten );
        # insert
        foreach my $elem ( @rec_sites ) {
            my $cmd1 = "UPDATE seiten SET vnav=" . $dbh->quote( $vnav_zw_t->output() ) . " WHERE titel=" . $dbh->quote($elem);
            unless ($dbh->do($cmd1)) {
                die($dbh->errstr, "Error in executing Sql-Statement:\n\t$cmd1");
            }
        }
        $parent--;

    }while( $parent >= 0 ) # do
} #erstelle_navs
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread do { $parent--; }while( $parent >= 0 ): geht nicht bei 0