[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.11, Thu Jul 10 19:35:34 2008 UTC revision 1.12, Thu Jul 10 19:52:23 2008 UTC
# Line 201  Line 201 
201      push @$html, $cgi->h3( '<FONT Color=red>Please select a role.</FONT>' ) if $submit4;      push @$html, $cgi->h3( '<FONT Color=red>Please select a role.</FONT>' ) if $submit4;
202    
203      my $where1 = $show_just ? " AND (dlits.status = '$show_just')" : "";      my $where1 = $show_just ? " AND (dlits.status = '$show_just')" : "";
204      my $where2 = $curator   ? " AND (curr_role.curator = '$curator' AND curr_role.role = hash_role.role)" : "";      my($where2, $from_list);
205    
206        $from_list = "hash_role,dlits";
207        if ($curator)
208        {
209            $where2 =  " AND (curr_role.curator = '$curator' AND curr_role.role = hash_role.role)";
210            $from_list .= ",curr_role";
211        }
212    
213      my @roles = sort { lc $a cmp lc $b }  #  Make sort case insensitive      my @roles = sort { lc $a cmp lc $b }  #  Make sort case insensitive
214                  map { $_->[0] }                  map { $_->[0] }
215                  @{ $rdbH->SQL( "SELECT DISTINCT hash_role.role "                  @{ $rdbH->SQL( "SELECT DISTINCT hash_role.role "
216                               . "FROM hash_role,dlits,curr_role "                               . "FROM $from_list "
217                               . "WHERE hash_role.md5_hash = dlits.md5_hash $where1 $where2"                               . "WHERE hash_role.md5_hash = dlits.md5_hash $where1 $where2"
218                               ) };                               ) };
219      push( @$html, $cgi->start_form(-action => "get_dlits.cgi", -method => 'post'),      push( @$html, $cgi->start_form(-action => "get_dlits.cgi", -method => 'post'),

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3