Changed announceEmail.pl to strip out things like order numbers

[clearscm.git] / maps / bin / detail.cgi

diff --git a/maps/bin/detail.cgi b/maps/bin/detail.cgi
index 1d39097..55c9cbd 100755 (executable)
--- a/maps/bin/detail.cgi
+++ b/maps/bin/detail.cgi
@@ -90,49 +90,49 @@ sub MakeButtons {
   if ($type eq 'whitelist') {
     $buttons = $buttons .
       submit ({-name    => 'action',
-               -value   => 'Blacklist Marked',
+               -value   => 'Blacklist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Nulllist Marked',
+               -value   => 'Nulllist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Reset Marks',
+               -value   => 'Reset',
                -onClick => 'return ClearAll (document.detail);'});
   } elsif ($type eq 'blacklist') {
     $buttons = $buttons .
       submit ({-name    => 'action',
-               -value   => 'Whitelist Marked',
+               -value   => 'Whitelist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Nulllist Marked',
+               -value   => 'Nulllist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Reset Marks',
+               -value   => 'Reset',
                -onClick => 'return ClearAll (document.detail);'});
   } elsif ($type eq 'nulllist') {
     $buttons = $buttons .
       submit ({-name    => 'action',
-               -value   => 'Whitelist Marked',
+               -value   => 'Whitelist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Blacklist Marked',
+               -value   => 'Blacklist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Reset Marks',
+               -value   => 'Reset',
                -onClick => 'return ClearAll (document.detail);'});
   } else {
     $buttons = $buttons .
       submit ({-name    => 'action',
-               -value   => 'Whitelist Marked',
+               -value   => 'Whitelist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Blacklist Marked',
+               -value   => 'Blacklist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Nulllist Marked',
+               -value   => 'Nulllist',
                -onClick => 'return CheckAtLeast1Checked (document.detail);'}) .
       submit ({-name    => 'action',
-               -value   => 'Reset Marks',
+               -value   => 'Reset',
                -onClick => 'return ClearAll (document.detail);'});
   } # if
 
@@ -242,8 +242,9 @@ sub PrintTable {
     my $messages = 1;
 
     for (@msgs) {
-      my $msg_date = pop @{$_};
-      my $subject  = pop @{$_};
+      my $msg_date  = pop @{$_};
+      my $link_date = $msg_date;
+      my $subject   = pop @{$_};
 
       if ($date eq substr ($msg_date, 0, 10)) {
         $msg_date = b font {-color => 'green'}, SQLDatetime2UnixDatetime $msg_date;
@@ -262,7 +263,6 @@ sub PrintTable {
                      -cellspacing => 2,
                      -border      => 0,
                      -width       => '100%'};
-      my $msg_nbr = $messages;
       print
         Tr [
           td {-class   => 'msgnbr',
@@ -275,7 +275,7 @@ sub PrintTable {
           td {-class   => 'subject',
               -valign  => 'middle',
               -bgcolor => '#ffffff'},
-           a {-href    => "display.cgi?sender=$sender;msg_nbr=$msg_nbr"}, $subject,
+           a {-href    => "display.cgi?sender=$sender;msg_date=$link_date"}, $subject,
           td {-class   => 'date',
               -width   => '150',
               -valign  => 'middle'}, $msg_date