Index: openacs-4/packages/acs-lang/www/admin/message-list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-list.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/www/admin/message-list.adp	15 Aug 2003 07:50:44 -0000	1.2
+++ openacs-4/packages/acs-lang/www/admin/message-list.adp	18 Aug 2003 10:31:41 -0000	1.3
@@ -25,6 +25,12 @@
     <b>&raquo;</b> <a href="@batch_edit_url@">Batch edit these messages</a>
   </p>
 
+  <if @site_wide_admin_p@>
+    <p>
+      <b>&raquo;</b> <a href="@export_messages_url@">Export messages</a>
+    </p>
+  </if>
+
   <table cellpadding="0" cellspacing="0" border="0">
     <tr>
       <td style="background: #CCCCCC">
Index: openacs-4/packages/acs-lang/www/admin/message-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-list.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/www/admin/message-list.tcl	15 Aug 2003 07:50:44 -0000	1.2
+++ openacs-4/packages/acs-lang/www/admin/message-list.tcl	18 Aug 2003 10:31:41 -0000	1.3
@@ -30,7 +30,14 @@
 set page_title $package_key
 set context [list [list "package-list?[export_vars { locale }]" $locale_label] $page_title]
 
+set site_wide_admin_p [permission::permission_p \
+                           -party_id [ad_conn user_id] \
+                           -object_id [acs_lookup_magic_object security_context_root] \
+                           -privilege "admin"]
 
+set version_id [apm_version_id_from_package_key $package_key]
+set export_messages_url "/acs-admin/apm/version-i18n-export?[export_vars { version_id { return_url {[ad_return_url]} } }]"
+
 # We let you create new messages keys if you're in the default locale
 set create_p [string equal $current_locale $default_locale]