Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -r1.27 -r1.28 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 24 Jul 2007 13:21:39 -0000 1.27 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 24 Jul 2007 20:48:33 -0000 1.28 @@ -166,8 +166,10 @@ #my msg "[my name] searchDefaults" ::xotcl::Class::Parameter searchDefaults [self]; # TODO: will be different in xotcl 1.6.* } else { - #my msg "Ignoring unknown spec for entry [my name]: '$s'" - error [_ xowiki.error-form_constraint-unknown_spec_entry [list name [my name] entry $s x "Unknown spec entry for entry '$s'"]] + if {$s ne ""} { + error [_ xowiki.error-form_constraint-unknown_spec_entry \ + [list name [my name] entry $s x "Unknown spec entry for entry '$s'"]] + } } } } @@ -425,6 +427,18 @@ ########################################################### # + # ::xowiki::FormField::user_id + # + ########################################################### + + Class FormField::user_id -superclass FormField::numeric -parameter { + } + FormField::user_id instproc pretty_value {v} { + return [::xo::get_user_name $v] + } + + ########################################################### + # # ::xowiki::FormField::url # ########################################################### @@ -867,6 +881,8 @@ FormField::date instproc pretty_value {v} { # internally, we have ansi format. For displaying the date, use the display format + # drop of the value after the "." we assume to have a date in the local zone + regexp {^([^.]+)[.]} $v _ v return [clock format [clock scan $v] -format [string map [list _ " "] [my display_format]]] }