Index: openacs.org-dev/packages/schema-browser/tcl/schema-browser-procs-postgresql.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/schema-browser/tcl/schema-browser-procs-postgresql.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/schema-browser/tcl/schema-browser-procs-postgresql.tcl 9 Jul 2002 17:35:12 -0000 1.1.1.1 +++ openacs.org-dev/packages/schema-browser/tcl/schema-browser-procs-postgresql.tcl 8 Oct 2002 15:47:24 -0000 1.1.1.2 @@ -168,21 +168,20 @@ } ad_proc sb_get_foreign_keys { table_name } { + Build a list describing all foreign keys on table_name and their actions. + We ignore MATCH conditions because Oracle doesn't support them, therefore + OpenACS doesn't use them. Same is true of SET NULL and SET DEFAULT actions + hung on ON DELETE/ON UPDATE subclauses, but since Oracle *does* support + CASCADE as an action I had figure out how to grab this info from the system + catalog anyway. - @author Don Baccus (though he hates to admit to writing such ugly code) + This code is *horribly* convoluted, mostly a result of the non-obvious way + that the needed information is organized in the PG system catalogs. - Build a list describing all foreign keys on table_name and their actions. - We ignore MATCH conditions because Oracle doesn't support them, therefore - OpenACS doesn't use them. Same is true of SET NULL and SET DEFAULT actions - hung on ON DELETE/ON UPDATE subclauses, but since Oracle *does* support - CASCADE as an action I had figure out how to grab this info from the system - catalog anyway. + Feel free to clean this up if you want! - This code is *horribly* convoluted, mostly a result of the non-obvious way - that the needed information is organized in the PG system catalogs. + @author Don Baccus, though he hates to admit to writing such ugly code (dhogaza@pacifier.com) - Feel free to clean this up if you want! - } { set complex_foreign_keys [list] db_foreach schema_browser_get_referencess "