[Bio] / DrugTargets / drug_targets_table.pl Repository:
ViewVC logotype

Diff of /DrugTargets/drug_targets_table.pl

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

revision 1.3, Wed Aug 10 23:26:45 2005 UTC revision 1.4, Mon Aug 15 17:03:29 2005 UTC
# Line 6  Line 6 
6  my $cgi = new CGI;  my $cgi = new CGI;
7  my $temp_dir = $FIG_Config::temp;  my $temp_dir = $FIG_Config::temp;
8  my $fin      = "$temp_dir/tmp$$.in";  my $fin      = "$temp_dir/tmp$$.in";
9  my $fcsv_name= "download$$.csv";  my $fcsv_name= "download$$.html.xls";
10  my $fcsv     = "/home/fangfang/public_html/FIG_tmp/$fcsv_name";  my $fcsv     = "/home/fangfang/public_html/FIG_tmp/$fcsv_name";
11  $| = 1;  $| = 1;
12    
# Line 100  Line 100 
100              $uniId_u = join(", ", @uniIds_u);              $uniId_u = join(", ", @uniIds_u);
101    
102              # conservation of sequences              # conservation of sequences
103              my $cons = get_cons($peg);              #my $cons = get_cons($peg);
104    
105              # best pdb bound              # best pdb bound
106              my ($pdb_bound, $escore_bound, $pdb_bound_url) = get_pdb($peg, "bound");              my ($pdb_bound, $escore_bound, $pdb_bound_url) = get_pdb($peg, "bound");
# Line 129  Line 129 
129    
130              @row_e= ($cat, "\"$gene\"", "\"$geneId\"", $peg, $peg_len, "\"$gid\"", "\"$uniId\"", "\"$role\"", $cons, $pdb_bound, $escore_bound, $pdb, $escore, "\"$pdb_title\"", $pdb_len, $dist, $pass, $pass_maxwgt, "\"$clibe\"");              @row_e= ($cat, "\"$gene\"", "\"$geneId\"", $peg, $peg_len, "\"$gid\"", "\"$uniId\"", "\"$role\"", $cons, $pdb_bound, $escore_bound, $pdb, $escore, "\"$pdb_title\"", $pdb_len, $dist, $pass, $pass_maxwgt, "\"$clibe\"");
131    
132              if (FCSV) {print FCSV join(",", @row_e) . "\n";}              if (FCSV) {print FCSV join(",", @row_u) . "\n";}
133    
134              if ($webpage) {              if ($webpage) {
135                  print gen_html("row", @row_u);                  print gen_html("row", @row_u);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3