Index: openacs-4/packages/acs-lang/www/admin/locale-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/locale-new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-lang/www/admin/locale-new.tcl	17 Feb 2003 23:04:07 -0000	1.3
+++ openacs-4/packages/acs-lang/www/admin/locale-new.tcl	14 Aug 2003 16:06:20 -0000	1.4
@@ -7,13 +7,13 @@
     @author Bruno Mattarollo <bruno.mattarollo@ams.greenpeace.org>
     @creation-date 15 march 2002
     @cvs-id $Id$
-} {
-} -properties {
 }
 
+
 set locale_user [ad_conn locale]
 
-set context_bar [ad_context_bar "Creation of Locales"]
+set page_title "Create Locale"
+set context [list $page_title]
 
 form create locale_creation 
 
@@ -114,9 +114,9 @@
 
         db_dml insert_locale "insert into ad_locales (
             locale, language, country, variant, label, nls_language,
-            nls_territory, nls_charset, mime_charset, default_p) values (
+            nls_territory, nls_charset, mime_charset, default_p, enabled_p) values (
             :locale, :language, :country, NULL, :label, :nls_language,
-            :nls_territory, :nls_charset, :mime_charset, :default_p)"
+            :nls_territory, :nls_charset, :mime_charset, :default_p, 'f')"
 
     }
     forward "index?tab=locales"