 	The idea is to find all the spaces in the scientific name. Then find the 
 	one that is closest to the center of the string. Change that space to a
 	newline.
-	--Peter DeVore ---><br>
-	sciName: #sciName#<br>
+	--Peter DeVore --->
 	<!--- Find the space locations --->
 	<cfset thingToReplace = "&nbsp;">
 	<cfset curLoc = 0>

		
		<!--- Try inserting newline if the closest space is after the center --->
		<cfset position = (len(sciName)/2) + ListFirst(convertedSpaceLocs)>
		trying position: #position#<br>
		find(thingToReplace, sciName, position): #find(thingToReplace, sciName, position)#<br>
		<cfif find(thingToReplace, sciName, position) is position and not replacedSpace>
			<cfset sciName = insert("<br>", sciName, position-1)>
			<cfset replacedSpace = true>

</cfloop>
#pageFooter#
</cfoutput>
</cfdocument>
<cfinclude template = "../includes/_footer.cfm">
</cfif>

