Skip to content

G
general-comments
Commit 08369fbc authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- OpenACS 5.9

parent bd155893
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 1450 additions and 740 deletions
catalog/general-comments.ar_EG.utf-8.xml
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="ar_EG" charset="utf-8">
<message_catalog package_key="general-comments" locale="ar_EG" charset="utf-8">
<msg key="all">كُلّ</msg>
<msg key="bytes">بَايْت</msg>
......
catalog/general-comments.ar_LB.utf-8.xml
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="ar_LB" charset="utf-8">
<message_catalog package_key="general-comments" locale="ar_LB" charset="utf-8">
<msg key="Actions">أفعال</msg>
<msg key="Add_a_comment_to">أضفْ تعليقاً إلى</msg>
......
catalog/general-comments.ca_ES.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="ca_ES" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="ca_ES" charset="ISO-8859-1">
<msg key="Actions">Accions </msg>
<msg key="Add_a_comment_to">Accions </msg>
......
catalog/general-comments.ch_zh.utf-8.xml
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" package_version="4.1" locale="ch_zh" charset="utf-8">
<message_catalog package_key="general-comments" locale="ch_zh" charset="utf-8">
<msg key="Actions">操作</msg>
<msg key="Add_a_comment_to">添加评论</msg>
......
catalog/general-comments.cs_CZ.utf-8.xml 0 → 100644
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" locale="cs_CZ" charset="utf-8">
<msg key="Actions">Akce</msg>
<msg key="Add_a_comment_to">Přidat poznámku k</msg>
<msg key="Add_comment">Přidat poznámku</msg>
<msg key="Add_file_attachment">Přidat soubor jako přílohu</msg>
<msg key="Add_url_comment">Přidat komentář s odkazem URL</msg>
<msg key="Administer">Správa</msg>
<msg key="all">vše</msg>
<msg key="approve">schválit</msg>
<msg key="Approved">Schváleno</msg>
<msg key="approved">schváleno</msg>
<msg key="Attach_a_web_link">Přiložit odkaz WWW</msg>
<msg key="Attachments">Přílohy</msg>
<msg key="Author">Autor</msg>
<msg key="by">od</msg>
<msg key="bytes">bytů</msg>
<msg key="Cancel">Zrušit</msg>
<msg key="Comment">Komentář:</msg>
<msg key="Comments">Komentáře</msg>
<msg key="Confirm">Potvrdit</msg>
<msg key="Confirm_comment">Potvrdit komentář</msg>
<msg key="Confirm_comment_on">Potvrdit komentář k</msg>
<msg key="delete">smazat</msg>
<msg key="Delete_a_comment">Smazat komentář</msg>
<msg key="Delete_attachment">Smazat přílohu</msg>
<msg key="details">podrobnosti</msg>
<msg key="edit">upravit</msg>
<msg key="Edit_comment">Úprava komentáře</msg>
<msg key="Edit_comment_on">Upravit komentář k</msg>
<msg key="Edit_file_attachment">Upravit přiložený soubor</msg>
<msg key="Edit_url_attachment">Upravit přílohu s odkazem URL</msg>
<msg key="edit_your_comment">(upravte svůj komentář)</msg>
<msg key="Filename">Jméno souboru:</msg>
<msg key="Full_Comments">Celé komentáře</msg>
<msg key="gc_is_not_mounted">gc není připojeno</msg>
<msg key="General_Comments">Obecné komentáře</msg>
<msg key="Go_back_to_comment">Vrátit se na komentář</msg>
<msg key="Has_live_version">Má aktuální verzi</msg>
<msg key="HTML">HTML</msg>
<msg key="ID">číslo</msg>
<msg key="Image_attachment">Přiložený obrázek</msg>
<msg key="Label">Nadpis:</msg>
<msg key="last_24_hours">posledních 24 hodin</msg>
<msg key="Last_Modified">Naposledy upraveno</msg>
<msg key="last_month">poslední měsíc</msg>
<msg key="last_week">poslední týden</msg>
<msg key="live">(aktuální)</msg>
<msg key="lt_Add_a_file_attachment">Přidat ke komentáři soubor jako přílohu</msg>
<msg key="lt_Add_url_attachment_to">Přidat ke komentáři odkaz URL</msg>
<msg key="lt_approve_this_revision">schválit tuto verzi</msg>
<msg key="lt_Attach_a_file_or_pict">Přiložit soubor nebo obrázek</msg>
<msg key="lt_Attaching_files_to_co">Připojování souborů ke komentářům bylo zakázáno.</msg>
<msg key="lt_Attaching_links_to_co">Přikládání odkazů ke komentářům bylo zakázáno</msg>
<msg key="lt_Current_values_for_Ge">Aktuální hodnoty pro balík &quot;obecné komentáře&quot;</msg>
<msg key="lt_Do_you_really_wish_to">Chcete opravdu smazat následující komentář a jeho přílohy?</msg>
<msg key="lt_Do_you_really_wish_to_1">Chcete opravdu smazat tuto přílohu?</msg>
<msg key="lt_Edit_file_attachment_">Upravit soubor přiložený ke komentáři</msg>
<msg key="lt_Edit_url_attachment_o">Upravit odkaz URL přiložený ke komentáři</msg>
<msg key="lt_Example_httpwwwarsdig">Příklad: http://www.arsdigita.com/</msg>
<msg key="lt_General_Comments_Admi">Správa obecných komentářů</msg>
<msg key="lt_Go_back_to_where_you_">Návrat zpět na předchozí</msg>
<msg key="lt_has_chosen_to_limit_a">rozhodl omezit přílohy k</msg>
<msg key="lt_Here_is_how_your_comm">Takto bude vypadat Váš komentář:</msg>
<msg key="lt_I_would_like_to_uploa">Chtěl bych uložit soubor nebo přidat k mému komentáři odkaz</msg>
<msg key="lt_No_comments_available">Žádné komentáře nejsou dostupné</msg>
<msg key="lt_no_gc_package_instanc">žádná instance balíku gc</msg>
<msg key="lt_Note_if_the_text_abov">Poznámka: Pokud výše uvedený text ztratil všechny konce odstavců, měl/-a jste pravděpodobně vybrat &quot;čistý text&quot; namísto HTML. Na formulář pro odeslání se lze vrátit pomocí tlačítka Zpět Vašeho prohlížeče.</msg>
<msg key="lt_Note_if_the_text_abov_1">Poznámka: Pokud výše uvedený text obsahuje sbírku viditelných příkazů HTML, měl/-a jste pravděpodobně vybrat &quot;HTML&quot; namísto &quot;čistý text&quot;.</msg>
<msg key="lt_Test_page_for_General">Testovací stránka pro obecné komentáře</msg>
<msg key="lt_The_comment_id_does_n">Číslo komentáře neodkazuje na platný komentář</msg>
<msg key="lt_This_revision_is_live">Tato revize je aktuální</msg>
<msg key="lt_This_revision_is_not_">Tato revize není aktuální</msg>
<msg key="lt_Use_the_Browse_button">Použijte tlačítko &quot;Vyhledat...&quot; k nalezení Vašeho souboru, poté stiskněte &quot;Otevřít&quot;.</msg>
<msg key="lt_Your_file_is_too_larg">Váš soubor je příliš velký.</msg>
<msg key="lt_Your_file_is_zero-len">Váš soubor má nulovou délku. Buď jste se pokusili načíst soubor s nulovou délkou, neexistující soubor a nebo během přenosu došlo k nějaké chybě.</msg>
<msg key="no_attachments">bez příloh</msg>
<msg key="none">žádné</msg>
<msg key="not_set">není nastaveno</msg>
<msg key="on">k</msg>
<msg key="Plain_text">Čistý text</msg>
<msg key="Proceed">Zpracovat</msg>
<msg key="reject">odmítnout</msg>
<msg key="reject_this_revision">odmítnout tuto revizi</msg>
<msg key="Revisions">Revize</msg>
<msg key="Status">Status</msg>
<msg key="test">test</msg>
<msg key="Text_above_is">Výše uvedený text je</msg>
<msg key="The_publisher_of">Vydavatel</msg>
<msg key="Title">Nadpis:</msg>
<msg key="Title_1">Nadpis</msg>
<msg key="unapproved">neschválené</msg>
<msg key="URL">Odkaz URL:</msg>
<msg key="View_comment">Zobrazit komentář</msg>
<msg key="View_comment_on">Zobrazit komentář k</msg>
<msg key="view_details">zobrazení podrobností</msg>
<msg key="you">Vy</msg>
</message_catalog>
catalog/general-comments.da_DK.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="da_DK" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="da_DK" charset="ISO-8859-1">
<msg key="Actions">Handlinger</msg>
<msg key="Add_a_comment_to">Tilfj en kommentar til</msg>
......
catalog/general-comments.el_GR.utf-8.xml 0 → 100644
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" locale="el_GR" charset="utf-8">
<msg key="Actions">Ενέργειες</msg>
<msg key="Add_a_comment_to">Προσθήκη ενός σχολίου στο</msg>
<msg key="Add_comment">Προσθήκη σχολίου</msg>
<msg key="Add_file_attachment">Προσθήκη συνημμένου αρχείου</msg>
<msg key="Add_url_comment">Προσθήκη σχολίου URL</msg>
<msg key="Administer">Διαχείριση</msg>
<msg key="all">όλα</msg>
<msg key="approve">εγκρίνω</msg>
<msg key="Approved">Εγκεκριμένο</msg>
<msg key="approved">εγκεκριμένο</msg>
<msg key="Attach_a_web_link">Επισύναψη ενός συνδέσμου</msg>
<msg key="Attachments">Συνημμένα</msg>
<msg key="Author">Συγγραφέας</msg>
<msg key="by">από</msg>
<msg key="bytes">bytes</msg>
<msg key="Cancel">Άκυρο</msg>
<msg key="Comment">Σχόλιο:</msg>
<msg key="Comments">Σχόλια</msg>
<msg key="Confirm">Επιβεβαίωση</msg>
<msg key="Confirm_comment">Επιβεβαίωση σχολίου</msg>
<msg key="Confirm_comment_on">Επιβεβαίωση σχολίου για</msg>
<msg key="delete">διαγραφή</msg>
<msg key="Delete_a_comment">Διαγραφή σχολίου</msg>
<msg key="Delete_attachment">Διαγραφή συνημμένου</msg>
<msg key="details">λεπτομέρειες</msg>
<msg key="edit">επεξεργασία</msg>
<msg key="Edit_comment">Επεξεργασία σχολίου</msg>
<msg key="Edit_comment_on">Επεξεργασία σχολίου για</msg>
<msg key="Edit_file_attachment">Επεξεργασία συνημμένου αρχείου</msg>
<msg key="Edit_url_attachment">Επεξεργασία συνημμένου URL</msg>
<msg key="edit_your_comment">(επεξεργασία του σχολίου σας) </msg>
<msg key="Filename">Αρχείο:</msg>
<msg key="Full_Comments">Πλήρη σχόλια</msg>
<msg key="gc_is_not_mounted">Το gc δεν έχει συνδεθεί</msg>
<msg key="General_Comments">Γενικά σχόλια</msg>
<msg key="Go_back_to_comment">Επιστροφή στα σχόλια</msg>
<msg key="Has_live_version">Διαθέτει ζωντανή έκδοση</msg>
<msg key="HTML">HTML</msg>
<msg key="ID">ID#</msg>
<msg key="if_general_comments_not_mounted">Εαν το &lt;code&gt;general-comments&lt;/code&gt; δεν είναι συνδεδεμένο και γίνονται κλήσεις στο &lt;code&gt;general_comments_get_comments&lt;/code&gt; ή στο &lt;code&gt;general_comments_create_link&lt;/code&gt; , τότε ένα σφάλμα θα καταγραφεί. Αυτό οφείλεται στο ότι αυτές οι κλήσεις δημιουργούν υπερσυνδέσεις που οφείλουν να συσχετίζονται με ένα συνδεδεμένο &lt;code&gt;general-comments&lt;/code&gt; πακέτο.
</msg>
<msg key="Image_attachment">Συνημμένη εικόνα</msg>
<msg key="Label">Ετικέτα:</msg>
<msg key="last_24_hours">τελευταίες 24 ώρες</msg>
<msg key="Last_Modified">Πρόσφατα αλλαγμένο</msg>
<msg key="last_month">τελευταίο μήνα</msg>
<msg key="last_week">τελευταία εβδομάδα</msg>
<msg key="live">(ζωντανά)</msg>
<msg key="lt_Add_a_file_attachment">Προσθήκη συνημμένου αρχείου σε σχόλιο</msg>
<msg key="lt_Add_url_attachment_to">Προσθήκη συνημμένου url σε σχόλιο</msg>
<msg key="lt_approve_this_revision">έγκριση αυτής της έκδοσης</msg>
<msg key="lt_Attach_a_file_or_pict">Επισύναψη αρχείου ή εικόνας</msg>
<msg key="lt_Attaching_files_to_co">Η επισύναψη αρχείων σε σχόλια είναι απενεργοποιημένη.</msg>
<msg key="lt_Attaching_links_to_co">Η επισύναψη συνδέσμων σε σχόλια είναι απενεργοποιημένη.</msg>
<msg key="lt_Current_values_for_Ge">Τρέχουσες τιμές για το πακέτο γενικών σχολίων</msg>
<msg key="lt_Do_you_really_wish_to">Επιθυμείτε να διαγράψετε το ακόλουθο σχόλιο και τα συνημμένα του;</msg>
<msg key="lt_Do_you_really_wish_to_1">Επιθυμείτε να διαγράψετε αυτό το σχόλιο;</msg>
<msg key="lt_Edit_file_attachment_">Επεξεργασία συνημμένου αρχείου σε σχόλιο</msg>
<msg key="lt_Edit_url_attachment_o">Επεξεργασία συνημμένου url σε σχόλιο</msg>
<msg key="lt_Example_httpwwwarsdig">Παράδειγμα: http://www.arsdigita.com/ </msg>
<msg key="lt_General_Comments_Admi">Διαχείριση γενικών σχολίων</msg>
<msg key="lt_Go_back_to_where_you_">Επιστροφή εκεί που είσασταν</msg>
<msg key="lt_has_chosen_to_limit_a">έχει επιλέξει να περιορίσει τα συνημμένα σε</msg>
<msg key="lt_Here_is_how_your_comm">Ορίστε πως θα εμφανίζεται το σχόλιο σας:</msg>
<msg key="lt_I_would_like_to_uploa">Επιθυμώ να ανεβάσω ένα αρχείο ή να προσθέσω ένα σύνδεσμο στο σχόλιο μου</msg>
<msg key="lt_No_comments_available">Δεν υπάρχουν διαθέσιμα σχόλια</msg>
<msg key="lt_no_gc_package_instanc">δεν υπάρχει πακέτο γενικών σχολίων gc</msg>
<msg key="lt_Note_if_the_text_abov">Σημείωση: εαν το παραπάνω κείμενο έχει χάσει όλα τα διαχωριστικά παραγράφου τότε θα πρέπει να είχατε επιλέξει απλό κείμενο &quot;Plain Text&quot; αντί του HTML. Χρησιμοποιήστε το πλήκτρο πίσω του λογισμικού πλοήγησης που χρησιμοποιείτε για να επιστρέψετε στη φόρμα επιλογής.</msg>
<msg key="lt_Note_if_the_text_abov_1">Σημείωση: εαν το παραπάνω κείμενο έχει εμφανή σημάδια HTML τότε θα πρέπει να είχατε επιλέξει &quot;HTML&quot; αντί για απλό κείμενο &quot;Plain Text&quot;. Χρησιμοποιήστε το πλήκτρο πίσω του λογισμικού πλοήγησης που χρησιμοποιείτε για να επιστρέψετε στη φόρμα επιλογής.</msg>
<msg key="lt_Test_page_for_General">Σελίδα ελέγχου για γενικά σχόλια</msg>
<msg key="lt_The_comment_id_does_n">Το comment_id δεν αναφέρεται σε έγκυρο σχόλιο.</msg>
<msg key="lt_This_revision_is_live">Ζωντανή έκδοση.</msg>
<msg key="lt_This_revision_is_not_">Η έκδοση δεν είναι ζωντανή. </msg>
<msg key="lt_Use_the_Browse_button">Χρησιμοποιείστε το πλήκτρο &quot;Πλοήγηση...&quot; για να εντοπίσετε το αρχείο σας και &quot;Άνοιγμα&quot; για να το ανοίξετε.</msg>
<msg key="lt_Your_file_is_too_larg">Το αρχείο σας είναι πολύ μεγάλο.</msg>
<msg key="lt_Your_file_is_zero-len">Το αρχείο σας είναι μηδενικό. Είτε προσπαθήσετε να ανεβάσετε ένα άδειο αρχείο ή ένα αρχείο που δεν υπάρχει είτε κάτι δεν πήγε καλά κατά τη μεταφορά. </msg>
<msg key="no_attachments">δεν υπάρχουν συνημμένα</msg>
<msg key="none">κανένα</msg>
<msg key="not_set">δεν έχει οριστεί</msg>
<msg key="Num">Num</msg>
<msg key="on">ενεργό</msg>
<msg key="Plain_text">Απλό κείμενο</msg>
<msg key="Proceed">Προχωρήστε</msg>
<msg key="reject">απόρριψη</msg>
<msg key="reject_this_revision">απόρριψη αυτλης της έκδοσης</msg>
<msg key="Revisions">Εκδόσεις</msg>
<msg key="Status">Κατάσταση</msg>
<msg key="test">έλεγχος</msg>
<msg key="Text_above_is">Το παραπάνω κείμενο είναι</msg>
<msg key="The_publisher_of">Ο εκδότης του</msg>
<msg key="Title">Τίτλος:</msg>
<msg key="Title_1">Τίτλος</msg>
<msg key="unapproved">μη εγκεκριμένο</msg>
<msg key="URL">URL:</msg>
<msg key="View_comment">Προβολή σχολίου</msg>
<msg key="View_comment_on">Προβολή σχολίου για</msg>
<msg key="view_details">προβολή λεπτομερειών</msg>
<msg key="you">εσύ</msg>
</message_catalog>
catalog/general-comments.en_AU.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="en_AU" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="en_AU" charset="ISO-8859-1">
<msg key="Actions">Actions</msg>
<msg key="Add_a_comment_to">Add a comment to</msg>
......
catalog/general-comments.es_CO.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="es_CO" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="es_CO" charset="ISO-8859-1">
<msg key="Actions">Acciones</msg>
<msg key="Add_a_comment_to">Aadir un comentario a</msg>
......
catalog/general-comments.es_GT.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="es_GT" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="es_GT" charset="ISO-8859-1">
<msg key="Actions">Acciones</msg>
<msg key="Add_a_comment_to">Aadir un comentario a</msg>
......
catalog/general-comments.gl_ES.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="gl_ES" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="gl_ES" charset="ISO-8859-1">
<msg key="Actions">Accins</msg>
<msg key="Add_a_comment_to">Engadir un comentario a</msg>
......
catalog/general-comments.hi_IN.utf-8.xml 0 → 100644
View file @ 08369fbc
This diff is collapsed.
catalog/general-comments.ko_KR.utf-8.xml
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="ko_KR" charset="utf-8">
<message_catalog package_key="general-comments" locale="ko_KR" charset="utf-8">
<msg key="Actions">행동</msg>
<msg key="Add_a_comment_to">주석 추가</msg>
......
catalog/general-comments.ms_MY.utf-8.xml
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="ms_MY" charset="utf-8">
<message_catalog package_key="general-comments" locale="ms_MY" charset="utf-8">
<msg key="Actions">Aksi-aksi</msg>
<msg key="Add_a_comment_to">Tambah komen kepada</msg>
......
catalog/general-comments.nl_ZA.ISO-8859-1.xml 0 → 100644
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" locale="nl_ZA" charset="ISO-8859-1">
<msg key="Actions">Aksies</msg>
<msg key="Add_a_comment_to">'n Opmerking toevoeg aan</msg>
<msg key="Add_comment">Voeg opmerking toe</msg>
<msg key="Add_file_attachment">Voeg bylae toe</msg>
<msg key="Add_url_comment">Voeg opmerking aan URL toe</msg>
<msg key="Administer">Beheer</msg>
<msg key="all">alle</msg>
<msg key="approve">goedkeur</msg>
<msg key="Approved">Goedgekeur</msg>
<msg key="approved">goedgekeur</msg>
<msg key="Attach_a_web_link">Skakel naar die web byvoeg</msg>
<msg key="Attachments">Bylae</msg>
<msg key="Author">Outeur</msg>
<msg key="by">deur</msg>
<msg key="bytes">grepe</msg>
<msg key="Cancel">Kanseleer</msg>
<msg key="Comment">Opmerking:</msg>
<msg key="Comments">Opmerkingen</msg>
<msg key="Confirm">Bevestigen</msg>
<msg key="Confirm_comment">Opmerking bevestigen</msg>
<msg key="Confirm_comment_on">Opmerking bevestigen over </msg>
<msg key="delete">verwyder</msg>
<msg key="Delete_a_comment">Verwyder 'n opmerking</msg>
<msg key="Delete_attachment">Bijlage verwijderen</msg>
<msg key="details">details</msg>
<msg key="edit">bewerk</msg>
<msg key="Edit_comment">Bewerk opmerking</msg>
<msg key="Edit_comment_on">Bewerk opmerking op</msg>
<msg key="Edit_file_attachment">Bewerk lerbylae</msg>
<msg key="Edit_url_attachment">Bewerk URL-bylage</msg>
<msg key="edit_your_comment">(opmerking bewerken)</msg>
<msg key="Filename">Lernaam:</msg>
<msg key="Full_Comments">Gehele opmerkinge</msg>
<msg key="gc_is_not_mounted">Die module vir Algemene Opmerkingen (General Comments) is nie aangekoppel nie</msg>
<msg key="General_Comments">Algemene Opmerkingen</msg>
<msg key="Go_back_to_comment">Ga terug naar opmerking</msg>
<msg key="Has_live_version">Openbare versie is aanwezig</msg>
<msg key="HTML">HTML</msg>
<msg key="ID">ID#</msg>
<msg key="if_general_comments_not_mounted">As &lt;code&gt;general-comments&lt;/code&gt; nie geaktiveer is nie en daar tog 'nn beroep word gedoen op &lt;code&gt;general_comments_get_comments&lt;/code&gt; of &lt;code&gt;general_comments_create_link&lt;/code&gt;, dan word daar 'n fout geregistreer. Dit gebeur omdat hierdie kode skakels (hyperlinks) gebruik, wat sou moet refereer na genstalleerde &lt;code&gt;general-comments&lt;/code&gt; instansies.
</msg>
<msg key="Image_attachment">Bylae by beeld</msg>
<msg key="Label">Label:</msg>
<msg key="last_24_hours">laatste 24 uur</msg>
<msg key="Last_Modified">Laatste wysiging</msg>
<msg key="last_month">afgelope maand</msg>
<msg key="last_week">afgelope week</msg>
<msg key="live">(live)</msg>
<msg key="lt_Add_a_file_attachment">Voeg ler as bylae aan opmerking toe</msg>
<msg key="lt_Add_url_attachment_to">Webkoppeling als bijlage aan opmerking toevoegen</msg>
<msg key="lt_approve_this_revision">keur hierdie revisie goed</msg>
<msg key="lt_Attach_a_file_or_pict">Voeg ler of foto toe</msg>
<msg key="lt_Attaching_files_to_co">Functie om bestanden als bijlage aan opmerkingen toe te kunnen voegen is uitgeschakeld. </msg>
<msg key="lt_Attaching_links_to_co">Functie om webkoppelingen als bijlage aan opmerkingen toe te kunnen voegen is uitgeschakeld. </msg>
<msg key="lt_Current_values_for_Ge">Huidige instellinge vir die module Algemene Opmerkingen (General Comments).</msg>
<msg key="lt_Do_you_really_wish_to">Die volgende opmerking met bylaes eg verwyder?</msg>
<msg key="lt_Do_you_really_wish_to_1">Wil u hierdie bylae eg verwyder?</msg>
<msg key="lt_Edit_file_attachment_">Lerbylage by opmerking wysig</msg>
<msg key="lt_Edit_url_attachment_o">Wysig URL-bylae op opmerking</msg>
<msg key="lt_Example_httpwwwarsdig">Voorbeeld: http://www.arsdigita.com/</msg>
<msg key="lt_General_Comments_Admi">Beheer van Algemene Opmerkingen</msg>
<msg key="lt_Go_back_to_where_you_">Gaan terug</msg>
<msg key="lt_has_chosen_to_limit_a">het besluit om bylaes te limiteer tot</msg>
<msg key="lt_Here_is_how_your_comm">Die opmerking sal daar so uit sien:</msg>
<msg key="lt_I_would_like_to_uploa">'n Ler of een webskakel aan die opmerking toevoeg</msg>
<msg key="lt_No_comments_available">Geen opmerkinge beschikbaar nie</msg>
<msg key="lt_no_gc_package_instanc">geen instance van Algemene Opmerkingen module (General Comments)</msg>
<msg key="lt_Note_if_the_text_abov">Toeligting:
as die paragraafindeling van bostaande teks verstoor is, dan had u waarskynlik beter &quot;Platte Tekst&quot; in plaas van &quot;HTML&quot; gekies.
Gebruik de knop &quot;Terug&quot; van uw browser om dit te corrigeren. </msg>
<msg key="lt_Note_if_the_text_abov_1">Toeligting:
as bostaande teks HTML-tags bevat, dan had u waarskynlik &quot;HTML&quot; moet kies in plaas van &quot;Platte Teks&quot;.
Gebruik die knop &quot;Terug&quot; van u blaaier om dit te korrigeer. </msg>
<msg key="lt_Test_page_for_General">Testbladsy vir Algemene Opmerkinge</msg>
<msg key="lt_The_comment_id_does_n">Die comment_id verwys nie na 'n geldige opmerking nie. </msg>
<msg key="lt_This_revision_is_live">Hierdie versie is openbaar.</msg>
<msg key="lt_This_revision_is_not_">Hierdie versie is nie openbaar nie.</msg>
<msg key="lt_Use_the_Browse_button">Gebruik die knop \&quot;Blader\&quot; om 'n bestand te vind en kliek dan op \&quot;Open\&quot;</msg>
<msg key="lt_Your_file_is_too_larg">Die ler is te groot.</msg>
<msg key="lt_Your_file_is_zero-len">Die omvang van die ler is nul.
Dit kan wees dat er 'n ler aangebied is wat nie bestaan nie of daar het iets misgegaan tydens die oordrag. </msg>
<msg key="no_attachments">geen bylae beschikbaar nie</msg>
<msg key="none">geen</msg>
<msg key="not_set">nie ingestel nie</msg>
<msg key="Num">Nr</msg>
<msg key="on">op</msg>
<msg key="Plain_text">Platte teks</msg>
<msg key="Proceed">Doorgaan</msg>
<msg key="reject">weier</msg>
<msg key="reject_this_revision">Hierdie versie weier</msg>
<msg key="Revisions">Versies</msg>
<msg key="Status">Status</msg>
<msg key="test">test</msg>
<msg key="Text_above_is">Teks hierbo is</msg>
<msg key="The_publisher_of">Die eindverantwoordelike van</msg>
<msg key="Title">Titel:</msg>
<msg key="Title_1">Titel</msg>
<msg key="unapproved">nie beoordeel nie</msg>
<msg key="URL">URL:</msg>
<msg key="View_comment">Bekyk opmerking</msg>
<msg key="View_comment_on">Bekyk opmerking op</msg>
<msg key="view_details">Bekyk details</msg>
<msg key="you">u</msg>
</message_catalog>
catalog/general-comments.nn_NO.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="nn_NO" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="nn_NO" charset="ISO-8859-1">
<msg key="Actions">Oppgver</msg>
<msg key="Add_a_comment_to">Legg ein kommentar til</msg>
......
catalog/general-comments.pl_PL.utf-8.xml
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="pl_PL" charset="utf-8">
<message_catalog package_key="general-comments" locale="pl_PL" charset="utf-8">
<msg key="Actions">Czynności</msg>
<msg key="Add_a_comment_to">Dodaj komentarz do</msg>
......@@ -40,6 +40,10 @@
<msg key="Has_live_version">Ma wersję aktywną</msg>
<msg key="HTML">HTML</msg>
<msg key="ID">ID#</msg>
<msg key="if_general_comments_not_mounted">Jeśli &amp;lt;code&amp;gt;general-comments&amp;lt;/code&amp;gt;
jest niezamontowane i wywoływane są procedury
&amp;lt;code&amp;gt;general_comments_get_comments&amp;lt;/code&amp;gt;
lub &amp;lt;code&amp;gt;general_comments_create_link&amp;lt;/code&amp;gt; , wtedy wystąpi błąd, który zostanie zapisany w logu. Powodem jest to, że powyższe wywołania zwracają hiperlinki do zamontowanej instancji pakiegu &amp;lt;code&amp;gt;general-comments&amp;lt;/code&amp;gt; .</msg>
<msg key="Image_attachment">Zdjęcie/Rysunek</msg>
<msg key="Label">Etykieta:</msg>
<msg key="last_24_hours">ostatnich 24 godzin</msg>
......
catalog/general-comments.pt_PT.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="pt_PT" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="pt_PT" charset="ISO-8859-1">
<msg key="Actions">Aces</msg>
<msg key="Add_a_comment_to">Adicionar um comentrio a</msg>
......
catalog/general-comments.ro_RO.utf-8.xml 0 → 100644
View file @ 08369fbc
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="general-comments" locale="ro_RO" charset="utf-8">
<msg key="Actions">Acţiuni</msg>
<msg key="Add_a_comment_to">Adaugă un comentariu la</msg>
<msg key="Add_comment">Adaugă un comentariu</msg>
<msg key="Add_file_attachment">Ataşează un fişier</msg>
<msg key="Add_url_comment">Adaugă un comentariu la url</msg>
<msg key="Administer">Administrează</msg>
<msg key="all">tot</msg>
<msg key="approve">aprobă</msg>
<msg key="Approved">Aprobat</msg>
<msg key="approved">aprobat</msg>
<msg key="Attach_a_web_link">Ataşează un link</msg>
<msg key="Attachments">Ataşamente</msg>
<msg key="Author">Autor</msg>
<msg key="by">de către</msg>
<msg key="bytes">bytes</msg>
<msg key="Cancel">M-am răzgândit</msg>
<msg key="Comment">Comentariu:</msg>
<msg key="Comments">Comentarii</msg>
<msg key="Confirm">Confirmă</msg>
<msg key="Confirm_comment">Confirmă comentariul</msg>
<msg key="Confirm_comment_on">Confirmă comentariul asupra</msg>
<msg key="delete">şterge</msg>
<msg key="Delete_a_comment">Şterge un comentariu</msg>
<msg key="Delete_attachment">Şterge un fişier ataşat</msg>
<msg key="details">detalii</msg>
<msg key="edit">modifică</msg>
<msg key="Edit_comment">Modifică un comentariu</msg>
<msg key="Edit_comment_on">Modifică comentariul asupra</msg>
<msg key="Edit_file_attachment">Modifică un fişier ataşat</msg>
<msg key="Edit_url_attachment">Edit url attachment</msg>
<msg key="edit_your_comment">(modifică comentariul tău)</msg>
<msg key="Filename">Fişier:</msg>
<msg key="Full_Comments">Comentarii Pline</msg>
<msg key="gc_is_not_mounted">gc nu este activat</msg>
<msg key="General_Comments">Comentarii Generale</msg>
<msg key="Go_back_to_comment">Înapoi la comentariu</msg>
<msg key="Has_live_version">Are versiune live</msg>
<msg key="HTML">HTML</msg>
<msg key="ID">ID#</msg>
<msg key="if_general_comments_not_mounted">Dacă &lt;code&gt;general-comments&lt;/code&gt;nu este activat şi se iniţiază cereri penru &lt;code&gt;general_comments_get_comments&lt;/code&gt; sau &lt;code&gt;general_comments_create_link&lt;/code&gt;, va fi înregistrată o eroare; aceasta pentru că aceste cereri rezultă în hiperlinkuri, care fac referinţă la o sesiune activată a &lt;code&gt;general-comments&lt;/code&gt; </msg>
<msg key="Image_attachment">Ataşament Imagine</msg>
<msg key="Label">Etichetă:</msg>
<msg key="last_24_hours">ultimele 24 de ore</msg>
<msg key="Last_Modified">Modificat Ultima Dată</msg>
<msg key="last_month">ultima lună</msg>
<msg key="last_week">ultima săptămână</msg>
<msg key="live">(live)</msg>
<msg key="lt_Add_a_file_attachment">Ataşează un fişier la comentariu</msg>
<msg key="lt_Add_url_attachment_to">Adaugă un url la comentariu</msg>
<msg key="lt_approve_this_revision">aprobă această corectură</msg>
<msg key="lt_Attach_a_file_or_pict">Ataşează un fişier sau o poză</msg>
<msg key="lt_Attaching_files_to_co">Posibilitatea de a ataşa fişiere la comentarii a fost dezactivată</msg>
<msg key="lt_Attaching_links_to_co">Posibilitatea de a ataşa linkuri la comentarii a fost dezactivată</msg>
<msg key="lt_Current_values_for_Ge">Valori curente pentru programul General Comments</msg>
<msg key="lt_Do_you_really_wish_to">Chiar vrei să ştergi următorul comentariu şi atasamentele corespondente ?</msg>
<msg key="lt_Do_you_really_wish_to_1">Chiar vrei să ştergi acest ataşament?</msg>
<msg key="lt_Edit_file_attachment_">Modifică fişierul ataşat la acest comentariu</msg>
<msg key="lt_Edit_url_attachment_o">Modifică link-ul la comentariu</msg>
<msg key="lt_Example_httpwwwarsdig">Exemplu:http://www.arsdigita.com/</msg>
<msg key="lt_General_Comments_Admi">Administrare pentru 'General Comments' </msg>
<msg key="lt_Go_back_to_where_you_">Întoarce-te unde erai</msg>
<msg key="lt_has_chosen_to_limit_a">a ales să limiteze ataşamentele la</msg>
<msg key="lt_Here_is_how_your_comm">Aşa va arăta comentariul dumneavoastră</msg>
<msg key="lt_I_would_like_to_uploa">Vreau să încarc un fişier sau un link, împreună cu comentariul meu</msg>
<msg key="lt_No_comments_available">Nu există comentarii</msg>
<msg key="lt_no_gc_package_instanc">nu există vreo instalare a GeneralComments</msg>
<msg key="lt_Note_if_the_text_abov">Observaţie: dacă textul de mai sus şi-a pierdut aliniatele, atunci e posibil sa fi selectat &quot;Text Simplu&quot; si nu HTML. Folosiţi butonul Înapoi al browser-ului pentru a vă întoarce la formularul de dinainte</msg>
<msg key="lt_Note_if_the_text_abov_1">Observaţie: dacă textul e mai sus are tot felul de taguri HTML, poate că ar fi trebuit să selectaţi &quot;HTML&quot; şi nu &quot;Plain Text&quot;. Folosiţi butonul Înapoi al browser-ului pentru a vă întoarce la formularul de dinainte</msg>
<msg key="lt_Test_page_for_General">Pagina de test pentru General Comments</msg>
<msg key="lt_The_comment_id_does_n">Acest comment_id nu se referă la un comentariu valabil</msg>
<msg key="lt_This_revision_is_live">Această versiune este live</msg>
<msg key="lt_This_revision_is_not_">Această versiune nu este live</msg>
<msg key="lt_Use_the_Browse_button">Folosiţi butonul &quot;Browse...&quot; pentru a localiza fişierul şi apoi faceţi click pe &quot;Deschide&quot;</msg>
<msg key="lt_Your_file_is_too_larg">Fişierul dumneavoastră este prea mare</msg>
<msg key="lt_Your_file_is_zero-len">Fişierul dumneavoastră are mărimea zero. Fie aţi încercat să încărcaţi un fişier de mărime zero, un fişier care nu exită sau ceva nu a mers cum trebuie în timpul transferului</msg>
<msg key="no_attachments">nu există ataşamente</msg>
<msg key="none">nici unul</msg>
<msg key="not_set">nu e setat</msg>
<msg key="Num">Num</msg>
<msg key="on">pe</msg>
<msg key="Plain_text">Text simplu</msg>
<msg key="Proceed">Continuă</msg>
<msg key="reject">respinge</msg>
<msg key="reject_this_revision">respinge această versiune</msg>
<msg key="Revisions">Versiuni</msg>
<msg key="Status">Statut</msg>
<msg key="test">test</msg>
<msg key="Text_above_is">Textul de mai sus este</msg>
<msg key="The_publisher_of">The publisher of</msg>
<msg key="Title">Titlu:</msg>
<msg key="Title_1">Titlu</msg>
<msg key="unapproved">neaprobat</msg>
<msg key="URL">URL:</msg>
<msg key="View_comment">Vezi comentariul</msg>
<msg key="View_comment_on">Vezi comentariul despre</msg>
<msg key="view_details">vezi detalii</msg>
<msg key="you">tu</msg>
</message_catalog>
catalog/general-comments.ru_RU.utf-8.xml
View file @ 08369fbc
This diff is collapsed.
catalog/general-comments.sv_SE.ISO-8859-1.xml
View file @ 08369fbc
<?xml version="1.0" encoding="ISO-8859-1"?>
<message_catalog package_key="general-comments" package_version="4.4" locale="sv_SE" charset="ISO-8859-1">
<message_catalog package_key="general-comments" locale="sv_SE" charset="ISO-8859-1">
<msg key="Actions">tgrder</msg>
<msg key="Add_a_comment_to">Lgg till en kommentar till</msg>
......
catalog/general-comments.zh_CN.utf-8.xml
View file @ 08369fbc
......@@ -2,77 +2,77 @@
<message_catalog package_key="general-comments" locale="zh_CN" charset="utf-8">
<msg key="Actions">操作</msg>
<msg key="Add_a_comment_to">添加评论</msg>
<msg key="Add_comment">添加评论</msg>
<msg key="Add_a_comment_to">添加批注</msg>
<msg key="Add_comment">添加批注</msg>
<msg key="Add_file_attachment">添加文件附件</msg>
<msg key="Add_url_comment">添加URL评论</msg>
<msg key="Add_url_comment">添加URL批注</msg>
<msg key="Administer">管理</msg>
<msg key="all">所有的</msg>
<msg key="all">全部</msg>
<msg key="approve">批准</msg>
<msg key="Approved">批准的</msg>
<msg key="approved">批准的</msg>
<msg key="Attach_a_web_link">添加一个Web链接</msg>
<msg key="Approved">已批准</msg>
<msg key="approved">已批准</msg>
<msg key="Attach_a_web_link">添加Web链接</msg>
<msg key="Attachments">附件</msg>
<msg key="Author">作者</msg>
<msg key="by">按</msg>
<msg key="bytes">字节</msg>
<msg key="Cancel">取消</msg>
<msg key="Comment">评论</msg>
<msg key="Comments">评论</msg>
<msg key="Comment">批注：</msg>
<msg key="Comments">批注</msg>
<msg key="Confirm">确认</msg>
<msg key="Confirm_comment">确认评论</msg>
<msg key="Confirm_comment_on">确认评论</msg>
<msg key="Confirm_comment">确认批注</msg>
<msg key="Confirm_comment_on">确认批注</msg>
<msg key="delete">删除</msg>
<msg key="Delete_a_comment">删除评论</msg>
<msg key="Delete_a_comment">删除批注</msg>
<msg key="Delete_attachment">删除附件</msg>
<msg key="details">详细信息</msg>
<msg key="edit">编辑</msg>
<msg key="Edit_comment">编辑评论</msg>
<msg key="Edit_comment_on">编辑评论</msg>
<msg key="Edit_file_attachment">编辑文件附件</msg>
<msg key="Edit_comment">编辑批注</msg>
<msg key="Edit_comment_on">编辑批注</msg>
<msg key="Edit_file_attachment">编辑附件</msg>
<msg key="Edit_url_attachment">编辑URL附件</msg>
<msg key="edit_your_comment">（编辑评论）</msg>
<msg key="edit_your_comment">（编辑批注）</msg>
<msg key="Filename">文件名：</msg>
<msg key="Full_Comments">所有评论</msg>
<msg key="Full_Comments">全部批注</msg>
<msg key="gc_is_not_mounted">没有安装gc</msg>
<msg key="General_Comments">一般评论</msg>
<msg key="Go_back_to_comment">后退到评论</msg>
<msg key="General_Comments">总批注</msg>
<msg key="Go_back_to_comment">后退到批注</msg>
<msg key="Has_live_version">有一个活动版本</msg>
<msg key="HTML">HTML</msg>
<msg key="ID">ID#</msg>
<msg key="if_general_comments_not_mounted">如果&lt;code&gt;general-comments&lt;/code&gt; 没有安装，调用 &lt;code&gt;general_comments_get_comments&lt;/code&gt;或&lt;code&gt;general_comments_create_link&lt;/code&gt;，将会发生一个错误，因为调用链接到一个与次安装相关的超链接&lt;code&gt;general-comments&lt;/code&gt; 。</msg>
<msg key="if_general_comments_not_mounted">如果&lt;code&gt;general-comments&lt;/code&gt; 没有安装，调用 &lt;code&gt;general_comments_get_comments&lt;/code&gt;或&lt;code&gt;general_comments_create_link&lt;/code&gt;，将会发生错误，因为调用链接与已安装情况有关&lt;code&gt;general-comments&lt;/code&gt; 。</msg>
<msg key="Image_attachment">图片附件</msg>
<msg key="Label">标签：</msg>
<msg key="last_24_hours">最近24小时</msg>
<msg key="Last_Modified">最后更改的</msg>
<msg key="Last_Modified">最后更改</msg>
<msg key="last_month">上月</msg>
<msg key="last_week">上周</msg>
<msg key="live">（活动的）</msg>
<msg key="lt_Add_a_file_attachment">为评论添加文件附件</msg>
<msg key="lt_Add_url_attachment_to">为评论添加URL附件</msg>
<msg key="lt_Add_a_file_attachment">为批注添加附件</msg>
<msg key="lt_Add_url_attachment_to">为批注添加URL</msg>
<msg key="lt_approve_this_revision">批准此版本</msg>
<msg key="lt_Attach_a_file_or_pict">添加文件或图片</msg>
<msg key="lt_Attaching_files_to_co">给评论添加文件附件的功能已关闭。</msg>
<msg key="lt_Attaching_links_to_co">给评论添加URL附件的功能已关闭。</msg>
<msg key="lt_Current_values_for_Ge">普通评论包的当前值</msg>
<msg key="lt_Do_you_really_wish_to">确实要删除下面的评论及附件吗？</msg>
<msg key="lt_Attaching_files_to_co">给批注添加附件的功能已关闭。</msg>
<msg key="lt_Attaching_links_to_co">给批注添加URL的功能已关闭。</msg>
<msg key="lt_Current_values_for_Ge">总批注当前值</msg>
<msg key="lt_Do_you_really_wish_to">确实要删除评论及附件吗？</msg>
<msg key="lt_Do_you_really_wish_to_1">确实要删除此附件吗？</msg>
<msg key="lt_Edit_file_attachment_">编辑评论的文件附件</msg>
<msg key="lt_Edit_url_attachment_o">编辑评论的URL附件</msg>
<msg key="lt_Edit_file_attachment_">编辑批注附件</msg>
<msg key="lt_Edit_url_attachment_o">编辑批注URL</msg>
<msg key="lt_Example_httpwwwarsdig">例如：http://www.arsdigita.com/</msg>
<msg key="lt_General_Comments_Admi">普通评论管理</msg>
<msg key="lt_Go_back_to_where_you_">后退到原来位置</msg>
<msg key="lt_has_chosen_to_limit_a">已选定限定附件</msg>
<msg key="lt_Here_is_how_your_comm">评论如何显示：</msg>
<msg key="lt_I_would_like_to_uploa">给评论上传文件或添加链接</msg>
<msg key="lt_No_comments_available">没有评论</msg>
<msg key="lt_General_Comments_Admi">总批注管理</msg>
<msg key="lt_Go_back_to_where_you_">后退</msg>
<msg key="lt_has_chosen_to_limit_a">已选择限定附件</msg>
<msg key="lt_Here_is_how_your_comm">如何显示批注：</msg>
<msg key="lt_I_would_like_to_uploa">给批注上传文件或添加链接</msg>
<msg key="lt_No_comments_available">没有批注</msg>
<msg key="lt_no_gc_package_instanc">没有gc包</msg>
<msg key="lt_Note_if_the_text_abov">注意：如果上述文本丢失了所有的段落间隔，可能是选择了普通文本格式而不是HTML格式。用浏览器的“返回”按钮返回。</msg>
<msg key="lt_Note_if_the_text_abov_1">注意：如果上述文本有一串可见的HTML标记，可能选择了HTML格式而不是普通文本格式。用浏览器的“返回”按钮返回。</msg>
<msg key="lt_Test_page_for_General">检验普通评论页</msg>
<msg key="lt_The_comment_id_does_n">此comment_id没有同一个有效评论关联。</msg>
<msg key="lt_This_revision_is_live">该修订处于活动状态。</msg>
<msg key="lt_This_revision_is_not_">该修订处于活动状态。</msg>
<msg key="lt_Test_page_for_General">测试总批注网页</msg>
<msg key="lt_The_comment_id_does_n">此comment_id没有同一个有效批注关联。</msg>
<msg key="lt_This_revision_is_live">该版本处于活动状态。</msg>
<msg key="lt_This_revision_is_not_">该版本处于活动状态。</msg>
<msg key="lt_Use_the_Browse_button">用“浏览……”按钮找到文件，然后单击“打开”。</msg>
<msg key="lt_Your_file_is_too_larg">文件太大。</msg>
<msg key="lt_Your_file_is_zero-len">文件长度为0。试图上传0字节文件、或不存在的文件、或文件传输过程中出错。</msg>
......@@ -84,18 +84,18 @@
<msg key="Plain_text">普通文本</msg>
<msg key="Proceed">继续</msg>
<msg key="reject">拒绝</msg>
<msg key="reject_this_revision">拒绝此修订</msg>
<msg key="Revisions">修订</msg>
<msg key="reject_this_revision">拒绝此版本</msg>
<msg key="Revisions">版本</msg>
<msg key="Status">状态</msg>
<msg key="test">检验</msg>
<msg key="test">测试</msg>
<msg key="Text_above_is">上述文本是</msg>
<msg key="The_publisher_of">发行人</msg>
<msg key="Title">标题：</msg>
<msg key="Title_1">标题</msg>
<msg key="unapproved">未批准的</msg>
<msg key="unapproved">未批准</msg>
<msg key="URL">URL：</msg>
<msg key="View_comment">查看评论</msg>
<msg key="View_comment_on">查看评论</msg>
<msg key="View_comment">查看批注</msg>
<msg key="View_comment_on">查看批注</msg>
<msg key="view_details">查看详细信息</msg>
<msg key="you">你</msg>
</message_catalog>
general-comments.info
View file @ 08369fbc
<?xml version="1.0"?>
<!-- Generated by the OpenACS Package Manager -->
<package key="general-comments" url="http://openacs.org/repository/apm/packages/general-comments" type="apm_application">
<license>GPL V2.0 or any later version</license>
<package key="general-comments" url="http://www.arsdgita.com/acs-repository/apm/packages/general-comments" type="apm_application">
<package-name>General Comments</package-name>
<pretty-plural>General Comments</pretty-plural>
<initial-install-p>f</initial-install-p>
<singleton-p>t</singleton-p>
<auto-mount>comments</auto-mount>
<version name="4.6.1" url="http://openacs.org/repository/download/apm/general-comments-4.6.1.apm">
<owner url="mailto:dhogaza@pacifier.com">Don Baccus</owner>
<version name="5.8.1" url="http://openacs.org/repository/download/apm/general-comments-5.8.1.apm">
<owner url="mailto:dave@thedesignexperience.org">Dave Bauer</owner>
<owner url="mailto:dhogaza@pacifier.com">Don Baccus</owner>
<summary>Service to provide comment entry and display on objects.</summary>
<release-date>2004-11-29</release-date>
<release-date>2013-09-08</release-date>
<vendor url="http://openacs.org">OpenACS</vendor>
<description format="text/html">General comments provides the widgets and UI to support commentability on any object. There is also an admin interface to edit/hide/delete comments.</description>
<license>GPL</license>
<maturity>2</maturity>
<provides url="general-comments" version="4.6.1"/>
<requires url="acs-content-repository" version="5.0.0b4"/>
<requires url="acs-kernel" version="5.0.0b4"/>
<requires url="acs-messaging" version="5.0.0b4"/>
<provides url="general-comments" version="5.8.1"/>
<requires url="acs-kernel" version="5.8.1"/>
<requires url="acs-content-repository" version="5.8.1"/>
<requires url="acs-messaging" version="5.8.1"/>
<callbacks>
</callbacks>
......
sql/oracle/general-comments-create.sql
View file @ 08369fbc
......@@ -34,27 +34,12 @@ comment on column general_comments.category is '
create index general_comments_object_id_idx on general_comments (object_id);
-- define and grant privileges
declare
registered_users acs_objects.object_id%TYPE;
default_context acs_objects.object_id%TYPE;
begin
-- retreive object ids for magic objects
registered_users := acs.magic_object_id('registered_users');
default_context := acs.magic_object_id('default_context');
-- create privileges
acs_privilege.create_privilege('general_comments_create');
-- associte privileges to global privileges
acs_privilege.add_child('create','general_comments_create');
-- allow registered users to create comments
acs_permission.grant_permission (
object_id => default_context,
grantee_id => registered_users,
privilege => 'general_comments_create'
);
acs_privilege.add_child('annotate', 'general_comments_create');
end;
/
......
sql/postgresql/general-comments-create.sql
View file @ 08369fbc
......@@ -34,33 +34,18 @@ comment on column general_comments.category is '
-- create an index on foreign key constraint
create index general_comments_object_id_idx on general_comments (object_id);
create function inline_0 ()
returns integer as '
CREATE OR REPLACE FUNCTION inline_0 () RETURNS integer AS $$
-- define and grant privileges
declare
registered_users acs_objects.object_id%TYPE;
default_context acs_objects.object_id%TYPE;
begin
-- retreive object ids for magic objects
registered_users := acs__magic_object_id(''registered_users'');
default_context := acs__magic_object_id(''default_context'');
BEGIN
-- create privileges
PERFORM acs_privilege__create_privilege(''general_comments_create'', null, null);
-- associte privileges to global privileges
PERFORM acs_privilege__add_child(''create'',''general_comments_create'');
-- allow registered users to create comments
PERFORM acs_permission__grant_permission (
default_context,
registered_users,
''general_comments_create''
);
PERFORM acs_privilege__create_privilege('general_comments_create', null, null);
PERFORM acs_privilege__add_child('annotate', 'general_comments_create');
return 0;
end;' language 'plpgsql';
END;
$$ LANGUAGE plpgsql;
select inline_0 ();
......@@ -70,27 +55,27 @@ drop function inline_0 ();
-- NOTE: this is only temporary until we figure out how
-- packages will register child types to an acs-message
create function inline_1 ()
returns integer as '
begin
CREATE OR REPLACE FUNCTION inline_1 () RETURNS integer AS $$
BEGIN
PERFORM content_type__register_child_type (
/* parent_type => */ ''acs_message_revision'',
/* child_type => */ ''content_revision'',
''generic'', 0, null
/* parent_type => */ 'acs_message_revision',
/* child_type => */ 'content_revision',
'generic', 0, null
);
PERFORM content_type__register_child_type (
/* parent_type => */ ''acs_message_revision'',
/* child_type => */ ''image'',
''generic'', 0, null
/* parent_type => */ 'acs_message_revision',
/* child_type => */ 'image',
'generic', 0, null
);
PERFORM content_type__register_child_type (
/* parent_type => */ ''acs_message_revision'',
/* child_type => */ ''content_extlink'',
''generic'', 0, null
/* parent_type => */ 'acs_message_revision',
/* child_type => */ 'content_extlink',
'generic', 0, null
);
return 0;
end;' language 'plpgsql';
END;
$$ LANGUAGE plpgsql;
select inline_1 ();
......
sql/postgresql/general-comments-drop.sql
View file @ 08369fbc
......@@ -22,11 +22,16 @@ where
-- /
-- remove all comments from the system
create function inline_0 ()
returns integer as '
declare
--
-- procedure inline_0/0
--
CREATE OR REPLACE FUNCTION inline_0(
) RETURNS integer AS $$
DECLARE
comment_rec RECORD;
begin
BEGIN
FOR comment_rec IN select comment_id from general_comments LOOP
......@@ -47,13 +52,11 @@ begin
END LOOP;
return 0;
end;' language 'plpgsql';
END;
$$ LANGUAGE plpgsql;
select inline_0 ();
drop function inline_0 ();
-- /
drop table general_comments;
tcl/general-comments-callback-procs.tcl 0 → 100644
View file @ 08369fbc
ad_library {
Callback Procs for general comments
}
namespace eval general_comments {}
ad_proc -public -callback general_comments::notify_objects {
{-object_id:required}
{-comment:required}
{-title:required}
{-object_type:required}
} {
This callback is being called once a comment has been added
@param object_id Object ID of the object to which the comment was added
@param title Title given with the comment
@param comment Comment that was provided. This is HTML.
@param object_type Object Type of the object id. This is useful to quickly say in the package implementations wether you want to deal with the comment or not.
} -
tcl/general-comments-procs-oracle.xql
View file @ 08369fbc
......@@ -11,8 +11,7 @@
r.mime_type,
o.creation_user,
acs_object.name(o.creation_user) as author,
to_char(o.creation_date, 'MM-DD-YYYY') as pretty_date,
to_char(o.creation_date, 'Month DD, YYYY HH12:MI PM') as pretty_date2
o.creation_date
$content_select
from general_comments g,
cr_revisions r,
......
tcl/general-comments-procs-postgresql.xql
View file @ 08369fbc
......@@ -11,8 +11,7 @@
r.mime_type,
o.creation_user,
acs_object__name(o.creation_user) as author,
to_char(o.creation_date, 'MM-DD-YYYY') as pretty_date,
to_char(o.creation_date, 'Month DD, YYYY HH12:MI PM') as pretty_date2
o.creation_date
$content_select
from general_comments g,
cr_revisions r,
......@@ -68,7 +67,7 @@
:comment_mime_type, -- 8 p_mime_type
NULL, -- 9 p_text
NULL, -- empty_blob(), -- 10 p_data
0, -- 11 p_parent_id
-4, -- 11 p_parent_id
:context_id, -- 12 p_context_id
:user_id, -- 13 p_creation_user
:creation_ip, -- 14 p_creation_ip
......
tcl/general-comments-procs.tcl
View file @ 08369fbc
This diff is collapsed.
www/admin/delete-2.tcl
View file @ 08369fbc
......@@ -10,7 +10,7 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:integer,notnull
comment_id:naturalnum,notnull
{ return_url {} }
}
......
www/admin/delete.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
#general-comments.lt_Do_you_really_wish_to#
<blockquote>
<b>@title@</b> (<a href="../view-comment?comment_id=@comment_id@">#general-comments.details#</a>)<br><br>
<if @mime_type@ eq text/plain>
<%= [util_convert_plaintext_to_html $content] %>
<%= [ad_text_to_html $content] %>
</if>
<else>
@content@
</else>
<br><br>-- <a href="/shared/community-member?user_id=@creation_user@">@author@</a>
(@pretty_date@)
</blockquote>
<center>
<table>
<tr>
<td>
<form action=delete-2 method=post>
<%= [export_form_vars comment_id return_url] %>
<input type=submit name=submit value="#general-comments.Proceed#">
<%= [export_vars -form {comment_id return_url}] %>
<input type="submit" name="submit" value="#general-comments.Proceed#">
</form>
</td>
<td>
<form action="@return_url@">
<input type=submit name=submit value="#general-comments.Cancel#">
<input type="submit" name="submit" value="#general-comments.Cancel#">
</form>
</td
</tr>
</table>
</center>
</form>
www/admin/delete.tcl
View file @ 08369fbc
......@@ -10,7 +10,7 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:integer,notnull
comment_id:naturalnum,notnull
{ return_url {}}
} -properties {
page_title:onevalue
......
www/admin/index-oracle.xql
View file @ 08369fbc
......@@ -21,7 +21,7 @@
r.revision_id = o.object_id and
r.revision_id = content_item.get_latest_revision(g.comment_id)
[ad_dimensional_sql $dimensional]
[ad_order_by_from_sort_spec $orderby $table_def]
[template::list::orderby_clause -orderby -name comments_list]
</querytext>
</fullquery>
......
www/admin/index-postgresql.xql
View file @ 08369fbc
......@@ -22,8 +22,7 @@
r.revision_id = o.object_id and
r.revision_id = i.latest_revision
[ad_dimensional_sql $dimensional]) as unordered
[ad_order_by_from_sort_spec $orderby $table_def]
[template::list::orderby_clause -orderby -name comments_list]
</querytext>
</fullquery>
......
www/admin/index.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
<p>
@dimensional_bar;noquote@
<p>
@comments_table;noquote@
<listtemplate name="comments_list"></listtemplate>
......
www/admin/index.tcl
View file @ 08369fbc
......@@ -7,8 +7,10 @@ ad_page_contract {
@author Pascal Scheffers (pascal@scheffers.net)
@creation-date 2000-10-12
@cvs-id $Id$
} {
{orderby {} }
} -query {
{orderby:optional}
{approval "any"}
{modified "any"}
} -properties {
page_title:onevalue
context:onevalue
......@@ -36,53 +38,54 @@ set dimensional [list \
]
set dimensional_bar [ad_dimensional $dimensional]
# ad_table definition
set table_def [list \
[list num "[_ general-comments.Num]" {} {<td>$Tcount</td>}] \
[list comment_id "[_ general-comments.ID]" {} \
{<td><a href="../view-comment?comment_id=$comment_id&return_url=admin/$return_url">$comment_id</a></td>}] \
[list title "[_ general-comments.Title_1]" {} {}] \
[list author "[_ general-comments.Author]" {upper(author) $order} \
{<td><a href="/shared/community-member?user_id=$creation_user">$author</a></td>}] \
[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]" {} \
{<td><a href="toggle-approval?comment_id=$comment_id&return_url=$return_url">
[if {$approved_p} {
subst {[_ general-comments.reject]}
} else {
subst {[_ general-comments.approve]}
}]</a> | <a href="delete?comment_id=$comment_id&return_url=$return_url">[_ general-comments.delete]</a></td>}]\
]
# sql to retrieve comments
set sql "
select g.comment_id,
r.title,
acs_object.name(o.creation_user) as author,
o.creation_user,
decode(i.live_revision,null,0,1) as live_version_p,
decode(i.live_revision,r.revision_id,1,0) as approved_p,
to_char(o.creation_date, 'MM-DD-YYYY HH12:MI:AM') as pretty_date
from general_comments g,
cr_items i,
cr_revisions r,
acs_objects o
where g.comment_id = i.item_id and
r.revision_id = o.object_id and
r.revision_id = content_item.get_latest_revision(g.comment_id)
[ad_dimensional_sql $dimensional]
[ad_order_by_from_sort_spec $orderby $table_def]
"
template::list::create -name comments_list \
-multirow comments \
-no_data "#general-comments.lt_No_comments_available#" \
-html {style "margin: 0 auto"} \
-elements {
counter {
label "#general-comments.Num#"
}
comment_id {
label "#general-comments.ID#"
display_template {<a href="view-comment?comment_id=@comments.comment_id@">@comments.comment_id@</a>}
orderby {comment_id}
}
title {
label "#general-comments.Title_1#"
orderby {title}
}
approved_p_pretty {
label "#general-comments.Approved#"
html {align center}
orderby {approved_p}
}
live_version_p {
label "#general-comments.Has_live_version#"
html {align center}
orderby {approved_p}
}
pretty_date {
label "#general-comments.Last_Modified#"
orderby {creation_date}
}
actions {
label "#general-comments.Actions#"
display_template {
<a href="toggle-approval?comment_id=@comments.comment_id@&return_url=@comments.return_url@">
<if @comments.approved_p@>#general-comments.reject#</if><else>#general-comments.approve#</else></a> |
<a href="delete?comment_id=@comments.comment_id@&return_url=@comments.return_url@">[_ general-comments.delete]</a>
}
}
} -filters {approval {} modified {}}
# create the table to display the comments
set extra_var_list [list return_url $return_url]
set comments_table [ad_table -Torderby $orderby \
-Tmissing_text "<i>[_ general-comments.lt_No_comments_available]</i>" \
-Textra_vars $extra_var_list \
comments_select $sql $table_def]
set count 0
db_multirow -extend {user_id return_url counter approved_p_pretty pretty_date} comments comments_select {} {
set counter [incr count]
set pretty_date [lc_time_fmt $creation_date "%x %X"]
set approved_p_pretty [util_PrettyTclBoolean $approved_p]
set live_version_p [util_PrettyTclBoolean $live_version_p]
}
set page_title "[_ general-comments.lt_General_Comments_Admi]"
set context {}
......
www/admin/toggle-approval.tcl
View file @ 08369fbc
......@@ -10,8 +10,8 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:integer,notnull
{revision_id {}}
comment_id:naturalnum,notnull
{revision_id:naturalnum {}}
{return_url {}}
}
......@@ -22,7 +22,7 @@ set live_revision [db_string get_live_revision \
# if the user did not pass in a revision_id, then
# assume that the user wishes to toggle the approval
# state of the latest revision
if { [empty_string_p $revision_id] } {
if { $revision_id eq "" } {
set revision_id [db_string get_latest_revision \
"select content_item.get_latest_revision(:comment_id) from dual"]
}
......
www/comment-add-2.tcl
View file @ 08369fbc
......@@ -8,12 +8,12 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
object_id:integer,notnull
object_id:naturalnum,notnull
{ object_name "[acs_object_name $object_id]" }
title:notnull
content:html,notnull
comment_mime_type:notnull
{ context_id "$object_id" }
{ context_id:naturalnum "$object_id" }
{ category {} }
{ return_url {} }
} -properties {
......@@ -30,12 +30,12 @@ ad_page_contract {
}
# check to see if the user can create comments on this object
ad_require_permission $object_id general_comments_create
permission::require_permission -object_id $object_id -privilege general_comments_create
# ad_page_contract does not set object_name to
# [acs_object_name $object_id] if object_name is passed
# in as an empty string.
if { [empty_string_p $object_name] } {
if { $object_name eq "" } {
set object_name [acs_object_name $object_id]
}
......
www/comment-add-3-postgresql.xql
View file @ 08369fbc
......@@ -16,7 +16,7 @@
:comment_mime_type, -- 8 p_mime_type
NULL, -- 9 p_text
NULL, -- empty_blob(), -- 10 p_data
0, -- 11 p_parent_id
-4, -- 11 p_parent_id
:context_id, -- 12 p_context_id
:user_id, -- 13 p_creation_user
:creation_ip, -- 14 p_creation_ip
......
www/comment-add-3.tcl
View file @ 08369fbc
......@@ -8,88 +8,47 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:integer,notnull
object_id:integer,notnull
comment_id:naturalnum,notnull
object_id:naturalnum,notnull
title:notnull
content:html,notnull
comment_mime_type
{ context_id "$object_id" }
{ context_id:naturalnum "$object_id" }
{ category "" }
{ return_url "" }
{ attach_p "f" }
{ attach_p:boolean "f" }
}
# This authentication actually is not necessary anymore due to the fact that we already check for the permission
# afterwards, so it should be enough to query the user_id from the connection to allow anonymous users who have
# create permissions to access the site.
# authenticate the user
set user_id [ad_maybe_redirect_for_registration]
# set user_id [auth::require_login]
set user_id [ad_conn user_id]
# check to see if the user can create comments on this object
ad_require_permission $object_id general_comments_create
permission::require_permission -object_id $object_id -privilege general_comments_create
# insert the comment into the database
set creation_ip [ad_conn peeraddr]
set is_live [ad_parameter AutoApproveCommentsP {general-comments} {t}]
db_transaction {
db_exec_plsql insert_comment {
begin
:1 := acs_message.new (
message_id => :comment_id,
title => :title,
mime_type => :comment_mime_type,
data => empty_blob(),
context_id => :context_id,
creation_user => :user_id,
creation_ip => :creation_ip,
is_live => :is_live
);
end;
}
db_dml add_entry {
insert into general_comments
(comment_id,
object_id,
category)
values
(:comment_id,
:object_id,
:category)
}
db_1row get_revision {
select content_item.get_latest_revision(:comment_id) as revision_id
from dual
}
db_dml set_content {
update cr_revisions
set content = empty_blob()
where revision_id = :revision_id
returning content into :1
} -blobs [list $content]
# Grant the user sufficient permissions to
# created comment. This is done here to ensure that
# a fail on permissions granting will not leave
# the comment with incorrect permissions.
db_exec_plsql grant_permission {
begin
acs_permission.grant_permission (
object_id => :comment_id,
grantee_id => :user_id,
privilege => 'read'
);
acs_permission.grant_permission (
object_id => :comment_id,
grantee_id => :user_id,
privilege => 'write'
);
end;
}
}
if { [string equal $attach_p "f"] && ![empty_string_p $return_url] } {
set is_live [parameter::get -parameter AutoApproveCommentsP -default {t}]
general_comment_new \
-object_id $object_id \
-comment_id $comment_id \
-title $title \
-comment_mime_type $comment_mime_type \
-context_id $context_id \
-user_id $user_id \
-creation_ip $creation_ip \
-is_live $is_live \
-category $category \
-content $content
if { $attach_p == "f" && $return_url ne "" } {
ad_returnredirect $return_url
} else {
ad_returnredirect "view-comment?[export_vars { comment_id return_url }]"
ad_returnredirect [export_vars -base view-comment { comment_id return_url }]
}
www/comment-add.tcl
View file @ 08369fbc
......@@ -8,9 +8,9 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
object_id:integer,notnull
object_id:naturalnum,notnull
{ object_name "[acs_object_name $object_id]" }
{ context_id "$object_id" }
{ context_id:naturalnum "$object_id" }
{ category "" }
{ return_url "" }
} -properties {
......@@ -28,12 +28,12 @@ ad_page_contract {
}
# check to see if the user can create comments on this object
ad_require_permission $object_id general_comments_create
permission::require_permission -object_id $object_id -privilege general_comments_create
# ad_page_contract does not set object_name to
# [acs_object_name $object_id] if object_name is passed
# in as an empty string.
if { [empty_string_p $object_name] } {
if { $object_name eq "" } {
set object_name [acs_object_name $object_id]
}
......
www/comment-ae-2.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
#general-comments.lt_Here_is_how_your_comm#
<blockquote>
<h4>@title@</h4>
@html_content;noquote@
</blockquote>
<if @mime_type@ eq text/html>
#general-comments.lt_Note_if_the_text_abov#
......@@ -16,13 +14,11 @@
#general-comments.lt_Note_if_the_text_abov_1#
</else>
<center>
<form action="@target@" method=post>
<%= [export_form_vars comment_id object_id object_name context_id title content comment_mime_type category return_url] %>
<input type=submit name=submit value="#general-comments.Confirm#">
<%= [export_vars -form {comment_id object_id object_name context_id title content comment_mime_type category return_url}] %>
<input type="submit" name="submit" value="#general-comments.Confirm#">
<p>
<input type="checkbox" name="attach_p" id="attach_ck"><label for="attach_ck">#general-comments.lt_I_would_like_to_uploa#</label>
</form>
</center>
www/comment-ae.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
<property name="focus">comment.title</property>
<blockquote>
<form action="@target@" method="post" name="comment">
<%= [export_form_vars comment_id object_id object_name context_id return_url] %>
#general-comments.Title#<br>
<input type=text name=title maxlength=200 size=50 value="@title@">
<p>
#general-comments.Comment#<br>
<textarea name=content cols=80 rows=20 wrap=soft>@content@</textarea><br>
#general-comments.Text_above_is#
<select name=comment_mime_type>
<if @comment_mime_type@ eq text/html >
<option value="text/plain">#general-comments.Plain_text#</option>
<option selected value="text/html">#general-comments.HTML#</option>
</if>
<else>
<option selected value="text/plain">#general-comments.Plain_text#</option>
<option value="text/html">#general-comments.HTML#</option>
</else>
<form action="@target@" method="post" name="comment" class="margin-form">
<div>
<%= [export_vars -form {comment_id object_id object_name context_id return_url}] %>
</div>
<div class="form-item-wrapper">
<label for="title" class="form-label">
#general-comments.Title#
</label>
<div class="form-widget">
<input id=title type=text name="title" maxlength=200 size="50" value="@title@">
</div>
</div>
<div class="form-item-wrapper">
<label for="content" class="form-label">
#general-comments.Comment#
</label>
<div class="form-widget">
<textarea id=content name=content cols=80 rows=20>@content@</textarea>
</div>
</div>
<div class="form-item-wrapper">
<label for="comment_mime_type" class="form-label">
#general-comments.Text_above_is#
</label>
<div class="form-widget">
<select id="comment_mime_type" name=comment_mime_type>
<if @comment_mime_type@ eq text/html >
<option value="text/plain">#general-comments.Plain_text#</option>
<option selected value="text/html">#general-comments.HTML#</option>
</if>
<else>
<option selected value="text/plain">#general-comments.Plain_text#</option>
<option value="text/html">#general-comments.HTML#</option>
</else>
</select>
</div>
</div>
</select>
</blockquote>
<br>
<center>
<input type=submit name=submit value="#general-comments.Proceed#">
</center>
<div class="form-button">
<input type="submit" name="submit" value="#general-comments.Proceed#">
</div>
</form>
......
www/comment-edit-2.tcl
View file @ 08369fbc
......@@ -14,8 +14,8 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:integer,notnull
object_id:integer,notnull
comment_id:naturalnum,notnull
object_id:naturalnum,notnull
title:notnull
content:notnull,html
comment_mime_type
......@@ -30,7 +30,7 @@ ad_page_contract {
}
# check to see if the user can edit this comment
ad_require_permission $comment_id write
permission::require_permission -object_id $comment_id -privilege write
set page_title "[_ general-comments.Confirm_comment_on]: [acs_object_name $object_id]"
set context "\"[_ general-comments.Confirm_comment]\""
......
www/comment-edit-3.tcl
View file @ 08369fbc
......@@ -8,7 +8,7 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:integer,notnull
comment_id:naturalnum,notnull
title
content:html
comment_mime_type
......@@ -16,13 +16,13 @@ ad_page_contract {
}
# check to see if the user can edit this comment
ad_require_permission $comment_id write
permission::require_permission -object_id $comment_id -privilege write
# authenticate the user
set user_id [ad_verify_and_get_user_id]
set user_id [ad_conn user_id]
# insert the revision into the database
set is_live [ad_parameter AutoApproveCommentsP {general-comments} {t}]
set is_live [parameter::get -parameter AutoApproveCommentsP -default {t}]
set creation_ip [ad_conn peeraddr]
db_transaction {
db_exec_plsql insert_comment {
......@@ -53,5 +53,5 @@ db_transaction {
}
ad_returnredirect "view-comment?[export_vars -url {comment_id return_url}]"
ad_returnredirect [export_vars -base view-comment {comment_id return_url}]
www/comment-edit.tcl
View file @ 08369fbc
......@@ -10,8 +10,8 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:integer,notnull
{ revision_id {} }
comment_id:naturalnum,notnull
{ revision_id:naturalnum {} }
{ return_url {} }
} -properties {
page_title:onevalue
......@@ -26,11 +26,11 @@ ad_page_contract {
}
# check to see if the user can edit this comment
ad_require_permission $comment_id write
permission::require_permission -object_id $comment_id -privilege write
# if revision_id is not passed in, assume that the user
# wishes to edit the latest revision
if { [empty_string_p $revision_id] } {
if { $revision_id eq "" } {
set revision_id [db_string get_latest_revision \
"select content_item.get_latest_revision(:comment_id) from dual"]
}
......
www/delete-2-oracle.xql 0 → 100644
View file @ 08369fbc
<?xml version="1.0"?>
<queryset>
<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
<fullquery name="delete_comment">
<querytext>
begin
acs_message.del(:comment_id);
end;
</querytext>
</fullquery>
</queryset>
www/delete-2-postgresql.xql 0 → 100644
View file @ 08369fbc
<?xml version="1.0"?>
<queryset>
<rdbms><type>postgresql</type><version>7.1</version></rdbms>
<fullquery name="delete_comment">
<querytext>
begin
PERFORM acs_message__delete(:comment_id);
return 1;
end;
</querytext>
</fullquery>
</queryset>
www/delete-2.tcl 0 → 100644
View file @ 08369fbc
# /packages/general-comments/www/admin/delete-2.tcl
ad_page_contract {
Deletes a comment and its attachments
@param comment_id The id of the comment to delete
@author Phong Nguyen (phong@arsdigita.com)
@author Pascal Scheffers (pascal@scheffers.net)
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:naturalnum,notnull
{ return_url {} }
}
# There is a bug in content_item.delete that results in
# referential integrity violations when deleting a content
# item that has an image attachment. This is a temporary fix
# until ACS 4.1 is released.
db_dml delete_image_attachments {
delete from images
where image_id in (select latest_revision
from cr_items
where parent_id = :comment_id)
}
# Only need to call on acs_message.delete since
# deletion of row from general_comments table
# relies on "on delete cascade"
db_exec_plsql delete_comment {}
ad_returnredirect $return_url
www/delete-2.xql 0 → 100644
View file @ 08369fbc
<?xml version="1.0"?>
<queryset>
<fullquery name="delete_image_attachments">
<querytext>
delete from images
where image_id in (select latest_revision
from cr_items
where parent_id = :comment_id)
</querytext>
</fullquery>
</queryset>
www/delete-attachment-2.tcl
View file @ 08369fbc
......@@ -12,21 +12,21 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
attach_id:integer,notnull
parent_id:integer,notnull
attach_id:naturalnum,notnull
parent_id:naturalnum,notnull
submit:notnull
{ return_url {} }
}
# check for permissions
ad_require_permission $attach_id delete
permission::require_permission -object_id $attach_id -privilege delete
# all of this messy code will be replaced by
# a single content_item.delete after the bug fix
# is released
#Commented out during i18n convertion, Steffen
#if { $submit == "Proceed" } {
#if { $submit eq "Proceed" } {
# get the type of the attachment
......@@ -35,7 +35,7 @@ ad_require_permission $attach_id delete
from cr_items
where item_id = :attach_id
}
if { $content_type == "content_revision" } {
if { $content_type eq "content_revision" } {
# get the mime_type
db_1row get_mime_type {
select mime_type
......@@ -43,7 +43,7 @@ ad_require_permission $attach_id delete
where item_id = :attach_id
and revision_id = content_item.get_latest_revision (:attach_id)
}
if { $mime_type == "image/jpeg" || $mime_type == "image/gif" } {
if { $mime_type eq "image/jpeg" || $mime_type eq "image/gif" } {
# delete row from images table, we should only have one row
# this is only temporary until CR provides a delete image function
db_dml delete_image_row {
......@@ -62,7 +62,7 @@ ad_require_permission $attach_id delete
end;
}
}
} elseif { $content_type == "content_extlink" } {
} elseif { $content_type eq "content_extlink" } {
db_exec_plsql delete_extlink {
begin
content_extlink.del(:attach_id);
......@@ -73,7 +73,7 @@ ad_require_permission $attach_id delete
#/ i18n
#}
ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
ad_returnredirect [export_vars -base view-comment {{comment_id $parent_id} return_url}]
......
www/delete-attachment.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
#general-comments.lt_Do_you_really_wish_to_1#
<p>
......@@ -9,16 +9,16 @@
<tr>
<td>
<form action=delete-attachment-2 method=post>
<%= [export_form_vars attach_id parent_id return_url] %>
<input type=submit name=submit value="#general-comments.Proceed#">
<%= [export_vars -form {attach_id parent_id return_url}] %>
<input type="submit" name="submit" value="#general-comments.Proceed#">
</form>
</td>
<td>
<form action="view-comment" method="get">
<input type=hidden name="comment_id" value="@parent_id@">
<%= [export_form_vars return_url] %>
<input type=submit name=submit value="#general-comments.Cancel#">
<input type="hidden" name="comment_id" value="@parent_id@">
<%= [export_vars -form {return_url}] %>
<input type="submit" name="submit" value="#general-comments.Cancel#">
</form>
</td
</tr>
......
www/delete-attachment.tcl
View file @ 08369fbc
......@@ -11,8 +11,8 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
attach_id:integer,notnull
parent_id:integer,notnull
attach_id:naturalnum,notnull
parent_id:naturalnum,notnull
{ return_url {} }
} -properties {
page_title:onevalue
......@@ -23,7 +23,7 @@ ad_page_contract {
}
# check for permissions
ad_require_permission $attach_id delete
permission::require_permission -object_id $attach_id -privilege delete
# set template variables
set page_title "[_ general-comments.Delete_attachment]"
......
www/delete-oracle.xql 0 → 100644
View file @ 08369fbc
<?xml version="1.0"?>
<queryset>
<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
<fullquery name="get_comment">
<querytext>
select r.title,
r.content,
r.mime_type,
o.creation_user,
to_char(o.creation_date, 'MM-DD-YYYY') as pretty_date,
acs_object.name(o.creation_user) as author
from acs_objects o,
cr_revisions r,
general_comments g
where g.comment_id = :comment_id and
g.comment_id = o.object_id and
r.revision_id = content_item.get_latest_revision(g.comment_id)
</querytext>
</fullquery>
</queryset>
www/delete-postgresql.xql 0 → 100644
View file @ 08369fbc
<?xml version="1.0"?>
<queryset>
<rdbms><type>postgresql</type><version>7.1</version></rdbms>
<fullquery name="get_comment">
<querytext>
select r.title,
r.content,
r.mime_type,
o.creation_user,
to_char(o.creation_date, 'MM-DD-YYYY') as pretty_date,
acs_object__name(o.creation_user) as author
from acs_objects o,
cr_revisions r,
general_comments g
where g.comment_id = :comment_id and
g.comment_id = o.object_id and
r.revision_id = content_item__get_latest_revision(g.comment_id)
</querytext>
</fullquery>
</queryset>
www/delete.adp 0 → 100644
View file @ 08369fbc
<master>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
#general-comments.lt_Do_you_really_wish_to#
<b>@title@</b> (<a href="../view-comment?comment_id=@comment_id@">#general-comments.details#</a>)<br><br>
<if @mime_type@ eq text/plain>
<%= [ad_text_to_html $content] %>
</if>
<else>
@content@
</else>
<br><br>-- <a href="/shared/community-member?user_id=@creation_user@">@author@</a>
(@pretty_date@)
<table>
<tr>
<td>
<form action=delete-2 method=post>
<%= [export_vars -form {comment_id return_url}] %>
<input type="submit" name="submit" value="#general-comments.Proceed#">
</form>
</td>
<td>
<form action="@return_url@">
<input type="submit" name="submit" value="#general-comments.Cancel#">
</form>
</td
</tr>
</table>
</form>
www/delete.tcl 0 → 100644
View file @ 08369fbc
# /packages/general-comments/www/admin/delete.tcl
ad_page_contract {
Delete a comment
@param comment_id The id of the comment to delete
@author Phong Nguyen (phong@arsdigita.com)
@author Pascal Scheffers (pascal@scheffers.net)
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:naturalnum,notnull
{ return_url {}}
} -properties {
page_title:onevalue
context:onevalue
title:onevalue
comment_id:onevalue
mime_type:onevalue
content:onevalue
creation_user:onevalue
author:onevalue
pretty_date:onevalue
return_url:onevalue
}
permission::require_permission -party_id [ad_conn user_id] -object_id $comment_id -privilege "write"
set revision_id [content::item::get_best_revision -item_id $comment_id]
# get data from database
set sql "
select r.title,
r.content,
r.mime_type,
o.creation_user,
to_char(o.creation_date, 'MM-DD-YYYY') as pretty_date
from acs_objects o,
cr_revisions r,
general_comments g
where g.comment_id = :comment_id and
g.comment_id = o.object_id and
r.revision_id = $revision_id"
if { ![db_0or1row get_comment $sql] } {
ad_return_complaint 1 "[_ general-comments.lt_The_comment_id_does_n]"
}
set author [person::name -person_id $creation_user]
set page_title "[_ general-comments.Delete_a_comment]"
set context [list "[_ general-comments.Delete_a_comment]"]
ad_return_template
www/doc/design.html
View file @ 08369fbc
......@@ -94,7 +94,7 @@ NAME="design-essentials"
></LI
><LI
><P
>TCL API:
>Tcl API:
<P
></P
......@@ -273,7 +273,7 @@ NAME="design-api"
><P
><SPAN
CLASS="phrase"
>TCL API</SPAN
>Tcl API</SPAN
></P
><P
>There is one core procedure,
......
www/doc/design.xml
View file @ 08369fbc
......@@ -9,7 +9,7 @@
<listitem><para>ACS administrator directory: /general-comments/admin/</para></listitem>
<listitem><para>TCL API:
<listitem><para>Tcl API:
<itemizedlist>
<listitem><para><ulink url="/api-doc/procs-file-view?path=packages/general-comments/tcl/general-comments-procs.tcl">
......@@ -108,7 +108,7 @@
<sect2 id="design-api" xreflabel="API">
<title>API</title>
<para><phrase>TCL API</phrase></para>
<para><phrase>Tcl API</phrase></para>
<para>There is one core procedure,
<ulink url="/api-doc/proc-view?proc=general_comments_get_comments">general_comments_get_comments</ulink>,
......
www/file-add-2.tcl
View file @ 08369fbc
......@@ -13,22 +13,22 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
attach_id:integer,notnull
parent_id:integer,notnull
attach_id:naturalnum,notnull
parent_id:naturalnum,notnull
title:notnull
upload_file:notnull
upload_file.tmpfile:tmpfile
{ return_url {} }
} -validate {
allow_file_attachments {
set allow_files_p [ad_parameter AllowFileAttachmentsP {general-comments} {t}]
set allow_files_p [parameter::get -parameter AllowFileAttachmentsP -default {t}]
if { $allow_files_p != "t" } {
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}]
set max_file_size [parameter::get -parameter MaxFileSize -default {0}]
if { $tmp_size > $max_file_size && $max_file_size > 0 } {
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"
}
......@@ -40,10 +40,10 @@ ad_page_contract {
# authenticate the user
set user_id [ad_verify_and_get_user_id]
set user_id [ad_conn user_id]
# check to see if the user can create comments
ad_require_permission $parent_id write
permission::require_permission -object_id $parent_id -privilege write
# get the file extension
set tmp_filename ${upload_file.tmpfile}
......@@ -54,21 +54,21 @@ regsub {\.} $file_extension "" file_extension
set guessed_file_type [cr_filename_to_mime_type -create $upload_file]
# strip off the C:\directories... crud and just get the file name
if ![regexp {([^/\\]+)$} $upload_file match client_filename] {
if {![regexp {([^/\\]+)$} $upload_file match client_filename]} {
# couldn't find a match
set client_filename $upload_file
}
set what_aolserver_told_us ""
if { $file_extension == "jpeg" || $file_extension == "jpg" } {
if { $file_extension eq "jpeg" || $file_extension eq "jpg" } {
catch { set what_aolserver_told_us [ns_jpegsize $tmp_filename] }
} elseif { $file_extension == "gif" } {
} elseif { $file_extension eq "gif" } {
catch { set what_aolserver_told_us [ns_gifsize $tmp_filename] }
}
# the AOLserver jpegsize command has some bugs where the height comes
# through as 1 or 2
if { ![empty_string_p $what_aolserver_told_us] && [lindex $what_aolserver_told_us 0] > 10 && [lindex $what_aolserver_told_us 1] > 10 } {
if { $what_aolserver_told_us ne "" && [lindex $what_aolserver_told_us 0] > 10 && [lindex $what_aolserver_told_us 1] > 10 } {
set original_width [lindex $what_aolserver_told_us 0]
set original_height [lindex $what_aolserver_told_us 1]
} else {
......@@ -81,7 +81,7 @@ if { ![empty_string_p $what_aolserver_told_us] && [lindex $what_aolserver_told_u
set creation_ip [ad_conn peeraddr]
set is_live "t"
db_transaction {
if { $file_extension == "jpeg" || $file_extension == "jpg" || $file_extension == "gif" } {
if { $file_extension eq "jpeg" || $file_extension eq "jpg" || $file_extension eq "gif" } {
db_exec_plsql insert_image {
begin
:1 := acs_message.new_image (
......@@ -140,5 +140,5 @@ db_transaction {
}
ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
ad_returnredirect [export_vars -base view-comment {{comment_id $parent_id} return_url}]
www/file-add.tcl
View file @ 08369fbc
......@@ -10,7 +10,7 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
parent_id:notnull,integer
parent_id:notnull,naturalnum
{return_url {} }
} -properties {
page_title:onevalue
......@@ -21,7 +21,7 @@ ad_page_contract {
file_name:onevalue
} -validate {
allow_file_attachments {
set allow_files_p [ad_parameter AllowFileAttachmentsP {general-comments} {t}]
set allow_files_p [parameter::get -parameter AllowFileAttachmentsP -default {t}]
if { $allow_files_p != "t" } {
ad_complain "Attaching files to comments has been disabled."
}
......@@ -29,7 +29,7 @@ ad_page_contract {
}
# check to see if the user can add an attachment
ad_require_permission $parent_id write
permission::require_permission -object_id $parent_id -privilege write
# set variables for template
set attach_id [db_nextval acs_object_id_seq]
......
www/file-ae.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="parent_id">@parent_id;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
<property name="parent_id">@parent_id;literal@</property>
<form enctype="multipart/form-data" method=POST action="@target@">
<div><%= [export_vars -form {attach_id parent_id return_url}] %></div>
<form enctype=multipart/form-data method=POST action="@target@">
<%= [export_form_vars attach_id parent_id return_url] %>
<blockquote>
<table>
<tr>
<td valign=top align=right>#general-comments.Title#</td>
<td><input size=40 name=title value="@title@"></td>
<td valign="top" align="right">#general-comments.Title#</td>
<td><input size="40" name="title" value="@title@"></td>
</tr>
<tr>
<td valign=top align=right>#general-comments.Filename# </td>
<td valign="top" align="right">#general-comments.Filename# </td>
<td>
<if @target@ eq file-add-2>
<input type=file name=upload_file size=40><br>
<font size=-1>#general-comments.lt_Use_the_Browse_button#</font>
<input type="file" name="upload_file" size="40"><br>
#general-comments.lt_Use_the_Browse_button#
</if>
<else>
<b><code>@file_name@</code></b>
......@@ -24,11 +24,9 @@
</td>
</tr>
</table>
</blockquote>
<p>
<center>
<input type=submit value="#general-comments.Proceed#">
</center>
<p style="text-align:center">
<input type="submit" value="#general-comments.Proceed#">
</p>
</form>
www/file-download.tcl
View file @ 08369fbc
......@@ -10,10 +10,10 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
item_id:notnull
item_id:naturalnum,notnull
}
# check for permissions
ad_require_permission $item_id read
permission::require_permission -object_id $item_id -privilege read
cr_write_content -item_id $item_id
www/file-edit-2.tcl
View file @ 08369fbc
......@@ -12,14 +12,14 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
attach_id:integer,notnull
parent_id:integer,notnull
attach_id:naturalnum,notnull
parent_id:naturalnum,notnull
title:notnull
{ return_url {} }
}
# check to see if the user can edit this comment
ad_require_permission $attach_id write
permission::require_permission -object_id $attach_id -privilege write
db_1row get_revision_id {
select content_item.get_latest_revision(:attach_id) as revision_id from dual
......@@ -30,7 +30,7 @@ db_dml edit_title {
where revision_id = :revision_id
}
ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
ad_returnredirect [export_vars -base view-comment {{comment_id $parent_id} return_url}]
www/file-edit.tcl
View file @ 08369fbc
......@@ -11,8 +11,8 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
attach_id:integer,notnull
parent_id:integer,notnull
attach_id:naturalnum,notnull
parent_id:naturalnum,notnull
{ return_url {} }
} -properties {
page_title:onevalue
......@@ -24,7 +24,7 @@ ad_page_contract {
}
# check to see if the user can edit this comment
ad_require_permission $attach_id write
permission::require_permission -object_id $attach_id -privilege write
# get the values from the database
db_1row get_comment {
......
www/index-oracle.xql
View file @ 08369fbc
......@@ -12,7 +12,7 @@
o.creation_user,
decode(i.live_revision,null,0,1) as live_version_p,
decode(i.live_revision,r.revision_id,1,0) as approved_p,
to_char(o.creation_date, 'MM-DD-YYYY HH12:MI:AM') as pretty_date
o.creation_date
from general_comments g,
cr_items i,
cr_revisions r,
......@@ -22,7 +22,7 @@
r.revision_id = content_item.get_latest_revision(g.comment_id) and
o.creation_user = :user_id
[ad_dimensional_sql $dimensional]
[ad_order_by_from_sort_spec $orderby $table_def]
[template::list::orderby_clause -orderby -name comments_list]
</querytext>
</fullquery>
......
www/index-postgresql.xql
View file @ 08369fbc
......@@ -12,7 +12,6 @@
o.creation_user,
case when i.live_revision=null then 0 else 1 end as live_version_p,
case when i.live_revision=r.revision_id then 0 else 1 end as approved_p,
to_char(o.creation_date, 'MM-DD-YYYY HH12:MI:AM') as pretty_date,
o.creation_date
from general_comments g,
cr_items i,
......@@ -23,8 +22,7 @@
r.revision_id = i.latest_revision and
o.creation_user = :user_id
[ad_dimensional_sql $dimensional]) as unordered
[ad_order_by_from_sort_spec $orderby $table_def]
[template::list::orderby_clause -orderby -name comments_list]
</querytext>
</fullquery>
......
www/index.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
<if @admin_p@ eq 1>
[ <a href="admin/">#general-comments.Administer#</a> ]
......@@ -8,9 +8,5 @@
<p>
@dimensional_bar;noquote@
<p>
@comments_table;noquote@
<listtemplate name="comments_list"></listtemplate>
www/index.tcl
View file @ 08369fbc
......@@ -7,8 +7,10 @@ ad_page_contract {
@author Pascal Scheffers (pascal@scheffers.net)
@creation-date 2000-10-12
@cvs-id $Id$
} {
{orderby {pretty_date*} }
} -query {
{orderby:optional}
{approval "any"}
{modified "any"}
} -properties {
page_title:onevalue
context:onevalue
......@@ -17,11 +19,11 @@ ad_page_contract {
}
# authenticate the user
set user_id [ad_maybe_redirect_for_registration]
set user_id [auth::require_login]
# check for admin privileges
set package_id [ad_conn package_id]
set admin_p [ad_permission_p $package_id admin]
set admin_p [permission::permission_p -object_id $package_id -privilege admin]
# return_url to be passed to various helper pages so that we return to
# this page with the proper parameters
......@@ -43,46 +45,46 @@ set dimensional [list \
]
set dimensional_bar [ad_dimensional $dimensional]
# ad_table definition
set table_def [list \
[list num "[_ general-comments.Num]" {} {<td>$Tcount</td>}] \
[list comment_id "[_ general-comments.ID]" {} \
{<td><a href="view-comment?comment_id=$comment_id">$comment_id</a></td>}] \
[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 "
select g.comment_id,
r.title,
acs_object.name(o.creation_user) as author,
o.creation_user,
decode(i.live_revision,null,0,1) as live_version_p,
decode(i.live_revision,r.revision_id,1,0) as approved_p,
to_char(o.creation_date, 'MM-DD-YYYY HH12:MI:AM') as pretty_date
from general_comments g,
cr_items i,
cr_revisions r,
acs_objects o
where g.comment_id = i.item_id and
r.revision_id = o.object_id and
r.revision_id = content_item.get_latest_revision(g.comment_id) and
o.creation_user = :user_id
[ad_dimensional_sql $dimensional]
[ad_order_by_from_sort_spec $orderby $table_def]
"
template::list::create -name comments_list \
-multirow comments \
-no_data "#general-comments.lt_No_comments_available#" \
-html {style "margin: 0 auto"} \
-elements {
counter {
label "#general-comments.Num#"
}
comment_id {
label "#general-comments.ID#"
display_template {<a href="view-comment?comment_id=@comments.comment_id@">@comments.comment_id@</a>}
orderby {comment_id}
}
title {
label "#general-comments.Title_1#"
orderby {title}
}
approved_p {
label "#general-comments.Approved#"
html {align center}
orderby {approved_p}
}
live_version_p {
label "#general-comments.Has_live_version#"
html {align center}
orderby {approved_p}
}
pretty_date {
label "#general-comments.Last_Modified#"
orderby {creation_date}
}
} -filters {approval {} modified {}}
# create the table to display the comments
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 "<i>[_ general-comments.lt_No_comments_available]</i>" \
-Textra_vars $extra_var_list \
-bind $bind_ns_set \
comments_select $sql $table_def]
set count 0
db_multirow -extend {user_id return_url counter pretty_date} comments comments_select {} {
set counter [incr count]
set pretty_date [lc_time_fmt $creation_date "%x %X"]
set approved_p [util_PrettyTclBoolean $approved_p]
set live_version_p [util_PrettyTclBoolean $live_version_p]
}
set page_title "[_ general-comments.General_Comments]"
set context {}
......
www/test.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
<p>
<table border=1 cellspacing=0 cellpadding=5>
<table border="1" cellspacing="0" cellpadding="5">
<tr>
<td colspan=2 align=center>#general-comments.lt_Current_values_for_Ge#</td></tr>
<td colspan="2" align="center">#general-comments.lt_Current_values_for_Ge#</td></tr>
<tr>
<td>package_id</td>
<td>
......@@ -32,7 +32,7 @@
<i>#general-comments.not_set#</i>
</if>
<else>
<a href="/admin/site-map/parameter-set?package_id=@package_id@">
<a href="@params_url@">
@auto_approve_comments_p@</a>
</else></td></tr>
<tr>
......@@ -42,7 +42,7 @@
<i>#general-comments.not_set#</i>
</if>
<else>
<a href="/admin/site-map/parameter-set?package_id=@package_id@">
<a href="@params_url@">
@allow_file_attachments_p@</a>
</else></td></tr>
<tr>
......@@ -52,7 +52,7 @@
<i>#general-comments.not_set#</i>
</if>
<else>
<a href="/admin/site-map/parameter-set?package_id=@package_id@">
<a href="@params_url@">
@allow_link_attachments_p@</a>
</else></td></tr>
<tr>
......@@ -62,7 +62,7 @@
<i>#general-comments.not_set#</i>
</if>
<else>
<a href="/admin/site-map/parameter-set?package_id=@package_id@">
<a href="@params_url@">
@max_file_size@</a>
</else></td></tr>
</table>
......@@ -80,14 +80,14 @@
</ul>
<p>
<h3>#general-comments.Full_Comments#</h3>
<blockquote>
<if @full_comments@ eq "">
<li>#general-comments.none#
</if>
<else>
@full_comments@
</else>
</blockquote>
<p>
@link@
</if>
......
www/test.tcl
View file @ 08369fbc
......@@ -36,17 +36,16 @@ if { ![db_0or1row get_gc_package_id {
}
set package_url [general_comments_package_url]
set auto_approve_comments_p [ad_parameter -package_id $package_id \
AutoApproveCommentsP {general-comments} {}]
set allow_file_attachments_p [ad_parameter -package_id $package_id \
AllowFileAttachmentsP {general-comments} {}]
set allow_link_attachments_p [ad_parameter -package_id $package_id \
AllowLinkAttachmentsP {general-comments} {}]
set max_file_size [ad_parameter -package_id $package_id \
MaxFileSize {general-comments} {}]
set auto_approve_comments_p [parameter::get -package_id $package_id -parameter AutoApproveCommentsP -default ""]
set allow_file_attachments_p [parameter::get -package_id $package_id -parameter AllowFileAttachmentsP -default ""]
set allow_link_attachments_p [parameter::get -package_id $package_id -parameter AllowLinkAttachmentsP -default ""]
set max_file_size [parameter::get -package_id $package_id -parameter MaxFileSize -default ""]
set comments [general_comments_get_comments $package_id "${package_url}test"]
set full_comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 $package_id "${package_url}test"]
set link [general_comments_create_link $package_id "${package_url}test" ]
set return_url [ad_conn url]
set params_url [export_vars -base /shared/parameters {package_id return_url}]
ad_return_template
www/url-add-2.tcl
View file @ 08369fbc
......@@ -8,14 +8,14 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
attach_id:integer,notnull
parent_id:integer,notnull
attach_id:naturalnum,notnull
parent_id:naturalnum,notnull
label:notnull
url:notnull
{ return_url {} }
} -validate {
allow_link_attachments {
set allow_links_p [ad_parameter AllowLinkAttachmentsP {general-comments} {t}]
set allow_links_p [parameter::get -parameter AllowLinkAttachmentsP -default {t}]
if { $allow_links_p != "t" } {
ad_complain "[_ general-comments.lt_Attaching_links_to_co]"
}
......@@ -23,10 +23,10 @@ ad_page_contract {
}
# authenticate the user
set user_id [ad_verify_and_get_user_id]
set user_id [ad_conn user_id]
# check to see if the user can add an attachment
ad_require_permission $parent_id write
permission::require_permission -object_id $parent_id -privilege write
# insert the url into database
set creation_ip [ad_conn peeraddr]
......@@ -45,7 +45,7 @@ db_exec_plsql insert_comment {
end;
}
ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
ad_returnredirect [export_vars -base view-comment {{comment_id $parent_id} return_url}]
......
www/url-add.tcl
View file @ 08369fbc
......@@ -10,7 +10,7 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
parent_id:notnull,integer
parent_id:notnull,naturalnum
{ return_url {} }
} -properties {
page_title:onevalue
......@@ -23,7 +23,7 @@ ad_page_contract {
return_url:onevalue
} -validate {
allow_link_attachments {
set allow_links_p [ad_parameter AllowLinkAttachmentsP {general-comments} {t}]
set allow_links_p [parameter::get -parameter AllowLinkAttachmentsP -default {t}]
if { $allow_links_p != "t" } {
ad_complain "[_ general-comments.lt_Attaching_links_to_co]"
}
......@@ -31,7 +31,7 @@ ad_page_contract {
}
# check to see if the user can add an attachment
ad_require_permission $parent_id write
permission::require_permission -object_id $parent_id -privilege write
# set variables for template
set attach_id [db_nextval acs_object_id_seq]
......
www/url-ae.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="parent_id">@parent_id;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
<property name="parent_id">@parent_id;literal@</property>
<form method=POST action= "@target@">
<%= [export_form_vars attach_id parent_id return_url] %>
<blockquote>
<div><%= [export_vars -form {attach_id parent_id return_url}] %></div>
<table>
<tr>
<td valign=top align=right>#general-comments.Label# </td>
<td><input type=text name=label size=40 value="@label@"></td>
<td valign="top" align="right">#general-comments.Label# </td>
<td><input type=text name="label" size="40" value="@label@"></td>
</tr>
<tr>
<td valign=top align=right>#general-comments.URL# </td>
<td valign="top" align="right">#general-comments.URL# </td>
<td>
<input size=40 name=url value="@url@"><br>
<font size=-1>#general-comments.lt_Example_httpwwwarsdig#</font>
<input size="40" name="url" value="@url@"><br>
#general-comments.lt_Example_httpwwwarsdig#
</td>
</tr>
</table>
<p>
<center>
<input type=submit value="#general-comments.Proceed#">
</center>
</blockquote>
<p style="text-align:center">
<input type="submit" value="#general-comments.Proceed#">
</p>
</form>
www/url-edit-2.tcl
View file @ 08369fbc
......@@ -8,18 +8,18 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
attach_id:integer,notnull
parent_id:integer,notnull
attach_id:naturalnum,notnull
parent_id:naturalnum,notnull
label:notnull
url:notnull
{ return_url {} }
}
# authenticate the user
set user_id [ad_verify_and_get_user_id]
set user_id [ad_conn user_id]
# check to see if the user can edit this attachment
ad_require_permission $attach_id write
permission::require_permission -object_id $attach_id -privilege write
db_dml edit_url {
update cr_extlinks
......@@ -28,7 +28,7 @@ db_dml edit_url {
where extlink_id = :attach_id
}
ad_returnredirect "view-comment?comment_id=$parent_id&[export_vars -url {return_url}]"
ad_returnredirect [export_vars -base view-comment {{comment_id $parent_id} return_url}]
www/url-edit.tcl
View file @ 08369fbc
......@@ -8,8 +8,8 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
attach_id:integer,notnull
parent_id:integer,notnull
attach_id:naturalnum,notnull
parent_id:naturalnum,notnull
{ return_url {} }
} -properties {
page_title:onevalue
......@@ -21,7 +21,7 @@ ad_page_contract {
}
# check to see if the user can edit this attachment
ad_require_permission $attach_id write
permission::require_permission -object_id $attach_id -privilege write
# get the values from the database
if { ![db_0or1row get_comment {
......
www/view-comment-oracle.xql
View file @ 08369fbc
......@@ -21,7 +21,7 @@
r.revision_id,
r.title,
r.content,
r.mime_type,
r.mime_type as comment_mime_type,
o.creation_user,
o.creation_date,
acs_object.name(o.creation_user) as author
......@@ -45,7 +45,7 @@
r.revision_id,
r.title,
r.content,
r.mime_type,
r.mime_type as comment_mime_type,
o.creation_user,
o.creation_date,
acs_object.name(o.creation_user) as author
......@@ -61,19 +61,4 @@
</fullquery>
<fullquery name="get_revisions">
<querytext>
select r.revision_id,
to_char(o.creation_date, 'MM-DD-YY HH24:MI:SS') as revision_date
from cr_revisions r,
acs_objects o
where r.item_id = :comment_id and
o.object_id = r.revision_id
order by o.creation_date desc
</querytext>
</fullquery>
</queryset>
www/view-comment-postgresql.xql
View file @ 08369fbc
......@@ -21,7 +21,7 @@
r.revision_id,
r.title,
r.content,
r.mime_type,
r.mime_type as comment_mime_type,
o.creation_user,
o.creation_date,
acs_object__name(o.creation_user) as author
......@@ -45,7 +45,7 @@
r.revision_id,
r.title,
r.content,
r.mime_type,
r.mime_type as comment_mime_type,
o.creation_user,
o.creation_date,
acs_object__name(o.creation_user) as author
......@@ -60,20 +60,4 @@
</querytext>
</fullquery>
<fullquery name="get_revisions">
<querytext>
select r.revision_id,
to_char(o.creation_date, 'MM-DD-YY HH24:MI:SS') as revision_date
from cr_revisions r,
acs_objects o
where r.item_id = :comment_id and
o.object_id = r.revision_id
order by o.creation_date desc
</querytext>
</fullquery>
</queryset>
www/view-comment.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="return_url">@return_url;noquote@</property>
<property name="object_name">@object_name;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
<property name="return_url">@return_url;literal@</property>
<property name="object_name">@object_name;literal@</property>
<if @return_url@ ne "">
[<a href="@return_url@">#general-comments.lt_Go_back_to_where_you_#</a>]<br>
<p>[<a href="@return_url@">#general-comments.lt_Go_back_to_where_you_#</a>]</p>
</if>
<blockquote>
<h4>@title@</h4>
<h1>@title@</h1>
@html_content;noquote@
<br><br>
<if @is_creator_p@ eq t>
<p>
-- #general-comments.you#
<a href="comment-edit?comment_id=@comment_id@&revision_id=@revision_id@&return_url=@return_url@">
#general-comments.edit_your_comment#</a><br><br>
<a href="@comment_edit_url@">
#general-comments.edit_your_comment#</a>
</p>
</if>
<else>
-- <a href="/shared/community-member?user_id=@creation_user@">@author@</a>
<p>-- <a href="/shared/community-member?user_id=@creation_user@">@author@</a></p>
</else>
</blockquote>
<h4>#general-comments.Attachments#</h4>
<h2>#general-comments.Attachments#</h2>
<ul>
<% set counter 0 %>
<multiple name=attachments>
<% incr counter %>
<li>
<if @is_creator_p@ eq t>
( <a href="file-edit?attach_id=@attachments.item_id@&parent_id=@comment_id@&return_url=@return_url@">#general-comments.edit#</a> |
<a href="delete-attachment?attach_id=@attachments.item_id@&parent_id=@comment_id@&return_url=@return_url@">#general-comments.delete#</a> )
( <a href="@attachments.file_edit_url@">#general-comments.edit#</a> | <a href="@attachments.delete_attachment_url@">#general-comments.delete#</a> )
</if>
<if @attachments.mime_type@ eq image/gif or @attachments.mime_type@ eq image/jpeg>
@attachments.title@
(<a href="view-image?image_id=@attachments.item_id@&return_url=@return_url_view@">@attachments.name@</a>)
(<a href="@attachments.view_image_url@">@attachments.name@</a>)
</if>
<else>
@attachments.title@
......@@ -50,8 +45,7 @@
<% incr counter %>
<li>
<if @is_creator_p@ eq t>
( <a href="url-edit?attach_id=@links.item_id@&parent_id=@comment_id@&return_url=@return_url@">#general-comments.edit#</a> |
<a href="delete-attachment?attach_id=@links.item_id@&parent_id=@comment_id@&return_url=@return_url@">#general-comments.delete#</a> )
( <a href="links.url_edit_url@">#general-comments.edit#</a> | <a href="@links.delete_attachment_url@">#general-comments.delete#</a> )
</if>
<a href="@links.url@">@links.label@</a>
</multiple>
......@@ -61,26 +55,26 @@
</ul>
<if @is_creator_p@ eq t and @allow_attach_p@ eq t>
<h4>#general-comments.Actions#</h4>
<h2>#general-comments.Actions#</h2>
<ul>
<if @allow_file_p@ eq t>
<li><a href="file-add?parent_id=@comment_id@&return_url=@return_url@">#general-comments.lt_Attach_a_file_or_pict#</a><br>
<li><a href="@action_file_add_url@">#general-comments.lt_Attach_a_file_or_pict#</a><br>
</if>
<if @allow_link_p@ eq t>
<li><a href="url-add?parent_id=@comment_id@&return_url=@return_url@">#general-comments.Attach_a_web_link#</a><br>
<li><a href="@action_url_add_url@">#general-comments.Attach_a_web_link#</a><br>
</if>
</ul>
</if>
<if @write_perm_p@ eq 1>
<h4>#general-comments.Revisions#</h4>
<h2>#general-comments.Revisions#</h2>
<ul>
<multiple name=revisions>
<if @revision_id@ eq @revisions.revision_id@>
<li>@revisions.revision_date@
</if>
<else>
<li><a href="view-comment?comment_id=@comment_id@&revision_id=@revisions.revision_id@&return_url=@return_url@">@revisions.revision_date@</a>
<li><a href="@revisions.view_comment_url@">@revisions.revision_date@</a>
</else>
<if @revisions.revision_id@ eq @live_revision@>
#general-comments.live#
......@@ -89,20 +83,8 @@
</ul>
</if>
<if @live_revision@ ne @revision_id@>
<font size=-1 color=red>
#general-comments.lt_This_revision_is_not_#
<if @admin_p@ eq 1>
(<a href="admin/toggle-approval?comment_id=@comment_id@&revision_id=@revision_id@&return_url=../@return_url_view@">#general-comments.lt_approve_this_revision#</a>)
</if>
</font>
</if>
<else>
<font size=-1 color=green>
#general-comments.lt_This_revision_is_live#
<p><span style="color:@font_color@">@pre_text@</span>
<if @admin_p@ eq 1>
(<a href="admin/toggle-approval?comment_id=@comment_id@&revision_id=@revision_id@&return_url=../@return_url_view@">#general-comments.reject_this_revision#</a>)
(<a href="@admin_toggle_url@">@admin_toggle_text@</a>)
</if>
</font>
</else>
</p>
www/view-comment.tcl
View file @ 08369fbc
......@@ -8,8 +8,8 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
comment_id:notnull
{ revision_id {} }
comment_id:naturalnum,notnull
{ revision_id:naturalnum,optional {} }
{ object_name {} }
{ return_url {} }
} -properties {
......@@ -36,67 +36,32 @@ set user_id [ad_conn user_id]
# check for permissions
set package_id [ad_conn package_id]
ad_require_permission $comment_id read
set write_perm_p [ad_permission_p $comment_id write]
set admin_p [ad_permission_p $package_id admin]
permission::require_permission -object_id $comment_id -privilege read
set write_perm_p [permission::permission_p -object_id $comment_id -privilege write]
set admin_p [permission::permission_p -object_id $package_id -privilege admin]
# if the user has write permissions then allow
# viewing of selected revision
if { $write_perm_p == 1 } {
if { [empty_string_p $revision_id] } {
if { $revision_id eq "" } {
# get the latest revision
set revision_id [db_string get_latest_revision {
select content_item.get_latest_revision(:comment_id) from dual
}]
}
# get revision data from the database
if { ![db_0or1row get_revision_comment {
select g.object_id,
g.comment_id,
content_item.get_live_revision(g.comment_id) as live_revision,
r.revision_id,
r.title,
r.content,
r.mime_type,
o.creation_user,
o.creation_date,
acs_object.name(o.creation_user) as author
from general_comments g,
cr_revisions r,
acs_objects o
where g.comment_id = o.object_id and
g.comment_id = r.item_id and
r.revision_id = :revision_id
}] } {
if { ![db_0or1row get_revision_comment {}] } {
ad_return_complaint 1 "[_ general-comments.lt_The_comment_id_does_n]"
}
} else {
# get live revision data from the database
if { ![db_0or1row get_comment {
select g.object_id,
g.comment_id,
r.revision_id as live_revision,
r.revision_id,
r.title,
r.content,
r.mime_type,
o.creation_user,
o.creation_date,
acs_object.name(o.creation_user) as author
from general_comments g,
acs_objects o,
cr_revisions r
where g.comment_id = :comment_id and
g.comment_id = o.object_id and
g.comment_id = r.item_id and
r.revision_id = content_item.get_live_revision(:comment_id)
}] } {
if { ![db_0or1row get_comment {}] } {
ad_return_complaint 1 "[_ general-comments.lt_The_comment_id_does_n]"
}
}
db_multirow attachments get_attachments {
db_multirow -extend {file_edit_url delete_attachment_url view_image_url} attachments get_attachments {
select r.title,
r.mime_type,
i.name,
......@@ -105,29 +70,31 @@ db_multirow attachments get_attachments {
cr_revisions r
where i.parent_id = :comment_id and
r.revision_id = i.live_revision
} {
set file_edit_url [export_vars -base "file-edit" {{attach_id $item_id} {parent_id $comment_id} return_url}]
set delete_attachment_url [export_vars -base "delete-attachment" {{attach_id $item_id} {parent_id $comment_id} return_url}]
set view_image_url [export_vars -base "view-image" {{image_id $item_id} {return_url return_url_view}}]
}
db_multirow links get_links {
db_multirow -extend {url_edit_url delete_attachment_url} links get_links {
select i.item_id,
e.label,
e.url
from cr_items i, cr_extlinks e
where i.parent_id = :comment_id and
e.extlink_id = i.item_id
} {
set url_edit_url [export_vars -base "url-edit" {{attach_id $item_id} {parent_id $comment_id} return_url}]
set delete_attachment_url [export_vars -base "delete-attachment" {{attach_id $item_id} {parent_id $comment_id} return_url}]
}
db_multirow revisions get_revisions {
select r.revision_id,
to_char(o.creation_date, 'MM-DD-YY HH24:MI:SS') as revision_date
from cr_revisions r,
acs_objects o
where r.item_id = :comment_id and
o.object_id = r.revision_id
order by o.creation_date desc
db_multirow -extend {view_comment_url} revisions get_revisions {*SQL*} {
set revision_date [lc_time_fmt $revision_date %c]
set view_comment_url [export_vars -base "view-comment" {comment_id revision_id return_url}]
}
set allow_file_p [ad_parameter AllowFileAttachmentsP {general-comments} {t}]
set allow_link_p [ad_parameter AllowLinkAttachmentsP {general-comments} {t}]
set allow_file_p [parameter::get -parameter AllowFileAttachmentsP -default {t}]
set allow_link_p [parameter::get -parameter AllowLinkAttachmentsP -default {t}]
set allow_attach_p "t"
if { $allow_file_p == "f" && $allow_link_p == "f" } {
set allow_attach_p "f"
......@@ -135,12 +102,36 @@ if { $allow_file_p == "f" && $allow_link_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 "[_ 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 return_url_view "view-comment?[export_ns_set_vars url]"
set is_creator_p "f"
if { $user_id == $creation_user } {
set is_creator_p "t"
}
set html_content [ad_html_text_convert -from $mime_type -- $content]
if { $comment_mime_type ne "text/html" } {
set html_content "<p>[ad_html_text_convert -from $comment_mime_type -- $content]</p>"
} else {
set html_content $content
}
set comment_edit_url [export_vars -base "comment-edit" {comment_id revision_id return_url}]
# Actions section
set action_file_add_url [export_vars -base "file-add" {{parent_id $comment_id} return_url}]
set action_url_add_url [export_vars -base "url-add" {{parent_id $comment_id} return_url}]
# Revisions section
set return_url_view "../${return_url_view}"
if { $live_revision ne $revision_id } {
set font_color "red"
set pre_text [_ general-comments.lt_This_revision_is_not_]
set admin_toggle_url [export_vars -base "admin/toggle-approval" {comment_id revision_id {return_url $return_url_view}}]
set admin_toggle_text [_ general-comments.lt_approve_this_revision]
} else {
set font_color "green"
set pre_text [_ general-comments.lt_This_revision_is_live]
set admin_toggle_url [export_vars -base "admin/toggle-approval" {comment_id revision_id {return_url $return_url_view}}]
set admin_toggle_text [_ general-comments.reject_this_revision]
}
ad_return_template
www/view-comment.xql
View file @ 08369fbc
......@@ -38,4 +38,18 @@
</fullquery>
</queryset>
<fullquery name="get_revisions">
<querytext>
select r.revision_id,
o.creation_date as revision_date
from cr_revisions r,
acs_objects o
where r.item_id = :comment_id and
o.object_id = r.revision_id
order by o.creation_date desc
</querytext>
</fullquery>
</queryset></queryset>
www/view-image.adp
View file @ 08369fbc
<master>
<property name="title">@page_title;noquote@</property>
<property name="context">@context;noquote@</property>
<property name="return_url">@return_url;noquote@</property>
<property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;literal@</property>
<property name="return_url">@return_url;literal@</property>
<center>
<i>@title@</i>
......
www/view-image.tcl
View file @ 08369fbc
......@@ -8,7 +8,7 @@ ad_page_contract {
@creation-date 2000-10-12
@cvs-id $Id$
} {
image_id:notnull
image_id:naturalnum,notnull
{ return_url {} }
} -properties {
page_title:onevalue
......@@ -20,7 +20,7 @@ ad_page_contract {
}
# check that user can view the image
ad_require_permission $image_id read
permission::require_permission -object_id $image_id -privilege read
# get the image attributes
db_1row get_image {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment