can't read "option_price": no such variable
    while executing
"list $option_price $replacement"
    (procedure "GetDefaultOptionValue" line 53)
    invoked from within
"GetDefaultOptionValue $prod_id"
    ("foreach" body line 9)
    invoked from within
"foreach product $man_category_products {
						lassign $product prod_id prod_title prod_image prod_priority prod_price 

    					set product_options ..."
    ("foreach" body line 13)
    invoked from within
"foreach man_cat $man_categories {
				lassign $man_cat man_cat_id man_cat_title
				html [subst {