OpenACS

gustafn
committed
MAIN:gustafn:20220419172406:4
on 19 Apr 22
file file.gif was initially added on branch oacs-5-10.
MAIN:gustafn:20220419172406:4
/tcl/tcl-documentation-procs.tcl (+1 -1)
752 752     if { ![info exists query] || $query eq "" } {
753 753         return
754 754     }
755 755
756 756     ####################
757 757     #
758 758     # Parse -validate block
759 759     #
760 760     ####################
761 761     #
762 762     # array apc_validation_blocks($name): an array of lists that contain the validation blocks
763 763     #                                    the list will contain either 1 or 2 elements, a possible
764 764     #                                    list of required completed filters/blocks and the code block
765 765     #                                    for the validation block. Once the block has executed, this entry
766 766     #                                    self destructs, i.e. unset apc_validation_blocks($name)
767 767
768 768     array set apc_validation_blocks [list]
769 769
770 770     if { ![info exists validate] } {
771 771         set validate [list]
772       }d
  772     }
773 773
774 774     set validate_len [llength $validate]
775 775     for { set i 0 } { $i < $validate_len } { incr i } {
776 776         set name [lindex $validate $i]
777 777
778 778         if { [string first : $name] != -1 } {
779 779             return -code error [_ acs-tcl.lt_Validation_block_name]
780 780         }
781 781         if { [info exists apc_formal($name)] } {
782 782             return -code error [_ acs-tcl.lt_You_cant_name_your_va]
783 783         }
784 784         if { [info exists apc_validation_blocks($name)] } {
785 785             return -code error [_ acs-tcl.lt_You_cant_have_two_val]
786 786         }
787 787
788 788         incr i
789 789         if { [string index [lindex $validate $i] 0] == "-" } {
790 790             if { [lindex $validate $i] ne "-requires" } {
791 791                 return -code error [_ acs-tcl.lt_Valid_switches_are_-r]
792 792             }