[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.4, Mon Aug 15 17:03:29 2005 UTC revision 1.5, Mon Aug 15 18:08:09 2005 UTC
# Line 7  Line 7 
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$$.html.xls";  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    my $fcsv = "$temp_dir/$fcsv_name";
12    
13  $| = 1;  $| = 1;
14    
15  my $webpage    = 1;  my $webpage    = 1;
# Line 42  Line 44 
44  {  {
45      open(FIN, $fin) || (print(STDERR "'$fin': Couldn't open file. Skipped...\n\n"), next);      open(FIN, $fin) || (print(STDERR "'$fin': Couldn't open file. Skipped...\n\n"), next);
46      open(FCSV, ">$fcsv");      open(FCSV, ">$fcsv");
47      print FCSV join(",", @header) . "\n";  
48        if (FCSV) {
49            print FCSV gen_html("start_html", ("Drug Targets"));
50            print FCSV gen_html("start_table");
51            print FCSV gen_html("header", @header);
52        }
53    
54      while (<FIN>) {      while (<FIN>) {
55          chomp;          chomp;
# Line 129  Line 136 
136    
137              @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\"");
138    
139              if (FCSV) {print FCSV join(",", @row_u) . "\n";}              if (FCSV) {print FCSV gen_html("row", @row_u);}
140    
141              if ($webpage) {              if ($webpage) {
142                  print gen_html("row", @row_u);                  print gen_html("row", @row_u);
# Line 138  Line 145 
145              }              }
146          }          }
147      }      }
148        if (FCSV) {
149            print FCSV gen_html("end_table");
150            print FCSV gen_html("end_html");
151        }
152      close(FCSV);      close(FCSV);
153      close(FIN);      close(FIN);
154  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3