Changeset 117

Timestamp:

Oct 8, 2003, 12:06:11 AM (23 years ago)

Author:

eugene

Message:

converted transearch to photsearch -trans
converted zpts to offset

File:

• trunk/Ohana/src/perl/src/mktreport (modified) (2 diffs)

trunk/Ohana/src/perl/src/mktreport

@@ -8 +8 @@
 @photcodes = split (" ", `filtnames list`);
 
-@list = `transearch -offset`;
+@list = `photsearch -trans -offset`;
 
 # the lines from transearch look like this:
 # R 2001/04/15,00:00:00  -0.032 26.259  0.004  0.040 -0.090 B_L92 V_L92 5 15 elixir
-#      (date)             (dZP) (ZPo)   (sigma)
+#      (date)             (ZP)  (ZPo)   (sigma)
 
 @dates = ();
@@ -33 +33 @@
         $name1 = "ZPo$i";
         $name2 = "dZP$i";
-        $$name1{$date} = $words[2];
+        $$name1{$date} = $words[2] - $words[3];
         $$name2{$date} = $words[4];
         next LIST;