make sure FixCase uppercases starting letters

diff --git a/lib/fixname.c b/lib/fixname.c
index 356a4ec40ccda24f38f1a7aaa96c2657a5a7d48d..9f931eef584384f554061bdc49bc061355532037 100644 (file)
--- a/lib/fixname.c
+++ b/lib/fixname.c
@@ -51,24 +51,7 @@ void FixName(ilnm, ifnm, last, first, middle)
 #endif notdef
        strncpy(first, ifnm, FIRST_LEN);
 }
-#ifdef notdef
-AppendJrOrIII(nm, phas_jr, phas_iii, phas_iv)
-register char *nm;
-register int *phas_jr;
-register int *phas_iii;
-register int *phas_iv;
-{
-    if (*phas_jr) {
-       strcat(nm, ", Jr.");
-    }
-    else if (*phas_iii) {
-       strcat(nm, " III");
-    }
-    else if (*phas_iv) {
-       strcat(nm, " IV");
-    }
-}
-#endif notdef
+
 FixCase(p)
 register char *p;
 {
@@ -76,15 +59,14 @@ register char *p;
                        /* a space or punctuation mark (e.g., '-') */
 
     for (cflag = 0; *p; p++) {
-       if (cflag && isupper(*p)) {
-           *p = tolower(*p);
-       }
-       else if (isspace(*p) || ispunct(*p)) {
-           cflag = 0;
-       }
-       else {
-           cflag = 1;
-       }
+       if (cflag && isupper(*p))
+         *p = tolower(*p);
+       else if (!cflag && islower(*p))
+         *p = toupper(*p);
+       if (isalpha(*p))
+         cflag = 1;
+       else
+         cflag = 0;
     }
 }