[Bio] / FigWebServices / frame.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/frame.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6, Thu Feb 23 21:38:42 2006 UTC revision 1.7, Mon Feb 27 17:59:59 2006 UTC
# Line 155  Line 155 
155    
156    # set session html    # set session html
157    $session = qq~    $session = qq~
158  <form method='post' action='frame.cgi' name='login_form'>  <form method='post' action='./frame.cgi' name='login_form'>
159  <table width=100%>  <table width=100%>
160     <tr><td colspan=3 style="border-top: 1px solid lightblue;"></td></tr>     <tr><td colspan=3 style="border-top: 1px solid lightblue;"></td></tr>
161     <tr style="vertical-align: bottom;">     <tr style="vertical-align: bottom;">
# Line 165  Line 165 
165    my @old_cgi;    my @old_cgi;
166    my @names = $cgi->param;    my @names = $cgi->param;
167    foreach my $name (@names) {    foreach my $name (@names) {
168      unless (($name eq "layout") or ($name eq "config")) {      unless (($name eq "layout") or ($name eq "config") or ($name eq "Resubmit")) {
169        push(@old_cgi, { 'preserve_name' => $name, 'preserve_value' => $cgi->param($name) } );        push(@old_cgi, { 'preserve_name' => $name, 'preserve_value' => $cgi->param($name) } );
170    
171        # store current params in login form        # store current params in login form
# Line 231  Line 231 
231    $menu  .= FigWebServices::SeedComponents::Framework::get_menu($params);    $menu  .= FigWebServices::SeedComponents::Framework::get_menu($params);
232    
233    # create output template    # create output template
234    my $template = HTML::Template->new(filename => TEMPLATE_PATH . 'frame.tmpl');    my $template = HTML::Template->new(filename => TEMPLATE_PATH . 'frame.tmpl', die_on_bad_params => 0);
235    
236    # insert content into template    # insert content into template
237    $template->param(document_base => $document_base);    $template->param(document_base => $document_base);
# Line 258  Line 258 
258    $preferences->{'framework:menu_layout'}             = "extlinks,element,1,1,blue;intlinks,element,1,1,blue;services,element,1,1,blue;neighborhood,group,1,0,0,1,0,0,1,1,0,0,0,1,1;contig_context,section,0;identicalproteins,section,0;compare_region,section,0;subsystems_connections,section,0;relatedlinks,section,0;proteinfamilies,section,0;identicalproteins_table,group,1,1,1,1,1;proteinfamilies_table,group,1,1,1;subsystems_connections_table,group,1,1,1;relatedlinks_table,group,1,1,1,1,1;similarities_table,group,1,1,1,1,1,1,1,1,1,1,1;";    $preferences->{'framework:menu_layout'}             = "extlinks,element,1,1,blue;intlinks,element,1,1,blue;services,element,1,1,blue;neighborhood,group,1,0,0,1,0,0,1,1,0,0,0,1,1;contig_context,section,0;identicalproteins,section,0;compare_region,section,0;subsystems_connections,section,0;relatedlinks,section,0;proteinfamilies,section,0;identicalproteins_table,group,1,1,1,1,1;proteinfamilies_table,group,1,1,1;subsystems_connections_table,group,1,1,1;relatedlinks_table,group,1,1,1,1,1;similarities_table,group,1,1,1,1,1,1,1,1,1,1,1;";
259    $preferences->{'framework:sort_subsystem'}          = "by_phylo";    $preferences->{'framework:sort_subsystem'}          = "by_phylo";
260    $preferences->{'framework:show_clusters_subsystem'} = "1";    $preferences->{'framework:show_clusters_subsystem'} = "1";
261      $preferences->{'framework:proteinpage_order'} = { general                => 0,
262                                                        assign_for_equiv_prots => 1,
263                                                        context_graphic        => 2,
264                                                        compare_region         => 3,
265                                                        contig_context         => 4,
266                                                        subsys_connections     => 5,
267                                                        links                  => 6,
268                                                        similarities           => 7,
269                                                        kv_pairs               => 8
270                                                      };
271    
272    return $preferences;    return $preferences;
273  }  }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3