#voteUse?#<td> #GCid?# <img blabla>
#GCid!#</td>
???
#voteUse!#
Alle Attributnamen sind durch #Attributname:# gekennzeichnet. Der Wert des Attributs wird an Stellen eingesetzt, an denen #Attributname# steht, und Teile, die von #Attributname?# und #Attributname!# eingeschlossen sind, werden nur dann eingefügt, wenn das entsprechende Attribut nicht leer ist. Ähnlich werden Textteile, die von #-Attributname?# und #-Attributname!# eingeschlossen sind, nur dann eingefügt, wenn der Attributwert der leere String ist
#voteUse?#
hier ist der If Zweig
#voteUse!#
#-voteUse?#
hier ist der else Zweig
#-voteUse!#
foreach $field (@allfields) {
if ($cid ne "") {
if ($string =~ /\#\-{0,1}$field(\=)?([^\!\?]*?)(\?|\!){0,1}\#/) {
$new = trim(trans($data{$cid}->{$field}));
if ($new =~ /^\s*$/si) {
$string =~ s/\#$field\?\#.*?\#$field\!\#//sg;
$string =~ s/\#\-$field(\?|\!)\#//sg;
} else {
$string =~ s/\#$field(\?|\!)\#//sg;
$string =~ s/\#\-$field\?\#.*?\#\-$field\!\#//sg;
}
$string =~ s/#$field\=\Q$new\E(\?|\!)\#//sg;
$string =~ s/#$field\=.*?\?\#.*?#$field\=.*?\!#//sg;
if ($new =~ /(.*)(\.jpg|\.gif|\.jpeg|\.tiff|\.png)$/) {
$new = "<img src=\"" . $uppath . "/pics/" . $new .
"\" align=\"bottom\" alt=\"" . $1 . "\" title=\"" . $1 . "\">";
}
$string =~ s/\#$field\#/$new/sg;
}
}
$new = trans($field);
$string =~ s/\#$field\:\#/$new/sg;
}