__SEND_MESG_DEBUG("viewTD par_id=%d",par_id)
__SQL_GET_INTEGER(document_version,"SELECT file_version FROM co_%s_%s WHERE id=%d", par_area, par_class, par_id)
if (!ok) // object does not exist
{
ap_rputs("<BODY>\n<H1>requested object does not exist</H1>\n</BODY>",r);
return 0;
}
//ap_rprintf(r,"<HEAD>\n<SCRIPT>\nvar par_id=%d\nvar version_number=%d\n</SCRIPT>\n", par_id, document_version);
filename = ap_psprintf(p, "%s/text_document/viewTextDocument.up", cou_getCORootPath(cnx));
__PUT_ASP_FROM_FILE(filename)
@co_call(par_area,par_class,'getFileAsString',par_id=>par_id,par_area=>par_area,par_class=>par_class);
filedata = (const char *) cou_getReturnValue(cnx, CO_STRING, &err);
ap_rputs( cou_buildHTMLEncodedTextDocument(cnx, filedata), r );
filename = ap_psprintf(p, "%s/text_document/viewTextDocument.down", cou_getCORootPath(cnx));
__PUT_HTML_FROM_FILE(filename)