fixed URI::Escape on q_id in BGB

git-svn-id: http://biopieces.googlecode.com/svn/trunk@843 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/www/index.cgi b/www/index.cgi
index cebfc1c6c184b4b3ca8525bf4a3da12e3b666f07..2009fbf25dc455e356425e7caabdebd16c7210e1 100755 (executable)
--- 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' };