File: field_layout_parser

package info (click to toggle)
libhtml-formfu-perl 2.07000-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster
  • size: 4,392 kB
  • sloc: perl: 12,777; makefile: 9; sql: 5
file content (22 lines) | stat: -rw-r--r-- 767 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 %]