[Rt-commit] r2610 - in rt/branches/QUEBEC-EXPERIMENTAL: . etc html/Elements/RT__Ticket html/Ticket lib/t/regression

[jesse at bestpractical.com]

Author: jesse
Date: Tue Apr 12 20:26:53 2005
New Revision: 2610

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/etc/RT_Config.pm.in
   rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/RT__Ticket/ColumnMap
   rt/branches/QUEBEC-EXPERIMENTAL/html/Ticket/Display.html
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/02basic_web.t
Log:
 r12747 at hualien:  jesse | 2005-04-12 07:10:14 -0400
 * Allow click-to-sort on requestor/cc/admincc


Modified: rt/branches/QUEBEC-EXPERIMENTAL/etc/RT_Config.pm.in
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/etc/RT_Config.pm.in	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/etc/RT_Config.pm.in	Tue Apr 12 20:26:53 2005
@@ -281,12 +281,15 @@
 
 Set($WebPath , "");
 
-Set($WebPort , 80 + ($< * 7274) % 32766 + ($< && 1024));
+# If we're running as a superuser, run on port 80
+# Otherwise, pick a high port for this user.
+
+Set($WebPort , 80);# + ($< * 7274) % 32766 + ($< && 1024));
 
 # This is the Scheme, server and port for constructing urls to webrt
 # $WebBaseURL doesn't need a trailing /
 
-Set($WebBaseURL , "http://RT::WebBaseURL.not.configured:$WebPort");
+Set($WebBaseURL , "http://localhost:$WebPort");
 
 Set($WebURL , $WebBaseURL . $WebPath . "/");
 

Modified: rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/RT__Ticket/ColumnMap
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/RT__Ticket/ColumnMap	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/RT__Ticket/ColumnMap	Tue Apr 12 20:26:53 2005
@@ -193,12 +193,15 @@
         value     => sub { return $_[0]->TimeEstimated }
     },
     Requestors => {
+        attribute => 'Requestor.EmailAddress',
         value => sub { return $_[0]->Requestors->MemberEmailAddressesAsString }
     },
     Cc => {
+        attribute => 'Cc.EmailAddress',
         value => sub { return $_[0]->Cc->MemberEmailAddressesAsString }
     },
     AdminCc => {
+        attribute => 'AdminCc.EmailAddress',
         value => sub { return $_[0]->AdminCc->MemberEmailAddressesAsString }
     },
     StartsRelative => {

Modified: rt/branches/QUEBEC-EXPERIMENTAL/html/Ticket/Display.html
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/html/Ticket/Display.html	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/html/Ticket/Display.html	Tue Apr 12 20:26:53 2005
@@ -144,6 +144,17 @@
     push (@Actions, @BasicActions, @results);
 }
 
+if (@Actions) {
+    # We've done something, so we need to clear the decks to avoid 
+    # resubmission on refresh.
+    # But we need to store Actions somewhere too, so we don't lose them.
+    $session{"Actions"} = \@Actions;
+    $m->redirect($RT::WebURL."/Ticket/Display.html?id=".$TicketObj->id);
+    return;
+} else {
+    @Actions = @{$session{"Actions"} || [] };
+    delete $session{"Actions"};
+}
 
 
 $m->comp('/Elements/Callback', _CallbackName => 'BeforeDisplay',

Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/02basic_web.t
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/02basic_web.t	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/02basic_web.t	Tue Apr 12 20:26:53 2005
@@ -52,6 +52,9 @@
 $agent->field('Content' => $string);
 ok($agent->submit(), "Created new ticket with $string as Content");
 like( $agent->{'content'}, qr{$string} , "Found the content");
+ok($agent->{redirected_uri}, "Did redirection");
+
+
 $agent->get($url."Ticket/Create.html?Queue=1");
 is ($agent->{'status'}, 200, "Loaded Create.html");
 $agent->form(3);