Example for creating a wizard with Embperl

[- $escmode = 7 -][- $b = defined($fdat{back})-][- $c = defined($fdat{cont})-][-$kn = $fdat{Kundennummer} eq 'Ja'-][-$p = $fdat{page}
-][$if $p==0 or ($p==2 and $b) or ($p==4 and $b and !$kn)$]

# Eintragen eines neuen Objekts

Um eine neues Objekt welches Sie anbieten, mieten oder kaufen möchten einzutragen benötigen wir zuerst Ihre persönlichen Daten. Haben Sie bereits eine Kundennummer bei uns? Ja, ich habe bereits eine Kundennummer Nein, ich habe keine Kundennummer [$hidden$]

[$elsif $kn and (($p==1 and $c) or ($p==3 and $b))$]

Geben Sie bitte Ihre Kundennummer ein, wenn Sie diese nicht zur Hand haben können Sie auch nach Ihrere Kundennummer suchen, indem Sie die Felder Name und/oder Firma ausfüllen.
Kundennummer: |
Name: |
Firma: |
[$hidden$]

[$elsif $kn and (($p==2 and $c) or ($p==5 and $b))$]

> Es wurden mehere Personen gefunden die auf Ihrer Angaben zutreffen. Bitte wählen Sie die richtige aus. [- $AdrData[0]{Kdnr} = 123; $AdrData[0]{Name} = 'Mr. X'; $AdrData[0]{Ort} = 'Somewhere'; $AdrData[1]{Kdnr} = 234; $AdrData[1]{Name} = 'Mr. Y'; $AdrData[1]{Ort} = 'Anywhere'; $AdrData[2]{Kdnr} = 345; $AdrData[2]{Name} = 'Note: Database query is missing'; $AdrData[2]{Ort} = ''; $AdrData[3]{Kdnr} = 456; $AdrData[3]{Name} = 'This are only '; $AdrData[3]{Ort} = 'dummys'; -]
> [+$AdrData[$row]{Name}+] [+$AdrData[$row]{Ort} +]
[$hidden$]

[$elsif !$kn and
(($p==1 and $c) or
($p==5 and $b))$]

Geben Sie bitte hier persönnlichen Daten ein.
Firma: |  |  |
Anrede: |  |  |
Name: |  | Vorname: |
Straße: |  | Postfach: |
Plz: |  | Ort: |
Telefon: |  | Telefax: |
E-Mail: |  | WWW Adresse: |
[$hidden$]

[$elsif ($p==4 && $c) || ($p==3 && $c)$]

Wenn Sie jetzt auf Abspeichern klicken, werden folgende Daten von Ihnen gespeichert:
Firma: | [+$fdat{Firma}+] |  |
Anrede: | [+$fdat{Anrede}+] |  |
Name: | [+$fdat{Name}+] | Vorname: | [+$fdat{Vorname}+]
Straße: | [+$fdat{Strasse}+] | Postfach: | [+$fdat{Postfach}+]
Plz: | [+$fdat{Plz}+] | Ort: | [+$fdat{Ort}+]
Telefon: | [+$fdat{Telefon}+] | Telefax: | [+$fdat{Telefax}+]
E-Mail: | [+$fdat{EMail}+] | WWW Adresse: | [+$fdat{WWW}+]
[$hidden$]

[$endif$]