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

[ruz at bestpractical.com]

Author: ruz
Date: Wed Apr 18 10:51:15 2007
New Revision: 7542

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

Log:
 r4975 at cubic-pc:  cubic | 2007-04-18 18:15:18 +0400
 * add errors handling into $m->callback


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	Wed Apr 18 10:51:15 2007
@@ -60,8 +60,11 @@
 sub callback {
     my ($self, %args) = @_;
 
-    my $page = delete $args{'CallbackPage'} || $self->callers(0)->path;
     my $name = delete $args{'CallbackName'} || 'Default';
+    my $page = delete $args{'CallbackPage'} || $self->callers(0)->path;
+    unless ( $page ) {
+        $RT::Logger->error("Coulnd't get a page name for callbacks");
+    }
 
     my $CacheKey = "$page--$name";
     return 1 if delete $args{'CallbackOnce'} && $called{ $CacheKey };