+ #$ah->interp->remove_escape('h');
+
+ if ( $r->filename =~ /\/rt\// ) { #RT
+ #warn "processing RT file". $r->filename. "; escaping for RT\n";
+
+ # MasonX::Request::ExtendedCompRoot
+ #$ah->interp->comp_root( '/rt'. $ah->interp->comp_root() );
+
+ $ah->interp->set_escape( h => \&RT::Interface::Web::EscapeUTF8 );
+
+ local $SIG{__WARN__};
+ local $SIG{__DIE__};
+
+ RT::Init();
+
+ # We don't need to handle non-text, non-xml items
+ return -1 if defined( $r->content_type ) && $r->content_type !~ m!(^text/|\bxml\b)!io;
+
+ } else {
+ $ah->interp->set_escape( 'h' => sub { ${$_[0]}; } );
+ }
+
+ my %session;
+ my $status;
+ eval { $status = $ah->handle_request($r); };
+#!!
+# if ( $@ ) {
+# $RT::Logger->crit($@);
+# }
+
+ undef %session;
+
+#!!
+# if ($RT::Handle->TransactionDepth) {
+# $RT::Handle->ForceRollback;
+# $RT::Logger->crit(
+#"Transaction not committed. Usually indicates a software fault. Data loss may have occurred"
+# );
+# }