[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;
#
}