# -*- tcl -*-
# $Id: running_title,v 1.6 1999/03/26 05:21:40 tobotras Exp $

rename documentClassOptions documentClassOptions_running_title

proc documentClassOptions {} {
    set oldOptions [documentClassOptions_running_title]
    regsub ",titlepage" $oldOptions "" q1
    regsub "titlepage," $q1 "" q2
    regsub "titlepage" $q2 "" q1
    return $q1
}

rename generatetoc {}

proc generatetoc {} {
	return "\n\\tableofcontents\n"
}

rename definePageStyle running_title:definePageStyle

proc definePageStyle {} {
    return "
[running_title:definePageStyle]
\\thispagestyle{empty}
"
}

rename TitlePage {}

proc TitlePage {} {

    set ret "
       \\begin\{center\}%
       \{\\LARGE [localize cyr]"

    global titlePartCounter
    if { [info exist titlePartCounter] } {
	for {set i 0} {$i <= $titlePartCounter} {incr i} {
	    append ret "[titlePartMacro $i]\{\}\\mbox\{\}\\\\"
	}
    }

    append ret "\\par\}%
       \{\\large
           \\lineskip .75em%
           \\begin\{tabular\}\[t\]\{c\}%

           [localize cyr]
       "

    global authorPrefix_Counter
    if { [info exist authorPrefix_Counter] } {
	for {set i 0} {$i <= $authorPrefix_Counter} {incr i} {
	    if { $i > 0 } {
		append ret "\\and "
	    }
           append ret "[authorMacro $i]\{\}"
	}
    }

    append ret "
       \\end\{tabular\}\\par\}%
       \\vskip 1.5em%
       \{\\large [localize cyr] \\TEItoolsDate\{\} \\par\}%
       \\end\{center\}\\par
"
    global imprintCounter
    if { [info exist imprintCounter] } {
       append ret "
       \\begin\{center\}
"
       for {set i 0} {$i <= $imprintCounter} {incr i} {
           append ret "[imprintMacro $i]\{\}\\\\\n"
       }
       append ret "\\end\{center\}\n"
    }
    

    return "${ret}\n"
}
