[% BLOCK logme_block; "\n\t\n"; END; MACRO logme(a) PROCESS logme_block x = a.list.join(', '); USE CGI; USE DBI; USE WebSession; USE utils = WebUtils; USE config = XML.LibXML(config_xml, expand_xinclude => 1); dir = '/reporter/setup/files/' _ stage_dir; dir = config.findvalue(dir); dbname = config.findvalue('/reporter/setup/database/name'); dbhost = config.findvalue('/reporter/setup/database/host'); d_u = config.findvalue('/reporter/setup/database/user'); d_p = config.findvalue('/reporter/setup/database/password'); dsn = "dbi:Pg:dbname=" _ dbname _';host=' _ dbhost; logme([dsn,d_u,d_p]); DBI.connect(dsn,d_u,d_p); WRAPPER html/html; INCLUDE header.ttk title="Basic Report Types"; WRAPPER html/body; INCLUDE logout.ttk; IF !CGI.param('id'); IF CGI.param('detail'); %]|No Details (All)[% ELSE; %]|Details (All)[% END; PROCESS all_stage1; ELSE; PROCESS one_stage1; END; END; INCLUDE footer.ttk; END; #============================================================================= BLOCK one_stage1; %]|Show all[% uid = DBI.quote(user.id()); rid = DBI.quote(CGI.param('id')); q = "select * from reporter.stage1 where (pub is true or owner = $uid) and id = $rid;"; FOR s1 IN DBI.query(q); file = dir _ '/' _ s1.filename; USE doc = XML.LibXML(file); fact_table = doc.findvalue('//report/@fact-table'); logme(fact_table); PROCESS stage1_summary; PROCESS stage2_new IF CGI.param('create_stage2') == 1; END; END; BLOCK all_stage1; '