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