Revision 9ed16037
Von Sven Schöling vor mehr als 6 Jahren hinzugefügt
| SL/Presenter/Tag.pm | ||
|---|---|---|
| 10 | 10 |
our @EXPORT_OK = qw( |
| 11 | 11 |
html_tag input_tag hidden_tag javascript man_days_tag name_to_id select_tag |
| 12 | 12 |
checkbox_tag button_tag submit_tag ajax_submit_tag input_number_tag |
| 13 |
stringify_attributes restricted_html textarea_tag link date_tag |
|
| 13 |
stringify_attributes restricted_html textarea_tag link_tag date_tag
|
|
| 14 | 14 |
); |
| 15 | 15 |
our %EXPORT_TAGS = (ALL => \@EXPORT_OK); |
| 16 | 16 |
|
| ... | ... | |
| 323 | 323 |
html_tag('textarea', $content, %attributes, name => $name);
|
| 324 | 324 |
} |
| 325 | 325 |
|
| 326 |
sub link {
|
|
| 326 |
sub link_tag {
|
|
| 327 | 327 |
my ($href, $content, %params) = @_; |
| 328 | 328 |
|
| 329 | 329 |
$href ||= '#'; |
| 330 | 330 |
|
| 331 | 331 |
html_tag('a', $content, %params, href => $href);
|
| 332 | 332 |
} |
| 333 |
# alias for compatibility |
|
| 334 |
sub link { goto &link_tag }
|
|
| 333 | 335 |
|
| 334 | 336 |
sub date_tag {
|
| 335 | 337 |
my ($name, $value, %params) = @_; |
Auch abrufbar als: Unified diff
Presenter::Tag::link - umbenannt in link_tag
um Namenskonflikte mit dem link builtin zu vermeiden