X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fautohandler;h=c326e3e183bed097c02394a8dbde145700ceea4d;hp=3a244170308710d375360ca95dc2efb33b3d288b;hb=ea3ce8d7f076e7fecff4be7ae63bc413adb0adf5;hpb=1c051d721533307ff9d1879deb3107e3a51058fa diff --git a/httemplate/autohandler b/httemplate/autohandler index 3a2441703..c326e3e18 100644 --- a/httemplate/autohandler +++ b/httemplate/autohandler @@ -1,13 +1,18 @@ % $m->call_next; <%init> + + $FS::Maketext::lh = ''; + dbh->{'private_profile'} = {} if UNIVERSAL::can(dbh, 'sprintProfile'); + <%filter> -my $profile = ''; if ( UNIVERSAL::can(dbh, 'sprintProfile') ) { - if ( lc($r->content_type) eq 'text/html' + my $profile = ''; + + if ( lc($r->content_type) =~ /^text\/html/ && $FS::CurrentUser::CurrentUser->option('show_db_profile') ) { @@ -29,15 +34,16 @@ if ( UNIVERSAL::can(dbh, 'sprintProfile') ) { if ( $FS::CurrentUser::CurrentUser->option('save_db_profile') ) { #my $file = %%%FREESIDE_LOG%%%; #substitute here? maybe get from FS.pm? my $file = '/usr/local/etc/freeside/'; #bah - $file .= "dbix_profile..$$.". time; + $file .= "dbix_profile.$$.". time; dbh->setLogFile($file); dbh->printProfile(); } dbh->{'private_profile'} = {}; + + s/(<\/BODY>[\s\n]*<\/HTML>[\s\n]*)$/$profile$1/i; } -s/(<\/BODY>[\s\n]*<\/HTML>[\s\n]*)$/$profile$1/i; <%cleanup> dbh->commit();