[Rt-commit] r11174 - rtir/branches/2.3-EXPERIMENTAL/lib/RT
ruz at bestpractical.com
ruz at bestpractical.com
Mon Mar 24 22:17:57 EDT 2008
Author: ruz
Date: Mon Mar 24 22:17:56 2008
New Revision: 11174
Modified:
rtir/branches/2.3-EXPERIMENTAL/lib/RT/IR.pm
Log:
* report correct type of the ticket all the time, even if user
has no enough rights
Modified: rtir/branches/2.3-EXPERIMENTAL/lib/RT/IR.pm
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/lib/RT/IR.pm (original)
+++ rtir/branches/2.3-EXPERIMENTAL/lib/RT/IR.pm Mon Mar 24 22:17:56 2008
@@ -138,23 +138,16 @@
my %arg = ( Queue => undef, Ticket => undef, @_);
if ( defined $arg{'Ticket'} && !defined $arg{'Queue'} ) {
- my $obj;
- if ( ref $arg{'Ticket'} ) {
- $obj = $arg{'Ticket'};
- }
- else {
- $obj = RT::Ticket->new( $RT::SystemUser );
- $obj->Load( $arg{'Ticket'} );
- }
- $arg{'Queue'} = $obj->QueueObj if $obj->id;
+ my $obj = RT::Ticket->new( $RT::SystemUser );
+ $obj->Load( ref $arg{'Ticket'} ? $arg{'Ticket'}->id : $arg{'Ticket'} );
+ $arg{'Queue'} = $obj->QueueObj->Name if $obj->id;
}
return undef unless defined $arg{'Queue'};
- return $TYPE{ lc $arg{'Queue'}->Name } if ref $arg{'Queue'};
- return $TYPE{ lc $arg{'Queue'} } unless $arg{'Queue'} =~ /^\d+$/;
+ return $TYPE{ lc $arg{'Queue'} } if !ref $arg{'Queue'} && $arg{'Queue'} !~ /^\d+$/;
my $obj = RT::Queue->new( $RT::SystemUser );
- $obj->Load( $arg{'Queue'} );
+ $obj->Load( ref $arg{'Queue'}? $arg{'Queue'}->id : $arg{'Queue'} );
return $TYPE{ lc $obj->Name } if $obj->id;
return undef;
More information about the Rt-commit
mailing list