Opened by zipster at 2005-10-08 18:24
User since
2004-09-06
458 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-09-06
458 Artikel
BenutzerIn
Da bin ich wieder mit einem neuen Problem :(
Ich würde gern folgende 2 Vorlagen umsetzten und zwar mit einer foreach Schleife.
Weil es von diesen Vorlagen noch ca. 5 weitere gibt und alle unterscheiden sich nur durch Kleinigkeiten(Siehe Bild).
http://home.arcor.de/zipster13/111.jpg
.
http://home.arcor.de/zipster13/112.jpg
Ich habe es schon selbst versucht, weiß aber ehrlich gesagt nicht wie ich es umsetzten soll.
Ich habe mir vorgestellt das man im Hash angibt in welcher Gruppe es ist und der Rest wir dann unten in der foreach Schleife sortiert.
Gruß
Serioscha aka zipster\n\n
<!--EDIT|zipster|1129636801-->
Ich würde gern folgende 2 Vorlagen umsetzten und zwar mit einer foreach Schleife.
Weil es von diesen Vorlagen noch ca. 5 weitere gibt und alle unterscheiden sich nur durch Kleinigkeiten(Siehe Bild).
http://home.arcor.de/zipster13/111.jpg
.
http://home.arcor.de/zipster13/112.jpg
Ich habe es schon selbst versucht, weiß aber ehrlich gesagt nicht wie ich es umsetzten soll.
Ich habe mir vorgestellt das man im Hash angibt in welcher Gruppe es ist und der Rest wir dann unten in der foreach Schleife sortiert.
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
$links_notebook{bestattungswunsch} =
[
{ art => "textfield", name => "muster 1",
bez => "Friedhof:", haupt => "1"},
....
{ art => "textfield", name => "muster 15",
bez => "Bestattungsunternehmen:", haupt => "2"},
....
{ art => "textfield", name => "muster 30",
bez => "Bestattungsunternehmen:", haupt => "3"},
....
]
....
sub anzeige_link
{
my $element_ref = shift;
my $link = shift;
my @fields;
my @zeile;
my $haupt = "0";
foreach my $f (@{$element_ref->{$link}})
{
if (defined $f->{haupt}){
....
my $bez = $f->{bez};
no strict 'refs';
push(@fields,Tr (
td (escapeHTML ($bez)),
td ($f->{art} (-name => $f->{name},
-size => $f->{size},
-rows => $f->{rows},
-cols => $f->{cols},
-wrap => $f->{wrap},
-value => $f->{value},
-label => $f->{label},
-checked => $f->{checked})
)
)
);
}
else
{
my $bez = $f->{bez};
no strict 'refs';
push(@fields,Tr (
....
}
push (@zeile, Tr (@fields));
print table (@zeile);
}Gruß
Serioscha aka zipster\n\n
<!--EDIT|zipster|1129636801-->
