From c3fb12b9ed5457ff2067017e2ab610026966d611 Mon Sep 17 00:00:00 2001
From: Siri Reiter <siri@jones.dk>
Date: Thu, 21 Dec 2017 23:07:12 +0100
Subject: Customize form.

---
 kontakt.cgi | 52 ++++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 40 insertions(+), 12 deletions(-)

(limited to 'kontakt.cgi')

diff --git a/kontakt.cgi b/kontakt.cgi
index 9df30e7..3bc8656 100755
--- a/kontakt.cgi
+++ b/kontakt.cgi
@@ -5,9 +5,9 @@ use CGI::FormBuilder;
 my $build_path = '../build';
 
 # TODO: check if protocol-agnostic URL works
-my $webroot = 'https://byvandring.nu/feedback/';
-my $req_path = $build_path . '/html/feedback/index.html';
-my $ack_path = $build_path . '/html/feedback/tak/index.html';
+my $webroot = 'https://byvandring.nu/kontakt/';
+my $req_path = $build_path . '/html/kontakt/index.html';
+my $ack_path = $build_path . '/html/kontakt/tak/index.html';
 
 my $webmaster = 'info@byvandring.nu';
 #my $frontdesk = 'info@byvandring.nu';
@@ -22,26 +22,40 @@ my $valid_email = '/^[+_A-Za-z0-9-]+(\.[+_A-Za-z0-9-]+)*@[A-Za-z0-9-]+(\.[A-Za-z
 
 my $form = CGI::FormBuilder->new(
 	lang => 'da',
-	title => 'Feedback til Byvandring.nu',
+	title => 'Henvendelse til Byvandring.nu',
 	method => 'POST',
 	fields => [qw/
-		kommentar
+		navn
+		org
 		postnr
 		email
+		tur
+		antal
+		tid
+		kommentar
 	/],
 	validate => {
-		postnr => INT,
 		email => $valid_email,
 		_email => $valid_email, #fake check to silence warning of variable used only once
 	},
 	required => [qw/
-		kommentar
+		email
 	/],
 	messages => ':da_DK',
 	submit => ['Send oplysningerne'],
 	action => $webroot, #avoids loosing submitted values when redirected from other site
 );
 
+$form->field(
+	name => 'navn',
+	label => 'Navn',
+	comment => '(dit eget navn)'
+);
+$form->field(
+	name => 'org',
+	label => 'Firma/ skole',
+	comment => '(hvem du repræsenterer)'
+);
 $form->field(
 	name => 'postnr',
 	label => 'Postnummer',
@@ -49,8 +63,22 @@ $form->field(
 	comment => '(hvis du har lyst)'
 );
 $form->field(
-	name => 'email',
-	comment => '(hvis du vil kontaktes igen)'
+	name => 'tur',
+	label => 'Tur',
+	size => 5,
+	comment => '(Tur, bydel eller tema)'
+);
+$form->field(
+	name => 'antal',
+	label => 'Antal',
+	size => 5,
+	comment => '(Antal deltagere)'
+);
+$form->field(
+	name => 'tid',
+	label => 'Tidspunkt',
+	size => 5,
+	comment => '(Dato og tidspunkt)'
 );
 $form->field(
 	name	=> 'kommentar',
@@ -63,13 +91,13 @@ my ($mail_from) = $webmaster;
 my ($mail_to, $mail_subject);
 
 if ($form->submitted) {
-	$infostring = "Tak for din feedback!";
+	$infostring = "Tak for din henvendelse!";
 	if ($form->validate) {
 		$mail_to = $frontdesk;
-		$mail_subject = 'Feedback til Byvandring.nu';
+		$mail_subject = 'Henvendelse til Byvandring.nu';
 	} else {
 		$mail_to = "$frontdesk, $helpdesk";
-		$mail_subject = 'FEJL ved feedback til Byvandring.nu';
+		$mail_subject = 'FEJL ved henvendelse til Byvandring.nu';
 		$infostring .= "\n<P>OBS! Der var fejl i et eller flere af felterne. Informationerne er sendt uanset, men det anbefales at gå tilbage, checke at alle felter er udfyldt korrekt, og derefter sende igen.";
 		$confirm = 0;
 	};
-- 
cgit v1.2.3