799,800c799,824
< ALTER TABLE wellsample
<         ADD COLUMN well_index integer NOT NULL;
---
> ALTER TABLE wellsample ADD COLUMN well_index integer;
> 
> CREATE OR REPLACE FUNCTION assert_well_index() RETURNS VOID AS '
> DECLARE
>     count int4;
>     w     int8;
>     ws    int8;
> BEGIN
> 
>   FOR w IN SELECT well FROM wellsample GROUP BY well LOOP
>     RAISE NOTICE ''Indexing well % '', w;
>     count := 0;
>     FOR ws IN SELECT id FROM wellsample WHERE well = w LOOP
>        RAISE NOTICE ''Indexing well sample % '', ws;
>        UPDATE wellsample SET well_index = count WHERE id = ws;
>        count := count + 1;
>     END LOOP;
>   END LOOP;
> 
> END;' LANGUAGE plpgsql;
> 
> SELECT assert_well_index();
> 
> DROP FUNCTION assert_well_index();
> 
> ALTER TABLE wellsample ALTER COLUMN well_index SET NOT NULL;