[Rt-commit] r7636 - in rtir/branches/2.3-EXPERIMENTAL: .

ruz at bestpractical.com ruz at bestpractical.com
Mon Apr 23 08:32:25 EDT 2007


Author: ruz
Date: Mon Apr 23 08:32:15 2007
New Revision: 7636

Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)
   rtir/branches/2.3-EXPERIMENTAL/lib/RT/Action/RTIR_SetState.pm

Log:
 r1896 at cubic-pc:  cubic | 2007-04-23 16:28:46 +0400
 * add logging


Modified: rtir/branches/2.3-EXPERIMENTAL/lib/RT/Action/RTIR_SetState.pm
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/lib/RT/Action/RTIR_SetState.pm	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/lib/RT/Action/RTIR_SetState.pm	Mon Apr 23 08:32:15 2007
@@ -24,13 +24,16 @@
 
     my $cf = RT::CustomField->new( $self->TransactionObj->CurrentUser );
     $cf->LoadByNameAndQueue( Queue => $t->QueueObj->Id, Name => '_RTIR_State' );
-    return 1 unless $cf->Id;
+    unless ( $cf->Id ) {
+        $RT::Logger->warning("Couldn't load '_RTIR_State' CF for queue ". $t->QueueObj->Name );
+        return 1;
+    }
 
     my $state = $self->GetState;
     return 1 unless $state;
 
     my ($res, $msg) = $t->AddCustomFieldValue(Field => $cf->id, Value => $state);
-    $RT::Logger->info("Couldn't add custom field value: $msg") unless $res;
+    $RT::Logger->warning("Couldn't add custom field value: $msg") unless $res;
     return 1;
 }
 


More information about the Rt-commit mailing list