[Rt-commit] r6752 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Mon Jan 15 14:37:18 2007
New Revision: 6752

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web/Request.pm

Log:
 r4378 at cubic-pc:  cubic | 2007-01-15 22:48:46 +0300
 * fix CalbackOnce feature


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web/Request.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web/Request.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web/Request.pm	Mon Jan 15 14:37:18 2007
@@ -64,14 +64,12 @@
 
     my $page = delete $args{'CallbackPage'} || $self->callers(0)->path;
     my $name = delete $args{'CallbackName'} || 'Default';
-    my $once = delete $args{'CallbackOnce'};
 
     my $CacheKey = "$page--$name";
-    my $callbacks = $cache{ $CacheKey };
-
     return 1 if delete $args{'CallbackOnce'} && $called{ $CacheKey };
     ++$called{ $CacheKey };
 
+    my $callbacks = $cache{ $CacheKey };
     unless ( $callbacks ) {
         my $path  = "/Callbacks/*$page/$name";
         my @roots = map $_->[1],