[CGI Mailform] verplichte velden probleem - Softwareontwikkeling

donderdag 12 december 2002 16:49

Acties:

WYSIWYG

Topicstarter

Ik gebruik een script waarbij enkele velden verplicht ingevuld dienen te worden, dit gebeurt met onderstaande code:

code:

if(defined($form->param('Voornaam'))){
  $firstName = $form->param('Voornaam');
} else{
    $notDefined .= "\nVoornaam<BR>";
  }

if(defined($form->param('Achternaam'))){
  $lastName = $form->param('Achternaam');
} else {
    $notDefined .= "\nAchternaam<BR>";
  }

if(defined($form->param('E-mail adres'))){
  $emailAddress = $form->param('E-mail adres');
} else {
    $notDefined .= "\nE-mail adres<BR>";
  }

if(defined($notDefined)) {

  print <<"EOE";
<HTML>
<HEAD>
  <TITLE>Fout</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
De html file van waaruit dit script gestart is bevat geen veld genaamd:
<BR><BR>$notDefined
<BR>
Zonder deze velden kan dit script niet werken.
<BR><BR>
Neem contact op met de beheerder van deze site
<BR><BR>
Klik <A HREF="$homepage">hier</A> om door te gaan...
</BODY>
</HTML>
EOE

  exit 1;

}

$form->delete('button');
@names = $form->param;

Dit werkt, maar hoe kan ik nu toevoegen dat:

Als een ander veld, bijvoorbeeld "klantnummer" is ingevuld, dat de bovenstaande velden niet meer verplicht zijn, en dat het formulier verstuurd kan worden met alleen het veld "klantnummer" ingevuld.

Als "klantnummer" niet is ingevuld, dan moeten de overige velden wel verplicht zijn.

Pay peanuts get monkeys !

donderdag 12 december 2002 16:56

Acties:

D2k

hoe denk je zelf?

Doet iets met Cloud (MS/IBM)

donderdag 12 december 2002 17:09

Acties:

Pelle

🚴‍♂️

Hmm, enkele reis naar een willekeurige Perl manual.