--no_c_escapes- { #line push #line 32 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" #line push #line 33 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" declare xsl_sheet, xml_src, src_xslt, rel_path, xml_file, xsl_file, save_path varchar; declare xml_tree, xslt_tree, pars, xml_tree_doc, ses, res any; declare n, len, result integer; if (get_keyword('save',params) is null) return; xsl_sheet := get_keyword('xsl_sheet',params); xml_src := get_keyword('xml_src',params); save_path:= get_keyword('file_loc',params); if (xsl_sheet ='') { http_request_status('HTTP/1.1 302 Found'); http_header(sprintf('Location: xslt_result.vspx?result=error&error=%s&sid=%s&realm=%s\r\n','Stylesheet file was not specified.',self.sid ,self.realm)); return; } if (xml_src ='') { http_request_status('HTTP/1.1 302 Found'); http_header(sprintf('Location: xslt_result.vspx?result=error&error=%s&sid=%s&realm=%s\r\n','Stylesheet file was not specified.',self.sid ,self.realm)); return; } rel_path:='/'; len:= length(path)-1; n:=0; while (n < len) { rel_path := concat(rel_path,aref(path,n),'/'); n:= n+1; } select blob_to_string(RES_CONTENT) into xml_file from WS.WS.SYS_DAV_RES where RES_FULL_PATH = xml_src; xml_tree := xml_tree(xml_file); select blob_to_string(RES_CONTENT) into src_xslt from WS.WS.SYS_DAV_RES where RES_FULL_PATH = xsl_sheet; xslt_sheet(src_xslt, xml_tree_doc (src_xslt)); ses := string_output(); xml_tree_doc:= xml_tree_doc(xml_tree); -- pars := vector('section_name', '','ext_doc',concat('file:', path)); res := xslt(src_xslt, xml_tree_doc); http_value(res,0,ses); result :=0; if (not(save_path = '')) result := DAV_RES_UPLOAD(save_path, string_output_string(ses), 'text/html','110100000R', 'dav', 'dav','dav','dav'); else { http_request_status('HTTP/1.1 302 Found'); http_header(sprintf('Location: xslt_result.vspx?result=error&error=%s&sid=%s&realm=%s\r\n','File to save to is not specified.',self.sid ,self.realm)); return; } http_request_status('HTTP/1.1 302 Found'); http_header(sprintf('Location: xslt_result.vspx?result=ok&sid=%s&realm=%s\r\n',self.sid ,self.realm)); return; #line pop #line pop } XML Source* --no_c_escapes- { #line push #line 90 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" #line push #line 91 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" if (get_keyword('xml_src', control.vc_page.vc_event.ve_params) is not null) control.ufl_value := get_keyword('xml_src', control.vc_page.vc_event.ve_params); control.vc_data_bound := 1; #line pop #line pop } --no_c_escapes- { #line push #line 105 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" #line push #line 106 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" control.ufl_selected:= 0; if ( get_keyword('save_mode', control.vc_page.vc_event.ve_params) ='0' ) control.ufl_selected:= 1; control.vc_data_bound := 1; #line pop #line pop } Screen output XSL Sheet* --no_c_escapes- { #line push #line 125 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" #line push #line 126 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" if (get_keyword('xsl_sheet', control.vc_page.vc_event.ve_params) is not null) control.ufl_value := get_keyword('xsl_sheet', control.vc_page.vc_event.ve_params); control.vc_data_bound := 1; #line pop #line pop } --no_c_escapes- { #line push #line 140 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" #line push #line 141 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" control.ufl_selected:= 0; if (get_keyword('save_mode', control.vc_page.vc_event.ve_params) = '1' or get_keyword('save_mode', control.vc_page.vc_event.ve_params) is null) control.ufl_selected:= 1; control.vc_data_bound := 1; #line pop #line pop } File output --no_c_escapes- { #line push #line 160 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" #line push #line 161 "virt://WS.WS.SYS_DAV_RES.RES_FULL_PATH.RES_CONTENT:/DAV/VAD/conductor/xslt_inc.vspx" if (get_keyword('file_loc', control.vc_page.vc_event.ve_params) is not null) control.ufl_value := get_keyword('file_loc', control.vc_page.vc_event.ve_params); control.vc_data_bound := 1; #line pop #line pop }