Revert to previous version of dbpf

1995-02-14 19:57:38 +00:00
parent 9dc64d0063
commit d7275641dc
1 changed files with 15 additions and 2 deletions
@@ -389,8 +389,21 @@ long dbpf(char	*pname,char *pvalue)
         errMessage(status,"dbNameToAddr error");
         return(1);
    }
-    status=dbPutField(&addr,DBR_STRING,pvalue,1L);
-    if(status) return(1);
+    /* For enumerated types must allow for ENUM rather than string*/
+    /* If entire field is digits then use DBR_ENUM else DBR_STRING*/
+    if((addr.dbr_field_type==DBR_ENUM) && (*pvalue!=0)
+    &&  (strspn(pvalue,"0123456789")==strlen(pvalue))) {
+	    short value;
+
+	    sscanf(pvalue,"%hu",&value);
+	    status=dbPutField(&addr,DBR_ENUM,&value,1L);
+    } else {
+	status=dbPutField(&addr,DBR_STRING,pvalue,1L);
+    }
+    if(status) {
+         errMessage(status,"dbPutField error");
+         return(1);
+    }
    status=dbgf(pname);
    return(status);
 }