[Rt-commit] r8568 - rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed Aug 15 21:18:14 2007
New Revision: 8568

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm

Log:
* update queue's main properties when we load_or_create_queue.

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm	Wed Aug 15 21:18:14 2007
@@ -214,6 +214,17 @@
     unless ( $obj->id ) {
         my ($val, $msg) = $obj->Create( %args );
         die "$msg" unless $val;
+    } else {
+        my @fields = qw(CorrespondAddress CommentAddress);
+        foreach my $field ( @fields ) {
+            next unless exists $args{ $field };
+            
+            no warnings 'uninitialized';
+            my $method = 'Set'. $field;
+            my ($val, $msg) = $obj->$method( $args{ $field } )
+                unless $args{ $field } eq $obj->$field;
+            die "$msg" unless $val;
+        }
     }
 
     return $obj;