Attachment #154548 for bug #34441

View | Details | Raw Unified | Return to bug 34441
Collapse All | Expand All

Lines 350-359 if ( $template_type eq 'advsearch' ) { Link Here

(-)a/catalogue/search.pl (-3 / +3 lines)
350		350
351	### OK, if we're this far, we're performing a search, not just loading the advanced search page	351	### OK, if we're this far, we're performing a search, not just loading the advanced search page
352		352
353	# Fetch the paramater list as a hash in scalar context:	353	# Fetch the parameter list as a hash in scalar context:
354	# * returns paramater list as tied hash ref	354	# * returns parameter list as tied hash ref
355	# * we can edit the values by changing the key	355	# * we can edit the values by changing the key
356	# * multivalued CGI paramaters are returned as a packaged string separated by "\0" (null)	356	# * multivalued CGI parameters are returned as a packaged string separated by "\0" (null)
357	my $params = $cgi->Vars;	357	my $params = $cgi->Vars;
358	# Params that can have more than one value	358	# Params that can have more than one value
359	# sort by is used to sort the query	359	# sort by is used to sort the query

Lines 348-357 if ( $template_type && $template_type eq 'advsearch' ) { Link Here

(-)a/opac/opac-search.pl (-3 / +3 lines)
348		348
349	### OK, if we're this far, we're performing an actual search	349	### OK, if we're this far, we're performing an actual search
350		350
351	# Fetch the paramater list as a hash in scalar context:	351	# Fetch the parameter list as a hash in scalar context:
352	# * returns paramater list as tied hash ref	352	# * returns parameter list as tied hash ref
353	# * we can edit the values by changing the key	353	# * we can edit the values by changing the key
354	# * multivalued CGI paramaters are returned as a packaged string separated by "\0" (null)	354	# * multivalued CGI parameters are returned as a packaged string separated by "\0" (null)
355	my $params = $cgi->Vars;	355	my $params = $cgi->Vars;
356	my $tag;	356	my $tag;
357	if ( $params->{tag} ) {	357	if ( $params->{tag} ) {

Lines 44-53 use Koha::List::Patron qw( GetPatronLists ); Link Here

(-)a/tools/cleanborrowers.pl (-4 / +3 lines)
44		44
45	my $cgi = CGI->new;	45	my $cgi = CGI->new;
46		46
47	# Fetch the paramater list as a hash in scalar context:	47	# Fetch the parameter list as a hash in scalar context:
48	# * returns paramater list as tied hash ref	48	# * returns parameter list as tied hash ref
49	# * we can edit the values by changing the key	49	# * we can edit the values by changing the key
50	# * multivalued CGI paramaters are returned as a packaged string separated by "\0" (null)	50	# * multivalued CGI parameters are returned as a packaged string separated by "\0" (null)
51	my $params = $cgi->Vars;	51	my $params = $cgi->Vars;
52		52
53	my $step = $params->{step} \|\| 1;	53	my $step = $params->{step} \|\| 1;
54	-

Return to bug 34441