1#
2#
3# Mod�le "page d'accueil"
4#
5# Historique
6#   1998/06/15 : pda : conception
7#   1999/07/04 : pda : r��criture
8#
9
10#
11# Inclure les directives de formattage de base
12#
13
14inclure-tcl include/html/base.tcl
15
16###############################################################################
17# Proc�dures de conversion HTML sp�cifiques au mod�le
18###############################################################################
19
20proc htg_tableau {} {
21    if [catch {set nbcol [htg getnext]} v] then {error $v}
22    check-int $nbcol
23    if [catch {set texte [htg getnext]} v] then {error $v}
24
25    return "<TABLE COLS=$nbcol WIDTH=\"100%\"><TR>$texte</TR></TABLE>"
26}
27
28proc htg_colonne {} {
29    if [catch {set texte [htg getnext]} v] then {error $v}
30
31    return "<TD VALIGN=\"top\">$texte</TD>"
32}
33
34proc htg_element {} {
35    if [catch {set nblignes [htg getnext]} v] then {error $v}
36    check-int $nblignes
37    if [catch {set titre    [htg getnext]} v] then {error $v}
38    if [catch {set texte    [htg getnext]} v] then {error $v}
39
40    # sauts de lignes
41    set r {}
42    for {set i 0} {$i < $nblignes} {incr i} {
43	append r "~<BR>"
44    }
45
46    # le titre
47    append r "<STRONG><FONT COLOR=\"#009900\">"
48    regsub -all {[A-Z]+} $titre {<FONT SIZE="+1">&</FONT>} titre
49    append r $titre
50    append r "</FONT></STRONG>"
51
52    # le texte de l'�l�ment
53    append r $texte
54    append r "\n"
55
56    return $r
57}
58
59proc htg_item {} {
60    if [catch {set texte [htg getnext]} v] then {error $v}
61
62    return "\n<BR>. $texte"
63}
64
65proc htg_titre {} {
66    if [catch {set niveau [htg getnext]} v] then {error $v}
67    check-int $niveau
68    if [catch {set texte  [htg getnext]} v] then {error $v}
69
70    switch $niveau {
71	1	{
72	    set texte "<CENTER><FONT COLOR=\"#286B7A\"><H2><BR>$texte</H2></FONT></CENTER>"
73	}
74	2	{
75	    set texte "<FONT COLOR=\"#FF3D3D\"><H3>$texte</H3></FONT>"
76	}
77	default	{
78	    incr niveau
79	    set texte "<H$niveau>$texte</H$niveau>"
80	}
81    }
82
83    return $texte
84}
85
86proc htg_partie {} {
87    global partie
88
89    if [catch {set id    [htg getnext]} v] then {error $v}
90    if [catch {set texte [htg getnext]} v] then {error $v}
91
92    set texte [nettoyer-html $texte]
93
94    switch -exact $id {
95	banniere	-
96	titrepage	{
97	    regsub -all "\n" $texte "<BR>\n" texte
98	}
99	default {
100	    regsub -all "\n\n+" $texte "<P>" texte
101	}
102    }
103
104    set partie($id) $texte
105
106    return {}
107}
108
109###############################################################################
110# Proc�dures du bandeau, communes � tous les mod�les
111###############################################################################
112
113inclure-tcl include/html/bandeau.tcl
114