our @EXPORT_OK = qw(
html_tag input_tag hidden_tag javascript man_days_tag name_to_id select_tag
checkbox_tag button_tag submit_tag ajax_submit_tag input_number_tag
- stringify_attributes restricted_html textarea_tag link date_tag
+ stringify_attributes restricted_html textarea_tag link_tag date_tag
);
our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
html_tag('textarea', $content, %attributes, name => $name);
}
-sub link {
+sub link_tag {
my ($href, $content, %params) = @_;
$href ||= '#';
html_tag('a', $content, %params, href => $href);
}
+# alias for compatibility
+sub link { goto &link_tag }
sub date_tag {
my ($name, $value, %params) = @_;
sub button_tag { return _call_presenter('button_tag', @_); }
sub submit_tag { return _call_presenter('submit_tag', @_); }
sub ajax_submit_tag { return _call_presenter('ajax_submit_tag', @_); }
-sub link { return _call_presenter('link', @_); }
+sub link { return _call_presenter('link_tag', @_); }
sub input_number_tag { return _call_presenter('input_number_tag', @_); }
sub textarea_tag { return _call_presenter('textarea_tag', @_); }
sub date_tag { return _call_presenter('date_tag', @_); }