[Rt-commit] r6764 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jan 18 10:52:50 2007
New Revision: 6764

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm

Log:
 r4384 at cubic-pc:  cubic | 2007-01-18 04:34:58 +0300
 * drop TODO comment, done this improvement some time ago


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm	Thu Jan 18 10:52:50 2007
@@ -364,7 +364,7 @@
         InitialPriority => $ARGS{'InitialPriority'},
         FinalPriority   => $ARGS{'FinalPriority'},
         TimeLeft        => $ARGS{'TimeLeft'},
-        TimeEstimated        => $ARGS{'TimeEstimated'},
+        TimeEstimated   => $ARGS{'TimeEstimated'},
         TimeWorked      => $ARGS{'TimeWorked'},
         Requestor       => \@Requestors,
         Cc              => \@Cc,
@@ -405,10 +405,7 @@
         }
     }
 
-
-    # XXX TODO This code should be about six lines. and badly needs refactoring.
- 
-    # {{{ turn new link lists into arrays, and pass in the proper arguments
+    # turn new link lists into arrays, and pass in the proper arguments
     my %map = (
         'new-DependsOn' => 'DependsOn',
         'DependsOn-new' => 'DependedOnBy',
@@ -422,8 +419,6 @@
         $create_args{ $map{ $key } } = [ grep $_, split ' ', $ARGS{ $key } ];
         
     }
-    # }}}
-  
  
     my ( $id, $Trans, $ErrMsg ) = $Ticket->Create(%create_args);
     unless ( $id && $Trans ) {