OpenACS

eduardop
committed
MAIN:eduardop:20050720160001
on 20 Jul 05
Fixes and merge between es_ES and es_GT
openacs-4/.../xowiki/tcl/xowiki-procs.tcl (+2 -2)
3306 3306     }
3307 3307   }
3308 3308
3309 3309
3310 3310   Page instproc form_field_index {form_field_objs} {
3311 3311     set marker ::__computed_form_field_names($form_field_objs)
3312 3312     if {[info exists $marker]} return
3313 3313
3314 3314     foreach form_field_obj $form_field_objs {
3315 3315       if {![$form_field_obj istype ::xowiki::formfield::FormField]} continue
3316 3316       set ::_form_field_names([$form_field_obj name]) $form_field_obj
3317 3317       :form_field_index [$form_field_obj info children]
3318 3318     }
3319 3319     set $marker 1
3320 3320   }
3321 3321
3322 3322   Page instproc form_field_flush_cache {} {
3323 3323     #
3324 3324     # Flush all cached form_field_names.
3325 3325     #
3326       array unset ::_form_field_names
  3326     unset -nocomplain ::_form_field_names
3327 3327   }
3328 3328
3329 3329   Page instproc form_field_exists {name} {
3330 3330     return [info exists ::_form_field_names($name)]
3331 3331   }
3332 3332
3333 3333   Page instproc __debug_known_field_names {msg} {
3334 3334     set fields {}
3335 3335     foreach name [lsort [array names ::_form_field_names]] {
3336 3336       set f $::_form_field_names($name)
3337 3337       append fields "  $name\t[$f info class]\t [$f spec]\n"
3338 3338     }
3339 3339     append fields "Repeat container:\n"
3340 3340     foreach f [::xowiki::formfield::repeatContainer info instances] {
3341 3341       append fields "$f\t[$f name]\t [$f spec]\n"
3342 3342       foreach component [$f components] {
3343 3343         append fields "... [$component name]\t[$component info class]\t [$component spec]\n"
3344 3344         if {[$component istype ::xowiki::formfield::CompoundField]} {
3345 3345           foreach c [$component components] {
3346 3346             append fields "..... [$c name]\t[$c info class]\t [$c spec]\n"