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

Diff of /FigKernelScripts/TransactFeatures.pl

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

revision 1.16, Mon Dec 5 18:56:37 2005 UTC revision 1.19, Tue Oct 3 02:49:24 2006 UTC
# Line 197  Line 197 
197  use FudgeTransactions;  use FudgeTransactions;
198    
199  # Get the command-line options.  # Get the command-line options.
200  my ($options, @parameters) = Tracer::ParseCommand({ trace => 3, sql => 0, safe => 0, noAlias => 0,  my ($options, @parameters) = StandardSetup(["DocUtils"],
201                                                      start => ' ', tblFiles => 0},                      { safe => [0, "use database transactions"],
202                          trace => [2, "trace level"],
203                          noAlias => [0, "do not expect aliases in CHANGE transactions"],
204                          start => [' ', "start with this genome"],
205                          tblFiles => [0, "output TBL files containing the corrected IDs"] },
206                        "command transactionDirectory IDfile",
207                                                    @ARGV);                                                    @ARGV);
208  # Get the command.  # Get the command.
209  my $mainCommand = lc shift @parameters;  my $mainCommand = lc shift @parameters;
 # Set up tracing.  
 my $traceLevel = $options->{trace};  
 my $tracing = "$traceLevel Tracer DocUtils FIG";  
 if ($options->{sql}) {  
     $tracing .= " SQL";  
 }  
 TSetup($tracing, "TEXT");  
210  # Get the FIG object.  # Get the FIG object.
211  my $fig = FIG->new();  my $fig = FIG->new();
212  # Create the transaction object.  # Create the transaction object.

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.19

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3