Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package functions;
- sub get_parameters
- {
- my ($query) = @_;
- my (@values,$key);
- my $form;
- foreach $key ($query->param) {
- @values=$query->param($key);
- $form->{$key}=$values[0];
- }
- return $form;
- }
- 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement