File: field_layout_parser

package info (click to toggle)
libhtml-formfu-perl 2.01000-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 4,116 kB
  • ctags: 828
  • sloc: perl: 12,478; makefile: 7; sql: 5
file content (22 lines) | stat: -rw-r--r-- 784 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
[% IF reftype(layout) == 'ARRAY' 
%][%    items = []
%][%    FOREACH item = layout 
%][%        output = INCLUDE $self.layout_parser_filename layout=item 
%][%        IF output.length 
%][%            items.push(output) 
%][%        END 
%][%    END 
%][%    items.join("\n") 
%][% ELSIF reftype(layout) == 'HASH' 
%][%    key = layout.keys.first;
        value = layout.$key 
%][%    method_name = "layout_" _ key _ "_filename";
        file_name = self.$method_name 
%][%    TRY %][% INCLUDE $file_name arguments=[key, value] 
%][%    CATCH file %][% INCLUDE $self.layout_block_filename arguments=[key, value] 
%][%    END 
%][% ELSE 
%][%    method_name = "layout_" _ layout _ "_filename";
        file_name = self.$method_name 
%][%    INCLUDE $file_name arguments=[] 
%][% END %]