/lib/tpl/wrapper

http://github.com/perlorg/cpanorg · #! · 11 lines · 9 code · 2 blank · 0 comment · 0 complexity · 6470e1efa708844b08a72cb9acf8ff8d MD5 · raw file 

    

  1. [%- content = PROCESS $template;
    2. 

  2. 

  3.    #USE Dumper; Dumper.dump_html(page template);
    4. 

  4. 

  5.    IF !template.name.search('.html') OR page.style == 'none';
    6. 

  6.       content;
    7. 

  7.    ELSE;
    8. 

  8.       default_style_template = "style/" _ page.style;
    9. 

  9.       PROCESS $default_style_template;
    10. 

  10.    END;
    11. 

  11. %]
    12.