[LON-CAPA-cvs] cvs: modules /gerd adddomain.tab localizedomain.pl

www lon-capa-cvs@mail.lon-capa.org
Sun, 17 Aug 2003 19:50:34 -0000


www		Sun Aug 17 15:50:34 2003 EDT

  Modified files:              
    /modules/gerd	adddomain.tab localizedomain.pl 
  Log:
  Helper programs and data to add to domain.tab
  
  
Index: modules/gerd/adddomain.tab
diff -u modules/gerd/adddomain.tab:1.1 modules/gerd/adddomain.tab:1.2
--- modules/gerd/adddomain.tab:1.1	Sat Aug 16 14:04:42 2003
+++ modules/gerd/adddomain.tab	Sun Aug 17 15:50:34 2003
@@ -31,3 +31,4 @@
 casadepopo&es&Ann Arbor, MI&42:17:00 N 083:44:45 W
 umich&en-US&Ann Arbor, MI&42:17:00 N 083:44:45 W
 pmm&de&Oldenburg, Germany&58:08:00 N 8:13:00 E 
+BCHS&en-US&Lakewood, CO&39:42:17 N 105:04:51 W
Index: modules/gerd/localizedomain.pl
diff -u modules/gerd/localizedomain.pl:1.1 modules/gerd/localizedomain.pl:1.2
--- modules/gerd/localizedomain.pl:1.1	Sat Aug 16 22:11:40 2003
+++ modules/gerd/localizedomain.pl	Sun Aug 17 15:50:34 2003
@@ -1,4 +1,4 @@
-my $table='production';
+my $table='development';
 open(TABLE,'adddomain.tab') || die "Could not read table\n";
 while ($line=<TABLE>) {
     chomp($line);
@@ -10,11 +10,11 @@
 #
     my $longitude=$e1+($e2+$e3/60.0)/60.0;
     if ($ed eq 'W') { $longitude=-$longitude; }
-    $longi{$domain}=int($longitude*100.0+0.5)/100.0;
+    $longi{$domain}=int($longitude*1000.0+0.5)/1000.0;
 #
     my $latitude=$l1+($l2+$l3/60.0)/60.0;
     if ($ld eq 'S') { $latitude=-$latitude; }
-    $lati{$domain}=int($latitude*100.0+0.5)/100.0;
+    $lati{$domain}=int($latitude*1000.0+0.5)/1000.0;
 #
 
 }