ad_library { Procesos para el paquete TO DO. } namespace eval todo {} ad_proc -public todo::get_status_label {status} { } { switch $status { p { set status_text "Pendiente" } c { set status_text "Completado" } x { set status_text "Cancelado" } default { set status_text "Unknow" } } return $status_text } ad_proc -public todo::get_status_code {status_text} { } { set status_text [string tolower $status_text] switch $status_text { pendiente { set status_code p } completado { set status_code c } cancelado { set status_code x } default { set status_code p } } return $status_code }