invalid command name "hgetvars" while executing "hgetvars" (in namespace eval "::request" script line 7) invoked from within "namespace eval request { puts -nonewline " " hgetvars if {[n..."

OUTPUT BUFFER:

namespace eval request { puts -nonewline " " hgetvars if {[namespace children [namespace current] miform] == ""} { source /home/smirnov/svoi/control/form.tcl } set title "Члены клуба" set condition "where not absent" if {[info exists VARS(region)] && $VARS(region) != ""} { array set regions $miform::regions puts "\n" if {[info exists regions($VARS(region))]} { append title " в регионе \"$regions($VARS(region))\"" } else { append title " в регионе \"$VARS(region)\"" } append condition " and region='$VARS(region)'" } else { set VARS(region) "" } puts "$title\n" set total 0 proc listing arr { upvar $arr data if {"" == [string trim $data(fname)]} return global total incr total foreach field [array names data] { set data($field) [encoding convertto koi8-r\ [string trim $data($field)]] # set data($field) [string trim $data($field)] regsub -all -nocase {]*>} \ $data($field) "" data($field) } foreach field [array names data *url*] { if {"" != $data($field) && \ ![string match *://* $data($field)]} { set data($field) http://$data($field) } } set result "" if {$data(deceased)} { append result "" \ "\n" append result "
" } append result "
\n" if {"" != $data(imgurl)} { append result "\t\[photo\]
\n" } append result \t if {"" != $data(url)} { append result "" } foreach f {fname paternal lname} { if {"" != $data($f)} { append result $data($f)
\n } } if {"" != $data(url)} { append result
} append result \n "\t[string map \ {@ @} $data(email)]" \n append result "\t

Место обитания:" $data(city) \n if {"" != $data(past)} { append result "\t

" \ "" \ $data(past) "" "\n" \ } if {"" != $data(future)} { append result "\t

" \ "" \ $data(future) "\n" } if {$data(deceased)} { append result

} return $result\n\n } if {[catch {package require Pgtcl; pg_connect ba} C]} { puts "

Ошибка:

\n
$C\n
\n" return } set result {} pg_select $C "SELECT * from person $condition order by lname;" data { append result [listing data] } catch {pg_disconnect $C} puts -nonewline "

" puts "$title: $total записи(ей)" puts -nonewline "

" lappend miform::regions "" "" puts [miform::region_entry {Сменить регион} $VARS(region)]\n puts -nonewline "

Изменить/добавить своё самоописание....

Disclaimer. Нижеследующие данные о членах Клуба написаны ими самими, за исключением тех случаев, когда это указано особо. Мы не несём ответственности за достоверность этих данных, в частности, информации об опыте и квалификации членов. Однако, если нам станет известно о злостном искажении фактов в самоописании, об этом будет информирован весь клуб, а самоописание будет уничтожено.


" puts $result\n puts -nonewline "
" }