[Bps-public-commit] r20171 - RT-Extension-rt_cpan_org/lib/RT/Extension

[ruz at bestpractical.com]

Author: ruz
Date: Tue Dec  1 22:14:05 2009
New Revision: 20171

Modified:
   RT-Extension-rt_cpan_org/lib/RT/Extension/rt_cpan_org.pm

Log:
* we should hide all SelfService redirect logic

Modified: RT-Extension-rt_cpan_org/lib/RT/Extension/rt_cpan_org.pm
==============================================================================
--- RT-Extension-rt_cpan_org/lib/RT/Extension/rt_cpan_org.pm	(original)
+++ RT-Extension-rt_cpan_org/lib/RT/Extension/rt_cpan_org.pm	Tue Dec  1 22:14:05 2009
@@ -80,6 +80,24 @@
 
 =cut
 
+require RT::Interface::Web;
+package RT::Interface::Web;
+
+no warnings 'redefine';
+sub ShowRequestedPage {
+    my $ARGS = shift;
+
+    my $m = $HTML::Mason::Commands::m;
+
+    SendSessionCookie();
+
+    return $m->comp(
+        { base_comp => $m->request_comp },
+        $m->fetch_next,
+        %$ARGS
+    );
+}
+
 =head1 AUTHOR
 
 Thomas Sibley E<lt>trs at bestpractical.comE<gt>