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

Crian
 2004-01-12 11:18
#79069 #79069
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Probier mal diese Variante (mit Fehlerbehandlung (ggf. anpassen) und einigen anderen optischen Verschönerungen, der Fehler müsst aber noch drin sein :D (aber vielleicht ja auch nicht...)

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
63
64
65
sub erstelle_navs {
    my $insert_id = shift;
    my $parent    = shift;
    
    die "Undefinierte Parameter in Funktion erstelle_navs" unless defined $insert_id and defined $parent;
    die "Unsinniger Wert für \$parent '$parent'"           unless $parent    >= 0;
    die "Unsinniger Wert für \$insert_id '$insert_id'"     unless $insert_id >= 0;

    my $vnav      = get_template_bn('vnav');
    my $vnav_sub  = get_template_bn('vnav_sub');
    
    while ($parent >= 0) {
        # -- 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           = $parent == 0 ? "SELECT keyword, titel FROM seiten WHERE parent='$parent'"
                                         : "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 = $parent == 0 ? $vnav : $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
    
} #erstelle_navs
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

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