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

Diff of /FigKernelScripts/load_attributes.pl

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

revision 1.34, Thu Jan 5 21:31:24 2006 UTC revision 1.35, Thu Jan 5 21:34:40 2006 UTC
# Line 61  Line 61 
61  Ignore attributes in the global directory. This means only feature attributes will  Ignore attributes in the global directory. This means only feature attributes will
62  be loaded.  be loaded.
63    
64  =item force  =item safe
65    
66  Fix bad attribute keys. Attribute can only contain letters, digits, and the underscore.  Normally, if errors or bad keys are found in an input file, the input file is replaced
67    with a cleaned copy. If this flag is set, the input file will be left alone and a the
68    cleaned copy will remain in the directory with the input file.
69    
70  =back  =back
71    
# Line 71  Line 73 
73    
74  # Get the command-line options.  # Get the command-line options.
75  my ($options) = StandardSetup({ links => 0,  my ($options) = StandardSetup({ links => 0,
76                                    safe => 0,
77                                  keep => 0,                                  keep => 0,
78                                  noglobal => 0,                                  noglobal => 0
79                                  force => 0}, @ARGV);                                }, @ARGV);
80    
81  Trace("Deleting and Recreating attribute table.") if T(2);  Trace("Deleting and Recreating attribute table.") if T(2);
82    
# Line 351  Line 354 
354      # we'll replace the original file with it. Otherwise, we delete it.      # we'll replace the original file with it. Otherwise, we delete it.
355      if ($cleanCount || $errorCount) {      if ($cleanCount || $errorCount) {
356          Trace("$cleanCount malformed keys and $errorCount errors found in $from.") if T(1);          Trace("$cleanCount malformed keys and $errorCount errors found in $from.") if T(1);
357            if (! $options->{safe}) {
358          rename "$from.dtx", $from;          rename "$from.dtx", $from;
359            }
360      } else {      } else {
361          unlink "$from.dtx";          unlink "$from.dtx";
362      }      }

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3