__CREATE_QUERY("SELECT file_version, name FROM co_%s_%s WHERE id=%d", par_area, par_class, par_id)
__SQL_GET_RESULT
document_version = atoi(cor_GetValue(cnx, corec,0,0));
if (version_number == -1) version_number = document_version;
ap_rprintf(r,"<HEAD>\n<SCRIPT>\nvar par_id=%d\nvar version_number=%d\n</SCRIPT>\n</HEAD>\n",par_id,version_number);
ap_rputs("<BODY bgcolor=black>\n",r);
ap_rputs("<TABLE>\n<TR>\n",r);
ap_rputs("<TD><TEXTAREA rows=30 cols=64 READONLY=TRUE>\n",r);
// @co_call(par_area,par_class,'getPath',par_id=>par_id,par_area=>par_area,par_class=>par_class);
// filename = ap_psprintf(p, "%s/%s", cou_getCODataPath(), cou_getReturnValue( cnx, CO_STRING, &err));
filename = ap_psprintf(p, "%s/%s", cou_getCODataPath(), loc_getPathForVersion( p, par_area, par_class, par_id, version_number));
__PUT_HTML_FROM_FILE(filename)
ap_rputs("</TEXTAREA>\n</TD>\n",r);
ap_rputs("<TD valign=top>",r);
ap_rputs("<TABLE BORDER=1 bgcolor=white>\n",r);
ap_rprintf(r,"<TR>\n<TD bgcolor=yellow>document name</TD>\n<TD align=center><FONT color=green>%s</FONT></TD>\n",cor_GetValue(cnx, corec,0,1));
__CLEAR_RESULT
stat(filename,&file_stat);
ap_rprintf(r,"<TR>\n<TD bgcolor=cyan>document length</TD>\n<TD align=center>%d bytes</TD>\n",(int) file_stat.st_size);
ap_rprintf(r,"<TR>\n<TD bgcolor=cyan>last access</TD>\n<TD><FONT color=blue>%s</FONT></TD>\n</TR>\n",ctime(&(file_stat.st_atime)));
ap_rprintf(r,"<TR>\n<TD bgcolor=cyan>last modification</TD>\n<TD><FONT color=blue>%s</FONT></TD>\n</TR>\n",ctime(&(file_stat.st_mtime)));
ap_rprintf(r,"<TR>\n<TD bgcolor=cyan>last change</TD>\n<TD><FONT color=blue>%s</FONT></TD>\n</TR>\n",ctime(&(file_stat.st_ctime)));
ap_rputs("<TR>\n<TD COLSPAN=2 align=center bgcolor=green>\n<FONT color=white>version ",r);
if(version_number>1) ap_rprintf(r,"<INPUT type=button value='<<' onclick='location.href=\"%s?browseTextDocumentVersions&par_id=%d&version_number=%d\"'>\n",par_class,par_id,version_number-1);
ap_rprintf(r,"<INPUT type=text size=3 value='%d' onchange='location.href=\"%s?browseTextDocumentVersions&par_id=%d&version_number=\"+this.value'>\n",version_number, par_class, par_id);
if(version_number<document_version) ap_rprintf(r,"<INPUT type=button value='>>' onclick='location.href=\"%s?browseTextDocumentVersions&par_id=%d&version_number=%d\"'>\n",par_class,par_id,version_number+1);
ap_rprintf(r," out of %d</FONT>",document_version);
ap_rputs("</TD>\n</TR>\n</TABLE>\n",r);
ap_rputs("</TD>\n</TR>\n</TABLE>\n",r);
ap_rputs("</BODY>",r);