From 3fef1d533a91cb1a72a8692d7a0b497a64ddc41f Mon Sep 17 00:00:00 2001
From: rBatt <battrd@gmail.com>
Date: Sun, 13 Dec 2015 23:55:10 -0500
Subject: [PATCH] change haulid def in sa #9 #21

---
 R/clean.names.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/clean.names.R b/R/clean.names.R
index a69b67d..7c846ff 100644
--- a/R/clean.names.R
+++ b/R/clean.names.R
@@ -317,11 +317,11 @@ clean.names.ngulf <- function(X){
 clean.names.sa <- function(X){
 	
 	sa.cols <- c(
-		"COLLECTIONNUMBER" = "haulid", 
+		# "COLLECTIONNUMBER" = "haulid",
 		# "PROJECTNAME",
 		# "PROJECTAGENCY",
 		"DATE" = "date", 
-		# "EVENTNAME",
+		"EVENTNAME" = "haulid",
 		"VESSELNAME" = "vessel", 
 		# "GEARNAME",
 # 		"GEARCODE",