added collapsable tracks to BGB

[biopieces.git] / www / index.cgi

diff --git a/www/index.cgi b/www/index.cgi
index fc1390f703e13f313a979f0bd595b519f259471a..85fed675115605e54c0fb8079670cc938fd8bfaf 100755 (executable)
--- a/www/index.cgi
+++ b/www/index.cgi
@@ -103,13 +103,13 @@ sub cookie_default
         }
     }
 
-    $cookie->{ 'SCRIPT' }          = Maasha::Common::get_scriptname();
-    $cookie->{ 'DATA_DIR' }        = "Data";
-    $cookie->{ 'SESSION_DIR' }     = "Sessions";
-    $cookie->{ 'LIST_PAGES' }      = [ qw( clade genome assembly contig browse ) ];
-    $cookie->{ 'USER' }            = $cgi->param( 'user' );
-    $cookie->{ 'PASSWORD' }        = $cgi->param( 'password' );
-    $cookie->{ 'SESSION_ID' }      = $cgi->param( 'session_id' );
+    $cookie->{ 'SCRIPT' }      = Maasha::Common::get_scriptname();
+    $cookie->{ 'DATA_DIR' }    = "Data";
+    $cookie->{ 'SESSION_DIR' } = "Sessions";
+    $cookie->{ 'LIST_PAGES' }  = [ qw( clade genome assembly contig browse ) ];
+    $cookie->{ 'USER' }        = $cgi->param( 'user' );
+    $cookie->{ 'PASSWORD' }    = $cgi->param( 'password' );
+    $cookie->{ 'SESSION_ID' }  = $cgi->param( 'session_id' );
 
     $session = session_restore( $cookie );
 
@@ -138,17 +138,19 @@ sub cookie_default
          $cookie->{ 'PAGE' } = $cgi->param( 'page' ) || 'login';
     }
 
+    $cookie->{ 'TRACK_STATUS' }    = $session->{ 'TRACK_STATUS' };
     $cookie->{ 'CLADE' }           = $cgi->param( 'clade' )       || $session->{ 'CLADE' };
     $cookie->{ 'GENOME' }          = $cgi->param( 'genome' )      || $session->{ 'GENOME' };
     $cookie->{ 'ASSEMBLY' }        = $cgi->param( 'assembly' )    || $session->{ 'ASSEMBLY' };
     $cookie->{ 'CONTIG' }          = $cgi->param( 'contig' )      || $session->{ 'CONTIG' };
     $cookie->{ 'Q_ID' }            = $cgi->param( 'q_id' )        || $session->{ 'Q_ID' };
     $cookie->{ 'NAV_START' }     ||= defined $cgi->param( 'nav_start' ) ? $cgi->param( 'nav_start' ) : $session->{ 'NAV_START' };
-    $cookie->{ 'NAV_END' }       ||= $cgi->param( 'nav_end' )     || $session->{ 'NAV_END' };
+    $cookie->{ 'NAV_END' }       ||= defined $cgi->param( 'nav_end' )   ? $cgi->param( 'nav_end' )   : $session->{ 'NAV_END' };
     $cookie->{ 'NAV_CENTER' }      = $cgi->param( 'nav_center' );
     $cookie->{ 'S_BEG' }           = $cgi->param( 's_beg' )       || $session->{ 'S_BEG' };
     $cookie->{ 'S_END' }           = $cgi->param( 's_end' )       || $session->{ 'S_END' };
     $cookie->{ 'STRAND' }          = $cgi->param( 'strand' )      || $session->{ 'STRAND' };
+    $cookie->{ 'TRACK' }           = $cgi->param( 'track' );
     $cookie->{ 'ZOOM_IN1' }        = $cgi->param( 'zoom_in1' );
     $cookie->{ 'ZOOM_IN2' }        = $cgi->param( 'zoom_in2' );
     $cookie->{ 'ZOOM_IN3' }        = $cgi->param( 'zoom_in3' );
@@ -173,7 +175,7 @@ sub cookie_default
     $cookie->{ 'SEQ_COLOR' }       = [ 0, 0, 0, ];
     $cookie->{ 'FEAT_WIDTH' }      = 5;
     $cookie->{ 'FEAT_COLOR' }      = [ 0, 0, 0 ];
-    $cookie->{ 'FEAT_MAX' }        = 5000;   # TODO: Reduntant?
+#    $cookie->{ 'FEAT_MAX' }        = 5000;   # TODO: Reduntant?
 
 #    $cookie->{ 'LIST_USER' }       = Maasha::BGB::Track::list_users();  # TODO: Redundant?
 
@@ -191,6 +193,7 @@ sub cookie_default
             cookie_zoom( $cookie );
             cookie_move( $cookie );
             cookie_center( $cookie );
+            cookie_track_status( $cookie );
         }
     }
 
@@ -280,6 +283,8 @@ sub session_store
             $new_session->{ 'STRAND' }    = $cookie->{ 'STRAND' };
         }
 
+        $new_session->{ 'TRACK_STATUS' } = $cookie->{ 'TRACK_STATUS' };
+
         Maasha::BGB::Session::session_store( "$cookie->{ 'SESSION_DIR' }/$cookie->{ 'USER' }/session.json", $new_session );
     }
 }
@@ -495,7 +500,7 @@ sub cookie_move
 
 sub cookie_center
 {
-    # Martin A. Hansen, March 2010
+    # Martin A. Hansen, March 2010.
    
     # Adjust the cookie values for NAV_START and NAV_END based
     # on cookie CENTER value if defined.
@@ -521,6 +526,35 @@ sub cookie_center
 }
 
 
+sub cookie_track_status
+{
+    # Martin A. Hansen, March 2010.
+
+    #
+    
+    my ( $cookie,   # cookie hash
+       ) = @_;
+
+    # Returns nothing.
+
+    my ( $clade, $genome, $assembly, $track );
+
+    $clade    = $cookie->{ 'CLADE' };
+    $genome   = $cookie->{ 'GENOME' };
+    $assembly = $cookie->{ 'ASSEMBLY' };
+    $track    = $cookie->{ 'TRACK' };
+
+    if ( $track )
+    {
+        if ( $cookie->{ 'TRACK_STATUS' }->{ $clade }->{ $genome }->{ $assembly }->{ $track } ) {
+            $cookie->{ 'TRACK_STATUS' }->{ $clade }->{ $genome }->{ $assembly }->{ $track } = 0;
+        } else {
+            $cookie->{ 'TRACK_STATUS' }->{ $clade }->{ $genome }->{ $assembly }->{ $track } = 1;
+        }
+    }
+}
+
+
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PAGES <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
@@ -1148,23 +1182,68 @@ sub section_browse
         {
             next if $elem->{ 'type' } =~ /text|wiggle/;
 
-            push @img, Maasha::XHTML::area(
-                href     => join( "&", "$cookie->{ 'SCRIPT' }?page=export",
-                                       "session_id=$cookie->{ 'SESSION_ID' }",
-                                       "user=$cookie->{ 'USER' }",
-                                       "clade=$cookie->{ 'CLADE' }",
-                                       "genome=$cookie->{ 'GENOME' }",
-                                       "assembly=$cookie->{ 'ASSEMBLY' }",
-                                       "contig=$cookie->{ 'CONTIG' }",
-                                       "s_beg=$elem->{ 's_beg' }",
-                                       "s_end=$elem->{ 's_end' }",
-                                       "strand=$elem->{ 'strand' }",
-                                       "q_id=$elem->{ 'q_id' }",
-                          ),
-                shape  => 'rect',
-                coords => "$elem->{ x1 }, $elem->{ y1 }, $elem->{ x2 }, $elem->{ y2 }",
-                title  => "$elem->{ 'title' }",
-            );
+            if ( $elem->{ 'type' } eq 'track_name' )
+            {
+                $x1 = $elem->{ 'x1' };
+                $y1 = $elem->{ 'y1' } - 10;
+                $x2 = $elem->{ 'x1' } + 6 * length $elem->{ 'txt' };
+                $y2 = $elem->{ 'y1' };
+
+                if ( Maasha::BGB::Track::track_hide( $cookie, $elem->{ 'track' } ) )
+                {
+                    push @img, Maasha::XHTML::area(
+                        href   => join( "&", "$cookie->{ 'SCRIPT' }?page=browse",
+                                             "session_id=$cookie->{ 'SESSION_ID' }",
+                                             "user=$cookie->{ 'USER' }",
+                                             "clade=$cookie->{ 'CLADE' }",
+                                             "genome=$cookie->{ 'GENOME' }",
+                                             "assembly=$cookie->{ 'ASSEMBLY' }",
+                                             "contig=$cookie->{ 'CONTIG' }",
+                                             "track=$elem->{ 'track' }",
+                                  ),
+                        shape  => 'rect',
+                        coords => "$x1, $y1, $x2, $y2",
+                        title  => qq(Show track: $elem->{ 'txt' }),
+                    );
+                }
+                else
+                {
+                    push @img, Maasha::XHTML::area(
+                        href   => join( "&", "$cookie->{ 'SCRIPT' }?page=browse",
+                                             "session_id=$cookie->{ 'SESSION_ID' }",
+                                             "user=$cookie->{ 'USER' }",
+                                             "clade=$cookie->{ 'CLADE' }",
+                                             "genome=$cookie->{ 'GENOME' }",
+                                             "assembly=$cookie->{ 'ASSEMBLY' }",
+                                             "contig=$cookie->{ 'CONTIG' }",
+                                             "track=$elem->{ 'track' }",
+                                  ),
+                        shape  => 'rect',
+                        coords => "$x1, $y1, $x2, $y2",
+                        title  => qq(Hide track: $elem->{ 'txt' }),
+                    );
+                }
+            }
+            else
+            {
+                push @img, Maasha::XHTML::area(
+                    href     => join( "&", "$cookie->{ 'SCRIPT' }?page=export",
+                                           "session_id=$cookie->{ 'SESSION_ID' }",
+                                           "user=$cookie->{ 'USER' }",
+                                           "clade=$cookie->{ 'CLADE' }",
+                                           "genome=$cookie->{ 'GENOME' }",
+                                           "assembly=$cookie->{ 'ASSEMBLY' }",
+                                           "contig=$cookie->{ 'CONTIG' }",
+                                           "s_beg=$elem->{ 's_beg' }",
+                                           "s_end=$elem->{ 's_end' }",
+                                           "strand=$elem->{ 'strand' }",
+                                           "q_id=$elem->{ 'q_id' }",
+                              ),
+                    shape  => 'rect',
+                    coords => "$elem->{ x1 }, $elem->{ y1 }, $elem->{ x2 }, $elem->{ y2 }",
+                    title  => "$elem->{ 'title' }",
+                );
+            }
         }
     }