root_path = cou_getCORootPath( cnx );
__SQL_GET_STRING(name_role, "SELECT name FROM co_sec_role WHERE id=%d", cnx->id_role)
if(strcmp(par_area,"usr")==0) {
__SQL_GET_STRING(block_date, "SELECT block_date FROM co_usr_block_date WHERE id=1")
}
fh = ap_pfopen(p, ap_pstrcat( p, root_path, "/forms/", "generic", "_head.html", NULL), "r");
if (!fh) cou_error( cnx, "Head file not found");
cou_logError( cnx, CO_LOG_DEBUG, "sending head" );
ap_rputs("<HEAD>\n", r);
ap_kill_timeout(r);
len = ap_send_fd( fh, r ); /* returns total of bytes sent */
ap_log_rerror(APLOG_MARK, APLOG_DEBUG, r, "Head sent: %ld bytes", len);
ap_pfclose(p,fh);
cou_logError( cnx, CO_LOG_DEBUG, "sending script" );
ap_rputs("<SCRIPT>\n", r);
ap_rprintf( r, "var id_session = %d;\n", cou_assignNewSession( cnx ) );
ap_rprintf( r, "var par_id = %d;\n", par_id );
ap_rprintf( r, "var par_class=\'%s\';\n", par_class );
ap_rprintf( r, "var par_area = \'%s\';\n", par_area );
ap_rprintf( r, "var debug_level = %d;\n", cnx->debug_level );
ap_rprintf( r, "var deep_level = %d;\n", deep_level );
ap_rprintf( r, "var language = \'%s\';\n", cnx->language );
ap_rprintf( r, "var role = {id : %d , name: \'%s\'};\n", cnx->id_role, name_role );
ap_rprintf( r, "var context_name = \'%s\';\n", context_name );
ap_rprintf( r, "var context1 = \'%s\';\n", context1 );
ap_rprintf( r, "var context2 = \'%s\';\n", context2 );
ap_rprintf( r, "var context3 = \'%s\';\n", context3 );
ap_rprintf( r, "var block_date = String(\'%s\');\n", block_date );
__SQL_GET_STRING(class_label, "
SELECT L.text FROM co_%s_meta_class AS M, co_%s_label_class AS L
WHERE M.class_name = '%s' AND L.id_meta_class = M.id AND L.language = '%s'
", par_area, par_area,
par_class, cnx->language)
ap_rprintf( r, "var class_label = \'%s\';\n", class_label );
ap_rputs("</SCRIPT>\n", r);
ap_rputs("</HEAD>\n", r);
fh = ap_pfopen(p, ap_pstrcat( p, root_path, "/forms/", "generic", "_body.html", NULL), "r");
if (!fh) cou_error( cnx, "Body file not found");
cou_logError( cnx, CO_LOG_DEBUG, "sending body" );
ap_rputs("<BODY>\n", r);
len = ap_send_fd( fh, r ); /* returns total of bytes sent */
if (r->connection->aborted) ap_log_rerror(APLOG_MARK, APLOG_DEBUG, r, "connection aborted");
ap_log_rerror(APLOG_MARK, APLOG_DEBUG, r, "bytes_send=%ld", r->bytes_sent);
ap_soft_timeout((char *) "finish request", r);
ap_log_rerror(APLOG_MARK, APLOG_DEBUG, r, "Body sent: %ld bytes", len);
ap_pfclose(p,fh);
ap_rputs("</BODY>\n", r);
ap_rflush(r);