# -*- tcl -*-
# $Id: soft_title,v 1.2 2002/05/22 09:55:51 asv Exp $

rename latexFileHeader latexFileHeaderBook

proc latexFileHeader {} {
	global TEItools_documentclass_value

	set TEItools_documentclass_value "book"

	return [latexFileHeaderBook]
}

rename TitlePage {}

proc TitlePage {} {
    global TEItools_pdf_in_use

    debug 1

    set ret "
\\begin{titlepage}
\\null
\\vskip 4cm
"
    
    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 "
{\\raggedleft \\bf
\\Huge $title
}
"
    }

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

    debug 8
    
    append ret "

\\vspace*{4cm}
{\\raggedleft
\\Large
 \\\\
$imprint
\\\\
$date
}
\\end{titlepage}
"

    debug 9

    return $ret
}
