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 @@ + + + + + Ren tekst + Navn: + Der er ingen tilg�ngelige kommentarer + seneste 24 timer + slet + Teksten ovenfor er + er ikke monteret og der kaldes til + Annull�r + Jeg vil gerne uploade en fil eller tilf�je et link til min kommentar + godkendt + godkendt denne revision + �nsker du virkeligt at slette den f�lgende kommentar og dens vedh�ftede filer og links? + Nuv�rende v�rdier for pakken Generel Comments + Vedh�ftede filer/links + ingen gc-pakkeinstanser + Brug "Gennemse..."-knappen til at finde din fil og klik herefter p� "�bn". + (synlig) + Kommentar: + URL: + ikke godkendt + S�dan vil din kommentar se ud: + ID-nummer + Bem�rk: Hvis teksten ovenfor har mistet alle sine linjeskift, skulle du sikkert have valgt "Ren tekst" fremfor "HTML". Brug "Tilbage"-knappen i din browser til at returnere til indsendelsesformularen. + pakkeinstans. + eller + afvis denne revision + HTML + Kommentarer + Administr�r + ingen + ingen vedh�ftninger + seneste m�ned + Title + Generelle kommentarer + dig + Bekr�ft + redig�r + seneste uge + Vedh�ft et internetlink + Fulde Kommentarer + Godkendt + alt + Filnavn: + Vedh�ft en fil eller et billede + G� tilbage til d�r, hvor du kom fra + Senest Godkendt + (redig�r dine kommentarer) + Eksempel: http://www.openacs.org/ + Handlinger + Forts�t + Er sikker p�, at du vil slette denne vedh�ftning? + ikke defineret + detaljer + Hvis + gc er ikke mountet + Nummer + Har en synlig version + , da vil en fejl blive logget. Dette skyldes, at disse kald tilbagesender hyperlinks, der n�dvendigvis skal referere til en mountet + Revisioner + Titel: + Status + Bem�rk: Hvis teksten ovenfor har mistet alle sine linjeskift, skulle du sikkert have valgt "Ren tekst" fremfor "HTML". Brug "Tilbage"-knappen i din browser til at returnere til indsendelsesformularen. + Denne revision er synlig + Denne revision er ikke synlig. + Index: openacs-4/packages/general-comments/catalog/general-comments.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/catalog/general-comments.en_US.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.en_US.ISO-8859-1.xml 7 Nov 2002 08:32:47 -0000 1.1 @@ -0,0 +1,113 @@ + + + + + Add file attachment + Label: + Plain text + Confirm comment + Edit url attachment + last 24 hours + No comments available + Go back to comment + delete + Edit comment on + Text above is + reject + is not mounted and + calls are made to + Test page for General Comments + Cancel + test + I would like to upload a file or add a link to my comment + approved + approve this revision + Do you really wish to delete the following comment and its attachments? + Current values for General Comments package + Image attachment + Edit file attachment on comment + General Comments Administration + Attachments + Edit file attachment + no gc package instance + Use the "Browse..." button to locate your file, then click "Open". + (live) + Your file is zero-length. Either you attempted to upload a zero length file, a file which does not exists, or something went wrong during the transfer. + Add comment + Author + Comment: + URL: + unapproved + Here is how your comment would appear: + on + ID# + Note: if the text above has lost all of its paragraph breaks then you + probably should have selected "Plain Text" rather than HTML. Use + your browser's Back button to return to the submission form. + package instance. + View comment on + or + reject this revision + HTML + Comments + view details + Edit comment + Administer + none + no attachments + last month + Title + General Comments + Confirm comment on + Delete a comment + you + edit + Confirm + last week + Attach a web link + bytes + Full Comments + Filename: + all + Approved + Attach a file or picture + The publisher of + Delete attachment + by + Last Modified + Go back to where you were + Add url attachment to comment + The comment_id does not refer to a valid comment. + Add url comment + (edit your comment) + Actions + Example: http://www.arsdigita.com/ + Do you really wish to delete this attachment? + Proceed + not set + Attaching links to comments has been disabled. + Add a comment to + details + Your file is too large. + If + Attaching files to comments has been disabled. + Has live version + Num + gc is not mounted + , then an error + will be logged. This is because these calls output hyperlinks + that would need to reference a mounted + Title: + Revisions + has chosen to limit attachments to + Status + View comment + approve + Edit url attachment on comment + Note: if the text above has a bunch of visible HTML tags then you probably + should have selected "HTML" rather than "Plain Text". Use your + browser's Back button to return to the submission form. + Add a file attachment to comment + This revision is not live. + This revision is live. + Index: openacs-4/packages/general-comments/tcl/general-comments-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl 16 Sep 2002 10:17:12 -0000 1.5 +++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl 7 Nov 2002 08:32:48 -0000 1.6 @@ -135,14 +135,14 @@ append attachments_html "
  • $label\n" } if { ![empty_string_p $attachments_html] } { - append html "
    Attachments
    \n\n" + append html "
    [_ general-comments.Attachments]
    \n\n" } else { append html "

    " } } - append html "

    -- $author on $pretty_date2 (view details)

    \n" + append html "

    -- $author [_ general-comments.on] $pretty_date2 ([_ general-comments.view_details])

    \n" } else { - append html "
  • $title by $author on $pretty_date
    \n" + append html "
  • $title [_ general-comments.by] $author [_ general-comments.on] $pretty_date
    \n" } return $html @@ -265,6 +265,3 @@ } } - - - Index: openacs-4/packages/general-comments/www/comment-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-add-2.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/general-comments/www/comment-add-2.tcl 5 Sep 2002 10:05:16 -0000 1.5 +++ openacs-4/packages/general-comments/www/comment-add-2.tcl 7 Nov 2002 08:32:49 -0000 1.6 @@ -40,8 +40,8 @@ } set comment_id [db_nextval acs_object_id_seq] -set page_title "Confirm comment on $object_name" -set context {"Confirm comment"} +set page_title "[_ general-comments.Confirm_comment_on] $object_name" +set context "\"[_ general-comments.Confirm_comment]\"" set target "comment-add-3" set html_content [ad_html_text_convert -from $comment_mime_type -- $content] Index: openacs-4/packages/general-comments/www/comment-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-add.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/general-comments/www/comment-add.tcl 5 Sep 2002 10:05:16 -0000 1.4 +++ openacs-4/packages/general-comments/www/comment-add.tcl 7 Nov 2002 08:32:49 -0000 1.5 @@ -37,8 +37,8 @@ set object_name [acs_object_name $object_id] } -set page_title "Add a comment to: $object_name" -set context {"Add comment"} +set page_title "[_ general-comments.Add_a_comment_to]: $object_name" +set context "\"[_ general-comments.Add_comment]\"" set target "comment-add-2" set title "" set content "" Index: openacs-4/packages/general-comments/www/comment-ae-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-ae-2.adp,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/general-comments/www/comment-ae-2.adp 14 Sep 2002 15:23:12 -0000 1.5 +++ openacs-4/packages/general-comments/www/comment-ae-2.adp 7 Nov 2002 08:32:49 -0000 1.6 @@ -2,30 +2,27 @@ @page_title@ @context@ -Here is how your comment would appear: +#general-comments.lt_Here_is_how_your_comm#

    @title@

    @html_content@
    - Note: if the text above has lost all of its paragraph breaks then you - probably should have selected "Plain Text" rather than HTML. Use - your browser's Back button to return to the submission form. + #general-comments.lt_Note_if_the_text_abov# - Note: if the text above has a bunch of visible HTML tags then you probably - should have selected "HTML" rather than "Plain Text". Use your - browser's Back button to return to the submission form. + #general-comments.lt_Note_if_the_text_abov_1#
    <%= [export_form_vars comment_id object_id object_name context_id title content comment_mime_type category return_url] %> - +

    - +

    + Index: openacs-4/packages/general-comments/www/comment-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-ae.adp,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/general-comments/www/comment-ae.adp 6 Sep 2002 21:50:44 -0000 1.5 +++ openacs-4/packages/general-comments/www/comment-ae.adp 7 Nov 2002 08:32:49 -0000 1.6 @@ -8,29 +8,30 @@
    <%= [export_form_vars comment_id object_id object_name context_id return_url] %> -Title:
    +#general-comments.Title#

    -Comment:
    +#general-comments.Comment#

    -Text above is +#general-comments.Text_above_is#


    - +
    + Index: openacs-4/packages/general-comments/www/comment-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-edit-2.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/general-comments/www/comment-edit-2.tcl 5 Sep 2002 10:05:16 -0000 1.5 +++ openacs-4/packages/general-comments/www/comment-edit-2.tcl 7 Nov 2002 08:32:49 -0000 1.6 @@ -32,8 +32,8 @@ # check to see if the user can edit this comment ad_require_permission $comment_id write -set page_title "Confirm comment on: [acs_object_name $object_id]" -set context {"Confirm comment"} +set page_title "[_ general-comments.Confirm_comment_on]: [acs_object_name $object_id]" +set context "\"[_ general-comments.Confirm_comment]\"" set target "comment-edit-3" set html_content [ad_html_text_convert -from $comment_mime_type -- $content] Index: openacs-4/packages/general-comments/www/comment-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-edit.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/general-comments/www/comment-edit.tcl 5 Sep 2002 10:05:16 -0000 1.4 +++ openacs-4/packages/general-comments/www/comment-edit.tcl 7 Nov 2002 08:32:49 -0000 1.5 @@ -49,8 +49,8 @@ ad_return_complaint 1 "The comment_id does not refer to a valid comment." } -set page_title "Edit comment on: [acs_object_name $object_id]" -set context {"Edit comment"} +set page_title "[_ general-comments.Edit_comment_on]: [acs_object_name $object_id]" +set context "\"[_ general-comments.Edit_comment]\"" set target "comment-edit-2" ad_return_template "comment-ae" Index: openacs-4/packages/general-comments/www/delete-attachment-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/delete-attachment-2.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/general-comments/www/delete-attachment-2.tcl 14 Jun 2001 19:52:22 -0000 1.2 +++ openacs-4/packages/general-comments/www/delete-attachment-2.tcl 7 Nov 2002 08:32:49 -0000 1.3 @@ -24,7 +24,11 @@ # all of this messy code will be replaced by # a single content_item.delete after the bug fix # is released -if { $submit == "Proceed" } { + +#Commented out during i18n convertion, Steffen +#if { $submit == "Proceed" } { + + # get the type of the attachment db_1row get_type { select content_type @@ -65,8 +69,10 @@ end; } } -} +#/ i18n +#} + ad_returnredirect "view-comment?comment_id=$parent_id&[export_url_vars return_url]" Index: openacs-4/packages/general-comments/www/delete-attachment.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/delete-attachment.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/delete-attachment.adp 6 Sep 2002 21:50:44 -0000 1.3 +++ openacs-4/packages/general-comments/www/delete-attachment.adp 7 Nov 2002 08:32:49 -0000 1.4 @@ -2,13 +2,27 @@ @page_title@ @context@ -Do you really wish to delete this attachment? +#general-comments.lt_Do_you_really_wish_to_1#

    -
    -<%= [export_form_vars attach_id parent_id return_url] %> - - -
    + + + + + +
    +
    + <%= [export_form_vars attach_id parent_id return_url] %> + +
    +
    +
    + + <%= [export_form_vars return_url] %> + +
    +
    + Index: openacs-4/packages/general-comments/www/delete-attachment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/delete-attachment.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/delete-attachment.tcl 5 Sep 2002 10:05:16 -0000 1.3 +++ openacs-4/packages/general-comments/www/delete-attachment.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -26,7 +26,7 @@ ad_require_permission $attach_id delete # set template variables -set page_title "Delete attachment" -set context {"Delete attachment"} +set page_title "[_ general-comments.Delete_attachment]" +set context "\"[_ general-comments.Delete_attachment]\"" ad_return_template Index: openacs-4/packages/general-comments/www/file-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-add-2.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/file-add-2.tcl 31 Oct 2001 20:42:07 -0000 1.3 +++ openacs-4/packages/general-comments/www/file-add-2.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -23,17 +23,17 @@ allow_file_attachments { set allow_files_p [ad_parameter AllowFileAttachmentsP {general-comments} {t}] if { $allow_files_p != "t" } { - ad_complain "Attaching files to comments has been disabled." + ad_complain "[_ general-comments.lt_Attaching_files_to_co]" } } check_file_size { set tmp_size [file size ${upload_file.tmpfile}] set max_file_size [ad_parameter MaxFileSize {general-comments} {0}] if { $tmp_size > $max_file_size && $max_file_size > 0 } { - ad_complain "Your file is too large. The publisher of [ad_system_name] has chosen to limit attachments to [util_commify_number $max_file_size] bytes.\n" + ad_complain "[_ general-comments.lt_Your_file_is_too_larg] [_ general-comments.The_publisher_of] [ad_system_name] [_ general-comments.lt_has_chosen_to_limit_a] [util_commify_number $max_file_size] [_ general-comments.bytes].\n" } if { $tmp_size == 0 } { - ad_complain "Your file is zero-length. Either you attempted to upload a zero length file, a file which does not exists, or something went wrong during the transfer.\n" + ad_complain "[_ general-comments.lt_Your_file_is_zero-len]\n" } } } Index: openacs-4/packages/general-comments/www/file-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-add.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/file-add.tcl 5 Sep 2002 10:05:16 -0000 1.3 +++ openacs-4/packages/general-comments/www/file-add.tcl 7 Nov 2002 08:32:49 -0000 1.4 @@ -33,8 +33,8 @@ # set variables for template set attach_id [db_nextval acs_object_id_seq] -set page_title "Add a file attachment to comment #$parent_id" -set context [list [list "view-comment?comment_id=$parent_id" "Go back to comment"] "Add file attachment"] +set page_title "[_ general-comments.lt_Add_a_file_attachment] #$parent_id" +set context [list [list "view-comment?comment_id=$parent_id" "[_ general-comments.Go_back_to_comment]"] "[_ general-comments.Add_file_attachment]"] set target "file-add-2" set title "" set file_name "" Index: openacs-4/packages/general-comments/www/file-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-ae.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/general-comments/www/file-ae.adp 6 Sep 2002 21:50:44 -0000 1.3 +++ openacs-4/packages/general-comments/www/file-ae.adp 7 Nov 2002 08:32:49 -0000 1.4 @@ -8,15 +8,15 @@
    - + - + }} - {comment_id "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]" {} {}] \ + [list comment_id "[_ general-comments.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] %> -

    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$Tcount$comment_id
    - + }} - {comment_id "ID#" {} \ - {}} - {title "Title" {} {}} - {author "Author" {upper(author) $order} \ - {}} - {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]" {} {}] \ + [list comment_id "[_ general-comments.ID]" {} \ + {}] \ + [list title "[_ general-comments.Title_1]" {} {}] \ + [list author "[_ general-comments.Author]" {upper(author) $order} \ + {}] \ + [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]" {} \ {}} -} + subst {[_ general-comments.approve]} + }] | [_ general-comments.delete]}]\ +] # 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
    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 - 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@ -

    If general-comments is not mounted and - calls are made to general_comments_get_comments - or general_comments_create_link, then an error - will be logged. This is because these calls output hyperlinks - that would need to reference a mounted general-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/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 @@

    - + - +
    Label: #general-comments.Label#
    URL: #general-comments.URL#
    - Example: http://www.arsdigita.com/ + #general-comments.lt_Example_httpwwwarsdig#

    - +
    + 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 @@ @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#

    -

    Actions

    +

    #general-comments.Actions#

    -

    Revisions

    +

    #general-comments.Revisions#

    - 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# - (reject this revision) + (#general-comments.reject_this_revision#) + 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 @@ @page_title@ @context@ -
    -<%= [export_form_vars comment_id return_url] %> -Do you really wish to delete the following comment and its attachments? + +#general-comments.lt_Do_you_really_wish_to#
    - @title@ (details)

    + @title@ (#general-comments.details#)

    <%= [util_convert_plaintext_to_html $content] %> @@ -17,8 +16,23 @@ (@pretty_date@)
    - - + + + + + +
    + + <%= [export_form_vars comment_id return_url] %> + + + +
    + +
    +
    + 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$author$Tcount$comment_id$author [if {$approved_p} { - subst {reject} + subst {[_ general-comments.reject]} } else { - subst {approve} - }] | delete