loncom/cgi/loncgi.pm - diff

Return to loncgi.pm CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.14, 2014/10/14 19:54:00	version 1.15, 2016/08/01 15:19:05
Line 200 END	Line 200 END

=cgi_getitems()	=cgi_getitems()

Inputs: $query (the CGI query string), and $getitems, a reference to a hash	Inputs: $query - the CGI query string (required)
	$getitems - reference to a hash (required)
	$possname - permitted names of keys (optional)

Returns: nothing	Returns: nothing

Line 213 Side Effects: populates $getitems hash r	Line 215 Side Effects: populates $getitems hash r
#############################################	#############################################
#############################################	#############################################
sub cgi_getitems {	sub cgi_getitems {
my ($query,$getitems)= @_;	my ($query,$getitems,$possnames)= @_;
foreach (split(/&/,$query)) {	foreach (split(/&/,$query)) {
my ($name, $value) = split(/=/,$_);	my ($name, $value) = split(/=/,$_);
$name = &unescape($name);	$name = &unescape($name);
	if (ref($possnames) eq 'ARRAY') {
	next unless (grep(/^\Q$name\E$/,@{$possnames}));
	}
$value =~ tr/+/ /;	$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
push(@{$$getitems{$name}},$value);	push(@{$$getitems{$name}},$value);