Opened by pktm at 2004-08-01 20:53
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Was die default-Zuweisung betrifft stimme ichzu, da muss cih den umgekehrten Fall annehmen, also =shift || 0; - immerhin wäre der jetzige alternativwert ja 0....
Und im Else-Teiol ist noch ein Fehler, da ist $q->param(... falsch gesetzt.
Hier die Sub redir:
Das mit Use strict; etc. ist bei mir immer an (sollte icheventuell in die SIg schrieben :) ).
FatalsToBrowser kann ich da schon weniger benutzen, da ich mit CGI::Application arbeite.
Aber da könnte ich mal den Debug-Modus anschmeissen...
mfg pktm
Und im Else-Teiol ist noch ein Fehler, da ist $q->param(... falsch gesetzt.
Hier die Sub redir:
Code: (dl
)
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";
} # redirDas mit Use strict; etc. ist bei mir immer an (sollte icheventuell in die SIg schrieben :) ).
FatalsToBrowser kann ich da schon weniger benutzen, da ich mit CGI::Application arbeite.
Aber da könnte ich mal den Debug-Modus anschmeissen...
mfg pktm
http://www.intergastro-service.de (mein erstes CMS :) )