OpenACS

peterm
committed
MAIN:peterm:20031017083012
on 17 Oct 03
changing the acs-lang-init for the Nth time. Only caching is needed now. If we did need to load message keys into the db here it should be i… Show more
changing the acs-lang-init for the Nth time. Only caching is needed now. If we did need to load message keys into the db here it should be in a scheduled proc as we need the keys *before* the server is up

Show less

openacs-4/.../tcl/xowiki-www-procs.tcl (+2 -3)
506 506           foreach v $value {lappend category_ids $v}
507 507         }
508 508         __* {
509 509           # other internal variables (like __object_name) are ignored
510 510         }
511 511         _* {
512 512           # instance attribute fields
513 513           set f     [my lookup_form_field -name $att $form_fields]
514 514           set value [$f value [::xo::cc form_parameter $att]]
515 515           set varname [string range $att 1 end]
516 516           # get rid of strange utf-8 characters hex C2AD (firefox bug?)
517 517           # ns_log notice "FORM_DATA var=$varname, value='$value' s=$s"
518 518           if {$varname eq "text"} {regsub -all "­" $value "" value}
519 519           # ns_log notice "FORM_DATA var=$varname, value='$value' s=$s"
520 520           if {![string match *.* $att]} {my set $varname $value}
521 521         }
522 522         default {
523 523           # user form content fields
524 524           set f     [my lookup_form_field -name $att $form_fields]
525 525           set value [$f value [::xo::cc form_parameter $att]]
526             # my msg "value of $att is $value"
527 526           if {![string match *.* $att]} {set __ia($att) $value}
528 527         }
529 528       }
530 529       if {[string match *.* $att]} {
531 530         foreach {container component} [split $att .] break
532 531         lappend containers($container) $component
533 532       }
534 533     }
535 534
536 535     #
537 536     # In a second iteration, combine the values from the components
538 537     # of a container to the value of the container.
539 538     #
540 539     foreach c [array names containers] {
541 540       switch -glob -- $c {
542 541         __* {}
543 542         _* {
544 543           set f  [my lookup_form_field -name $c $form_fields]
545 544           my set [string range $c 1 end] [$f get_compound_value]
546 545         }