Mercurial > hg > egg-tcls
comparison feeds.tcl @ 596:b524a6e4be63
feeds: Slight cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 03 Feb 2021 11:50:02 +0200 |
parents | 7f7d8048ecb5 |
children | 1d39db72e190 |
comparison
equal
deleted
inserted
replaced
595:7f7d8048ecb5 | 596:b524a6e4be63 |
---|---|
130 } | 130 } |
131 | 131 |
132 | 132 |
133 proc feeds_validate_name {upublic unick uchan upattern ufname} { | 133 proc feeds_validate_name {upublic unick uchan upattern ufname} { |
134 global feeds_dbh | 134 global feeds_dbh |
135 upvar 1 $ufname afname | 135 upvar $ufname afname |
136 | 136 |
137 # Check value | 137 # Check value |
138 if {$upattern == ""} { | 138 if {$upattern == ""} { |
139 set afname "" | 139 set afname "" |
140 return 1 | 140 return 1 |