+ # find the maximum length of the prompt
+ foreach $field (@fields) {
+ if (defined $ref->{$field}) {
+ my (undef, $prompt, undef) = split ',', $ref->field_prompt($field);
+ $promptl = length $prompt if length $prompt > $promptl;
+ }
+ }
+
+ # now do print