Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]276[/thread]

HTML::Template Frage zu LOOP



<< >> 4 Einträge, 1 Seite
Tom
 2004-06-01 20:47
#2655 #2655
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hallo,

Ich habe ein Array und möchte den Inhalt in Ein Menüfeld übergeben, mein Template sieht so aus:

Code: (dl )
1
2
3
4
5
<select name="select">
<TMPL_LOOP NAME=LOOP>
<option><TMPL_VAR NAME=SMILIE></option>
</TMPL_LOOP>
</select>


Wie muss ich der Variable die Werte jetzt über geben, habe das ganze über eine while-Schleife versucht aber da erhalte ich immer nur das letzte Element

Code: (dl )
1
2
3
4
5
6
7
8
9
10
$i = 0;
while($i <= $directories) {
push
@loop_data,
{
SMILIE => $directories[$i++],
},
;
}
$subtemplate->param(LOOP => \@loop_data);


Danke

Tom\n\n

<!--EDIT|Tom|1086108497-->
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
tomlong
 2004-06-01 21:29
#2656 #2656
User since
2003-08-04
93 Artikel
BenutzerIn
[default_avatar]
http://search.cpan.org/~samtregar/HTML-Template/Template.pm#TMPL_LOOP

Quote
my @loop_data = (); # initialize an array to hold your loop

while (@words and @numbers) {
my %row_data; # get a fresh hash for the row data

# fill in this row
$row_data{WORD} = shift @words;
$row_data{NUMBER} = shift @numbers;

# the crucial step - push a reference to this row into the loop!
push(@loop_data, \%row_data);
}

# finally, assign the loop data to the loop param, again with a
# reference:
$template->param(THIS_LOOP => \@loop_data);


HTH :)
Live long and prosper!
42;
renee
 2004-06-02 11:24
#2657 #2657
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Kannst Dir ja auch mal mein Skript anschauen:
http://perl.renee-baecker.de/HTML_Template.pdf und
http://perl.renee-baecker.de/HTML_TemplateII.pdf
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/
Tom
 2004-06-02 18:59
#2658 #2658
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
@tomlong

Danke, Ich glaube ich sollte mir die Beschreibungen besser durchlesen.

@renee

Danke, die habe ich schon, da steht das von tomlong aber nicht drin.

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
<< >> 4 Einträge, 1 Seite



View all threads created 2004-06-01 20:47.