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

Diff of /FigWebServices/get_dlits.cgi

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

revision 1.4, Sat Jun 28 20:56:11 2008 UTC revision 1.6, Fri Jul 4 17:40:15 2008 UTC
# Line 110  Line 110 
110      my $where1   = $show_just ? "AND (dlits.status = '$show_just ') " : "";      my $where1   = $show_just ? "AND (dlits.status = '$show_just ') " : "";
111      my $where2   = $curator ? "AND (curr_role.curator = '$curator' AND curr_role.role = hash_role.role) " : "";      my $where2   = $curator ? "AND (curr_role.curator = '$curator' AND curr_role.role = hash_role.role) " : "";
112    
113      my @roles = map { $_->[0] } @{$rdbH->SQL("select DISTINCT hash_role.role from hash_role,dlits,curr_role WHERE hash_role.md5_hash = dlits.md5_hash $where1  $where2")};      my @roles = sort map { $_->[0] } @{$rdbH->SQL("select DISTINCT hash_role.role from hash_role,dlits,curr_role WHERE hash_role.md5_hash = dlits.md5_hash $where1  $where2")};
114      push(@$html, $cgi->start_form(-action => "get_dlits.cgi", -method => 'post'),      push(@$html, $cgi->start_form(-action => "get_dlits.cgi", -method => 'post'),
115                   $cgi->hidden(-name => 'user', -value=>$user),                   $cgi->hidden(-name => 'user', -value=>$user),
116                   $cgi->hidden(-name => 'show_just', -value=>$show_just),                   $cgi->hidden(-name => 'show_just', -value=>$show_just),
# Line 245  Line 245 
245          my($status,$peg,$pubmed) = @$tuple;          my($status,$peg,$pubmed) = @$tuple;
246          next if (! $fig->is_real_feature($peg));          next if (! $fig->is_real_feature($peg));
247          my $gs = $fig->genus_species(&FIG::genome_of($peg));          my $gs = $fig->genus_species(&FIG::genome_of($peg));
248          $gs =~ s/^(\S+)\s+(\S+).*$/$1/;          $gs =~ s/^(\S+\s+\S+).*$/$1/;
249          my $title = &title_of($fig,$pubmed);          my $title = &title_of($fig,$pubmed);
250          my $func = $fig->function_of($peg);          my $func = $fig->function_of($peg);
251          my @codes = $cgi->radio_group(-name => "tuple:$peg:$pubmed:$status",          my @codes = $cgi->radio_group(-name => "tuple:$peg:$pubmed:$status",

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3