Diff for /loncom/LONCAPA.pm between versions 1.27 and 1.28

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()

Removed from v.1.27  
changed lines
  Added in v.1.28


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>