function bhl_geocode_reference($reference_id)
{
$pages = bhl_retrieve_reference_pages($reference_id);
foreach ($pages as $page) {
$text = bhl_fetch_ocr_text($page->PageID);
$pts = points_from_text($text);
//echo $page->PageID;
//print_r($pts);
if (count($pts) > 0) {
foreach ($pts as $pt) {
$loc = new stdclass();
$loc->name = '';
$loc->latitude = $pt->latitude;
$loc->longitude = $pt->longitude;
$locality_id = db_store_locality($loc);
bhl_store_locality_link($page->PageID, $locality_id);
}
} else {
// No localities
bhl_store_locality_link($page->PageID, 0);
}
}
}
return $points;
}
if (0) {
$text = "YAQUINA).-2 males, ML 74-79 mm, Cr. Y7102B haul 262, \n\t 45°38.3'N, 126°43.8'W in 2,721 m, 17 Feb. 1971, USNM \n\t 817580.-1 female, ML 66 mm, Cr. Y7105B haul 276, \n\t 45°56.7'N, 127°38.6'W in 2,761 m, 17 May 1971, SBMNH \n\t 35 142. - 1 female, ML 67 mm, Cr. Y7 1 023 haul 263, 45°36.4'N, \n\t ";
$text = "Material Examined (15 specimens all collected by R/V \n\t YAQUINA).-Holotype: male, ML 50 mm, Cr. Y7210A haul \n\t 308,45°01.rN, 135°12.0'W in 3,932 m,USNM 7307 15. Para- \n\t types: 2 males ML 46.5-48 mm, 1 female ML 31 mm, Cr. \n\t Y7210A haul 300, 44°58.rN,132\"'14.7'W in 3,585 m, 10 June \n\t 1972, CAS 067789.-1 male, ML 42 mm, Cr. Y7105B haul \n\t 281,44°38.5'N, 127°39.5'W in 2,816 m, 19May 1971,SBMNH \n\t 35 144.- 1 male ML 30 mm, 1 female ML 85 mm, Cr. Y72 lOA \n\t haul 303, 45°05.rN, 133°10.9'W in 3,700 m, 10 July 1972, \n\t UMML 31.1938.-1 female, ML 57 mm, Cr. Y7005C haul \n\t 232, 44°40.2'N, 1 33°35.7'W in 3,742 m, 3 June 1970, SBMNH \n\t 35145.-2 males, ML 17.5-53 mm, Cr. Y7210A haul 299, \n\t 44''56.8'N, 132°11.5'W in 3,580 m, 10 June 1972, UMML \n\t 31.1937.-1 male, ML 17 mm, Cr. Y7210A haul 307, \n\t 45'^3.5'N, 134°45.0'W in 3,900 m, 10 Oct. 1972, CAS \n\t 067790.-2 males ML 30-36 mm, 1 female ML 29 mm, Cr. \n\t Y7210A haul 305, 45°05.2'N, 134°43.4'W in 3,900 m, 9 Oct. \n\t 1972, USNM 817582.-1 male, ML 28 mm, Cr. Y7206Bhaul \n\t 288, 44°06.2'N, 125°22.7'W in 2,940 m. 14 June 1972, CAS \n\t 067791. ";
$text = "Material Examined (5 specimens). — Holotype: male, ML \n\t 93 mm, R/V YAQUINA Cr. 6606, 44°37.0'N, 125°01.0'W in \n\t 1,260 m, 6 Aug. 1966, USNM 729991. Paratypes: 1 female, \n\t ML 99 mm, R/V ACONA, 44°24.2'N, 125°10.3'W in 1,000 \n\t m, 14 Aug. 1964, CAS 06 1430.-1 female, ML 115 mm, R/V \n\t ACONA. 44°3I.3'N, 125°05.4'W in 1,250 m, 15 Jan. 1965. \n\t Other material (2 specimens in very poor condition, one partly \n\t eaten and both mauled in the net); 1 male, ML 62 mm, R/V \n\t ACONA, 44°36'N, 126°06.9'W in 3,000 m, 30 Dec. 1963, \n\t UMML 31.1 943. - 1 male, ML 56 mm, R/V ACONA, 44°36'N, \n\t 126-06. 9' W in 3,000 m, 30 Dec. 1963. ";
//$text = "2 UNIV. KANSAS MUS. NAT. HIST. OCC. PAP. No. 150 \nvent length is abbreviated SVL. The Museum of Natural History, The \n University of Kansas is abbreviated KU. \nI take pleasure in naming this distinctive new species for Professor Robert \n C. Bearse, Associate Vice Chancellor for Research, Graduate Studies, and \n Public Service, The University of Kansas; his enlightened and imaginative \n administrative actions have continuously enhanced the programs of the \n Museum of Natural History. \nEleutherodactylus bearsei new species \nHolotype. — KU 2 12268, a gravid female, from the CataratasAhuashiyacu \n (06°30'S, 76°20'W, 730 m), 14 km (by road) northeast of Tarapoto, Provincia \n San Martin, Departamento San Martin, Peru, obtained on 8 February 1 989 by \n William E. Duellman. \nParatypes. — KU 212269-71 and 212273, three adult males and one \n gravid female, collected with the holotype. \nReferred specimens. — KU 212272, a subadult female, and 212274 and \n 2 1 73 14-15, juveniles, from the type locality; KU 2 1 2275-76, juveniles, from \n 30 km (by road) southwest of Zapatero (ca. 10 km NE of San Jose de Sisa), \n 500 m, Provincia Lamas, Departamento San Martin, Peru. \nDiagnosis. — A member of the Eleutherodactylus unistrigatus group, as \n defined by Lynch (1976), characterized by: (1) skin of dorsum shagreened \n (scattered low tubercles in males), lacking folds; skin on venter areolate; (2) \n tympanum distinct, vertically ovoid, its diameter about one-third diameter of \n eye; (3) snout acutely rounded in dorsal view, bluntly rounded in profile; \n canthus rostralis sharp; (4) upper eyelid broader than interorbital distance, not \n bearing tubercles; cranial crests absent; (5) vomerine dentigerous processes \n prominent, transverse; (6) males with vocal slits and subgular vocal sac; \n nuptial excrescense absent; (7) first finger shorter than second; discs truncate, \n largest on Fingers II— IV; (8) fingers bearing lateral keels; (9) ulnar tubercles \n diffuse; (10) low tubercles on tarsus; tubercles absent on heel; (11) two \n metatarsal tubercles; inner elliptical, 8-10 times size of outer tubercle; (12) \n toes unwebbed, bearing narrow lateral keels and toepads nearly as large as \n those on outer fingers; ( 13) dorsum brown with darker brown marks on back \n and transverse bars on limbs; posterior surfaces of thighs and flanks uniform \n brown; dark brown labial bars; venter brown with cream flecks; (14) adults \n moderate-sized; three males 22.7-25.5 mm SVL, two females 38.0 and 38.8 \n mm SVL. \nEleutherodactylus bearsei most closely resembles E. platydactylus from \n the Amazonian slopes of the Andes in central and southern Peru, E. diadematus \n in the upper Amazon Basin, and a new species from Panguana in Amazonian \n Peru being described by Hedges and Schliiter. Eleutherodactylus platydactylus \n differs from E. bearsei by having larger, conical tubercles on the dorsum, \n";
//$text = "HYLID FROGS FROM THE GUIANA HIGHLANDS 3 \nMuseum of Comparative Zoology at Harvard University (MCZ), Museum of \n Natural History at The University of Kansas (KU), National Museum of \n Natural History (USNM), Nationaal Natuurhistorisch Museum (formerly \n Rijksmuseum van Natuurlijke Historie) (RMNH). the University of Guyana \n Department of Biology (UGDB), and the University of Puerto Rico at \n Mayagiiez (UPR-M ). Measurements and structural features follow Duellman \n (1970), except that webbing formula is that of Savage and Heyer (1967). as \n modified by Myers and Duellman ( 1982). Snout-vent length is abbreviated \n SVL. \nHyla Lalrenti, 1768 \nNearly 300 species, most of which are placed in one of more than 40 \n phenetic groups, are recognized in the paraphyletic genus Hyla. Seven of \n these groups occur in the Guianan Region. These are: ( 1 ) Hyla boans group \n (Duellman. 1970). (2) Hyla geographica group (Duellman. 1973). (3) Hyla \n granosa group ( Hoogmoed. 1 979a) , (4) Hyla leucophyllata group ( Duellman, \n 1 970), (5 ) Hyla marmorata group ( Bokermann, 1 964 ), (6) Hyla microcephalia \n group (Duellman. 1970). and (7) Hyla parviceps group (Duellman and \n Crump. 1974). \nTwo of the three new species described herein cannot be relegated to any \n of these recognized species groups. The other new species is a member of the \n Hyla geographica group. For ease of comparison, comparable features are \n numbered sequentially in the diagnoses. \nHyla hadroeeps new species \nHolotype. — KU 69720, an adult male, from area north of Acarai Moun- \n tains, west of New River (ca. 02°N, 58°W). Rupununi District, Guyana, \n obtained in January 1962 by William A. Bently. \nDiagnosis. — The single male has a SVL of 53.9 mm and the following \n characteristics: ( 1 ) body robust; head blunt; ( 2 ) skin on dorsum bearing many \n large, round tubercles: skin of head not co-ossified with underlying dermal \n bones; (3) tympanum distinct; (4) fingers about two-thirds webbed; (5) toes \n nearly fully webbed; (6) fringes and calcars absent on limbs; (7) axillary \n membrane extending to midlength of upper arm; (8) dorsum brown with \n irregular darker brown markings; venter cream with brown flecks; (9) \n vomerine odontophores short, diagonal. \nA subgular vocal sac immediately distinguishes Hyla hadroeeps from \n species of Phrynohyas and Osteocephalus, some of which it resembles \n superficially. The thick tubercular skin, large size, and absence of black and \n orange or yellow flash colors distinguish it from members of the Hyla \n marmorata group. The absence of dermal fringes on the limbs distinguishes \n H. hadroeeps from H. tuberculosa. \n";
$text = "Station 4760: 53° 53^ N.; 144° 53^ W.; 2,200 fathoms; May 21 Gonatusfabricii. \n\n\n\nStation 4763: 53° 46' N.; 164° 29' W.; 56 fathoms; May 28 Gonatus fubridi. \n\n\n\nStation 4705: 53° 12' N.; 171° 37' W.; 1,217 Mhoms;(Gonatus fubridi. \n\n\n\nMay 29. XCrystalloteuthisberingicma. \n\n\n\nStation 4768: 54° 20' 80\" N.; y9°09'30\"E.; 764 fathoms; lime 3. Galiteuthis armata. ";
$text = 'Homestead (25.08S, 116.54E) in West- as long as scape';
$text = 'Horseshoe Cove, Bodega Head, Sonoma County (38 18\' 30" N, 123 4\' W). ';
$text = '19� 09\' S., 36� 55\' E.';
$text = 'St. 3998\'". 7°34\'S., 8°48\'W. 1. III. 1930. ';
$text = "Azores Material. 109522, RA^ Atlantis II 49, RHB1916, \n35°30'N 2r46'W, 39-41 m, 2229-0003 h, 24-25.VI.I969, 8:42- \n48 mm SL; 109523, RA' Atlantis II 49, RHB1919, 35°56'N \n22°40'W, 650-750 m, 0708-1030 h, 25.VI.I969, 3:40-43 mm \nSL; 109524, RA^ Atlantis II 49, RHB1920, 36°23'N 23°35'W, 63- \n65 m, 2045-2218 h, 25.VI.1969, 3:42-44 mm SL; 109591, RA' \nChain 105, RHB2551, 34°49'N 24°32'W, 700-740 m, 1620-1845 \nh, 08. VII. 1972, 1:45 mm SL; 109592, R/V Chain 105, RHB2552, \n34°17'N 24°05'W, 60-70 m, 2158-2305 h, 08.VII.1972, 2:40-43 \nmm SL; 109671, RA' Delaware 7/63-04, DL63-04:012, 36°57'N \n24°50'W, 180 m, 1730-1815 h, 12.V.1963, 1:42 mm SL. \nLoweina rara (Lutken 1892) ";
$text = '48 30\' 33" E, 13 00\' 01" S';
$text = 'lat 13.869°N, long 89.620°W';
$text = 'COSTA RICA: Heredia
Province, unnamed creek at Hwy. 4, ca.
3 Km from jet. with Hwy. 32 (N10°15\'10",
W83°55\'ll"; elev. 200 m) 10.vi.2001, DEB
(DB 01-28), 22 larvae (TAMU); La Selva
Biological Station, SW Puerto Viejo, Sura
Creek at Rio Puerto Viejo (N10°25\'49";
W84°00\'06", elev. 33 m), 09.vi.2001, 8L,
DEB (DB 01-26), 8L (5L TAMU, 3L
FAMU); Rio Isla Grande at Hwy. 4, ca.
5 Km. W. of Rio Frio (N10°23\'31";
W 83°58\'04", elev. 65 m), 10.vi.2001,
DEB (DB 01-27), IL (PERC)';
print_r(points_from_text($text));
}
