[Jifty-commit] r3331 - jifty/trunk/lib/Jifty/Plugin

[jifty-commit at lists.jifty.org]

Author: clkao
Date: Sun Jun  3 16:48:06 2007
New Revision: 3331

Modified:
   jifty/trunk/lib/Jifty/Plugin/SinglePage.pm

Log:
Quick hack to fix explicit region in onclick arguments.

Modified: jifty/trunk/lib/Jifty/Plugin/SinglePage.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Plugin/SinglePage.pm	(original)
+++ jifty/trunk/lib/Jifty/Plugin/SinglePage.pm	Sun Jun  3 16:48:06 2007
@@ -17,8 +17,10 @@
     my $self = shift;
     return sub {
         my ( $clickable, $args ) = @_;
-	return if $args->{url} && $args->{url} =~ m/^#/;
-        if ( my $url = delete $args->{'url'} ) {
+        my $url = $args->{'url'};
+        if ( $url && $url !~ m/^#/ ) {
+            delete $args->{'url'};
+
             # XXX mind the existing onclick
             use Data::Dumper;
             warn 'ooops got original onclick' . Dumper( $args->{onclick} )
@@ -29,7 +31,14 @@
                 args         => delete $args->{parameters}
             };
         }
+        my $onclick = $args->{onclick};
+        if ( ref($onclick) eq 'HASH' ) {
+            if ( $onclick->{region} && !ref( $onclick->{region} ) ) {
+                $onclick->{region}
+                    = $self->region_name . '-' . $onclick->{region};
+            }
         }
+    }
 }