view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

           Added a FileCacheTimeout to Apache::Wyrd::Services::FileCache

           Apache::Wyrd::Redirect can now use "href" conventions.  New
           normalize_href Apache::Wyrd::Services::SAK function for this

           Apache::Form & Apache::Wyrd::Input has more passthrough of valid
           attributes for their base tags (enctype, onkeydown, etc.)

           Wyrds now accept hyphen in the attribute-name as a valid
           character, to allow for compatibility with valid HTML
           attributes such as "accept-charset"

           Apache::Wyrd::Services::Index now feature-frozen and depreciated
           in favor of Apache::Wyrd::Services::MySQLIndex. This is due to
           locking and DB File corruption issues which could not be resolved

           Documentation changes

    0.94   October 22, 2006

           Indexer now requires perl 5.8 for Unicode support

Wyrd/Form.pm  view on Meta::CPAN

sub _wrap_form {
	my ($self, $form) = @_;
	my $remove_form = $self->dbl->param('_current_form');
	my $default = $self->dbl->self_path;
	$default =~ s/\/$remove_form$//;
	$default .= "/" . $self->{'_current_form'} unless ($self->_flags->no_grow);
	my $action = ($self->{'_action_index'}->{$self->{'_current_form'}} || $self->{'action'} || $default);
	my $method = ($self->{'method'} || 'post');
	my $extra_attributes = '';
	foreach my $attribute (qw(enctype accept-charset onsubmit)) {
		my $attribute_value = $self->{$attribute};
		if ($attribute_value) {
			$extra_attributes .= qq( $attribute="$attribute_value");
		}
	}
	my $name = ($self->{'_current_form'} || 'form');
	my $header = $self->_proof_of_submit . $self->_current_marker;
	$header .= $self->{'_stored_data'} if ($self->{'_stored_data'});
	return "<form name=\"$name\" action=\"$action\" method=\"$method\"$extra_attributes>\n" . $header . $form . "\n</form>";
}