*** php-3.0.9/functions/dbase.c	Fri Jan  1 12:59:08 1999
--- php-3.0.7/functions/dbase.c	Sun Jun  6 14:41:27 1999
***************
*** 312,317 ****
--- 312,385 ----
  }
  /* }}} */
  
+ /* {{{ proto bool dbase_replace_record(int identifier, array data, int recnum)
+    Replaces a record to the database */
+ void php3_dbase_replace_record(INTERNAL_FUNCTION_PARAMETERS) {
+ 	pval *dbh_id, *fields, *field, *recnum;
+ 	dbhead_t *dbh;
+ 	int dbh_type;
+ 
+ 	int num_fields;
+ 	dbfield_t *dbf, *cur_f;
+ 	char *cp, *t_cp;
+ 	int i;
+ 	DBase_TLS_VARS;
+ 
+ 	if (ARG_COUNT(ht) != 3 || getParameters(ht,3,&dbh_id,&fields,&recnum)==FAILURE) {
+ 		WRONG_PARAM_COUNT;
+ 	}
+ 	convert_to_long(dbh_id);
+ 	convert_to_long(recnum);
+ 	if (fields->type != IS_ARRAY) {
+ 		php3_error(E_WARNING, "Expected array as second parameter");
+ 		RETURN_FALSE;
+ 	}
+ 
+ 	dbh = php3_list_find(dbh_id->value.lval, &dbh_type);
+ 	if (!dbh || dbh_type != DBase_GLOBAL(le_dbhead)) {
+ 		php3_error(E_WARNING, "Unable to find database for identifier %d", dbh_id->value.lval);
+ 		RETURN_FALSE;
+ 	}
+ 
+ 	num_fields = _php3_hash_num_elements(fields->value.ht);
+ 
+ 	if (num_fields != dbh->db_nfields) {
+ 		php3_error(E_WARNING, "Wrong number of fields specified");
+ 		RETURN_FALSE;
+ 	}
+ 
+ 	cp = t_cp = (char *)emalloc(dbh->db_rlen + 1);
+ 	if (!cp) {
+ 		php3_error(E_WARNING, "unable to allocate memory");
+ 		RETURN_FALSE;
+ 	}
+ 	*t_cp++ = VALID_RECORD;
+ 
+ 	dbf = dbh->db_fields;
+ 	for (i = 0, cur_f = dbf; cur_f < &dbf[num_fields]; i++, cur_f++) {
+ 		if (_php3_hash_index_find(fields->value.ht, i, (void **)&field) == FAILURE) {
+ 			php3_error(E_WARNING, "unexpected error");
+ 			efree(cp);
+ 			RETURN_FALSE;
+ 		}
+ 		convert_to_string(field);
+ 		sprintf(t_cp, cur_f->db_format, field->value.str.val); 
+ 		t_cp += cur_f->db_flen;
+ 	}
+ 
+ 	if (put_dbf_record(dbh, recnum->value.lval, cp) < 0) {
+ 		php3_error(E_WARNING, "unable to put record at %ld", dbh->db_records);
+ 		efree(cp);
+ 		RETURN_FALSE;
+ 	}
+ 
+         put_dbf_info(dbh);
+ 	efree(cp);
+ 
+ 	RETURN_TRUE;
+ }
+ /* }}} */
+ 
  /* {{{ proto bool dbase_delete_record(int identifier, int record)
     Marks a record to be deleted */
  void php3_dbase_delete_record(INTERNAL_FUNCTION_PARAMETERS) {
***************
*** 652,657 ****
--- 720,726 ----
  	{"dbase_numrecords",	php3_dbase_numrecords,		NULL},
  	{"dbase_numfields",		php3_dbase_numfields,		NULL},
  	{"dbase_add_record",	php3_dbase_add_record,		NULL},
+ 	{"dbase_replace_record",	php3_dbase_replace_record,		NULL},
  	{"dbase_get_record",	php3_dbase_get_record,		NULL},
  	{"dbase_get_record_with_names", php3_dbase_get_record_with_names,               NULL},
  	{"dbase_delete_record",	php3_dbase_delete_record,	NULL},