Thread Formular pl script (20 answers)
Opened by beckerhauger at 2014-04-29 10:10

GwenDragon
 2014-04-30 08:23
#175131 #175131
User since
2005-01-17
14761 Artikel
Admin1
[Homepage]
user image
Quote
Vielleicht kannst Du mir auch einfach schreiben, wie ich es selbst hinbekommen kann.
Meinst Du auch, ich sollte das Anfrageformular in HTML neu formatieren? Schaut ja grauslig aus in Frontpage.
Du kannst das Anfrageformular auch in Notepad oder einem anderen Texteditor (kein Word o. ä.!) öffnen und dort das HTML ändern.

2014-04-29T17:19:54 beckerhauger
Wenn Du mir noch dabei helfen würdest, wie ich die Fehlermeldung bei, z.B. vergessener Mailadresse in deutsch hinbekomme, zünde ich Dir eine Kerze an


1. Starte Notepad oder einem anderen Texteditor (kein Word o. ä.!)
2. Öffne die Datei FormMail.pl
3. Ersetze ab Zeile 2667:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

sub missing_fields_output {
  my ($self, @missing) = @_;

  if ( $self->{FormConfig}{'missing_fields_redirect'} ) {
    print $self->cgi_object->redirect($self->{FormConfig}{'missing_fields_redirect'});
  }
  else {
    my $missing_field_list = join '',
                             map { '<li>' . $self->escape_html($_) . "</li>\n" }
                             @missing;
    $self->error_page( 'Error: Blank Fields', <<END );
<p>
    The following fields were left blank in your submission form:
</p>
<div class="c2">
   <ul>
     $missing_field_list
   </ul>
</div>
<p>
    These fields must be filled in before you can successfully
    submit the form.
</p>
<p>
    Please use your back button to return to the form and
    try again.
</p>
END
  }
}


druch

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

sub missing_fields_output {
  my ($self, @missing) = @_;

  if ( $self->{FormConfig}{'missing_fields_redirect'} ) {
    print $self->cgi_object->redirect($self->{FormConfig}{'missing_fields_redirect'});
  }
  else {
    my $missing_field_list = join '',
                             map { '<li>' . $self->escape_html($_) . "</li>\n" }
                             @missing;
    $self->error_page( 'Error: Blank Fields', <<END );
<p>
    Die folgenden Eingaben waren leer in der Anfrage:
</p>
<div class="c2">
   <ul>
     $missing_field_list
   </ul>
</div>
<p>
    Diese Felder müssen eingetragen werden, damit die Anfrage korrekt abgesandt werden kann.
</p>
<p>
    Bitte benutzen Sie den Zurück-Button ihres Browsers, um zum Formular zurück zu kommen und korrigieren Sie die fehlenden Einträge.
</p>
END
  }
}




2014-04-29T17:19:54 beckerhauger
(...) hinbekomme, zünde ich Dir eine Kerze an :-)
Kerzen habe ich selbst. Und wenn ich schon Gewerbetreibenden helfe, dann sind Amazongutscheine bei mir gern gesehen.
Last edited: 2014-04-30 08:28:37 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread Formular pl script