Be willing to generate null string fields

1997-01-13 15:54:54 +00:00
parent 93deef330a
commit e41619eea3
1 changed files with 2 additions and 0 deletions
--- a/src/dbStatic/dbStaticLib.c
+++ b/src/dbStatic/dbStaticLib.c
@@ -827,6 +827,8 @@ long dbWriteRecordFP(DBBASE *pdbbase,FILE *fp,char *precordTypename,int level)
 		if(!dbIsDefaultValue(pdbentry) || level>0) {
 		    fprintf(fp,"\tfield(%s,\"%s\")\n",
 			dbGetFieldName(pdbentry),dbGetString(pdbentry));
+		} else if(level>0) { /*generate 0 length string*/
+		    fprintf(fp,"\tfield(%s,\"\")\n",dbGetFieldName(pdbentry));
 		}
 		status=dbNextField(pdbentry,dctonly);
 	    }