[Rt-commit] r4947 - in rtir/branches/1.9-EXPERIMENTAL: etc

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Apr  4 12:25:49 2006
New Revision: 4947

Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)
   rtir/branches/1.9-EXPERIMENTAL/etc/initialdata

Log:
 r12116 at zoq-fot-pik:  chmrr | 2006-04-04 12:25:26 -0400
  * RTFM is now required


Modified: rtir/branches/1.9-EXPERIMENTAL/etc/initialdata
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/etc/initialdata	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/etc/initialdata	Tue Apr  4 12:25:49 2006
@@ -764,53 +764,53 @@
 } );
 
 @Final = ( sub {
-    eval {require RT::FM;};
-    unless ($@) {
+    eval { require RT::FM; };
+    die "You must install RTFM!" if $@;
+
     $| = 1;
-        my $CurrentUser = RT::CurrentUser->new();
-        $CurrentUser->LoadByName('RT_System');
+    my $CurrentUser = RT::CurrentUser->new();
+    $CurrentUser->LoadByName('RT_System');
 
-        require RT::FM::Class;
-        my $class = RT::FM::Class->new($CurrentUser);
-        $class->Load('Templates');
-        unless ($class->Id) {
-            print "  Creating 'Templates' RTFM class..";
-            my ($id, $msg) = $class->Create(
-                Name => 'Templates',
-                Description => 'Response templates',
-                HotList => 1
-            );
-            die $msg unless $id;
-            print "Done\n";
-        }
-
-        my $response = RT::CustomField->new($CurrentUser);
-        $response->Load('Response');
-        unless ($response->Id and $response->LookupType eq RT::FM::Article->CustomFieldLookupType) {
-            print "  Creating 'Response' RTFM custom field..";
-            my ($id, $msg) = $response->Create(
-                Name => 'Response',
-                Type => 'Text',
-                Description => 'Response to be inserted into the ticket',
-                LookupType => RT::FM::Article->CustomFieldLookupType,
-            );
-            die $msg unless $id;
-            print "Done\n";
-        }
-
-        $response->AddToObject($class);
-        $class->SetAttribute(Name => "Skip-$_", Content => 1)
-          for ("Name", "Summary", "CF-Title-".$response->Id);
-
-        my $group = RT::Group->new($CurrentUser);
-        $group->LoadUserDefinedGroup( "DutyTeam" );
-        die "Can't load group" unless $group->Id;
-        $group->PrincipalObj->GrantRight( Right => $_, Object => $response )
-          for qw/SeeCustomField ModifyCustomField/;
-        $group->PrincipalObj->GrantRight( Right => $_, Object => $class )
-          for qw/AdminClass AdminTopics CreateArticle ModifyArticle ModifyArticleTopics SeeClass ShowArticle ShowArticleHistory DeleteArticle/;
+    require RT::FM::Class;
+    my $class = RT::FM::Class->new($CurrentUser);
+    $class->Load('Templates');
+    unless ($class->Id) {
+        print "  Creating 'Templates' RTFM class..";
+        my ($id, $msg) = $class->Create(
+            Name => 'Templates',
+            Description => 'Response templates',
+            HotList => 1
+        );
+        die $msg unless $id;
+        print "Done\n";
+    }
 
-        print "Done.\n";
+    my $response = RT::CustomField->new($CurrentUser);
+    $response->Load('Response');
+    unless ($response->Id and $response->LookupType eq RT::FM::Article->CustomFieldLookupType) {
+        print "  Creating 'Response' RTFM custom field..";
+        my ($id, $msg) = $response->Create(
+            Name => 'Response',
+            Type => 'Text',
+            Description => 'Response to be inserted into the ticket',
+            LookupType => RT::FM::Article->CustomFieldLookupType,
+        );
+        die $msg unless $id;
+        print "Done\n";
     }
+
+    $response->AddToObject($class);
+    $class->SetAttribute(Name => "Skip-$_", Content => 1)
+      for ("Name", "Summary", "CF-Title-".$response->Id);
+
+    my $group = RT::Group->new($CurrentUser);
+    $group->LoadUserDefinedGroup( "DutyTeam" );
+    die "Can't load group" unless $group->Id;
+    $group->PrincipalObj->GrantRight( Right => $_, Object => $response )
+      for qw/SeeCustomField ModifyCustomField/;
+    $group->PrincipalObj->GrantRight( Right => $_, Object => $class )
+      for qw/AdminClass AdminTopics CreateArticle ModifyArticle ModifyArticleTopics SeeClass ShowArticle ShowArticleHistory DeleteArticle/;
+
+    print "Done.\n";
 } );