my_export_url_vars

my_export_url_vars   alist

A little helper proc to be able to export a list (a very slight varient of a proc from utilities.tcl)

Source code:

    set params {} 
    foreach var $alist  { 
        if [eval uplevel {info exists $var}] { 
            upvar $var value 
            lappend params "$var=[ns_urlencode $value]" 
        } 
    } 
    return [join $params "&"]