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

Fixed really stupid mistake in previous commit.

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

2
Block.pm
View File

@ -85,7 +85,7 @@ sub new {
if(!defined($self -> {"block"})) {
my $block = $self -> {"cgi"} -> param("block");
$self -> {"block"} = if($block && $block =~ /^\w+$/);
$self -> {"block"} = $block if($block && $block =~ /^\w+$/);
$self -> {"block"} = $self -> {"settings"} -> {"config"} -> {"default_block"} if(!$self -> {"block"});
}