#========================================
# all the HTML stuff for the forms
#========================================
# header
set header {
{web::put $completeTitle}
{web::put $completeTitle}
}
# footer
set footer {
[{web::put $text(home)}]
[{web::put $text(about)}]
[{web::put [lindex $text(otherlang) 0]}]
}
# page templates
# error
set template-error {{putHeader $type}
{web::put $text(errtitle)}
{web::put $text(errtext)}
{putFooter}}
# form template
set template-form {{putHeader $type}
{putFooter}}
# confirmation template
set template-confirmation {{putHeader $type}
{web::put $msg}
- {web::put $text(name)}:
- {putField name}
- {web::put $text(addr)}:
- {putField addr}
- {web::put $text(email)}:
- {putField email}
{putFooter}}
# about template
set template-about {{putHeader $type}
{web::put $text(about)}
- {web::put $text(copy)}:
- {web::put $text(right)}
- {web::put $text(browser)}:
- {web::put [getBrowser]}
- {web::put [web::copyright]}
{putFooter}}
# language stuff
proc initTexts {} {
global text
if {"[getLang]" == "de"} {
# german texts
set text(name) Name
set text(addr) Adresse
set text(email) E-Mail
set text(home) Formular
set text(about) "Über"
set text(info) Information
set text(reset) "Zurücksetzen"
set text(submit) "Abschicken"
set text(copy) "Das Kopierrecht"
set text(right) "© Netcetera AG 1998"
set text(browser) "Ihr Web Browser"
set text(errmsg) "Bitte geben Sie ein gültige E-Mail Adresse ein!"
set text(header-form) Formular
set text(header-error) Fehler
set text(header-confirmation) "Bestätigung"
set text(header-about) Information
set text(otherlang) [list Englisch en]
set text(errtitle) {Ihre Anfrage konnte nicht bearbeitet werden. Bitte versuchen Sie es erneut}
set text(errtext) {Falls das Problem wiederholt auftreten sollte, kantaktieren Sie bitte den Webmaster: webmaster@netcetera.ch}
} else {
# english texts (default)
set text(name) Name
set text(addr) Address
set text(email) E-Mail
set text(home) Home
set text(about) About
set text(info) Information
set text(reset) Reset
set text(submit) Send
set text(copy) Copyright
set text(right) "© Netcetera AG 1998"
set text(browser) "Your Browser"
set text(errmsg) "Please enter a valid e-mail address!"
set text(header-form) Form
set text(header-error) Error
set text(header-confirmation) Confirmation
set text(header-about) About
set text(otherlang) [list German de]
set text(errtitle) {Your request could not be processed. Please try again.}
set text(errtext) {If the problem persists, please contact the Webmaster: webmaster@netcetera.ch}
}
}