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

Diff of /FigWebServices/HOPSS.cgi

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

revision 1.2, Sat Sep 24 14:46:41 2005 UTC revision 1.3, Tue Sep 27 00:58:27 2005 UTC
# Line 45  Line 45 
45  if (! $request)  if (! $request)
46  {  {
47      push(@$html,$cgi->br,      push(@$html,$cgi->br,
                 $cgi->h1("Welcome to <a href=Html/about_HOPSS.html target=help>HOPSS</a> database"),$cgi->br,  
48                  $cgi->h2("A Public Depository of Open Problems and Conjectures Identified by SubSystem analysis"),                  $cgi->h2("A Public Depository of Open Problems and Conjectures Identified by SubSystem analysis"),
49                    $cgi->h2("About <a href=Html/about_HOPSS.html target=help>HOPSS</a> database"),$cgi->br,
50                  "<br><br>"                  "<br><br>"
51           );           );
52    
# Line 106  Line 106 
106    
107      &write_problem($cgi,$problem);      &write_problem($cgi,$problem);
108      &update_form($fig,$cgi,$html,$problem);      &update_form($fig,$cgi,$html,$problem);
109        push(@$html,"<br><br><a href=HOPSS.cgi>Back to Summary</a>\n<br><br><br><hr>");
110  }  }
111    
112  sub update_form {  sub update_form {
# Line 202  Line 203 
203          {          {
204              $kv = &read_problem($problem );              $kv = &read_problem($problem );
205    
206                my $subsys_link = &subsys_link($cgi,&subsystem($kv));
207              push(@$tab,[              push(@$tab,[
208                          &problem_link($cgi,&title($kv),$problem),                          &problem_link($cgi,&title($kv),$problem),
209                          &subsystem($kv),                          $subsys_link,
210                          &type($kv),                          &type($kv),
211                          &time_of_creation($kv),                          &time_of_creation($kv),
212                          &who($kv),                          &who($kv),
# Line 212  Line 214 
214                          &num_comments($kv)                          &num_comments($kv)
215                          ]);                          ]);
216          }          }
217    
218          return &HTML::make_table($col_hdrs,[sort { ($a->[1] cmp $b->[1]) } @$tab],"Summary of Existing Problems and Conjectures");          return &HTML::make_table($col_hdrs,[sort { ($a->[1] cmp $b->[1]) } @$tab],"Summary of Existing Problems and Conjectures");
219      }      }
220      else      else
# Line 259  Line 262 
262  sub num_conjectures {  sub num_conjectures {
263      my($kv) = @_;      my($kv) = @_;
264    
265      my $x = @{$kv->{'conjecture'}};      my $x = $kv->{'conjecture'};
266      return $x ? scalar @$x : 0;      return $x ? scalar @$x : 0;
267  }  }
268    
269  sub num_comments {  sub num_comments {
270      my($kv) = @_;      my($kv) = @_;
271    
272      my $x = @{$kv->{'comment'}};      my $x = $kv->{'comment'};
273      return $x ? scalar @$x : 0;      return $x ? scalar @$x : 0;
274  }  }
275    
# Line 377  Line 380 
380          {          {
381              foreach $_ (@val)              foreach $_ (@val)
382              {              {
383                  $_ =~ s/ /\n/g;  #               $_ =~ s/ //g;
384              }              }
385          }          }
386          else          else
# Line 390  Line 393 
393      {      {
394          my $val = $cgi->param($name);          my $val = $cgi->param($name);
395          $val = $val ? $val : "";          $val = $val ? $val : "";
396          $val =~ s/ /\n/g;  #       $val =~ s/ /\n/g;
397          return $val;          return $val;
398      }      }
399  }  }
# Line 439  Line 442 
442               );               );
443  }  }
444    
445    sub subsys_link {
446        my($cgi,$subsys) = @_;
447    
448        my $esc_sub = uri_escape($subsys);  # in URI::Escape
449        my %opts = (ssa_name => $esc_sub,
450                    request => 'show_ssa',
451                    show_clusters => 1,
452                    sort => 'by_phylo'
453                    );
454    
455        my $opts = join("&", map { "$_=$opts{$_}" } keys(%opts));
456        my $url = $cgi->a({href => "display_subsys.cgi?$opts"}, $subsys);
457        return $url;
458    }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3