open (DATABASE, ">>$location_of_database") || 
         &file_open_error("$location_of_database", "Append a Database",
			  _FILE__, __LINE__);     

   #Add new 'print if' code below to print new record before </markers>

    print DATABASE "<marker $database_row />\n";
    close (DATABASE);

    &release_file_lock ("$location_of_database.lock");
    } # End of if (-w $location_of_database)

		# If the database file was not writable, the script
		# sends an error message back to the user.

  else
    {
    &cannot_find_database;
    exit;
    }
  } # End of if ($should_I_append_a_database eq "yes")