Revision 8a149188
Von Sven Schöling vor fast 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
my $base_uri = $self->_get_request_uri;
|
||
|
my $new_uri = URI->new_abs($new_url, $base_uri);
|
||
|
|
||
|
die "Headers already sent" if $::self->{header};
|
||
|
die "Headers already sent" if $self->{header};
|
||
|
$self->{header} = 1;
|
||
|
|
||
|
my $cgi = $main::cgi || CGI->new('');
|
||
Auch abrufbar als: Unified diff
$::self typo