1#
2#
3# Mod�le "page de pr�sentation d'une personne"
4#
5# Historique
6#   1998/06/15 : pda          : conception
7#   1999/07/04 : pda          : r��criture
8#   2008/02/26 : pda/moindrot : \personne est maintenant dans le texte
9#
10
11#
12# Inclure les directives de formattage de base
13#
14
15inclure-tcl include/html/base.tcl
16
17###############################################################################
18# Proc�dures de conversion HTML sp�cifiques au mod�le
19###############################################################################
20
21set formatpersonne {
22    Centre R�seau Communication <br>
23    Universit� Louis Pasteur <br>
24    %1$s <br>
25    7 rue Ren� Descartes <br>
26    67084 Strasbourg Cedex <br>
27    T�l : %2$s <br>
28    Fax : %3$s <br>
29    Courriel : <a href="mailto:%4$s@%5$s">%4$s@%5$s</a>
30}
31
32proc htg_personne {} {
33    global formatpersonne
34
35    if [catch {set nom [htg getnext]} v] then {error $v}
36    if [catch {set gif [htg getnext]} v] then {error $v}
37    if [catch {set tel [htg getnext]} v] then {error $v}
38    if [catch {set fax [htg getnext]} v] then {error $v}
39    if [catch {set mail [htg getnext]} v] then {error $v}
40    if [catch {set domaine [htg getnext]} v] then {error $v}
41
42    set image [helem IMG "" SRC $gif ALT "photo"]
43    set texte [helem BLOCKQUOTE \
44		[helem P \
45		    [format $formatpersonne $nom $tel $fax $mail $domaine] \
46		    ] \
47		]
48
49    return "$image\n$texte\n"
50}
51
52proc htg_titre {} {
53    if [catch {set niveau [htg getnext]} v] then {error $v}
54    check-int $niveau
55    if [catch {set texte  [htg getnext]} v] then {error $v}
56
57    incr niveau
58    set r [helem H$niveau $texte]
59    return $r
60}
61
62proc htg_partie {} {
63    global partie
64
65    if [catch {set id    [htg getnext]} v] then {error $v}
66    if [catch {set texte [htg getnext]} v] then {error $v}
67
68    set texte [nettoyer-html $texte]
69
70    switch -exact $id {
71	banniere	-
72	titrepage	{
73	    regsub -all "\n" $texte "<BR>\n" texte
74	}
75	default {
76	    regsub -all "\n\n+" $texte "<P>" texte
77	}
78    }
79
80    set partie($id) $texte
81
82    return {}
83}
84