version 1.27, 2008/11/20 15:19:33
|
version 1.28, 2009/05/13 14:01:10
|
Line 68 our %EXPORT_TAGS = ( 'match' =>[qw($matc
|
Line 68 our %EXPORT_TAGS = ( 'match' =>[qw($matc
|
my %perlvar; |
my %perlvar; |
|
|
|
|
=pod |
|
|
|
=head2 NOTE: |
|
|
|
add_get_param() |
|
|
|
Inputs are a url, and a hash ref of |
|
form name => value pairs |
|
takes care of properly adding the form name elements and values to the |
|
the url doing proper escaping of the values and joining with ? or & as |
|
needed |
|
|
|
=cut |
|
|
|
sub add_get_param { |
sub add_get_param { |
my ($url,$form_data) = @_; |
my ($url,$form_data) = @_; |
my $needs_question_mark = ($url !~ /\?/); |
my $needs_question_mark = ($url !~ /\?/); |
Line 385 BEGIN {
|
Line 371 BEGIN {
|
|
|
__END__ |
__END__ |
|
|
|
=pod |
|
|
=head1 NAME |
=head1 NAME |
|
|
Line 409 unpack non-word characters into CGI-comp
|
Line 396 unpack non-word characters into CGI-comp
|
pack CGI-compatible hex codes into actual non-word ASCII character |
pack CGI-compatible hex codes into actual non-word ASCII character |
|
|
=item add_get_param() |
=item add_get_param() |
|
|
|
Append escaped form elements (name=value etc.) to a url. |
|
|
Inputs: url (with or without exit GET from parameters), hash ref of |
Inputs: url (with or without exit GET from parameters), hash ref of |
form name => value pairs |
form name => value pairs |
|
|
Return: url with properly added the form name elements and values to the |
Return: url with form name elements and values appended to the |
the url doing proper escaping of the values and joining with ? or & |
the url, doing proper escaping of the values and joining with ? or & |
as needed |
as needed |
|
|
=item clean_handle() |
=item clean_handle() |