[Bio] / FigKernelScripts / load_coupling.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/load_coupling.pl

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

revision 1.1, Sun May 15 11:49:37 2005 UTC revision 1.2, Mon May 30 21:57:23 2005 UTC
# Line 33  Line 33 
33  $dbf->drop_table( tbl => "pchs" );  $dbf->drop_table( tbl => "pchs" );
34  $dbf->create_table( tbl => 'pchs',  $dbf->create_table( tbl => 'pchs',
35                      flds => "peg1 varchar(32), peg2 varchar(32), peg3 varchar(32), peg4 varchar(32),                      flds => "peg1 varchar(32), peg2 varchar(32), peg3 varchar(32), peg4 varchar(32),
36                               inden13 varchar(6), inden24 varchar(6), para3  integer, para4 integer"                               inden13 varchar(6), inden24 varchar(6), para3  integer, para4 integer, rep char(1)"
37                    );                    );
38    
39  opendir(PCHD,$pchD) || die "could not open $pchD";  opendir(PCHD,$pchD) || die "could not open $pchD";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3