Changeset 28177 for branches/haf_branches/ipp.20100512/ippScripts/scripts

Timestamp:

Jun 1, 2010, 1:45:42 PM (16 years ago)

Author:

heather

Message:

final changes

Location:

branches/haf_branches/ipp.20100512/ippScripts/scripts

Files:

• minidvodb_createdb.pl (modified) (1 diff)
• minidvodb_merge.pl (modified) (2 diffs)

branches/haf_branches/ipp.20100512/ippScripts/scripts/minidvodb_createdb.pl

@@ -204 +204 @@
         my $parser = DateTime::Format::Strptime->new( pattern => '%Y-%m-%dT%H:%M:%S', time_zone => "HST" );
         my $creation_dt = $parser->parse_datetime( $creation_date )->mjd;
-        if ($mjd_start- $creation_dt > $minidvodb_interval) { # && $addRun_count > 0 ) {
-        #if ($mjd_start- $creation_dt > $minidvodb_interval && $addRun_count > 0 ) {
+        if ($mjd_start- $creation_dt > $minidvodb_interval && $addRun_count > 0 ) {
             #db is old and has stuff in it, want to create_new 
             $create_new = 1;

branches/haf_branches/ipp.20100512/ippScripts/scripts/minidvodb_merge.pl

@@ -87 +87 @@
 unless ($no_op) {
     if (defined $mergedvodbReal) {
-        my $mjd_relphot_start = DateTime->now->mjd;
-        my $lame = 1;
-        if ($lame ==2){
         {
             my $command  = "$addstar -resort";
@@ -125 +122 @@
             $dtime_relphot = 86400.0*(DateTime->now->mjd - $mjd_relphot_start);   # MJD of starting script
             print "relphot time $dtime_relphot\n";
-        }}
+        }
         
         {