# -*- tcl -*-
# $Id: jet_title_eng,v 1.1 2000/11/28 12:55:43 tobotras Exp $

#FIXME:: rewrite it entirely. No, seriously.

rename TitlePage {}

proc TitlePage {} {
    global TEItools_pdf_in_use

    debug 1

    set ret "
\\begin{flushright}
"
    if [info exist TEItools_pdf_in_use] {
	append ret "\\mbox{\\pdfimage{jet_logo.pdf}}"
    } else {
	append ret "\\includegraphics\[height=4cm\]{jet_logo.eps}"
    }

    debug 2
    
    append ret "
\\end{flushright}

\\vfill
"
    
    debug 3
    
    set title {}
    global titlePartCounter
    if {[info exists titlePartCounter]} {
	for {set i 0} {$i <= $titlePartCounter} {incr i} {
	    append title "[titlePartMacro $i]\{\}\\\\\n"
	}
    }
    
    debug 4
    
    set date {}
    withNode doctree element TITLEPAGE {
	foreachNode subtree element DOCDATE {
	    append date "[filteredContent]\\\\\n"
	}
    }
    
    debug 5
    
    set imprint {}
    global imprintCounter
    if { [info exists imprintCounter] } {
	for {set i 0} {$i <= $imprintCounter} {incr i} {
	    append imprint "[imprintMacro $i]\{\}\\\\\n"
	}
    }
    
    debug 6
    
    if { "$title" != "" } {
	append ret "
\\begin{center}
\\noindent
\\Large\\textsf{\\textbf{$title}}
\\end{center}
\\vfill
"
    }

    debug 7
    
    if { "$date" == "" } {
	set date [exec date +%Y]
    }

    debug 8
    
    append ret "

\\vspace*{5cm}
\\begin{center}
\\large\\bf\\sf
Jet Infosystems\\\\
$imprint
Moscow\\\\
$date
\\end{center}
\\thispagestyle{empty}
\\clearpage
"

    debug 9

    return $ret
}
