From 53e81de7e5ea7a266ed55a82b27fbb2f5da42300 Mon Sep 17 00:00:00 2001 From: martinahansen Date: Fri, 22 Jan 2010 10:11:09 +0000 Subject: [PATCH] fixed URI::Escape on q_id in BGB git-svn-id: http://biopieces.googlecode.com/svn/trunk@843 74ccb610-7750-0410-82ae-013aeee3265d --- www/index.cgi | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/www/index.cgi b/www/index.cgi index cebfc1c..2009fbf 100755 --- a/www/index.cgi +++ b/www/index.cgi @@ -26,6 +26,7 @@ use warnings; use lib $ENV{ 'BP_PERL' }; use CGI; +use URI::Escape; use Data::Dumper; use Digest::MD5; use Maasha::Common; @@ -227,7 +228,7 @@ sub cookie_session $cookie->{ 'PAGE' } = 'login'; print STDERR "HER4"; # DEBUG print STDERR "NO COOKIE SESSION ID\n" if not $cookie->{ 'SESSION_ID' }; # DEBUG - print STDERR "NO COOKIE SESSION ID\n" if not $cookie->{ 'USER' }; # DEBUG + print STDERR "NO COOKIE USER\n" if not $cookie->{ 'USER' }; # DEBUG print STDERR "NO SESSION USER\n" if not exists $session->{ $cookie->{ 'USER' } }; # DEBUG } } @@ -448,9 +449,9 @@ sub cookie_href $href_hash{ "nav_search" } = "$cookie->{ 'NAV_START' }-$cookie->{ 'NAV_END' }"; } + $href_hash{ "q_id" } = URI::Escape::uri_escape( $cookie->{ 'Q_ID' } ) if defined $cookie->{ 'Q_ID' }; $href_hash{ "s_beg" } = $cookie->{ 'S_BEG' } if defined $cookie->{ 'S_BEG' }; $href_hash{ "s_end" } = $cookie->{ 'S_END' } if defined $cookie->{ 'S_END' }; - $href_hash{ "q_id" } = $cookie->{ 'Q_ID' } if defined $cookie->{ 'Q_ID' }; $href_hash{ "strand" } = $cookie->{ 'STRAND' } if defined $cookie->{ 'STRAND' }; $href_hash{ "session_id" } = $cookie->{ 'SESSION_ID' } if defined $cookie->{ 'SESSION_ID' }; -- 2.39.2