# This is -*- tcl -*- script
# $Id: confidential,v 1.4 1999/03/12 12:13:01 tobotras Exp $

global TEItools_jet_pages_in_use
if { [info exists TEItools_jet_pages_in_use] } {
    Error " `confidential'     `jet_pages'"
}

global TEItools_proposal_in_use
if { ![info exists TEItools_proposal_in_use] } {
    Error " `proposal'     `confidential'"
}

rename pageLayout {}

proc pageLayout {} {

    set date [clock format [clock seconds] -format %Y]
    withNode doctree descendant element DOCDATE {
	set date "\\TEItoolsDate\{\}"
    }

    set author "Jet Infosystems"
    global authorPrefix_Counter
    if { [info exist authorPrefix_Counter] } {
	set author [authorMacro 0]
    }

    return "
% Page layout

\\usepackage{fancyhdr}
\\pagestyle{fancy}
\\fancyhead{}
\\fancyfoot\[C,LO,RE\]{}
\\fancyhead\[C\]{\\hfil\\rightmark\\hfil}
\\fancyhead\[LE,RO\]{\\sffamily
	\\\\\\hfil .\\No\\underline{\\hspace{3mm}}}
\\fancyfoot\[LO,RE\]{\\copyright{} \\textit{${author}, ${date}}}
\\fancyfoot\[LE,RO\]{\\thepage}
\\renewcommand{\\headrulewidth}{0.75pt}
\\renewcommand{\\footrulewidth}{0.75pt}
\\renewcommand{\\sectionmark}\[1\]{\\markright{\\textsc{\\small \#1}}}
\\renewcommand{\\subsectionmark}\[1\]{}
\\renewcommand{\\subsubsectionmark}\[1\]{}
\\renewcommand{\\paragraphmark}\[1\]{}
\\renewcommand{\\subparagraphmark}\[1\]{}
%\\addtolength{\\headheight}{4\\baselineskip}
% 
"
}

rename topOfTitlePage {}

proc topOfTitlePage {} {
    return "\\begin\{flushright\}
 \\sffamily  \\\\
. N\\underline\{\\hspace\{3mm\}\}
\\end\{flushright\}"
}

rename defineTitlePageStyle {}

proc defineTitlePageStyle {} {
    return "%\\thispagestyle{empty}\n"
}

