[Rt-commit] r4537 - in rtir/branches/1.9-EXPERIMENTAL: lib/RT/IR

[ruz at bestpractical.com]

Author: ruz
Date: Wed Feb 15 17:25:23 2006
New Revision: 4537

Added:
   rtir/branches/1.9-EXPERIMENTAL/lib/RT/IR/
   rtir/branches/1.9-EXPERIMENTAL/lib/RT/IR/Ticket.pm
Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)

Log:
 r717 at cubic-pc:  cubic | 2006-02-16 01:26:06 +0300
 * ticket's utilities


Added: rtir/branches/1.9-EXPERIMENTAL/lib/RT/IR/Ticket.pm
==============================================================================
--- (empty file)
+++ rtir/branches/1.9-EXPERIMENTAL/lib/RT/IR/Ticket.pm	Wed Feb 15 17:25:23 2006
@@ -0,0 +1,30 @@
+package RT::IR::Ticket;
+
+use strict;
+use warnings;
+
+=head1 NAME
+
+RT::IR::Ticket - RTIR's tickets utilities
+
+=head1 FUNCTIONS
+
+=head2 FirstCustomFieldValue $TicketObj, $Field
+
+Returns first RTIR ticket's custom field value. Use it only with RTIR's
+special custom fields like C<_RTIR_State> and other.
+
+=cut
+
+sub FirstCustomFieldValue {
+    my $ticket = shift;
+    return undef unless $ticket->CurrentUserHasRight('ShowTicket');
+
+    my $field = shift;
+    my $old_user = $ticket->CurrentUser( $RT::SystemUser );
+    my $value = $ticket->FirstCustomFieldValue( $field );
+    $ticket->CurrentUser( $old_user );
+    return $value;
+}
+
+1;