Index: openacs-4/packages/general-comments/catalog/general-comments.da_DK.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/catalog/general-comments.da_DK.ISO-8859-1.xml,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/general-comments/catalog/general-comments.da_DK.ISO-8859-1.xml 7 Nov 2002 08:32:47 -0000 1.1
@@ -0,0 +1,69 @@
+
+
+
-- $author on $pretty_date2 (view details)
\n" + append html "-- $author [_ general-comments.on] $pretty_date2 ([_ general-comments.view_details])
\n" } else { - append html "@title@
@html_content@
+ + | + ++ + | +
- Title: +#general-comments.Title# - Filename: +#general-comments.Filename#
- Use the "Browse..." button to locate your file, then click "Open". + #general-comments.lt_Use_the_Browse_button#@file_name@
@@ -28,6 +28,7 @@
- + + Index: openacs-4/packages/general-comments/www/file-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-edit.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/file-edit.tcl 5 Sep 2002 10:05:17 -0000 1.3 +++ openacs-4/packages/general-comments/www/file-edit.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -36,8 +36,8 @@ } # set variables for template -set page_title "Edit file attachment on comment #$parent_id" -set context [list [list "view-comment?comment_id=$parent_id" "Go back to comment"] "Edit file attachment"] +set page_title "[_ general-comments.lt_Edit_file_attachment_] #$parent_id" +set context [list [list "view-comment?comment_id=$parent_id" "[_ general-comments.Go_back_to_comment]"] "[_ general-comments.Edit_file_attachment]"] set target "file-edit-2" ad_return_template "file-ae" Index: openacs-4/packages/general-comments/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/index.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/index.adp 6 Sep 2002 21:50:44 -0000 1.3 +++ openacs-4/packages/general-comments/www/index.adp 7 Nov 2002 08:32:49 -0000 1.4 @@ -3,7 +3,7 @@@context@ - [ Administer ] + [ #general-comments.Administer# ] @dimensional_bar@ @@ -13,3 +13,4 @@ + Index: openacs-4/packages/general-comments/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/index.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/index.tcl 5 Sep 2002 10:05:17 -0000 1.3 +++ openacs-4/packages/general-comments/www/index.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -27,32 +27,32 @@ # this page with the proper parameters set return_url [ns_urlencode index?[export_ns_set_vars url]] -# dimensional slider definition -set dimensional { - {approval "Status" any { - {approved "approved" {where "[db_map status_approved]"} } - {unapproved "unapproved" {where "[db_map status_unapproved]"} } - {any "all" {} } -} } - {modified "Last Modified" 1m { - {1d "last 24 hours" {where "[db_map modified_last_24hours]"}} - {1w "last week" {where "[db_map modified_last_week]"}} - {1m "last month" {where "[db_map modified_last_month]"}} - {any "all" {} } -} } -} + +set dimensional [list \ + [list approval "[_ general-comments.Status]" any [list \ + [list approved "[_ general-comments.approved]" {where "[db_map status_approved]"}] \ + [list unapproved "[_ general-comments.unapproved]" {where "[db_map status_unapproved]"}] \ + [list any "[_ general-comments.all]" {} ] \ + ]] \ + [list modified "[_ general-comments.Last_Modified]" 1m [list \ + [list 1d "[_ general-comments.last_24_hours]" {where "[db_map modified_last_24hours]"}] \ + [list 1w "[_ general-comments.last_week]" {where "[db_map modified_last_week]"}] \ + [list 1m "[_ general-comments.last_month]" {where "[db_map modified_last_month]"}] \ + [list any "[_ general-comments.all]" {} ] \ +]] +] set dimensional_bar [ad_dimensional $dimensional] # ad_table definition -set table_def { - {num "Num" {} {
$Tcount }} - {comment_id "ID#" {} \ - {$comment_id }} - {title "Title" {} {}} - {approved_p "Approved" {} 01} - {live_version_p "Has live version" {} 01} - {pretty_date "Last Modified" {creation_date $order} {}} -} +set table_def [list \ + [list num "[_ general-comments.Num]" {} {$Tcount }] \ + [list comment_id "[_ general-comments.ID]" {} \ + {$comment_id }] \ + [list title "[_ general-comments.Title_1]" {} {}] \ + [list approved_p "[_ general-comments.Approved]" {} 01] \ + [list live_version_p "[_ general-comments.Has_live_version]" {} 01] \ + [list pretty_date "[_ general-comments.Last_Modified]" {creation_date $order} {}] \ +] # sql to retrieve comments set sql " @@ -79,12 +79,12 @@ set bind_ns_set [ad_tcl_vars_to_ns_set user_id] set extra_var_list [list return_url $return_url] set comments_table [ad_table -Torderby $orderby \ - -Tmissing_text {No comments available} \ + -Tmissing_text "[_ general-comments.lt_No_comments_available]" \ -Textra_vars $extra_var_list \ -bind $bind_ns_set \ comments_select $sql $table_def] -set page_title "General Comments" +set page_title "[_ general-comments.General_Comments]" set context {} ad_return_template Index: openacs-4/packages/general-comments/www/test.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/test.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/general-comments/www/test.adp 20 Apr 2001 20:51:11 -0000 1.1 +++ openacs-4/packages/general-comments/www/test.adp 7 Nov 2002 08:32:49 -0000 1.2 @@ -1,19 +1,17 @@@page_title@ +@context@ -@page_title@
-<%= [eval ad_context_bar $context_bar] %> -
- +Current values for General Comments package #general-comments.lt_Current_values_for_Ge# package_id - no gc package instance + #general-comments.lt_no_gc_package_instanc# @package_id@ @@ -22,7 +20,7 @@ package_url - gc is not mounted + #general-comments.gc_is_not_mounted# @package_url@ @@ -31,7 +29,7 @@ AutoApproveCommentsP - not set + #general-comments.not_set# @@ -41,7 +39,7 @@ AllowFileAttachmentsP - not set + #general-comments.not_set# @@ -51,7 +49,7 @@ AllowLinkAttachmentsP - not set + #general-comments.not_set# @@ -61,7 +59,7 @@ MaxFileSize }]\ +] # sql to retrieve comments set sql " @@ -80,11 +80,11 @@ set extra_var_list [list return_url $return_url] set comments_table [ad_table -Torderby $orderby \ - -Tmissing_text {No comments available} \ + -Tmissing_text "[_ general-comments.lt_No_comments_available]" \ -Textra_vars $extra_var_list \ comments_select $sql $table_def] -set page_title "General Comments Administration" +set page_title "[_ general-comments.lt_General_Comments_Admi]" set context {} ad_return_template - not set + #general-comments.not_set# @@ -71,20 +69,20 @@ -
Comments
+#general-comments.Comments#
- - none +
- #general-comments.none#
@comments@ -
Full Comments
+#general-comments.Full_Comments#
- none + #general-comments.none# @full_comments@ @@ -94,10 +92,8 @@ @link@ - + Index: openacs-4/packages/general-comments/www/test.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/test.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/test.tcl 5 Sep 2002 10:05:17 -0000 1.3 +++ openacs-4/packages/general-comments/www/test.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -24,8 +24,8 @@ link:onevalue } -set page_title "Test page for General Comments" -set context {"test"} +set page_title "[_ general-comments.lt_Test_page_for_General]" +set context "\"[_ general-comments.test]\"" if { ![db_0or1row get_gc_package_id { select package_id Index: openacs-4/packages/general-comments/www/url-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/url-add-2.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/general-comments/www/url-add-2.tcl 14 Jun 2001 19:52:22 -0000 1.2 +++ openacs-4/packages/general-comments/www/url-add-2.tcl 7 Nov 2002 08:32:49 -0000 1.3 @@ -17,7 +17,7 @@ allow_link_attachments { set allow_links_p [ad_parameter AllowLinkAttachmentsP {general-comments} {t}] if { $allow_links_p != "t" } { - ad_complain "Attaching links to comments has been disabled." + ad_complain "[_ general-comments.lt_Attaching_links_to_co]" } } } Index: openacs-4/packages/general-comments/www/url-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/url-add.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/url-add.tcl 5 Sep 2002 10:05:17 -0000 1.3 +++ openacs-4/packages/general-comments/www/url-add.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -25,7 +25,7 @@ allow_link_attachments { set allow_links_p [ad_parameter AllowLinkAttachmentsP {general-comments} {t}] if { $allow_links_p != "t" } { - ad_complain "Attaching links to comments has been disabled." + ad_complain "[_ general-comments.lt_Attaching_links_to_co]" } } } @@ -35,8 +35,8 @@ # set variables for template set attach_id [db_nextval acs_object_id_seq] -set page_title "Add url attachment to comment #$parent_id" -set context [list [list "view-comment?comment_id=$parent_id" "Go back to comment"] "Add url comment"] +set page_title "[_ general-comments.lt_Add_url_attachment_to] #$parent_id" +set context [list [list "view-comment?comment_id=$parent_id" "[_ general-comments.Go_back_to_comment]"] "[_ general-comments.Add_url_comment]"] set target "url-add-2" set label "" set url "" Index: openacs-4/packages/general-comments/www/url-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/url-ae.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/url-ae.adp 6 Sep 2002 21:50:44 -0000 1.3 +++ openacs-4/packages/general-comments/www/url-ae.adp 7 Nov 2002 08:32:49 -0000 1.4 @@ -8,20 +8,21 @@If
general-comments
is not mounted and - calls are made togeneral_comments_get_comments
- orgeneral_comments_create_link
, then an error - will be logged. This is because these calls output hyperlinks - that would need to reference a mountedgeneral-comments
- package instance. +#general-comments.If#
general-comments
#general-comments.lt_is_not_mounted_and___#general_comments_get_comments
+ #general-comments.or#general_comments_create_link
#general-comments.lt__then_an_error___will#general-comments
+ #general-comments.package_instance#+ Index: openacs-4/packages/general-comments/www/url-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/url-edit.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/url-edit.tcl 5 Sep 2002 10:05:17 -0000 1.3 +++ openacs-4/packages/general-comments/www/url-edit.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -33,8 +33,8 @@ ad_return_complaint 1 "The attach_id does not refer to a valid url attachment." } -set page_title "Edit url attachment on comment #$parent_id" -set context [list [list "view-comment?comment_id=$parent_id" "Go back to comment"] "Edit url attachment"] +set page_title "[_ general-comments.lt_Edit_url_attachment_o] #$parent_id" +set context [list [list "view-comment?comment_id=$parent_id" "[_ general-comments.Go_back_to_comment]"] "[_ general-comments.Edit_url_attachment]"] set target "url-edit-2" ad_return_template "url-ae" Index: openacs-4/packages/general-comments/www/view-comment.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/view-comment.adp,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/general-comments/www/view-comment.adp 6 Sep 2002 21:50:44 -0000 1.4 +++ openacs-4/packages/general-comments/www/view-comment.adp 7 Nov 2002 08:32:49 -0000 1.5 @@ -5,7 +5,7 @@
- Label: +#general-comments.Label# - URL: +#general-comments.URL#
- Example: http://www.arsdigita.com/ + #general-comments.lt_Example_httpwwwarsdig#
- + @object_name@ -[Go back to where you were]
+[#general-comments.lt_Go_back_to_where_you_#]
@@ -15,9 +15,9 @@
- -- you + -- #general-comments.you# - (edit your comment)
+ #general-comments.edit_your_comment#
-- @author@ @@ -27,53 +27,53 @@ - Attachments
+#general-comments.Attachments#
<% set counter 0 %>
<% incr counter %> - ( edit | -delete ) + ( #general-comments.edit# | +#general-comments.delete# ) @attachments.title@ - (@attachments.name@) + (@attachments.name@) - @attachments.title@ - (@attachments.name@) + @attachments.title@ + (@attachments.name@) <% incr counter %> - ( edit | -delete ) + ( #general-comments.edit# | +#general-comments.delete# ) @links.label@- - no attachments +
- #general-comments.no_attachments#
- Actions
+#general-comments.Actions#
- Revisions
+#general-comments.Revisions#
@@ -83,25 +83,26 @@ - @revisions.revision_date@
- (live) + #general-comments.live# - This revision is not live. + #general-comments.lt_This_revision_is_not_# - (approve this revision) + (#general-comments.lt_approve_this_revision#) - This revision is live. + #general-comments.lt_This_revision_is_live# + Index: openacs-4/packages/general-comments/www/view-comment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/view-comment.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/general-comments/www/view-comment.tcl 5 Sep 2002 10:05:17 -0000 1.5 +++ openacs-4/packages/general-comments/www/view-comment.tcl 7 Nov 2002 08:32:49 -0000 1.6 @@ -68,7 +68,7 @@ g.comment_id = r.item_id and r.revision_id = :revision_id }] } { - ad_return_complaint 1 "The comment_id does not refer to a valid comment." + ad_return_complaint 1 "[_ general-comments.lt_The_comment_id_does_n]" } } else { @@ -92,7 +92,7 @@ g.comment_id = r.item_id and r.revision_id = content_item.get_live_revision(:comment_id) }] } { - ad_return_complaint 1 "The comment_id does not refer to a valid comment." + ad_return_complaint 1 "[_ general-comments.lt_The_comment_id_does_n]" } } @@ -133,8 +133,8 @@ set allow_attach_p "f" } set comment_on_id [db_string get_object_id "select object_id from general_comments where comment_id = :comment_id"] -set page_title "View comment on: [acs_object_name $comment_on_id]" -set context {"View comment"} +set page_title "[_ general-comments.View_comment_on]: [acs_object_name $comment_on_id]" +set context "\"[_ general-comments.View_comment]\"" set return_url_view "[ad_urlencode view-comment?[export_ns_set_vars url]]" set is_creator_p "f" if { $user_id == $creation_user } { Index: openacs-4/packages/general-comments/www/view-image.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/view-image.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/view-image.tcl 5 Sep 2002 10:05:17 -0000 1.3 +++ openacs-4/packages/general-comments/www/view-image.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -36,8 +36,8 @@ r.revision_id = m.image_id } -set page_title "Image attachment" -set context [list [list "$return_url" "Go back to comment"] "Image attachment"] +set page_title "[_ general-comments.Image_attachment]" +set context [list [list "$return_url" "[_ general-comments.Go_back_to_comment]"] "[_ general-comments.Image_attachment]"] ad_return_template Index: openacs-4/packages/general-comments/www/admin/delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/delete.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/admin/delete.adp 6 Sep 2002 21:50:46 -0000 1.3 +++ openacs-4/packages/general-comments/www/admin/delete.adp 7 Nov 2002 08:32:50 -0000 1.4 @@ -2,11 +2,10 @@- (reject this revision) + (#general-comments.reject_this_revision#) @page_title@ @context@ - + Index: openacs-4/packages/general-comments/www/admin/delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/delete.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/admin/delete.tcl 5 Sep 2002 10:05:17 -0000 1.3 +++ openacs-4/packages/general-comments/www/admin/delete.tcl 7 Nov 2002 08:32:50 -0000 1.4 @@ -41,10 +41,10 @@ r.revision_id = content_item.get_latest_revision(g.comment_id)" if { ![db_0or1row get_comment $sql] } { - ad_return_complaint 1 "The comment_id does not refer to a valid comment." + ad_return_complaint 1 "[_ general-comments.lt_The_comment_id_does_n]" } -set page_title "Delete a comment" -set context {"Delete a comment"} +set page_title "[_ general-comments.Delete_a_comment]" +set context [list "[_ general-comments.Delete_a_comment]"] ad_return_template Index: openacs-4/packages/general-comments/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/index.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/admin/index.tcl 5 Sep 2002 10:05:17 -0000 1.3 +++ openacs-4/packages/general-comments/www/admin/index.tcl 7 Nov 2002 08:32:50 -0000 1.4 @@ -21,40 +21,40 @@ set return_url [ad_urlencode index?[export_ns_set_vars url]] # dimensional slider definition -set dimensional { - {approval "Status" unapproved { - {approved "approved" {where "[db_map status_approved]"} } - {unapproved "unapproved" {where "[db_map status_unapproved]"} } - {any "all" {} } -} } - {modified "Last Modified" any { - {1d "last 24 hours" {where "[db_map modified_last_24hours]"}} - {1w "last week" {where "[db_map modified_last_week]"}} - {1m "last month" {where "[db_map modified_last_month]"}} - {any "all" {} } -} } -} +set dimensional [list \ + [list approval "[_ general-comments.Status]" unapproved [list \ + [list approved "[_ general-comments.approved]" {where "[db_map status_approved]"} ] \ + [list unapproved "[_ general-comments.unapproved]" {where "[db_map status_unapproved]"} ] \ + [list any "[_ general-comments.all]" {} ] \ + ]] \ + [list modified "[_ general-comments.Last_Modified]" any [list \ + [list 1d "[_ general-comments.last_24_hours]" {where "[db_map modified_last_24hours]"}] \ + [list 1w "[_ general-comments.last_week]" {where "[db_map modified_last_week]"}] \ + [list 1m "[_ general-comments.last_month]" {where "[db_map modified_last_month]"}] \ + [list any "[_ general-comments.all]" {} ] \ + ]] +] set dimensional_bar [ad_dimensional $dimensional] # ad_table definition -set table_def { - {num "Num" {} {$Tcount }} - {comment_id "ID#" {} \ - {$comment_id }} - {title "Title" {} {}} - {author "Author" {upper(author) $order} \ - {$author }} - {approved_p "Approved" {} 01} - {live_version_p "Has live version" {} 01} - {pretty_date "Last Modified" {creation_date $order} {}} - {actions "Actions" {} \ +set table_def [list \ + [list num "[_ general-comments.Num]" {} {$Tcount }] \ + [list comment_id "[_ general-comments.ID]" {} \ + {$comment_id }] \ + [list title "[_ general-comments.Title_1]" {} {}] \ + [list author "[_ general-comments.Author]" {upper(author) $order} \ + {$author }] \ + [list approved_p "[_ general-comments.Approved]" {} 01] \ + [list live_version_p "[_ general-comments.Has_live_version]" {} 01] \ + [list pretty_date "[_ general-comments.Last_Modified]" {creation_date $order} {}] \ + [list actions "[_ general-comments.Actions]" {} \ {[if {$approved_p} { - subst {reject} + subst {[_ general-comments.reject]} } else { - subst {approve} - }] | delete }} -} + subst {[_ general-comments.approve]} + }] | [_ general-comments.delete]