Oops! Something bad happened...
can't read "cgi(currency)": no such element in array
    while executing
"switch $cgi(currency) {
          2 { set price [expr ceil($price * 0.78)]; set denom \&euro\;; }
          3 { set price [expr ceil($price * 0.63)]; ..."
    (procedure "pageShop" line 38)
    invoked from within
"pageShop "
    ("shop" arm line 1)
    invoked from within
"switch $cgi(action) {
        home   			  { pageSimple }
        about   			 { pageSimple }
        blog    				{ pageSimple }
        clients				 { p..."
Return to where you where