1
2proc xxx_elementtableau {bgcoul titre texte} {
3    #
4    # mettre le titre s'il y a besoin
5    #
6#    if {[string length $titre] > 0} then {
7#	set titre "<STRONG>$titre</STRONG>"
8#    }
9
10    #
11    # Mettre le contenu s'il y a besoin
12    #
13    if {[string length $texte] > 0} then {
14	set texte "<FONT SIZE=\"-1\">$texte</FONT>"
15    }
16
17    #
18    # Tout mettre en forme
19    #
20#    set bg ""
21#    if {[string length $bgcoul] > 0} then {
22#	set bg " BGCOLOR=\"$bgcoul\""
23#    }
24    return "$texte\n"
25}
26
27
28proc htg_bandeau {} {
29    global partie
30
31    if [catch {set titre   [htg getnext]} v] then {error $v}
32    if [catch {set contenu [htg getnext]} v] then {error $v}
33
34    set titre [nettoyer-html $titre]
35    regsub -all "\n" $titre "<BR>" titre
36
37#    set retour [xxx_elementtableau {} {} "<A HREF=\"/\">Retour au sommaire</A>"]
38#    set contenu "$retour\n$contenu"
39
40    set partie(titrebandeau) $titre
41    set partie(contenubandeau) $contenu
42
43    return {}
44}
45
46proc htg_elementbandeau {} {
47    if [catch {set titre [htg getnext]} v] then {error $v}
48    if [catch {set refs  [htg getnext]} v] then {error $v}
49
50    return [xxx_elementtableau {} $titre $refs]
51}
52
53proc htg_reference {} {
54    if [catch {set texte [htg getnext]} v] then {error $v}
55    return "$texte"
56}
57