# setMeta
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/setMeta,v 1.2 1996/12/10 06:08:15 de Exp $
#
proc setMeta ser {
 
        global metabase base fys serfys
 
#       puts stderr "setMeta $ser"
	if {![info exists metabase($ser)]} {
		puts stderr "No metabase set for $ser, unable to setMeta."
		puts stderr "If you are running forms, prepare for failure."
		return
	}
        set mb $metabase($ser)
        set base $mb

	catch {set fys $serfys($ser)}
 
        foreach g [info globals] {
                upvar #0 $g $g
                set v ""
                catch {set v [set $g]}
                if {$v != ""} {
#                echo "check global $g value $v"
                if {[crange $v 0 4] == "META."} {
#                        puts stderr "$g\n  changed $v ..."
                        regsub META $v $mb $g
#                        puts stderr "       to [set $g]"
                }
                }
        }
}

