[freeside-commits] freeside/rt/lib/RT/Action EscalatePriority.pm, 1.1.1.9, 1.2

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/rt/lib/RT/Action
In directory wavetail.420.am:/tmp/cvs-serv12796/rt/lib/RT/Action

Modified Files:
	EscalatePriority.pm 
Log Message:
ticketing escalation, part 1, RT#8254

Index: EscalatePriority.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/rt/lib/RT/Action/EscalatePriority.pm,v
retrieving revision 1.1.1.9
retrieving revision 1.2
diff -u -w -d -r1.1.1.9 -r1.2
--- EscalatePriority.pm	31 Dec 2009 13:10:31 -0000	1.1.1.9
+++ EscalatePriority.pm	1 Jan 2011 06:39:17 -0000	1.2
@@ -121,7 +121,12 @@
 
     # we've got a due date. now there are other things we should do
     else { 
-	my $diff_in_seconds = $due->Diff(time());    
+        my $arg = $self->Argument || '';
+        my $now = time();
+        if ( $arg =~ /CurrentTime:\s*(\d+)/i ) {
+            $now = $1;
+        } 
+	my $diff_in_seconds = $due->Diff($now);    
 	my $diff_in_days = int( $diff_in_seconds / 86400);    
 	
 	#if we haven't hit the due date yet