[Rt-commit] r6144 - in rtir/branches/2.1-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue Oct  3 07:17:57 2006
New Revision: 6144

Modified:
   rtir/branches/2.1-EXPERIMENTAL/   (props changed)
   rtir/branches/2.1-EXPERIMENTAL/etc/upgrade/2.1.0/content

Log:
 r1681 at cubic-pc:  cubic | 2006-10-03 15:20:10 +0400
 * make upgrade more descriptive


Modified: rtir/branches/2.1-EXPERIMENTAL/etc/upgrade/2.1.0/content
==============================================================================
--- rtir/branches/2.1-EXPERIMENTAL/etc/upgrade/2.1.0/content	(original)
+++ rtir/branches/2.1-EXPERIMENTAL/etc/upgrade/2.1.0/content	Tue Oct  3 07:17:57 2006
@@ -52,13 +52,26 @@
     }
 }
 
+sub set_cf_field {
+    my ($name, $field, $value) = @_;
+    my $cf = get_cf( $name ) or return;
+    my $method = 'Set'. $field;
+    my ($status, $msg) = $cf->$method( $value );
+    unless ( $status ) {
+        print STDERR "Couldn't set CF's $field property. Error: $msg\n";
+        return;
+    } else {
+        print "Changed $field for the custom field $name to '$value'\n";
+    }
+}
+
 @Initial = (
     sub { apply_cf_to_queues( '_RTIR_IP', 'Incidents', 'Incident Reports', 'Investigations' ) },
     sub { set_cf_max_values( '_RTIR_IP', 0 ) },
-    sub { get_cf( '_RTIR_IP' )->SetDescription('IP address for RTIR queues') },
+    sub { set_cf_field( '_RTIR_IP', 'Description', 'IP address for RTIR queues' ) },
 
     sub { apply_cf_to_queues( '_RTIR_Constituency', 'Incident Reports', 'Investigations', 'Blocks' ) },
-    sub { get_cf( '_RTIR_Constituency' )->SetDescription('Constituency for RTIR queues') },
+    sub { set_cf_field( '_RTIR_Constituency', 'Description', 'Constituency for RTIR queues' ) },
 );
 
 @Groups = (