Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed block id/name fetch in constructor.

Browse Source
This commit is contained in:
Chris 2012-01-04 12:16:06 +00:00
parent 5a4bb34216
commit e738b6f98c
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Block.pm
View File

@ -79,7 +79,15 @@ sub new {
};
# Work out which block we're being invoked with
$self -> {"block"} = is_defined_numeric($self -> {"cgi"}, "block") || $self -> {"settings"} -> {"config"} -> {"default_block"};
$self -> {"block"} = is_defined_numeric($self -> {"cgi"}, "block");
# block id is not set, check whether the block name is
if(!defined($self -> {"block"})) {
my $block = $self -> {"cgi"} -> param("block");
$self -> {"block"} = if($block && $block =~ /^\w+$/);
$self -> {"block"} = $self -> {"settings"} -> {"config"} -> {"default_block"} if(!$self -> {"block"});
}
return bless $self, $class;
}