Author: bob Date: 2012-05-05 21:00:39 +0100 (Sat, 05 May 2012) New Revision: 1388
Modified: trunk/lib/OpenGuides.pm trunk/lib/OpenGuides/CGI.pm Log: move setting no value if undef into the lc() fixes #298
Modified: trunk/lib/OpenGuides/CGI.pm =================================================================== --- trunk/lib/OpenGuides/CGI.pm 2012-05-05 12:20:04 UTC (rev 1387) +++ trunk/lib/OpenGuides/CGI.pm 2012-05-05 20:00:39 UTC (rev 1388) @@ -525,7 +525,7 @@ @options = map { s/^Category //; s/^Locale //; $_ } @options; my %labels = map { lc( $_ ) => $_ } @options; my @values = sort keys %labels; - my $default = lc( $args{value} ) || ""; + my $default = lc( $args{value} || "");
my $q = CGI->new( "" ); return $q->popup_menu( -name => $field_name,
Modified: trunk/lib/OpenGuides.pm =================================================================== --- trunk/lib/OpenGuides.pm 2012-05-05 12:20:04 UTC (rev 1387) +++ trunk/lib/OpenGuides.pm 2012-05-05 20:00:39 UTC (rev 1388) @@ -2508,9 +2508,9 @@ # Redirection for legacy URLs. sub redirect_index_search { my ( $self, %args ) = @_; - my $type = lc( $args{type} ) || ""; - my $value = lc( $args{value} ) || ""; - my $format = lc( $args{format} ) || ""; + my $type = lc( $args{type} || "" ); + my $value = lc( $args{value} || "" ); + my $format = lc( $args{format} || "" );
my $script_url = $self->config->script_url; my $script_name = $self->config->script_name;