# $Header: /home/cvsroot/tcldb/wisql/Tlib/vertCopy,v 1.2 1997/08/25 03:14:52 de Exp $
# tcl procs saved on Tue Sep 05 09:33:20 PDT 1995

proc vertCopy {} {

upvar #0 EZEshows shows
upvar #0 EZEcols cols
upvar #0 EZEvform vf
upvar #0 EZEhform hf

	foreach c $cols {
		if {$shows($c)} {
		$vf.data.can.fr.new.$c delete 0 end
		$vf.data.can.fr.new.$c insert 0 [$vf.data.can.fr.old.$c get]
		}
	}
}

