Index: openacs-4/packages/glossar/lib/glossar-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/lib/glossar-list.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/glossar/lib/glossar-list.tcl 4 Aug 2006 11:37:01 -0000 1.10 +++ openacs-4/packages/glossar/lib/glossar-list.tcl 30 Oct 2006 11:44:58 -0000 1.11 @@ -154,8 +154,8 @@ } title { label {[_ glossar.glossar_title]} - orderby_desc {sort_key asc , gl_title desc} - orderby_asc {sort_key asc, gl_title asc} + orderby_desc {gl_title desc} + orderby_asc {gl_title asc} default_direction asc } } -orderby_name orderby \ @@ -195,16 +195,18 @@ set target_category "[category::get_name $target_category_id]" set title_url "[export_vars -base "${base_url}/glossar-term-list" {glossar_id contact_id}]" set edit_url "[export_vars -base "${base_url}/glossar-edit" {glossar_id contact_id}]" - set delete_url "[export_vars -base "${base_url}/glossar-delete" {glossar_id return_url}]" + set delete_url "[export_vars -base "${base_url}/glossar-delete" {glossar_id return_url}]" + set print_url "[export_vars -base "${base_url}/glossar-term-list-print" {glossar_id contact_id return_url}]" set permission_url "[export_vars -base "/permissions/one" {{object_id $glossar_id} {application_url [ad_return_url]}}]" set files_url "[export_vars -base "${base_url}/glossar-file-upload" {glossar_id contact_id}]" set target_url "/contacts/$organization_id" set edit_delete_link "
\"#acs-kernel.common_Edit#\""
         if [permission::permission_p -object_id $owner_id -privilege admin] { 
-	    append edit_delete_link " \"\#acs-kernel.common_Delete\#\"
" - } else { - append edit_delete_link "" + append edit_delete_link " \"\#acs-kernel.common_Delete\#\"" } + append edit_delete_link " \"\#acs-kernel.common_Print\#\"" + append edit_delete_link "" + } if_no_rows { } } \ No newline at end of file