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