Index: openacs-4/contrib/packages/users-selection/www/admin/selection-ae.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/users-selection/www/admin/selection-ae.tcl,v diff -u -r1.1.1.1 -r1.1.1.1.2.1 --- openacs-4/contrib/packages/users-selection/www/admin/selection-ae.tcl 1 Oct 2003 04:48:55 -0000 1.1.1.1 +++ openacs-4/contrib/packages/users-selection/www/admin/selection-ae.tcl 27 Feb 2004 12:14:01 -0000 1.1.1.1.2.1 @@ -11,7 +11,7 @@ set package_id [ad_conn package_id] set user_id [ad_conn user_id] -set context_bar [list "Add/Edit"] +set context_bar [list "[_ users-selection.AddEdit]"] # If the user is site wide admin then he may edit the sql # directly. We must not allow this to anyone else since it enables @@ -20,9 +20,9 @@ ad_form -name selection_form -action selection-ae -form { {selection_id:key} - {title:text {label "Title"} {html {size 20}}} - {description:text(textarea) {label "Description"} {html {rows 10 cols 40 wrap soft}}} - {full_sql:text(textarea) {label "Full SQL"} {html {rows 10 cols 40 wrap soft}}} + {title:text {label "[_ users-selection.Title]"} {html {size 20}}} + {description:text(textarea) {label "[_ users-selection.Description]"} {html {rows 10 cols 40 wrap soft}}} + {full_sql:text(textarea) {label "[_ users-selection.Full_SQL]"} {html {rows 10 cols 40 wrap soft}}} } -new_request { if {[exists_and_not_null copy_id]} { db_1row get_copied_selection {} @@ -39,7 +39,7 @@ } -edit_request { db_1row get_selection {} } -validate { - {full_sql {[regexp {user_id} $full_sql] && [regexp {user_email} $full_sql] && [regexp {user_first_names} $full_sql] && [regexp {user_last_name} $full_sql]} "The SQL Query must contain the columns user_id, user_email, user_first_names and user_last_name"} + {full_sql {[regexp {user_id} $full_sql] && [regexp {user_email} $full_sql] && [regexp {user_first_names} $full_sql] && [regexp {user_last_name} $full_sql]} "[_ users-selection.lt_The_SQL_Query_must_co]"} } -on_submit { # extract bind variables set bind_vars [list]