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

Diff of /FigWebServices/get_dlit.cgi

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

revision 1.3, Sun May 25 01:51:27 2008 UTC revision 1.4, Sun May 25 16:29:08 2008 UTC
# Line 26  Line 26 
26  use CGI;  use CGI;
27  my $cgi = new CGI;  my $cgi = new CGI;
28    
 my $user = $cgi->param('user');  
   
 $fig->set_user($user);  
29    
30  if (0)  if (0)
31  {  {
# Line 36  Line 33 
33      eval(join("",`cat /tmp/get_dlit_parms`));      eval(join("",`cat /tmp/get_dlit_parms`));
34      $cgi = $VAR1;      $cgi = $VAR1;
35      print STDERR &Dumper($cgi);      print STDERR &Dumper($cgi);
     exit;  
36  }  }
37    
38  if (0)  if (0)
# Line 63  Line 59 
59    
60  my $html = [];  my $html = [];
61  unshift @$html, "<TITLE>Get Dlits</TITLE>\n";  unshift @$html, "<TITLE>Get Dlits</TITLE>\n";
62    
63    my $user = $cgi->param('user');
64  my $curator = $cgi->param('curator');  my $curator = $cgi->param('curator');
65  my $roleN   = $cgi->param('roleN');  my $roleN   = $cgi->param('roleN');
66    if ($roleN) { $roleN =~ s/^(\d+)\t.*$/$1/; }
67  my @checked = $cgi->param('checked');  my @checked = $cgi->param('checked');
68    
69  if (! $user)  if (! $user)
# Line 100  Line 99 
99      if (opendir(CUR,"$FIG_Config::data/DlitByCurator/ByCurator/$curator"))      if (opendir(CUR,"$FIG_Config::data/DlitByCurator/ByCurator/$curator"))
100      {      {
101          my @roles    = sort grep { $_ !~ /^\./ } readdir(CUR);          my @roles    = sort grep { $_ !~ /^\./ } readdir(CUR);
102          push(@$html, $cgi->start_form(-action => "get_dlit.cgi", -method => 'post'),          my %rolesH = map { $_ => 1 } @roles;
103            my @rolesE = map { $_ =~ /^(\d+)\t(\S.*\S)/; $rolesH{$1} ? [$1,$2] : () }
104                         `cat $FIG_Config::data/DlitByCurator/index.of.roles`;
105            my @rolesV = map { $_->[0] } @rolesE;
106            my %role_map = map { $_->[0] => $_->[1] } @rolesE;
107    
108            push(@$html, $cgi->start_form(-action => "get_dlit.cgi", -method => 'post', -target => '_blank'),
109                       $cgi->hidden(-name => 'user', -value=>$user),                       $cgi->hidden(-name => 'user', -value=>$user),
110                       $cgi->hidden(-name => 'curator', -value=>$curator),                       $cgi->hidden(-name => 'curator', -value=>$curator),
111                       "Pick one<br>",                       "Pick one<br>",
112                        $cgi->scrolling_list( -name   => 'roleN',                        $cgi->scrolling_list( -name   => 'roleN',
113                                              -values => [ @roles ],                                              -values => [ sort @rolesV ],
114                                                -labels => \%role_map,
115                                              -size   => 20                                              -size   => 20
116                                              ),                                              ),
117                   $cgi->br,                   $cgi->br,
# Line 130  Line 136 
136              my $check = $cgi->checkbox(-name => 'checked', -value => "$peg:$pubmed", -checked => 0, -override => 1, -label => '');              my $check = $cgi->checkbox(-name => 'checked', -value => "$peg:$pubmed", -checked => 0, -override => 1, -label => '');
137              push(@$tab,[$check,              push(@$tab,[$check,
138                          $role,                          $role,
139                          "<a href=http://www.ncbi.nlm.nih.gov/sites/entrez?db=pubmed&cmd=search&term=$pubmed>$pubmed</a>",                          "<a target=_blank href=http://www.ncbi.nlm.nih.gov/sites/entrez?db=pubmed&cmd=search&term=$pubmed>$pubmed</a>",
140                          &HTML::fid_link($cgi,$peg),                          &HTML::fid_link($cgi,$peg),
141                          $gs,                          $gs,
142                          &HTML::sp_link($cgi,"sp|$sp"),                          &HTML::sp_link($cgi,"sp|$sp"),

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3