Leser: 1
![]() |
![]() |
7 Einträge, 1 Seite |
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
31
32
33
sub validateQuery {
my $self = shift;
my $redir = shift || 1;
my $q = $self->query();
foreach( @{$self->param('Felder')} ){
#print STDERR Data::Dumper::Dumper($_);
unless( defined($q->param("RES_".$_)), $q->param("RES_".$_) ne "" ){
#print STDERR Data::Dumper::Dumper("RES_".$_);
if( $redir ){
# redirect to Form with ErrorMsg
my $new_url = $q->url(-relative=>1,) . '?rm=showForm;error=1';
# alle FormularFelder zusammenfügen, zwecks übergabe an Script
my @daten = @{$self->param('SystemFormFields')};
push @daten, @{$self->param('Felder')};
push @daten, @{$self->param('weitereFelder')};
foreach my $feld ( @daten ){
#print STDERR Data::Dumper::Dumper($feld);
$new_url .= ";".$feld."=".$q->param("RES_".$feld);
}
#print STDERR "bin da\n";
$self->redir($new_url);
#print STDERR "bin vorbei\n";
last;
exit(0);
}else{
# return fehlerhaftes Feld
return $q->param("Bitte überprüfen Sie Ihre Eingabe im Feld: $_");
last;
}
}
}
return 'validateQuery';
} # /validateQuery
my $redir = shift || 1;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
format_c@server:~> perl
sub test {
my $wert = shift || 'default';
print $wert,"\n";
}
print "Versuch1 mit Parametern:\n";
test('meinwert');
print "Versuch2 ohne Parameter:\n";
test();
Versuch1 mit Parametern:
meinwert
Versuch2 ohne Parameter:
default
format_c@server:~>
1
2
3
4
5
6
7
8
9
sub redir {
my $self = shift;
my $q = $self->query();
my $new_url = shift || $q->url(-relative=>1);
$self->header_type('redirect');
$self->header_props(-url=>$new_url);
#print STDERR Data::Dumper::Dumper($new_url);
return "Redirecting to $new_url";
} # redir
![]() |
![]() |
7 Einträge, 1 Seite |