X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htetc%2Fhandler.pl;h=8f079af33f2b3e0b876dad6c8760c2c42f9efde8;hb=ef7bb336cc67f127fb1d77532ad3da1369c0ae36;hp=b28cfe9e27d3c76d0f5ce93167e53f62a8321d34;hpb=abf5c5442afce5198f6289840791c96f58254e85;p=freeside.git diff --git a/htetc/handler.pl b/htetc/handler.pl index b28cfe9e2..8f079af33 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -120,16 +120,24 @@ sub handler use FS::export_svc; use FS::msgcat; - *notCGI::redirect = sub { + *CGI::redirect = sub { my( $self, $location ) = @_; use vars qw($m); if ( defined(@DBIx::Profile::ISA) ) { #profiling redirect - # my $page = - - - # return $page; + my $page = + qq!
Redirect to $location!. + ''. + ( UNIVERSAL::can(dbh, 'sprintProfile') + ? encode_entities(dbh->sprintProfile()) + : 'DBIx::Profile missing sprintProfile method;'. + 'unpatched or too old?' ). + #"\n\n". &sprintAutoProfile(). ''. + "\n\n". ''. + ''; + dbh->{'private_profile'} = {}; + return $page; } else { #normal redirect