Mercurial > hg > egg-tcls
comparison urllog.tcl @ 127:bfb398057543
urllog: Add some translated entities.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 17 Sep 2012 17:33:24 +0300 |
parents | ac5b1efabace |
children | 0d21b9d1d2b9 |
comparison
equal
deleted
inserted
replaced
126:86500b3ac599 | 127:bfb398057543 |
---|---|
145 | 145 |
146 set urllog_ent_str "-|-|'|'|—|-|‏||—|-|–|--|‪||‬||" | 146 set urllog_ent_str "-|-|'|'|—|-|‏||—|-|–|--|‪||‬||" |
147 append urllog_ent_str "‎||å|å|Å|Å|é|é|:|:| | |" | 147 append urllog_ent_str "‎||å|å|Å|Å|é|é|:|:| | |" |
148 append urllog_ent_str "”|\"|“|\"|«|<<|»|>>|"|\"|" | 148 append urllog_ent_str "”|\"|“|\"|«|<<|»|>>|"|\"|" |
149 append urllog_ent_str "ä|ä|ö|ö|Ä|Ä|Ö|Ö|&|&|<|<|>|>|" | 149 append urllog_ent_str "ä|ä|ö|ö|Ä|Ä|Ö|Ö|&|&|<|<|>|>|" |
150 append urllog_ent_str "ä|ä|å|ö|—|-|'|'|–|-" | 150 append urllog_ent_str "ä|ä|å|ö|—|-|'|'|–|-|"|\"" |
151 append urllog_ent_str "||-|’|'|ü|ü|Ü|Ü|•|*|€|€" | |
151 set urllog_html_ent [split [encoding convertfrom "utf-8" $urllog_ent_str] "|"] | 152 set urllog_html_ent [split [encoding convertfrom "utf-8" $urllog_ent_str] "|"] |
152 | 153 |
153 ### Require packages | 154 ### Require packages |
154 package require sqlite3 | 155 package require sqlite3 |
155 package require http | 156 package require http |