*** /c/tmp/editTableYRAQNE Tue Apr 15 17:55:04 2003 --- /c/tmp/editTableYRAdXK Tue Apr 15 17:55:04 2003 *************** *** 122,127 **** --- 122,136 ---- $tmpl =~ s/%ENTRY%/$entry/go; } else { my $id = time; + foreach my $fieldDefP ( @fieldDefs ) { + my @fieldDef = @$fieldDefP; + my $entryName = shift @fieldDef; + my @tmpArgs = ( + "name" => $entryName, + "value" => TWiki::Plugins::TablePlugin::carriageReturnConvert( $fieldDef[5] ) + ); + $meta->put("FIELD",@tmpArgs); + } $tmpl =~ s/%ENTRY%/$id/go; } *** /c/tmp/Form.pm_moveform_validation Tue Apr 15 17:58:22 2003 --- /c/tmp/Form.pm Tue Apr 15 17:58:22 2003 *************** *** 148,156 **** my @fieldDef = @$fieldDefP; my( $name, $title, $type, $size, $posValuesS, $tooltip, $mandatory ) = @fieldDef; my @posValues = (); ! if( $posValuesS ) { @posValues = split( /,\s*/, $posValuesS ); ! } if( ( ! @posValues ) && &TWiki::Store::topicExists( $webName, $name ) ) { my( $meta, $text ) = &TWiki::Store::readTopic( $webName, $name ); --- 148,158 ---- my @fieldDef = @$fieldDefP; my( $name, $title, $type, $size, $posValuesS, $tooltip, $mandatory ) = @fieldDef; my @posValues = (); ! if( $posValuesS && (!($type eq "text")) && (!($type eq "textarea"))) { @posValues = split( /,\s*/, $posValuesS ); ! } else { ! @posValues = ( $posValuesS ); ! } if( ( ! @posValues ) && &TWiki::Store::topicExists( $webName, $name ) ) { my( $meta, $text ) = &TWiki::Store::readTopic( $webName, $name ); *************** *** 170,175 **** --- 172,179 ---- # ============================ sub link + + # NOTE: Tooltip must not contain double quotes { my( $web, $name, $tooltip, $heading, $align, $span, $extra ) = @_;