Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Datenbanken und Verzeichnisdienste
[thread]3509[/thread]

suchen und vergleichen (Seite 12)



<< |< 1 ... 9 10 11 12 13 >| >> 125 Einträge, 13 Seiten
Kathrin
 2005-01-18 10:27
#32763 #32763
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
ja hab ich. esskar ich hab mir noch gestern überlegt, eigentlich brauch ich doch da gar keine neue select anweisung.
Code: (dl )
1
2
3
4
5
6
7
8
9
foreach my $ptr (@{$daten})     
        {
        print '<tr>';
        print '<td>'.$ptr->{doctyp}.'</td>
                <td>'.$ptr->{docname}.'</td>
                <td>'.$ptr->{head}.'</td>
                <td><a href="/cgi-bin/frontl.cgi?auswahl=1;identnr="$identnr";docname="$ptr->{docname}" >Auswählen</a></td>
                </tr>';
        }

die daten sind doch schon in @daten oder etwa nicht?
ich müsste nur einen index mitlaufen lassen, und dann je nach auswahl aus dem array holen...
und? was sagst du?\n\n

<!--EDIT|Kathrin|1106036866-->
renee
 2005-01-18 10:29
#32764 #32764
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Nein, schau Dir mal genau an, was esskar geschrieben hat, und was Du geschrieben hast...

Durch die ' in Deinen print-Anweisungen werden die Variablen nicht interpoliert (ersetzt)... Übernehme esskars Code am besten per Copy & paste...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
esskar
 2005-01-18 10:30
#32765 #32765
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=Kathrin,18.01.2005, 09:27]die daten sind doch schon in @daten oder etwa nicht?
ich müsste nur einen index mitlaufen lassen, und dann je nach auswahl aus dem array holen...
und? was sagst du?[/quote]
klar.... das geht!
gut! :)\n\n

<!--EDIT|esskar|1106037068-->
Kathrin
 2005-01-18 10:31
#32766 #32766
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
nein nein ich hab noch ein bisschen vorhin rumgespielt...
esskar
 2005-01-18 10:37
#32767 #32767
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=Kathrin,18.01.2005, 09:31]nein nein ich hab noch ein bisschen vorhin rumgespielt...[/quote]
schreib es genauso ich es gemacht hab; dann geht es!
Kathrin
 2005-01-18 10:50
#32768 #32768
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
stimmt so geht es...
hmm kann ich auf ein Array nur mit den Indexzahlen zugreifen oder jetzt wo ich ja die jeweilige docnamen schon hab auch mit nem vergleich der docnamen?
weil ich denke mal so ist es sinnvoller wenn man es schon mal hat...
esskar
 2005-01-18 10:52
#32769 #32769
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
auf ein array kannst du nur mit dem index zugreifen!
Kathrin
 2005-01-18 12:21
#32770 #32770
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
hmm esskar es ging noch einfacher. jetzt gibt er mir alles wieder, auser die Headlines und die texte...
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
 foreach my $ptr (@{$daten})             {
             print qq~<tr>
                <td>$ptr->{doctyp}</td>
                <td>$ptr->{docname}</td>
                <td>$ptr->{head}</td>
                <td><a href="/cgi-bin/frontl.cgi?auswahl=1;
                        identnr=$identnr;
                        docname=$ptr->{docname};
                        ersteller=$ptr->{ersteller};
                        head_de=$ptr->{head};
                        deutsch=$ptr->{deutsch};
                        head_en=$ptr->{head};
                        englisch=$ptr->{englisch};
                        head_fr=$ptr->{head};
                        franz=$ptr->{franz};
                        check1=$ptr->{check1};
                        check2=$ptr->{check2};
                        check3=$ptr->{check3};
                        check4=$ptr->{check4};
                        werk=$ptr->{werk};
                        doctyp=$ptr->{doctyp}  ">Auswählen</a></td>
                </tr>~;
        }

wenn ich z.B. nur einen docnamen habe, aber mehrere einträge (DE-EN-FR), nimmt er nur eine HL und füllt es in jede zeile...
Wie gesagt der Rest (doctyp, identnr, docname, werk, ersteller,....)funktioniert jetzt...
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
 print "<HTML>\n";
        print "<HEAD><TITLE>FORMULAR</TITLE>";
        print "</HEAD>\n<BODY>\n";
        if ($auswahl){
                print '<span style="font-size:20pt"><center><b>Dokumententyp:'.$doctyp.'</b></cente
r></span>';
                }
        print '<form method="POST" action="/cgi-bin/frontl.cgi">';
        print "<p>Ident-Nummer:";
        print '<INPUT name="identnr" size="20" maxlength="15" value='.$identnr.'>&nbsp';
        if ($auswahl) {
                print '<INPUT name="suchen" TYPE="submit" VALUE="Suchen">';
                }
        print "<p>DE:<br>";
        print '<input name="head_de" type="text" size="50" value='.$head_de.'><br>';
        if ($doctyp eq 'EI') {
             print '<textarea name="deutsch" cols="50" rows="5">'.$deutsch.'</textarea>';
                }
        print "<p>EN:<br>";
        print '<input name="head_en" type="text" size="50" value='.$head_en.'><br>';
        if ($doctyp eq 'EI') {
            print '<textarea name="englisch" cols="50" rows="5">'.$englisch.'</textarea>';
                }
        print "<p>FR:<br>";
        print '<input name="head_fr" type="text" size="50" value='.$head_fr.'><br>';
        if ($doctyp eq 'EI') {
            print '<textarea name="franz" cols="50" rows="5">'.$franz.'</textarea>';
                }
Kathrin
 2005-01-18 15:14
#32771 #32771
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
hab noch daran rum probiert aber geht immer noch nicht...
habs erst so probiert: Doch hier wird if nicht richtig erkannt!
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  foreach my $ptr (@{$daten})     
        {
             print qq~<tr>
                <td>$ptr->{doctyp}</td>
                <td>$ptr->{docname}</td>
                <td>$ptr->{head}</td>
                <td><a href="/cgi-bin/frontl.cgi?auswahl=1;
                        identnr=$identnr;
                        docname=$ptr->{docname};
                        ersteller=$ptr->{ersteller};
                        head_de=$ptr->{head} if ($ptr->{langtyp} eq 'DE');
                        deutsch=$ptr->{langtxt} if ($ptr->{langtyp} eq 'DE');
                        head_en=$ptr->{head_en} if ($ptr->{langtyp} eq 'EN');
                        englisch=$ptr->{langtxt} if ($ptr->{langtyp} eq 'EN');
                        head_fr=$ptr->{head_fr} if ($ptr->{langtyp} eq 'FR');
                        franz=$ptr->{langtxt} if ($ptr->{langtyp} eq 'FR');
                        check1=$ptr->{check1};
                        check2=$ptr->{check2};
                        check3=$ptr->{check3};
                        check4=$ptr->{check4};
                        werk=$ptr->{werk};
                        doctyp=$ptr->{doctyp}  ">Auswählen</a></td>

dann hab ich es so probiert: doch hier wurden die variablen auch nicht wiedergegeben...
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub doc_suchen {
        my $db="DBI:mysql:produkte";
        my $user="lidos";
        my $pass="lidos";
        my $dbh = DBI->connect($db,$user,$pass) or die $DBI::errstr;
        my $statement_suchen="SELECT * FROM tbl0011990 where docname = '$docname'";
        my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
        $sth_suchen->execute;
        my %hash;
        while (my @row = $sth_suchen->fetchrow_array()) {
                $hash{head_de}   = $row[4] if ($row[1] eq 'DE');
                $hash{head_en}   = $row[4] if ($row[1] eq 'EN');
                $hash{head_fr}   = $row[4] if ($row[1] eq 'FR');
                $hash{deutsch}   = $row[5] if ($row[1] eq 'DE');
                $hash{englisch}  = $row[5] if ($row[1] eq 'EN');
                $hash{franz}     = $row[5] if ($row[1] eq 'FR');
                }
        &such_eintr(\%hash);
        $sth_suchen->finish();
        $dbh->disconnect();
}

die variablen hab ich dann so aufgerufen:
Code: (dl )
1
2
3
4
        my (%param) = @_; 
        my $param =  \%param;

        print '<input name="head_en" type="text" size="50" value='.$param->{head_en}.'>';

Tja und jetzt weiß ich nicht was ich noch ausprobieren könnte...
Helft mir bitte weiter....
Kathrin
 2005-01-18 18:05
#32772 #32772
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
hab mich für die ertse variante entschieden, aber irgendwie werden die if anweisungen nicht erkannt...
<< |< 1 ... 9 10 11 12 13 >| >> 125 Einträge, 13 Seiten



View all threads created 2004-12-16 16:21.