Index: openacs-4/packages/acs-lang/www/admin/display-grouped-messages.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/display-grouped-messages.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-lang/www/admin/display-grouped-messages.tcl 25 Oct 2002 15:12:14 -0000 1.3 +++ openacs-4/packages/acs-lang/www/admin/display-grouped-messages.tcl 12 Nov 2002 15:34:23 -0000 1.4 @@ -22,6 +22,13 @@ set current_locale $locales } +# Query to get all packages that are prepared for translation + +set grouper_msg_all { + select distinct lm1.package_key + from lang_messages lm1 +} + # Query to get all the packages that have untranslated messages in the # selected locale @@ -51,6 +58,7 @@ lm1.package_key = lm2.package_key } +template::multirow create all_packages_group package_key package_key_encoded locale_encoded template::multirow create missing_translation_group package_key package_key_encoded locale_encoded template::multirow create translated_messages_group package_key package_key_encoded locale_encoded @@ -62,6 +70,10 @@ template::multirow append translated_messages_group $package_key [ns_urlencode $package_key] [ns_urlencode $current_locale] } +db_foreach select_messages_all_packages $grouper_msg_all { + template::multirow append all_packages_group $package_key [ns_urlencode $package_key] [ns_urlencode $current_locale] +} + db_1row select_locale_lable { select label as locale_label from ad_locales where locale = :current_locale }