292 |
$label_title .= qq| class="required"|; |
$label_title .= qq| class="required"|; |
293 |
$value_html =~ s{(<\S+)\s}{$1 class=required }; |
$value_html =~ s{(<\S+)\s}{$1 class=required }; |
294 |
} |
} |
|
$label =~ s/_/ /g; |
|
295 |
|
|
296 |
my $set = $name; |
my $set = $name; |
297 |
$set =~ s{_[^_]+$}{}; |
$set =~ s{_[^_]+$}{}; |
309 |
</fieldset> |
</fieldset> |
310 |
|; |
|; |
311 |
} |
} |
312 |
$label =~ s{^\Q$set\E\s+}{}; |
$label =~ s{^\Q$set\E_+}{}; |
313 |
} |
} |
314 |
|
|
315 |
|
$label = $self->_label( $label ); |
316 |
$form .= qq|$before<label for="$name"$label_title>$label</label>$value_html $after|; |
$form .= qq|$before<label for="$name"$label_title>$label</label>$value_html $after|; |
317 |
my $ll = length($label); |
my $ll = length($label); |
318 |
$label_width = $ll if $ll > $label_width; |
$label_width = $ll if $ll > $label_width; |
386 |
return $html; |
return $html; |
387 |
} |
} |
388 |
|
|
389 |
|
sub _label { |
390 |
|
my ($self,$name) = @_; |
391 |
|
my $labels = $self->class->form_labels if $self->class->can('form_labels'); |
392 |
|
my $label = $labels->{$name}; |
393 |
|
if ( ! defined $label ) { |
394 |
|
$label = $name; |
395 |
|
$label =~ s{_}{ }g; |
396 |
|
} |
397 |
|
return $label; |
398 |
|
} |
399 |
|
|
400 |
=head1 SEE ALSO |
=head1 SEE ALSO |
401 |
|
|
402 |
L<http://www.quirksmode.org/css/forms.html> for info on CSS2 forms |
L<http://www.quirksmode.org/css/forms.html> for info on CSS2 forms |