| [+ $ks[$row] +] | [+ 0+$fdat{$ks[$row] || ''} +] | 
| [+ $ks[$row] +] | [+ 0+$udat{$ks[$row] || ''} +] | 
	[- 
	while (($k, $v) = each (%fdat))
		{
		$udat{$k} = $fdat{$k} ;
		}
	-]
        $mdat{cnt} = -[+ 0+$mdat{cnt}  +]- 
        $udat{cnt} = -[+ $udat{cnt}  +]- 
	[- Execute ('getsess.htm') ; -]