Revision 60c0c579
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/Template/Simple.pm | ||
|---|---|---|
| 163 | 163 |
|
| 164 | 164 |
my $not = $1; |
| 165 | 165 |
my $var = $2; |
| 166 |
my $comparison = $3; # Optionaler Match um $4..$8 |
|
| 166 | 167 |
my $operator_neg = $4; # '=' oder '!' oder undef, wenn kein Vergleich erkannt |
| 167 | 168 |
my $operator_type = $5; # '=' oder '~' für Stringvergleich oder Regex |
| 168 | 169 |
my $quoted_word = $7; # nur gültig, wenn quoted string angegeben (siehe unten); dann "value" aus <%if var == "value" %> |
| ... | ... | |
| 173 | 174 |
substr($$contents, 0, length($&)) = ""; |
| 174 | 175 |
|
| 175 | 176 |
my $block; |
| 176 |
($block, $$contents) = $self->find_end($$contents, 0, $var, $not);
|
|
| 177 |
($block, $$contents) = $self->find_end($$contents, 0, "$var $comparison", $not);
|
|
| 177 | 178 |
if (!$block) {
|
| 178 | 179 |
$self->{"error"} = "Unclosed $self->{tag_start}if$self->{tag_end}." unless ($self->{"error"});
|
| 179 | 180 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Templates: Auswertung des "else"-Teils gefixt, wenn "if"-Teil Variablenvergleiche enthält