Lines 50-55
sub get_columns {
Link Here
|
50 |
$columns = [ map { |
50 |
$columns = [ map { |
51 |
{ |
51 |
{ |
52 |
cannot_be_toggled => exists $_->{cannot_be_toggled} ? $_->{cannot_be_toggled} : 0, |
52 |
cannot_be_toggled => exists $_->{cannot_be_toggled} ? $_->{cannot_be_toggled} : 0, |
|
|
53 |
cannot_be_modified => exists $_->{cannot_be_modified} ? $_->{cannot_be_modified} : 0, |
53 |
is_hidden => exists $_->{is_hidden} ? $_->{is_hidden} : 0, |
54 |
is_hidden => exists $_->{is_hidden} ? $_->{is_hidden} : 0, |
54 |
columnname => $_->{columnname}, |
55 |
columnname => $_->{columnname}, |
55 |
} |
56 |
} |
Lines 69-74
sub get_modules {
Link Here
|
69 |
@{ $list->{modules}{ $c->module }{ $c->page }{ $c->tablename } }; |
70 |
@{ $list->{modules}{ $c->module }{ $c->page }{ $c->tablename } }; |
70 |
$column->{is_hidden} = $c->is_hidden; |
71 |
$column->{is_hidden} = $c->is_hidden; |
71 |
$column->{cannot_be_toggled} = $c->cannot_be_toggled; |
72 |
$column->{cannot_be_toggled} = $c->cannot_be_toggled; |
|
|
73 |
$column->{cannot_be_modified} = 0 |
74 |
unless exists $column->{cannot_be_modified}; |
72 |
} |
75 |
} |
73 |
|
76 |
|
74 |
return $list->{modules}; |
77 |
return $list->{modules}; |