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