[Bps-public-commit] r9459 - RT-Extension-SLA/lib/RT/Extension

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Oct 25 08:56:27 2007
New Revision: 9459

Modified:
   RT-Extension-SLA/lib/RT/Extension/SLA.pm

Log:
default queue SLA should work now

Modified: RT-Extension-SLA/lib/RT/Extension/SLA.pm
==============================================================================
--- RT-Extension-SLA/lib/RT/Extension/SLA.pm	(original)
+++ RT-Extension-SLA/lib/RT/Extension/SLA.pm	Thu Oct 25 08:56:27 2007
@@ -273,7 +273,15 @@
         $args{'Queue'} = $args{'Ticket'}->QueueObj;
     }
     if ( $args{'Queue'} ) {
-        # TODO: here we should implement per queue defaults
+        local $@;
+        eval { require RT::Extension::QueueSLA };
+        if ( $@ ) {
+            $RT::Logger->crit("Couldn't load RT::Extension::QueueSLA: $@");
+        }
+        else {
+            return $self->TicketObj->QueueObj->SLA
+              if $self->TicketObj->QueueObj->SLA;
+        }
     }
     return $RT::SLA{'Default'};
 }