[livejournal] r22851: LJSUP-13482: Add indicator on see_reques...

U   trunk/cgi-bin/LJ/Widget/SubmitRequest.pm
U   trunk/cgi-bin/supportlib.pl
U   trunk/htdocs/support/see_request.bml
U   trunk/htdocs/support/see_request.bml.text

Modified: trunk/cgi-bin/LJ/Widget/SubmitRequest.pm
===================================================================
--- trunk/cgi-bin/LJ/Widget/SubmitRequest.pm	2012-09-10 13:36:57 UTC (rev 22850)
+++ trunk/cgi-bin/LJ/Widget/SubmitRequest.pm	2012-09-10 13:40:04 UTC (rev 22851)
@@ -204,6 +204,8 @@
     $req{'ip'}      = LJ::get_remote_ip();
     $req{'has_js'}  = $post->{'has_js'};
 
+    $req{'is_beta'} = LJ::Request->cookie('ljbetatest') ? 1 : 0;
+
     # don't autoreply if they aren't gonna get a link
     $req{'no_autoreply'} = $class->send_email ? 0 : 1;
 

Modified: trunk/cgi-bin/supportlib.pl
===================================================================
--- trunk/cgi-bin/supportlib.pl	2012-09-10 13:36:57 UTC (rev 22850)
+++ trunk/cgi-bin/supportlib.pl	2012-09-10 13:40:04 UTC (rev 22851)
@@ -612,7 +612,7 @@
         return unless $q && $q ne 'NULL';
         push @data, "($spid, '$_[0]', $q)";
     };
-    my @props = qw(uniq useragent ip has_js);
+    my @props = qw(uniq useragent ip has_js is_beta);
     push @props, "language" if LJ::is_enabled("support_request_language");
     foreach my $p (@props) {
         $add_data->($p, $o->{$p});

Modified: trunk/htdocs/support/see_request.bml
===================================================================
--- trunk/htdocs/support/see_request.bml	2012-09-10 13:36:57 UTC (rev 22850)
+++ trunk/htdocs/support/see_request.bml	2012-09-10 13:40:04 UTC (rev 22851)
@@ -513,6 +513,10 @@
     $ret .= "<tr><td align='right' nowrap='nowrap'><b>$ML{'.has_js'}:</b></td>";
     $ret .= "<td>$has_js</td></tr>";
     
+    # Is problem occurred on Prod or Beta?
+    my $is_beta = $props->{'is_beta'};
+    $ret .= "<tr><td align='right' nowrap='nowrap'><b>$ML{'.is_beta'}:</b></td>";
+    $ret .= "<td>$is_beta</td></tr>";
 
     $ret .= "<tr><td align='right' nowrap='nowrap'><b>$ML{'.supportcategory'}:</b></td><td>";
     if (LJ::Support::can_read_cat($sp->{_cat}, $remote)) {

Modified: trunk/htdocs/support/see_request.bml.text
===================================================================
--- trunk/htdocs/support/see_request.bml.text	2012-09-10 13:36:57 UTC (rev 22850)
+++ trunk/htdocs/support/see_request.bml.text	2012-09-10 13:40:04 UTC (rev 22851)
@@ -110,6 +110,8 @@
 .ip_address|staleness=1
 .ip_address=IP Address
 
+.is_beta=Request sent from Beta
+
 .language|staleness=1
 .language=language