Changes to gnats/gnats/edit.c

Index: gnats/gnats/edit.c
diff -c gnats/gnats/edit.c:1.56 gnats/gnats/edit.c:1.57
*** gnats/gnats/edit.c:1.56	Sun Feb 10 13:24:02 2002
--- gnats/gnats/edit.c	Sun Aug  4 06:58:04 2002
***************
*** 1,5 ****
  /* Tools for editing a PR.
!    Copyright (C) 1994, 1995, 2001 Free Software Foundation, Inc.
     Contributed by Brendan Kehoe ([email protected]).
  
  This file is part of GNU GNATS.
--- 1,5 ----
  /* Tools for editing a PR.
!    Copyright (C) 1994, 1995, 2001, 2002 Free Software Foundation, Inc.
     Contributed by Brendan Kehoe ([email protected]).
  
  This file is part of GNU GNATS.
***************
*** 476,497 ****
        break;
      case Integer:
        {
! 	const char *tptr = text;
! 	if (tptr[0] == '-' || tptr[0] == '+')
  	  {
! 	    tptr++;
! 	  }
! 	while (tptr[0] != '\0')
! 	  {
! 	    if (! isdigit ((int) tptr[0]))
  	      {
! 		setError (err, CODE_INVALID_FIELD_CONTENTS,
! 			  newBadFieldEntry (field, text, NULL),
! 			  "Integer field %s had non-integer contents",
! 			  fieldDefForIndex (field)->name);
! 		return 0;
  	      }
- 	    tptr++;
  	  }
        }
        break;
--- 476,500 ----
        break;
      case Integer:
        {
! 	if (text != NULL)
  	  {
! 	    const char *tptr = text;
! 	    if (tptr[0] == '-' || tptr[0] == '+')
  	      {
! 		tptr++;
! 	      }
! 	    while (tptr[0] != '\0')
! 	      {
! 		if (! isdigit ((int) tptr[0]))
! 		  {
! 		    setError (err, CODE_INVALID_FIELD_CONTENTS,
! 			      newBadFieldEntry (field, text, NULL),
! 			      "Integer field %s had non-integer contents",
! 			      fieldDefForIndex (field)->name);
! 		    return 0;
! 		  }
! 		tptr++;
  	      }
  	  }
        }
        break;