[Rt-commit] r13463 - in rt/3.8/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Fri Jun 20 14:23:31 2008
New Revision: 13463

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/lib/RT/Dashboard.pm

Log:
 r62979 at dhcp184:  sartak | 2008-06-20 13:22:09 -0500
 Update the privacy in Dashboard->UpdateAttribute


Modified: rt/3.8/trunk/lib/RT/Dashboard.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Dashboard.pm	(original)
+++ rt/3.8/trunk/lib/RT/Dashboard.pm	Fri Jun 20 14:23:31 2008
@@ -119,6 +119,20 @@
             unless $self->Name eq $args->{'Name'};
     }
 
+    if ($status && $args->{'Privacy'}) {
+        my ($new_obj_type, $new_obj_id) = split /-/, $args->{'Privacy'};
+        my ($obj_type, $obj_id) = split /-/, $self->Privacy;
+
+        my $attr = $self->{'Attribute'};
+        if ($new_obj_type ne $obj_type) {
+            ($status, $msg) = $attr->SetObjectType($new_obj_type);
+        }
+        if ($status && $new_obj_id != $obj_id ) {
+            ($status, $msg) = $attr->SetObjectId($new_obj_id);
+        }
+        $self->{'Privacy'} = $args->{'Privacy'} if $status;
+    }
+
     return ($status, $msg);
 }