Index: openacs-4/packages/calendar-includelet/calendar-includelet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/calendar-includelet.info,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/calendar-includelet.info 30 Jul 2008 11:50:20 -0000 1.1
@@ -0,0 +1,31 @@
+
+
+
+
+ Calendar Includelet
+ Calendar Includelets
+ f
+ t
+
+
+ OpenACS
+ 2004-03-10
+ OpenACS
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.AR_EG.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.AR_EG.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.AR_EG.utf-8.xml 30 Jul 2008 11:50:20 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ أضف بندًا
+ إدارة المفكرة
+ أخلق حدثًا جديدًا
+ المُفَكِّرَة الكاملة
+ أدرْ أنواعَ الحدثِ التقويميةِ
+ أدرْ أنواعَ المادةِ
+ المُفَكِّرَة
+ الجدول
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.AR_LB.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.AR_LB.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.AR_LB.utf-8.xml 30 Jul 2008 11:50:20 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ أضف بنداً
+ إدارة المفكرة
+ أخلق حدثًا جديداً
+ المُفَكِّرَة الكاملة
+ أدرْ أنواعَ الحدثِ التقويميةِ
+ أدرْ أنواعَ المادةِ
+ المُفَكِّرَة
+ الجَدول
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.FA_IR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.FA_IR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.FA_IR.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ مديريت تقويم
+ تقويم
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.RO_RO.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.RO_RO.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.RO_RO.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Adaugă un element
+ Administrare Calendar
+ Creează un nou Eveniment
+ Calendar Complet
+ Administrează Tipuri de Evenimente în Calendar
+ Administrează Tipurile de Elemente
+ Calendar
+ Orar
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.TH_TH.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.TH_TH.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.TH_TH.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,7 @@
+
+
+
+ เพิ่มรายการ
+ ปฎิทิน
+ จัดการประเภทของรายการ
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ast_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ast_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ast_ES.ISO-8859-1.xml 30 Jul 2008 11:50:20 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Axuntar un �tem
+ Alministraci�n del Calandariu
+ Crear un Eventu nuevu
+ Calandariu Completu
+ Xestionar les Estayes d'Eventos del Calandariu
+ Xestionar Estayes
+ Calandariu
+ Horariu
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ch_zh.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ch_zh.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ch_zh.utf-8.xml 30 Jul 2008 11:50:20 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ 增加条目
+ 日历管理
+ 创建新事件
+ 全部日历
+ 设置日历事件类型
+ 设置条目类型
+ 日历
+ 时间表
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.da_DK.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.da_DK.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.da_DK.ISO-8859-1.xml 30 Jul 2008 11:50:20 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Tilf�j en kalenderpost
+ Administation af Kalender
+ Opret en ny Begivenhed
+ Kalender
+ Administrer typer af kalenderbegivenheder
+ Administrer kalenderposttyper
+ Kalender
+ Skema
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.de_DE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.de_DE.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Eintrag hinzuf�gen
+ Kalender verwalten
+ Neuen Eintrag hinzuf�gen
+ Kalender
+ Eintragskategorien �ndern
+ Eintragskategorien �ndern
+ Kalender
+ Tagesplan
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.en_US.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.en_US.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Add an item
+ Calendar Administration
+ Create a new Event
+ Full Calendar
+ Manage Calendar Event Types
+ Manage Item Types
+ Calendar
+ Schedule
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.es_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.es_ES.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ A�adir una cita
+ Administraci�n del Calendario
+ Crear una Cita nueva
+ Calendario Completo
+ Administrar las categor�as de Citas
+ Administrar categor�as
+ Calendario
+ Planificaci�n
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.fi_FI.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.fi_FI.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.fi_FI.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Lisää tapahtuma
+ Kalenterin ylläpito
+ Luo uusi tapahtuma
+ Kalenteri
+ Muokkaa tapahtumatyyppejä
+ Muokkaa tapahtumatyyppejä
+ Päivän ohjelma
+ Aikataulu
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.fr_FR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.fr_FR.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.fr_FR.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Ajouter un �l�ment
+ Administration de l'agenda
+ Cr�er un nouvel �v�nement
+ Agenda
+ G�rer les types d'�v�nements
+ G�rer les types d'�l�ments
+ Agenda
+ Planification
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.gl_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.gl_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.gl_ES.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Engadir un �tem
+ Administraci�n do Calendario
+ Crear novo Evento
+ Calendario Completo
+ Xerenciar Tipos de Evento do Calendario
+ Xerenciar Tipos de �tem
+ Calendario
+ Horario
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.hu_HU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.hu_HU.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.hu_HU.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Új bejegyzés
+ Naptár adminisztrációja
+ Új esemény
+ Az egész naptár
+ Naptárbejegyzés-típusok
+ Naptárbejegyzés-típusok
+ Naptár
+ Órarend
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.it_IT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.it_IT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.it_IT.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Aggiungi un appuntamento
+ Amministrazione del Calendario
+ Crea un nuovo Evento
+ Calendario Completo
+ Amministra i tipi di evento
+ Gestisci i Tipi di Appuntamento
+ Calendario
+ Pianificazione
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ja_JP.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ja_JP.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ja_JP.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,5 @@
+
+
+
+ カレンダー全体
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ko_KR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ko_KR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ko_KR.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ 항목 추가
+ 달력 관리
+ 새로운 이벤트 생성
+ 전체 달력
+ 달력 이벤트 유형 관리
+ 항목 유형 관리
+ 달력
+ 스케쥴
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ms_my.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ms_my.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ms_my.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Tambah suatu butiran
+ Pengendalian Takwim
+ Reka Peristiwa baru
+ Takwim Lengkap
+ Urus Jenis-jenis Peristiwa Takwim
+ Urus Jenis Kategori
+ Takwim
+ Jadual
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.nl_NL.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.nl_NL.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.nl_NL.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Gebeurtenis toevoegen
+ Kalender administratie
+ Nieuwe gebeurtenis aanmaken
+ Complete Kalender
+ Gebeurteniscategori�n voor de kalender beheren
+ Gebeurteniscategorie wijzigen
+ Kalender
+ Planning
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.no_NO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.no_NO.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.no_NO.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Legg inn avtale
+ Kalenderadministrasjon
+ Lag en ny avtale
+ Kalender
+ Administrer kalender innleggstyper
+ Administrer avtaletyper
+ Kalender
+ Avtale
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pl_PL.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pl_PL.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pl_PL.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Dodaj termin
+ Administracja Kalendarzem
+ Utwórz nowy Termin
+ Pełny Kalendarz
+ Zarządzaj Typami Terminów Kalendarza
+ Zarządzaj Typami Terminów
+ Kalendarz
+ Plan
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pt_BR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pt_BR.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pt_BR.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Adicionar um item
+ Administra��o do Calend�rio
+ Criar novo Evento
+ Calend�rio Completo
+ Gerenciar Tipos de Evento do Calend�rio
+ Gerenciar Tipos de Item
+ Calend�rio
+ Hor�rio
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pt_PT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pt_PT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.pt_PT.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Adicionar um item
+ Administra��o do Calend�rio
+ Criar um novo Evento
+ Calend�rio Completo
+ Gerir Tipos de Eventos do Calend�rio
+ Gerir Tipos de Itens
+ Calend�rio
+ Agenda
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ru_RU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ru_RU.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.ru_RU.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Добавить запись
+ Администрирование календаря
+ Добавить новое событие
+ Общий календарь
+ Редактировать типы событий в календаре
+ Редактировать типы событий
+ Календарь
+ Расписание
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.sh_HR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.sh_HR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.sh_HR.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,8 @@
+
+
+
+ Dodaj stavku
+ Citav Kalendar
+ Izbrisi/Dodaj vrste stavki
+ Kalendar
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.sv_SE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.sv_SE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.sv_SE.ISO-8859-1.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ L�gg till en post
+ Kalenderadministration
+ Skapa en ny h�ndelse
+ Detaljerad kalender
+ Hantera typer av h�ndelser
+ Hantera typer av poster
+ Kalender
+ Schema
+
Index: openacs-4/packages/calendar-includelet/catalog/calendar-includelet.tr_TR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/catalog/calendar-includelet.tr_TR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/catalog/calendar-includelet.tr_TR.utf-8.xml 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,5 @@
+
+
+
+ Bütün Takvim
+
Index: openacs-4/packages/calendar-includelet/lib/calendar-admin-includelet.ado
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/Attic/calendar-admin-includelet.ado,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-admin-includelet.ado 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,26 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+
+
Index: openacs-4/packages/calendar-includelet/lib/calendar-admin-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-admin-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-admin-includelet.tcl 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+ The display logic for the calendar admin portlet
+
+ @author Arjun Sanyal (arjun@openforce.net)
+ @author Ben Adida (ben@openforce.net)
+ @cvs_id $Id: calendar-admin-includelet.tcl,v 1.1 2008/07/30 11:50:21 donb Exp $
+}
+
+# get stuff out of the config array
+set view $default_view
+
+if {[llength $calendar_id] > 1} {
+ return -code error "shouldn't be more than one calendar in admin!"
+}
+
+set url "calendar/"
+
+ad_return_template
Index: openacs-4/packages/calendar-includelet/lib/calendar-full-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-full-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-full-includelet.adp 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,81 @@
+
+
+
+
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ |
+
+
Index: openacs-4/packages/calendar-includelet/lib/calendar-full-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-full-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-full-includelet.tcl 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,171 @@
+ad_page_contract {
+ The display logic for the calendar portlet
+
+ @author Arjun Sanyal (arjun@openforce.net)
+ @cvs_id $Id: calendar-full-includelet.tcl,v 1.1 2008/07/30 11:50:21 donb Exp $
+} {
+ {view ""}
+ {page_num ""}
+ {date ""}
+ {period_days 30}
+ {julian_date ""}
+} -properties {
+
+} -validate {
+ valid_date -requires { date } {
+ if {![string equal $date ""]} {
+ if {[catch {set date [clock format [clock scan $date] -format "%Y-%m-%d"]} err]} {
+ ad_complain "Your input ($date) was not valid. It has to be in the form YYYYMMDD."
+ }
+ }
+ }
+}
+
+
+# get stuff out of the config array
+if { $view eq "" } {
+ set view $default_view
+}
+set list_of_calendar_ids $calendar_id
+
+set ad_conn_url [ad_conn url]
+set base_url [ad_conn package_url]
+
+if {$scoped_p == "t"} {
+ set show_calendar_name_p 1
+} else {
+ set show_calendar_name_p 0
+}
+
+if {[llength $list_of_calendar_ids] > 1} {
+ set force_calendar_id [calendar::have_private_p \
+ -return_id 1 \
+ -calendar_id_list $list_of_calendar_ids \
+ -party_id [ad_conn user_id]]
+} else {
+ set force_calendar_id [lindex $list_of_calendar_ids 0]
+}
+
+# permissions
+set create_p [ad_permission_p $force_calendar_id cal_item_create]
+set edit_p [ad_permission_p $force_calendar_id cal_item_edit]
+set admin_p [ad_permission_p $force_calendar_id calendar_admin]
+
+# set up some vars
+if {[empty_string_p $date]} {
+ if {[empty_string_p $julian_date]} {
+ set date [dt_sysdate]
+ } else {
+ set date [db_string select_from_julian "select to_date(:julian_date ,'J') from dual"]
+ }
+}
+
+# global variables
+set current_date $date
+set date_format "YYYY-MM-DD HH24:MI"
+set return_url "[ns_conn url]?[ns_conn query]"
+set encoded_return_url [ns_urlencode $return_url]
+
+set item_template "\[ad_quotehtml \$item\]"
+
+if {$create_p} {
+ set hour_template "\$localized_day_current_hour"
+ set item_add_template "+"
+} else {
+ set hour_template "\$localized_day_current_hour"
+ set item_add_template ""
+}
+
+set url_stub_callback "calendar_portlet_display::get_url_stub"
+
+if {$view == "day"} {
+ if {[catch {set yest [clock format [clock scan "1 day ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set previous_link ""
+ } else {
+ if {[catch {clock scan $yest}]} {
+ set previous_link ""
+ } else {
+ set previous_link ""
+ }
+ }
+
+ if {[catch {set tomor [clock format [clock scan "1 day" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set next_link ""
+ } else {
+ if {[catch {clock scan $tomor}]} {
+ set next_link ""
+ } else {
+ set next_link ""
+ }
+ }
+}
+
+if {$view == "week"} {
+ if {[catch {set last_w [clock format [clock scan "1 week ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set previous_link ""
+ } else {
+ if {[catch {clock scan $last_w}]} {
+ set previous_link ""
+ } else {
+ set previous_link ""
+ }
+ }
+
+ if {[catch {set next_w [clock format [clock scan "1 week" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set next_link ""
+ } else {
+ if {[catch {clock scan $next_w}]} {
+ set next_link ""
+ } else {
+ set next_link ""
+ }
+ }
+
+ set prev_week_template ""
+ set next_week_template ""
+}
+
+
+if {$view == "month"} {
+ if {[catch {set prev_m [clock format [clock scan "1 month ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set prev_month_template ""
+ } else {
+ if {[catch {clock scan $prev_m}]} {
+ set prev_month_template ""
+ } else {
+ set prev_month_template ""
+ }
+ }
+
+ if {[catch {set next_m [clock format [clock scan "1 month" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set next_month_template ""
+ } else {
+ if {[catch {clock scan $next_m}]} {
+ set next_month_template ""
+ } else {
+ set next_month_template ""
+ }
+ }
+}
+
+
+if {$view == "list"} {
+ set sort_by [ns_queryget sort_by]
+
+ set thirty_days [expr 60*60*24*30]
+
+ set start_date [ns_fmttime [expr [ns_time] - $thirty_days] "%Y-%m-%d 00:00"]
+ set end_date [ns_fmttime [expr [ns_time] + $thirty_days] "%Y-%m-%d 00:00"]
+
+ set url_template "?view=list&sort_by=\$order_by&page_num=$page_num"
+}
+
+ad_return_template
+
+
+
+
+
+
+
+
Index: openacs-4/packages/calendar-includelet/lib/calendar-includelet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-includelet-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-includelet-oracle.xql 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,45 @@
+
+
+
+oracle8.1.6
+
+
+
+ select
+ to_char(start_date, 'HH24:MI') as pretty_start_date,
+ to_char(end_date, 'HH24:MI') as pretty_end_date,
+ nvl(e.name, a.name) as name,
+ e.event_id as item_id,
+ c.calendar_name as calendar_name
+ from
+ acs_activities a,
+ acs_events e,
+ timespans s,
+ time_intervals t,
+ cal_items ci,
+ calendars c
+ where
+ e.timespan_id = s.timespan_id
+ and s.interval_id = t.interval_id
+ and e.activity_id = a.activity_id
+ and start_date between
+ to_date(:current_date,:date_format) and
+ to_date(:current_date,:date_format) + (24 - 1/3600)/24
+ and e.event_id = ci.cal_item_id
+ and c.calendar_id = ci.on_which_calendar
+ and c.calendar_id in ($list_of_calendar_ids)
+ UNION
+ select
+ pretty_start_date,
+ pretty_end_date,
+ to_char(NULL) as name,
+ 0 as item_id,
+ to_char(NULL) as calendar_name
+ from hours_of_the_day
+ order by pretty_start_date
+
+
+
+
+
+
Index: openacs-4/packages/calendar-includelet/lib/calendar-includelet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-includelet-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-includelet-postgresql.xql 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,45 @@
+
+
+
+postgresql7.1
+
+
+
+ select
+ to_char(start_date, 'HH24:MI') as pretty_start_date,
+ to_char(end_date, 'HH24:MI') as pretty_end_date,
+ coalesce(e.name, a.name) as name,
+ e.event_id as item_id,
+ c.calendar_name as calendar_name
+ from
+ acs_activities a,
+ acs_events e,
+ timespans s,
+ time_intervals t,
+ cal_items ci,
+ calendars c
+ where
+ e.timespan_id = s.timespan_id
+ and s.interval_id = t.interval_id
+ and e.activity_id = a.activity_id
+ and start_date between
+ to_date(:current_date,:date_format) and
+ to_date(:current_date,:date_format) + cast('23 hours 59 minutes 59 seconds' as interval)
+ and e.event_id = ci.cal_item_id
+ and c.calendar_id = ci.on_which_calendar
+ and c.calendar_id in ($list_of_calendar_ids)
+ UNION
+ select
+ pretty_start_date,
+ pretty_end_date,
+ to_char(NULL) as name,
+ 0 as item_id,
+ to_char(NULL) as calendar_name
+ from hours_of_the_day
+ order by pretty_start_date
+
+
+
+
+
+
Index: openacs-4/packages/calendar-includelet/lib/calendar-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-includelet.adp 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,59 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/calendar-includelet/lib/calendar-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-includelet.tcl 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,152 @@
+ad_page_contract {
+ The display logic for the calendar includelet
+
+ @author Arjun Sanyal (arjun@openforce.net)
+ @cvs_id $Id: calendar-includelet.tcl,v 1.1 2008/07/30 11:50:21 donb Exp $
+} {
+ {view ""}
+ {page_num ""}
+ {date ""}
+ {period_days 30}
+ {julian_date ""}
+} -properties {
+
+} -validate {
+ valid_date -requires { date } {
+ if {![string equal $date ""]} {
+ if {[catch {set date [clock format [clock scan $date] -format "%Y-%m-%d"]} err]} {
+ ad_complain "Your input ($date) was not valid. It has to be in the form YYYYMMDD."
+ }
+ }
+ }
+}
+
+
+# get stuff out of the config array
+set view $default_view
+set list_of_calendar_ids $calendar_id
+set base_url [ad_conn url]
+
+set scoped_p $scoped_p
+
+if {$scoped_p == "t"} {
+ set show_calendar_name_p 1
+} else {
+ set show_calendar_name_p 0
+}
+
+if {[llength $list_of_calendar_ids] > 1} {
+ set force_calendar_id [calendar::have_private_p \
+ -return_id 1 \
+ -calendar_id_list $list_of_calendar_ids \
+ -party_id [ad_conn user_id]]
+} else {
+ set force_calendar_id [lindex $list_of_calendar_ids 0]
+}
+
+# permissions
+set create_p [ad_permission_p $force_calendar_id cal_item_create]
+set edit_p [ad_permission_p $force_calendar_id cal_item_edit]
+set admin_p [ad_permission_p $force_calendar_id calendar_admin]
+
+# set up some vars
+set date [ns_queryget date]
+if {[empty_string_p $date]} {
+ set date [dt_sysdate]
+}
+set current_date $date
+set date_format "YYYY-MM-DD HH24:MI"
+
+set item_template "\[ad_quotehtml \$item\]"
+
+if {$create_p} {
+ set hour_template "\$localized_day_current_hour"
+ set item_add_template "+"
+} else {
+ set hour_template "\$localized_day_current_hour"
+ set item_add_template ""
+}
+
+set url_stub_callback "calendar_portlet_display::get_url_stub"
+
+if { $view == "day" } {
+ if {[catch {set yest [clock format [clock scan "1 day ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set previous_link ""
+ } else {
+ if {[catch {clock scan $yest}]} {
+ set previous_link ""
+ } else {
+ set previous_link ""
+ }
+ }
+
+ if {[catch {set tomor [clock format [clock scan "1 day" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set next_link ""
+ } else {
+ if {[catch {clock scan $tomor}]} {
+ set next_link ""
+ } else {
+ set next_link ""
+ }
+ }
+}
+
+if {$view == "week"} {
+ if {[catch {set last_w [clock format [clock scan "1 week ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set previous_link ""
+ } else {
+ if {[catch {clock scan $last_w}]} {
+ set previous_link ""
+ } else {
+ set previous_link ""
+ }
+ }
+
+ if {[catch {set next_w [clock format [clock scan "1 week" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set next_link ""
+ } else {
+ if {[catch {clock scan $next_w}]} {
+ set next_link ""
+ } else {
+ set next_link ""
+ }
+ }
+ set prev_week_template ""
+ set next_week_template ""
+}
+
+if {$view == "month"} {
+ if {[catch {set prev_m [clock format [clock scan "1 month ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set previous_link ""
+ } else {
+ if {[catch {clock scan $prev_m}]} {
+ set previous_link ""
+ } else {
+ set previous_link ""
+ }
+ }
+
+ if {[catch {set next_m [clock format [clock scan "1 month" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
+ set next_link ""
+ } else {
+ if {[catch {clock scan $next_m}]} {
+ set next_link ""
+ } else {
+ set next_link ""
+ }
+ }
+}
+
+if {$view == "list"} {
+ set sort_by [ns_queryget sort_by]
+
+ set thirty_days [expr 60*60*24*30]
+
+ set start_date [ns_fmttime [expr [ns_time] - $thirty_days] "%Y-%m-%d 00:00"]
+ set end_date [ns_fmttime [expr [ns_time] + $thirty_days] "%Y-%m-%d 00:00"]
+
+ set url_template "?view=list&sort_by=\$order_by&page_num=$page_num"
+}
+
+
+ad_return_template
Index: openacs-4/packages/calendar-includelet/lib/calendar-list-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-list-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-list-includelet.adp 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,14 @@
+
+
+
Index: openacs-4/packages/calendar-includelet/lib/calendar-list-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/lib/calendar-list-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/lib/calendar-list-includelet.tcl 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,77 @@
+ad_page_contract {
+ The display logic for the calendar portlet
+
+ @author Arjun Sanyal (arjun@openforce.net)
+ @cvs_id $Id: calendar-list-includelet.tcl,v 1.1 2008/07/30 11:50:21 donb Exp $
+} {
+ {view ""}
+ {page_num ""}
+ {date ""}
+ {julian_date ""}
+ {period_days 60}
+ {sort_by ""}
+} -properties {
+
+} -validate {
+ valid_date -requires { date } {
+ if {![string equal $date ""]} {
+ if {[catch {set date [clock format [clock scan $date] -format "%Y-%m-%d"]} err]} {
+ ad_complain "Your input was not valid. It has to be in the form YYYYMMDD."
+ }
+ }
+ }
+}
+
+
+# get stuff out of the config array
+if { $view eq "" } {
+ set view $default_view
+}
+set list_of_calendar_ids $calendar_id
+
+if {$scoped_p == "t"} {
+ set show_calendar_name_p 1
+} else {
+ set show_calendar_name_p 0
+}
+
+if {[llength $list_of_calendar_ids] > 1} {
+ set force_calendar_id [calendar::have_private_p \
+ -return_id 1 \
+ -calendar_id_list $list_of_calendar_ids \
+ -party_id [ad_conn user_id]]
+} else {
+ set force_calendar_id [lindex $list_of_calendar_ids 0]
+}
+
+# permissions
+set create_p [ad_permission_p $force_calendar_id cal_item_create]
+set edit_p [ad_permission_p $force_calendar_id cal_item_edit]
+set admin_p [ad_permission_p $force_calendar_id calendar_admin]
+
+# set up some vars
+if {[empty_string_p $date]} {
+ if {[empty_string_p $julian_date]} {
+ set date [dt_sysdate]
+ } else {
+ set date [db_string select_from_julian "select to_date(:julian_date ,'J') from dual"]
+ }
+}
+
+set current_date $date
+set date_format "YYYY-MM-DD HH24:MI"
+set return_url "[ns_conn url]?[ns_conn query]"
+set encoded_return_url [ns_urlencode $return_url]
+
+# List view only
+set sort_by [ns_queryget sort_by]
+
+set item_template "\[ad_quotehtml \$item\]"
+
+set thirty_days [expr 60*60*24*30]
+set start_date [ns_fmttime [expr [ns_time] - $thirty_days] "%Y-%m-%d 00:00"]
+
+set url_template "?view=list&sort_by=\$order_by&page_num=$page_num"
+set url_stub_callback "calendar_portlet_display::get_url_stub"
+
+ad_return_template
Index: openacs-4/packages/calendar-includelet/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/tcl/apm-callback-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/tcl/apm-callback-procs.tcl 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,67 @@
+ad_library {
+
+ Forums Portlet Install library
+
+ Procedures that deal with installing, instantiating, mounting.
+
+ @creation-date 2003-12-31
+ @author Don Baccus
+ @cvs-id
+}
+
+namespace eval calendar_includelet::install {}
+
+ad_proc -private calendar_includelet::install::package_install {} {
+ Package installation callback proc
+} {
+
+ db_transaction {
+
+ # Admin includelet
+ layout::includelet::new \
+ -name calendar_admin_includelet \
+ -description "Displays calendar admin includelet" \
+ -title #calendar-includelet.admin_pretty_name# \
+ -application calendar \
+ -template /packages/calendar-includelet/lib/calendar-admin-includelet \
+ -required_privilege admin \
+ -initializer calendar_includelet_utilities::configure_calendar_id \
+
+ # List includelet
+ layout::includelet::new \
+ -name calendar_list_includelet \
+ -description "Displays calendar list includelet" \
+ -title #calendar-includelet.Schedule# \
+ -application calendar \
+ -template /packages/calendar-includelet/lib/calendar-list-includelet \
+ -initializer calendar_includelet_utilities::configure_calendar_id
+
+ # Full includelet
+ layout::includelet::new \
+ -name calendar_full_includelet \
+ -description "Displays the calendar" \
+ -title #calendar-includelet.full_includelet_pretty_name# \
+ -application calendar \
+ -template /packages/calendar-includelet/lib/calendar-full-includelet \
+ -initializer calendar_includelet_utilities::configure_calendar_id
+
+ # User includelet
+ layout::includelet::new \
+ -name calendar_includelet \
+ -description "Displays the calendar" \
+ -title #calendar-includelet.pretty_name# \
+ -application calendar \
+ -template /packages/calendar-includelet/lib/calendar-includelet \
+ -initializer calendar_includelet_utilities::configure_calendar_id
+ }
+}
+
+ad_proc -private calendar_includelet::install::package_uninstall {} {
+ Package uninstallation callback proc
+} {
+ layout::includelet::delete -name calendar_includelet
+ layout::includelet::delete -name calendar_admin_includelet
+ layout::includelet::delete -name calendar_full_includelet
+ layout::includelet::delete -name calendar_list_includelet
+}
+
Index: openacs-4/packages/calendar-includelet/tcl/calendar-includelet-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/tcl/Attic/calendar-includelet-display-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/tcl/calendar-includelet-display-procs.tcl 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,37 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+# calendar-portlet/tcl/calendar-portlet-display-procs.tcl
+
+ad_library {
+
+Procedures to support the calendar portlet display
+
+@creation-date April 15, 2002
+@author ben@openforce.net
+@cvs-id $Id: calendar-includelet-display-procs.tcl,v 1.1 2008/07/30 11:50:21 donb Exp $
+
+}
+
+namespace eval calendar_portlet_display {
+
+ ad_proc -public get_url_stub {
+ calendar_id
+ } {
+ return [site_node_object_map::get_url -object_id $calendar_id]
+ }
+
+}
Index: openacs-4/packages/calendar-includelet/tcl/calendar-includelet-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/tcl/calendar-includelet-utility-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/tcl/calendar-includelet-utility-procs.tcl 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,85 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_library {
+
+ Some useful utilities for calendar includelets.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @cvs-id $Id: calendar-includelet-utility-procs.tcl,v 1.1 2008/07/30 11:50:21 donb Exp $
+
+}
+
+namespace eval calendar_includelet_utilities {}
+
+ad_proc calendar_includelet_utilities::configure_calendar_id {
+ element_id
+} {
+ Set the includelet's calendar_id param, creating a new private calendar for the
+ includelet's owner if necessary.
+
+ @param element_id The calendar includelet
+
+} {
+
+ set pageset_id [layout::page::get_column_value \
+ -page_id [layout::element::get_column_value \
+ -element_id $element_id \
+ -column page_id] \
+ -column pageset_id]
+ set package_id [layout::element::get_column_value \
+ -element_id $element_id \
+ -column package_id]
+ set party_id [layout::pageset::get_column_value \
+ -pageset_id $pageset_id \
+ -column owner_id]
+
+ if { $pageset_id == [layout::pageset::get_master_template_id] } {
+
+ # We're initializing the master template's or admin portal's copy of
+ # calendar, create a subsite group calendar if one does not already exist.
+
+ set group_id [application_group::group_id_from_package_id \
+ -package_id [ad_conn subsite_id]]
+
+ if { ![db_0or1row get_group_calendar_id {}] } {
+ set calendar_id [calendar::new \
+ -owner_id $group_id \
+ -private_p "f" \
+ -calendar_name Group \
+ -package_id $package_id]
+ }
+
+ } else {
+
+ # We're initializing a personal portal. Create a calendar for the user
+ # if they don't already have one. The group calendar's id has already been
+ # copied over by the portal package.
+
+ if { ![db_0or1row get_calendar_id {}] } {
+ set calendar_id [calendar::new \
+ -owner_id $party_id \
+ -private_p t \
+ -calendar_name Personal \
+ -package_id $package_id]
+ }
+ }
+
+ layout::element::parameter::add_values \
+ -element_id $element_id \
+ -parameters [list calendar_id $calendar_id default_view day scoped_p f]
+
+}
Index: openacs-4/packages/calendar-includelet/tcl/calendar-includelet-utility-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-includelet/tcl/calendar-includelet-utility-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar-includelet/tcl/calendar-includelet-utility-procs.xql 30 Jul 2008 11:50:21 -0000 1.1
@@ -0,0 +1,22 @@
+
+
+
+
+
+ select calendar_id
+ from calendars
+ where private_p = 'f'
+ and owner_id = :group_id
+
+
+
+
+
+ select calendar_id
+ from calendars
+ where private_p = 't'
+ and owner_id = :party_id
+
+
+
+
Index: openacs-4/packages/file-storage-includelet/file-storage-includelet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/file-storage-includelet.info,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/file-storage-includelet.info 30 Jul 2008 11:51:14 -0000 1.1
@@ -0,0 +1,30 @@
+
+
+
+
+ File Storage Includelet
+ File Storage Includelets
+ f
+ t
+
+
+ OpenACS
+ 2008-07-16
+ OpenACS
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ar_EG.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ar_EG.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ar_EG.utf-8.xml 30 Jul 2008 11:51:14 -0000 1.1
@@ -0,0 +1,7 @@
+
+
+
+ إخلقْ ملفّ جديدً
+ المُسْتَنَدات
+ أرسلْ ملفاً
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ar_LB.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ar_LB.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ar_LB.utf-8.xml 30 Jul 2008 11:51:14 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Advanced</font>)
+ بايت
+ بايتس
+ إخلقْ ملفّ جديداً
+ أخلقْ موقعاً
+ Edit file storage parameters (ADVANCED)
+ Edit Upload Size Limit
+ بند
+ بنود
+ File Storage Administration
+ المُسْتَنَدات
+ أرسلْ ملفاً
+ شاهدْ التفاصيل
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ast_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ast_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ast_ES.ISO-8859-1.xml 30 Jul 2008 11:51:14 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ byte
+ bytes
+ Crear un Directoriu nuevu
+ Crear URL
+ it�m
+ items
+ Documentos
+ Xubir un archivu
+ ver detalles
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ca_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ca_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ca_ES.ISO-8859-1.xml 30 Jul 2008 11:51:14 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ byte
+ bytes
+ Crear una carpeta nova
+ Crear una URL
+ Editar el l�mit de grand�ria de c�rregues
+ arxiu
+ arxius
+ Gesti� de l'emmagatzemament d'arxius
+ Documents
+ Carregar un arxiu
+ Veure detalls
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ch_zh.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ch_zh.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ch_zh.utf-8.xml 30 Jul 2008 11:51:14 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ 字节
+ 字节
+ 创建新文件夹
+ 创建URL
+ 项
+ 项
+ 文档
+ 上传文件
+ 查看详细信息
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.da_DK.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.da_DK.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.da_DK.ISO-8859-1.xml 30 Jul 2008 11:51:14 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Avanceret</font>)
+ byte
+ bytes
+ Opret en nyt mappe
+ Opret en URL
+ Rediger parametre for fildeling (AVANCERET)
+ Rediger Upload St�rrelse Begr�nsing
+ emne
+ emner
+ Fildepot administration
+ Dokumenter
+ Upload en fil
+ vis detaljer
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.de_DE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.de_DE.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Fortgeschritten</font>)
+ Byte
+ Bytes
+ Neuen Ordner erstellen
+ Neue URL hinzuf�gen
+ Parameter f�r Dateiablage editieren (FORTGESCHRITTEN)
+ Gr��enbeschr�nkung f�r das Hochladen bearbeiten
+ Element
+ Elemente
+ Dateiablage verwalten
+ Dateien
+ Neue Datei hochladen
+ Details anzeigen
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.el_GR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.el_GR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.el_GR.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,7 @@
+
+
+
+ Δημιουργία νέου φακέλου
+ στοιχεία
+ Έγγραφα
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.en_AU.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.en_AU.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.en_AU.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ byte
+ bytes
+ Create a new folder
+ Create a URL
+ Edit Upload Size Limit
+ item
+ items
+ File Storage Administration
+ Documents
+ Upload a file
+ view details
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.en_US.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.en_US.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,20 @@
+
+
+
+ File Storage Administration
+ (<font=red>Advanced</font>)
+ byte
+ bytes
+ File Storage Content
+ Create a new folder
+ Create a URL
+ Edit file storage parameters (ADVANCED)
+ Edit Upload Size Limit
+ item
+ items
+ File Storage Administration
+ Open folder %folders.name%
+ Documents
+ Upload a file
+ view details
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_CO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_CO.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_CO.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Advanced</font>)
+ byte
+ bytes
+ Crear carpeta nueva
+ Crear un enlace URL
+ Editar par�metros de almacenamiento de carpetas (AVANZADO)
+ Editar el limite para subir archivos
+ archivo
+ archivos
+ Administraci�n de Documentos
+ Documentos
+ Subir un archivo
+ ver detalles
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_ES.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ (<font color=red>Avanzado</font>)
+ byte
+ bytes
+ Crear carpeta nueva
+ Crear un enlace
+ Editar par�metros de documentos (AVANZADO)
+ Editar el limite para subir archivos
+ archivo
+ archivos
+ Administraci�n de Documentos
+ Abrir carpeta %folders.name%
+ Documentos
+ Subir un archivo
+ ver detalles
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_GT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_GT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.es_GT.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Avanzado</font>)
+ byte
+ bytes
+ Crear carpeta nueva
+ Crear un enlace
+ Editar par�metros de documentos (AVANZADO)
+ Editar el limite para cargar archivos
+ archivo
+ archivos
+ Administraci�n de Documentos
+ Documentos
+ Subir un archivo
+ ver detalles
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.fi_FI.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.fi_FI.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.fi_FI.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ tavu
+ tavua
+ Luo uusi kansio
+ Lisää www-linkki
+ nimike
+ kpl
+ Dokumentit
+ Tallenna tiedosto
+ näytä tiedot
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.fr_FR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.fr_FR.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.fr_FR.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ octet
+ octets
+ Cr�er un dossier
+ Cr�er un lien
+ �l�ment
+ �l�ments
+ Dossiers
+ Envoyer un fichier
+ voir d�tails
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.gl_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.gl_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.gl_ES.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ byte
+ bytes
+ Crear novo cartafol
+ Crear URL (enderezo)
+ �tem
+ �tems
+ Documentos
+ Cargar un ficheiro
+ ver detalles
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.hi_IN.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.hi_IN.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.hi_IN.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<फ़ोन्ट=लाल> प्रगतिशील </फ़ोन्ट>
+ बाईट
+ बाईटस
+ एक नया फ़ोल्डर बनाओ
+ नया यू आर एल बनाओ
+ फ़ाईल सन्चयन का सम्पादन (एड्वान्सड)
+ अपलोड कर आकार सीमा निधारित करे
+ वस्तु
+ वस्तुए
+ फ़ाईल सन्चयन प्रशासन
+ दस्तावेज
+ फ़ाईल अपलोड करे
+ विवरण देखो
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.hu_HU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.hu_HU.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.hu_HU.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Új mappa készítése
+ Új URL készítése
+ darab
+ Dokumentumok
+ File feltöltése
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.it_IT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.it_IT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.it_IT.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Advanced</font>)
+ byte
+ bytes
+ Crea una nuova cartella
+ Crea una URL
+ Editare i parametri della cartella di memorizzazione (AVANZATO)
+ Modifica il limite alla dimensione in upload
+ elemento
+ elementi
+ Amministrazione della File Storage
+ Documenti
+ Carica un file
+ vedi i dettagli
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ja_JP.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ja_JP.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ja_JP.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ 新規フォルダ
+ ファイルをアップロード
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ko_KR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ko_KR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ko_KR.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ 바이트
+ 바이트
+ 새 폴더 생성
+ URL 생성
+ 항목
+ 항목
+ 문서
+ 파일 업로드
+ 상세보기
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ms_MY.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ms_MY.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ms_MY.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ bait
+ bait
+ Tambah folder baru
+ Tambah URL
+ butiran
+ butiran-butiran
+ Dokumen
+ Muat naik fail
+ paparkan keterangan lanjut
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.nl_NL.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.nl_NL.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.nl_NL.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Gevorderden</font>)
+ byte
+ bytes
+ Nieuwe map aanmaken
+ URL aanmaken
+ Parameters van de bestandsopslag bewerken (GEVORDERDEN)
+ Limiet voor bestandsaanbod bewerken
+ bestand
+ bestanden
+ Administratie Bestandsopslag
+ Bestanden
+ Bestand aanbieden
+ bekijk details
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.nn_NO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.nn_NO.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.nn_NO.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Avansert</font>)
+ byte
+ bytes
+ Lag ny mappe
+ Lag lenkje (URL)
+ Rediger lagringsparametrat (AVANSERT)
+ Rediger grense for opplasting
+ innlegg
+ innlegg
+ Administrasjo av fillager
+ Dokument
+ Last opp ei fil
+ sj� detaljar
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.no_NO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.no_NO.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.no_NO.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Avansert</font>)
+ byte
+ bytes
+ Opprett ny mappe
+ Opprett en URL
+ Rediger lagringsparametre (AVANSERT)
+ Rediger maks st�rrelse for opplasting
+ innlegg
+ innlegg
+ Administrasjon av fillager
+ Dokumenter
+ Last opp en fil
+ se detaljer
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pl_PL.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pl_PL.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pl_PL.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Zaawansowane</font>)
+ bajt
+ bajtów
+ Utwórz nowy folder
+ Utwórz URL
+ Edytuj parametry składowania plików (ZAAWANSOWANE)
+ Edytuj Limit Wgrywanych Plików
+ plik
+ pliki
+ Administracja Składowaniem Plików
+ Dokumenty
+ Wyślij plik
+ pokaż szczegóły
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pt_BR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pt_BR.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pt_BR.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Advanced</font>)
+ byte
+ bytes
+ Criar uma nova pasta
+ Criar um atalho de Endere�o Eletr�nico (URL)
+ Edit file storage parameters (ADVANCED)
+ Editar Limite do Tamanho de Envio
+ item
+ itens
+ Administra��o da Armazenagem de Arquivo
+ Documentos
+ Fazer Upload de um arquivo
+ ver detalhes
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pt_PT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pt_PT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.pt_PT.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ byte
+ bytes
+ Criar uma nova pasta
+ Criar um URL
+ item
+ itens
+ Documentos
+ Carregar um ficheiro
+ ver detalhes
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ro_RO.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ro_RO.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ro_RO.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Avansat</font>)
+ byte
+ bytes
+ Creează un director nou
+ Creează un URL
+ Modifică parametrii pentru stocarea de fişiere (AVANSAT)
+ Modifică Limita Superioară pentru Încărcarea de Fişiere
+ obiect
+ elemente
+ Administrare pentru Stocare de Fişiere
+ Documente
+ Încarcă un fişier
+ vezi detaliile
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ru_RU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ru_RU.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.ru_RU.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>Дополнительно</font>)
+ байт
+ байт(а)
+ Создать новую папку
+ Добавить URL
+ Редактировать параметры хранилища файлов (ДОПОЛНИТЕЛЬНО)
+ Изменить ограничение на размер загружаемых данных
+ док.
+ документов
+ Управление хранилищем файлов
+ Документы
+ Добавить файл
+ детали
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.sh_HR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.sh_HR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.sh_HR.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,10 @@
+
+
+
+ Dodaj novi katalog
+ Dodaj novi URL
+ clan
+ stavke
+ Dokumenti
+ Dodaj fajl
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.sv_SE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.sv_SE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.sv_SE.ISO-8859-1.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ byte
+ bytes
+ Skapa ny mapp
+ Skapa URL
+ objekt
+ objekt
+ Dokument
+ Ladda upp fil
+ se detaljer
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.th_TH.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.th_TH.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.th_TH.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ สร้างแฟ้มใหม่
+ สร้าง URL
+ รายการ
+ เอกสาร
+ Upload เอกสาร
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.tr_TR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.tr_TR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.tr_TR.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,8 @@
+
+
+
+ Yeni bir dizin yarat
+ Bir URL yarat
+ Dökümanlar
+ Bir dosya yükle
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.zh_CN.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.zh_CN.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.zh_CN.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ (<font=red>高级</font>)
+ 字节
+ 字节
+ 创建新文件夹
+ 创建URL
+ 编辑文件存储参数(高级)
+ 编辑上传限制
+ 项
+ 项
+ 文件存储管理
+ 文件
+ 上传文件
+ 查看详细信息
+
Index: openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.zh_TW.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.zh_TW.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/catalog/file-storage-includelet.zh_TW.utf-8.xml 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ 建立新的資料夾
+ 新增URL
+ 項目
+ 文件
+ 上傳檔案
+
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-admin-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-admin-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-admin-includelet.adp 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,4 @@
+
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-admin-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-admin-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-admin-includelet.tcl 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,19 @@
+ad_page_contract {
+
+ The display logic for the file storage admin includelet.
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-05-13
+ @version $Id: file-storage-admin-includelet.tcl,v 1.1 2008/07/30 11:51:15 donb Exp $
+
+}
+
+set return_url [ns_conn url]
+
+set user_id [ad_conn user_id]
+
+ad_return_template
+
+set package_id [site_node_apm_integration::get_child_package_id -package_key "file-storage"]
+set fs_url "/shared/parameters?[export_url_vars package_id return_url]"
+set show_fs_url_p [parameter::get_from_package_key -parameter ShowParametersLinkP -package_key file-storage-includelet -default 1]
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet-oracle.xql 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,30 @@
+
+
+
+oracle8.1.6
+
+
+
+ select file_storage.get_package_id(fs_objects.object_id) as package_id,
+ decode(fs_objects.type, 'url', (select site_node.url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage.get_package_id(fs_objects.parent_id)),
+ (select site_node.url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage.get_package_id(fs_objects.object_id))) as url,
+ fs_objects.object_id,
+ fs_objects.file_upload_name,
+ fs_objects.name,
+ fs_objects.live_revision,
+ fs_objects.type,
+ fs_objects.content_size
+ from fs_objects
+ where fs_objects.parent_id in ([join $list_of_folder_ids ", "])
+ and 't' = acs_permission.permission_p(fs_objects.object_id, :user_id, 'read')
+ order by fs_objects.parent_id,
+ fs_objects.sort_key,
+ fs_objects.name
+
+
+
+
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet-postgresql.xql 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,33 @@
+
+
+
+postgresql7.1
+
+
+
+ select file_storage__get_package_id(fs_objects.object_id) as package_id,
+ (CASE
+ WHEN fs_objects.type = 'url'
+ THEN (select site_node__url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage__get_package_id(fs_objects.parent_id))
+ ELSE (select site_node__url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage__get_package_id(fs_objects.object_id))
+ END) as url,
+ fs_objects.object_id,
+ fs_objects.file_upload_name,
+ fs_objects.name,
+ fs_objects.live_revision,
+ fs_objects.type,
+ fs_objects.content_size
+ from fs_objects
+ where fs_objects.parent_id in ([join $list_of_folder_ids ", "])
+ and 't' = acs_permission__permission_p(fs_objects.object_id, :user_id, 'read')
+ order by fs_objects.parent_id,
+ fs_objects.sort_key,
+ fs_objects.name
+
+
+
+
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet.adp 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,5 @@
+
+@notification_chunk;noquote@
+
+ #file-storage.Folder_available_via_WebDAV_at#
+
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-contents-includelet.tcl 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,50 @@
+ad_page_contract {
+ The display logic for the fs contents includelet.
+
+ These includelets show the contents of the given folder in a table
+
+ re-using a lot of code from file-storage-includelet
+
+ @author Arjun Sanyal (arjun@openforce.net)
+ @version $Id: file-storage-contents-includelet.tcl,v 1.1 2008/07/30 11:51:15 donb Exp $
+
+}
+
+set user_id [ad_conn user_id]
+set list_of_folder_ids $folder_id
+set n_folders [llength $list_of_folder_ids]
+set file_storage_package_id $package_id
+
+if {$n_folders != 1} {
+ # something went wrong, we can't have more than one folder here
+ ad_return -error
+}
+
+set root_folder_id [fs::get_root_folder -package_id $file_storage_package_id]
+
+set folder_id [lindex $list_of_folder_ids 0]
+set scope_fs_url "/packages/file-storage/www/folder-chunk"
+set n_past_days ""
+set url [site_node_object_map::get_url -object_id $folder_id]
+set recurse_p 1
+set contents_url "${url}folder-contents?[export_vars {folder_id recurse_p}]&"
+
+# Enable Notifications
+
+set folder_name [fs_get_folder_name $folder_id]
+set notification_chunk [notification::display::request_widget \
+ -type fs_fs_notif \
+ -object_id $folder_id \
+ -pretty_name $folder_name \
+ -url [ad_conn url]?folder_id=$folder_id \
+ ]
+
+if [exists_and_not_null file_storage_package_id] {
+ set use_webdav_p [parameter::get -package_id $file_storage_package_id -parameter "UseWebDavP"]
+
+ if { $use_webdav_p == 1} {
+ set webdav_url [fs::webdav_url -item_id $folder_id -package_id $file_storage_package_id]
+ }
+}
+
+ad_return_template
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-includelet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-includelet-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-includelet-oracle.xql 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,60 @@
+
+
+
+oracle8.1.6
+
+
+
+ select file_storage.get_package_id(fs_objects.object_id) as package_id,
+ decode(fs_objects.type, 'url', (select site_node.url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage.get_package_id(fs_objects.parent_id)),
+ (select site_node.url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage.get_package_id(fs_objects.object_id))) as url,
+ fs_objects.object_id,
+ fs_objects.name,
+ fs_objects.file_upload_name,
+ fs_objects.live_revision,
+ fs_objects.type,
+ fs_objects.content_size
+ from fs_objects
+ where fs_objects.object_id in ([join $list_of_folder_ids ", "])
+ and 't' = acs_permission.permission_p(fs_objects.object_id, :user_id, 'read')
+ order by fs_objects.sort_key,
+ fs_objects.name
+
+
+
+
+
+ select file_storage.get_package_id(fs_objects.object_id) as package_id,
+ decode(fs_objects.type, 'url', (select site_node.url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage.get_package_id(fs_objects.parent_id)),
+ (select site_node.url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage.get_package_id(fs_objects.object_id))) as url,
+ fs_objects.object_id,
+ fs_objects.name,
+ fs_objects.file_upload_name,
+ fs_objects.live_revision,
+ fs_objects.type,
+ fs_objects.content_size
+ from fs_objects
+ where fs_objects.parent_id in ([join $list_of_folder_ids ", "])
+ and 't' = acs_permission.permission_p(fs_objects.object_id, :user_id, 'read')
+ order by fs_objects.parent_id,
+ fs_objects.sort_key,
+ fs_objects.name
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-includelet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-includelet-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-includelet-postgresql.xql 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,59 @@
+
+
+
+postgresql7.1
+
+
+
+ select file_storage__get_package_id(fs_objects.object_id) as package_id,
+ (CASE
+ WHEN fs_objects.type = 'url'
+ THEN (select site_node__url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage__get_package_id(fs_objects.parent_id))
+ ELSE (select site_node__url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage__get_package_id(fs_objects.object_id))
+ END) as url,
+ fs_objects.object_id,
+ fs_objects.name,
+ fs_objects.file_upload_name,
+ fs_objects.live_revision,
+ fs_objects.type,
+ fs_objects.content_size
+ from fs_objects
+ where fs_objects.object_id in ([join $list_of_folder_ids ", "])
+ and 't' = acs_permission__permission_p(fs_objects.object_id, :user_id, 'read')
+ order by fs_objects.sort_key,
+ fs_objects.name
+
+
+
+
+
+ select file_storage__get_package_id(fs_objects.object_id) as package_id,
+ (CASE
+ WHEN fs_objects.type = 'url'
+ THEN (select site_node__url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage__get_package_id(fs_objects.parent_id))
+ ELSE (select site_node__url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = file_storage__get_package_id(fs_objects.object_id))
+ END) as url,
+ fs_objects.object_id,
+ fs_objects.name,
+ fs_objects.file_upload_name,
+ fs_objects.live_revision,
+ fs_objects.type,
+ fs_objects.content_size
+ from fs_objects
+ where fs_objects.parent_id in ([join $list_of_folder_ids ", "])
+ and 't' = acs_permission__permission_p(fs_objects.object_id, :user_id, 'read')
+ order by fs_objects.parent_id,
+ fs_objects.sort_key,
+ fs_objects.name
+
+
+
+
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-includelet.adp 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,23 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+@notification_chunk;noquote@
+
+
+ #file-storage.Folder_available_via_WebDAV_at#
+
+
Index: openacs-4/packages/file-storage-includelet/lib/file-storage-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/lib/file-storage-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/lib/file-storage-includelet.tcl 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,145 @@
+ad_page_contract {
+ The display logic for the fs includelet
+
+ @author yon (yon@openforce.net)
+ @author Arjun Sanyal (arjun@openforce.net)
+ @cvs_id $Id: file-storage-includelet.tcl,v 1.1 2008/07/30 11:51:15 donb Exp $
+} -query {
+ {n_past_days "99999"}
+ {page_num ""}
+} -properties {
+ user_id:onevalue
+ user_root_folder:onevalue
+ user_root_folder_present_p:onevalue
+ write_p:onevalue
+ admin_p:onevalue
+ delete_p:onevalue
+ url:onevalue
+ folders:multirow
+ n_folders:onevalue
+}
+
+set user_id [ad_conn user_id]
+set list_of_folder_ids $folder_id
+set n_folders [llength $list_of_folder_ids]
+
+set folder_id [lindex $list_of_folder_ids 0]
+set file_storage_node_id [site_node::get_node_id_from_object_id \
+ -object_id [ad_conn package_id]]
+set file_storage_package_id [site_node::get_children \
+ -package_key file-storage \
+ -node_id $file_storage_node_id \
+ -element package_id]
+
+set url [site_node_object_map::get_url -object_id $folder_id]
+
+set recurse_p 1
+set contents_url "${url}folder-contents?[export_vars {folder_id recurse_p}]&"
+
+set admin_p [permission::permission_p -object_id $folder_id -privilege "admin"]
+set write_p $admin_p
+if {!$write_p} {
+ set write_p [permission::permission_p -object_id $folder_id -privilege "write"]
+}
+set delete_p $admin_p
+if {!$delete_p} {
+ set delete_p [permission::permission_p -object_id $folder_id -privilege "delete"]
+}
+
+set query "select_folders"
+
+template::list::create -name folders -multirow folders -key forum_id -pass_properties {} \
+ -elements {
+ icon {
+ label ""
+ display_template {
+
+
+
+
+
+
+
+
+
+
+
+
+ }
+ }
+ name {
+ label ""
+ display_template {
+
+ @folders.name@
+
+
+ @folders.name@
+
+
+ @folders.name@
+
+ }
+ }
+ type {
+ label ""
+ display_template {
+
+ #file-storage.folder_type_pretty_name#
+
+
+ @folders.type@
+
+ }
+ }
+ size {
+ label ""
+ display_template {
+
+
+ 0 #file-storage-includelet.items#
+
+
+ @folders.content_size@ #file-storage-includelet.items#
+
+
+ @folders.content_size@ #file-storage-includelet.item#
+
+
+
+ n/a
+
+
+ @folders.content_size@ #file-storage-includelet.byte##file-storage-includelet.bytes#
+ \[#file-storage-includelet.view_details#\]
+
+ }
+ }
+ }
+
+db_multirow folders $query {
+ # The name of the folder may contain message keys that need to be localized on the fly
+ set name [lang::util::localize $name]
+}
+
+# Enable Notifications
+
+set folder_name [fs_get_folder_name $folder_id]
+set notification_chunk [notification::display::request_widget \
+ -type fs_fs_notif \
+ -object_id $folder_id \
+ -pretty_name $folder_name \
+ -url [ad_conn url]?[ad_conn query]&folder_id=$folder_id \
+ ]
+
+if [exists_and_not_null file_storage_package_id] {
+ set use_webdav_p [parameter::get -package_id $file_storage_package_id -parameter "UseWebDavP"]
+
+ if { $use_webdav_p == 1} {
+ set webdav_url [fs::webdav_url -item_id $folder_id -package_id $file_storage_package_id]
+ regsub -all {/\$} $webdav_url {/\\$} webdav_url
+ }
+}
+
+
+ad_return_template
Index: openacs-4/packages/file-storage-includelet/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/tcl/apm-callback-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/tcl/apm-callback-procs.tcl 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,56 @@
+ad_library {
+
+ Forums Portlet Install library
+
+ Procedures that deal with installing, instantiating, mounting.
+
+ @creation-date 2003-12-31
+ @author Don Baccus
+ @cvs-id
+}
+
+namespace eval file_storage_includelet::install {}
+
+ad_proc -private file_storage_includelet::install::package_install {} {
+ Package installation callback proc
+} {
+
+ db_transaction {
+
+ # admin includelet
+ layout::includelet::new \
+ -name file_storage_admin_includelet \
+ -description #file-storage-includelet.admin_pretty_name# \
+ -title #file-storage-includelet.admin_pretty_name# \
+ -application file-storage \
+ -template /packages/file-storage-includelet/lib/file-storage-admin-includelet \
+ -initializer file_storage_includelet::initialize \
+ -required_privilege admin
+
+ # contents includelet
+ layout::includelet::new \
+ -name file_storage_contents_includelet \
+ -description #file-storage-includelet.content_pretty_name# \
+ -title #file-storage-includelet.content_pretty_name# \
+ -application file-storage \
+ -template /packages/file-storage-includelet/lib/file-storage-contents-includelet \
+ -initializer file_storage_includelet::initialize
+
+ # User includelet
+ layout::includelet::new \
+ -name file_storage_includelet \
+ -description #file-storage-includelet.pretty_name# \
+ -title #file-storage-includelet.pretty_name# \
+ -application file-storage \
+ -template /packages/file-storage-includelet/lib/file-storage-includelet \
+ -initializer file_storage_includelet::initialize
+ }
+}
+
+ad_proc -private file_storage_includelet::install::package_uninstall {} {
+ Package uninstallation callback proc
+} {
+ layout::includelet::delete -name file_storage_admin_includelet
+ layout::includelet::delete -name file_storage_includelet
+ layout::includelet::delete -name file_storage_contents_includelet
+}
Index: openacs-4/packages/file-storage-includelet/tcl/file-storage-includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage-includelet/tcl/file-storage-includelet-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage-includelet/tcl/file-storage-includelet-procs.tcl 30 Jul 2008 11:51:15 -0000 1.1
@@ -0,0 +1,23 @@
+namespace eval file_storage_includelet {}
+
+ad_proc -public file_storage_includelet::initialize {
+ element_id
+} {
+ The default behavior of the file storage includelet is to just wrap
+ the file storage package. Which means we display the root folder for the
+ file storage instance we're associated with.
+} {
+
+ set package_id [layout::element::get_column_value \
+ -element_id $element_id \
+ -column package_id]
+
+ set folder_id [fs::get_root_folder -package_id $package_id]
+ set node_id [site_node::get_node_id_from_object_id -object_id $package_id]
+ site_node_object_map::new -object_id $folder_id -node_id $node_id
+
+ layout::element::parameter::set_values \
+ -element_id $element_id \
+ -parameters [list scoped_p t folder_id $folder_id]
+
+}
Index: openacs-4/packages/forums-includelet/forums-includelet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/forums-includelet.info,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/forums-includelet.info 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+
+ Forums Includelet
+ Forums Includelet
+ f
+ t
+
+
+ OpenACS
+ 2008-07-16
+ OpenACS
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ar_EG.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ar_EG.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ar_EG.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ إدارةُ منتديات
+ عُطَّل
+ المنتدى
+ يجب أن يكون هناك مثال واحد فقط من المنتديات لأغراض الإدارة
+ !جديد
+ منتدى جديد
+ لا منتديات
+ المنتديات
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ar_LB.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ar_LB.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ar_LB.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ إدارةُ منتديات
+ عُطَّل
+ المنتدى
+ يجب أن يكون هناك مثال واحد فقط من المنتديات لأغراض الإدارة
+ جديد!
+ منتدى جديد
+ لا منتديات
+ المنتديات
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ast_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ast_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ast_ES.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Alministraci�n de Tableros
+ Desactiv�u
+ Tableru
+ Solo tien qu'haber una instancia de Tableros no que cinca a l'alministraci�n
+ Nuevo
+ Tableru Nuevu
+ Nun hai Tableros
+ Tableros
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ca_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ca_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ca_ES.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administraci� de f�rums
+ desactivat
+ F�rum
+ Ha d'haver nom�s una inst�ncia de f�rums pel que fa a administraci�
+ Nou!
+ F�rum nou
+ Cap f�rum
+ F�rums
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ch_zh.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ch_zh.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ch_zh.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ 论坛管理
+ 不能的
+ 论坛
+ 以管理为目的的论坛只能有一个
+ 新!
+ 新论坛
+ 没有论坛
+ 论坛
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.da_DK.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.da_DK.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.da_DK.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administration af Fora
+ deaktiveret
+ Forum
+ Af administrationshensyn b�r der kun v�re �n instans af "forums"
+ Ny!
+ Nyt Forum
+ Ingen grupper
+ Diskussionsgrupper
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.de_DE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.de_DE.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Diskussionsforen verwalten
+ Deaktiviert
+ Forum
+ Aus verwaltungstechnischen Gr�nden sollten die Diskussionsforen innerhalb einer Gruppe nur einmal eingesetzt werden.
+ Neu
+ Neues Forum erstellen
+ Keine Diskussionsforen vorhanden
+ Diskussionsforen
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.el_GR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.el_GR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.el_GR.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ απενεργοποιημένο
+ Ομάδα συζήτησης
+ Νέο!
+ Δεν υπάρχουν διαθέσιμες ομάδες συζήτησης
+ Ομάδες Συζήτησης
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.en_AU.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.en_AU.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.en_AU.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Forums Administration
+ disabled
+ Forum
+ There should be only one instance of forums for admin purposes
+ New!
+ New Forum
+ No Forums
+ Forums
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.en_US.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.en_US.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ Forums Administration
+ disabled
+ Forum
+ Go to forum %forums.name%
+ There should be only one instance of forums for admin purposes
+ New!
+ New Forum
+ No Forums
+ Forums
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.es_CO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.es_CO.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.es_CO.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administraci�n de foros
+ desactivado
+ Foro
+ Debe existir una s�la instancia de foros para prop�sitos administrativos
+ �Nuevo!
+ Nuevo Foro
+ Sin Foros
+ Foros
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.es_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.es_ES.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+ Administraci�n de foros
+ desactivado
+ Foro
+ Ir al foro %forums.name%
+ Debe existir una s�la instancia de foros en cuanto a administraci�n
+ �Nuevo!
+ Foro nuevo
+ Sin Foros
+ Foros
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.es_GT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.es_GT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.es_GT.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administraci�n de foros
+ desactivado
+ Foro
+ Debe existir una s�la instancia de foros para prop�sitos administrativos
+ �Nuevo!
+ Nuevo Foro
+ Sin Foros
+ Foros
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.fi_FI.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.fi_FI.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.fi_FI.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Keskusteluryhmien ylläpito
+ poissa käytöstä
+ Keskusteluryhmä
+ Ylläpitotarkoitusta varten pitäisi olla ainoastaan yksi keskusteluryhmä
+ Uusi!
+ Uusi keskusteluryhmä
+ Ei ryhmiä
+ Keskusteluryhmät
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.fr_FR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.fr_FR.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.fr_FR.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administration de forums
+ d�sactiv�
+ Forum
+ Il ne doit y avoir qu'une seule instance de forums en ce qui concerne l'administration
+ Nouveau!
+ Nouveau forum
+ Aucun forum
+ Forums
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.gl_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.gl_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.gl_ES.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administraci�n dos F�rums
+ desactivado
+ F�rum
+ Debe haber somente unha instancia de f�rums para prop�sitos administrativos
+ Novo!
+ Novo F�rum
+ Ning�n F�rum
+ F�rums
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.hi_IN.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.hi_IN.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.hi_IN.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ मन्च का प्रशासन
+ विकलान्ग
+ मन्च
+ मन्च का प्रबन्धन प्रयोजन के लिए ही वहा अकेला एक अनुरोध होना चाहिए ।
+ नया !
+ नया मन्च
+ मन्च नही हे
+ मन्च
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.hu_HU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.hu_HU.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.hu_HU.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ Nincsenek fórumok.
+ fórumok
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.it_IT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.it_IT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.it_IT.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Amministrazione dei Forum
+ disabilitato
+ Forum
+ Ci dovrebbe essere un'unica istanza di forum per scopi amministrativi
+ Nuovo!
+ Nuovo Forum
+ Nessun Forum
+ Forum
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ja_JP.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ja_JP.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ja_JP.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ フォーラムはありません
+ フォーラム
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ko_KR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ko_KR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ko_KR.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ 포럼 관리
+ 사용불가능한
+ 포럼
+ 관리 목적으로 포럼의 인스턴스는 한개만이 가능합니다.
+ 새로운!
+ 새로운 포럼
+ 등록된 포럼이 없습니다.
+ 포럼
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ms_MY.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ms_MY.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ms_MY.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Penyeliaan Forum
+ dilumpuhkan
+ Forum
+ Sepatutnya terdapat hanya satu keadan forum-forum untuk kegunaan pentadbir
+ Baru!
+ Forum Baru
+ Tiada Forum
+ Forum-Forum
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.nl_NL.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.nl_NL.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.nl_NL.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Forum administratie
+ uitgeschakeld
+ Forum
+ Voor administratiedoeleinden mag er slechts ��n instance van forums zijn.
+ Nieuw!
+ Nieuw forum
+ Geen forums beschikbaar
+ Forums
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.nn_NO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.nn_NO.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.nn_NO.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Forumadministrasjon
+ avsl�tt
+ Forum
+ Det b�r berre vere eit forum for administrasjonsform�l
+ Ny!
+ Nytt forum
+ Ingen forum
+ Diskusjonsforum
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.no_NO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.no_NO.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.no_NO.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Forumadministrasjon
+ avsl�tt
+ Forum
+ Det b�r bare v�re ett forum for administrasjonsform�l
+ Ny!
+ Nytt forum
+ Ingen forum
+ Forum
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.pa_IN.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.pa_IN.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.pa_IN.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ ਕੋਈ ਫੋਰਮ ਨਹੀਂ
+ ਫੋਰਮ
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.pl_PL.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.pl_PL.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.pl_PL.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administracja Forum
+ wyłączone
+ Forum
+ Powinno być tylko jedno forum do celów administracyjnych
+ Nowy!
+ Nowe Forum
+ Brak Forum
+ Biuletyny
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.pt_BR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.pt_BR.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.pt_BR.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administra��o dos F�rums
+ desativado
+ F�rum
+ Deve haver somente uma inst�ncia de f�rums para prop�sitos administrativos
+ Novo!
+ Novo F�rum
+ Nenhum F�rum
+ F�runs de Discuss�o
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.pt_PT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.pt_PT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.pt_PT.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administra��o dos Forums
+ desactivado
+ Forum
+ Deve haver apenas uma inst�ncia dos forums para prop�sitos de administra��o
+ Novo!
+ Novo Forum
+ N�o h� Forums
+ Forums
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ro_RO.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ro_RO.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ro_RO.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administrarea Forumurilor
+ dezactivat
+ Forum
+ Ar trebui să fie o singură instalare a forumurilor pentru scopuri administrative
+ Nou!
+ Forum Nou
+ Nu sunt Forumuri
+ Forumuri
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.ru_RU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.ru_RU.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.ru_RU.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Администрирование форумов
+ запрещен
+ Форум
+ Нужна всего одна виртуальная копия Форумов, для целей администрирования
+ Новый!
+ Новый форум
+ Форумов нет
+ Форумы
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.sh_HR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.sh_HR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.sh_HR.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ Trenutno bez foruma
+ Oglasna tabla
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.sv_SE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.sv_SE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.sv_SE.ISO-8859-1.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Administration av forum
+ avst�ngd
+ Forum
+ Det skall bara finnas en upps�ttning forum f�r administrativa �ndam�l
+ Nytt!
+ Nytt forum
+ Inga forum
+ Forum
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.th_TH.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.th_TH.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.th_TH.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ ไม่มีกระทู้
+ กระดานสนทนา
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.tr_TR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.tr_TR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.tr_TR.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,5 @@
+
+
+
+ Tartisma gruplari
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.zh_CN.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.zh_CN.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.zh_CN.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ 论坛管理
+ 不能
+ 论坛
+ 只能有一个管理论坛
+ 新!
+ 新论坛
+ 没有论坛
+ 论坛
+
Index: openacs-4/packages/forums-includelet/catalog/forums-includelet.zh_TW.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/catalog/forums-includelet.zh_TW.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/catalog/forums-includelet.zh_TW.utf-8.xml 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,5 @@
+
+
+
+ 論壇
+
Index: openacs-4/packages/forums-includelet/lib/forums-admin-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/lib/forums-admin-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/lib/forums-admin-includelet.adp 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,13 @@
+
+
Index: openacs-4/packages/forums-includelet/lib/forums-admin-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/lib/forums-admin-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/lib/forums-admin-includelet.tcl 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,25 @@
+ad_page_contract {
+ The display logic for the forums admin includelet
+
+ @author Ben Adida (ben@openforce)
+ @cvs_id $Id: forums-admin-includelet.tcl,v 1.1 2008/07/30 11:50:50 donb Exp $
+}
+
+db_multirow forums select_forums {
+ select forum_id, name, enabled_p
+ from forums_forums
+ where package_id = :package_id
+}
+
+set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
+
+set package_id [ad_conn package_id]
+set default_name [db_string select_package_name {
+ select instance_name from apm_packages where package_id= :package_id
+}]
+
+append default_name " [_ forums-includelet.Forum]"
+
+set encoded_default_name [ns_urlencode $default_name]
+
+ad_return_template
Index: openacs-4/packages/forums-includelet/lib/forums-includelet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/lib/forums-includelet-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/lib/forums-includelet-oracle.xql 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,26 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select forums_forums.package_id,
+ acs_object.name(apm_package.parent_id(forums_forums.package_id)) as parent_name,
+ (select site_node.url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = forums_forums.package_id) as url,
+ forums_forums.forum_id,
+ forums_forums.name,
+ case when last_modified > (sysdate - 1) then 't' else 'f' end as new_p
+ from forums_forums_enabled forums_forums,
+ acs_objects
+ where acs_objects.object_id = forums_forums.forum_id and
+ forums_forums.package_id = :package_id
+ $private_data_restriction
+ order by parent_name,
+ forums_forums.name
+
+
+
+
Index: openacs-4/packages/forums-includelet/lib/forums-includelet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/lib/forums-includelet-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/lib/forums-includelet-postgresql.xql 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,26 @@
+
+
+
+ postgresql7.1
+
+
+
+ select forums_forums.package_id,
+ acs_object__name(apm_package__parent_id(forums_forums.package_id)) as parent_name,
+ (select site_node__url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = forums_forums.package_id) as url,
+ forums_forums.forum_id,
+ forums_forums.name,
+ case when last_modified > (cast(current_timestamp as date)- 1) then 't' else 'f' end as new_p
+ from forums_forums_enabled forums_forums,
+ acs_objects
+ where acs_objects.object_id = forums_forums.forum_id and
+ forums_forums.package_id = :package_id
+ $private_data_restriction
+ order by parent_name,
+ forums_forums.name
+
+
+
+
Index: openacs-4/packages/forums-includelet/lib/forums-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/lib/forums-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/lib/forums-includelet.adp 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,20 @@
+
+
+
+
+ #forums-includelet.No_Forums#
+
+
+
Index: openacs-4/packages/forums-includelet/lib/forums-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/lib/forums-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/lib/forums-includelet.tcl 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,13 @@
+# The forums includelet can oly be bound to a single forum package. If you want
+# the .LRN-style functionality you'll have to write a custom portlet and the binding logic
+# to go with it (the applet functionality).
+
+if { [acs_privacy::privacy_control_enabled_p] } {
+ set private_data_restriction [db_map dbqd.forums-portlet.www.forums-portlet.restrict_by_private_data_priv]
+} else {
+ set private_data_restriction ""
+}
+
+set user_id [ad_conn user_id]
+
+db_multirow forums select_forums {}
Index: openacs-4/packages/forums-includelet/lib/forums-includelet.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/lib/forums-includelet.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/lib/forums-includelet.xql 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,16 @@
+
+
+
+
+
+
+ and exists (
+ select 1
+ from acs_object_party_privilege_map ppm
+ where ppm.object_id = forums_forums.package_id
+ and ppm.party_id = :user_id
+ and ppm.privilege = 'read_private_data'
+ )
+
+
+
Index: openacs-4/packages/forums-includelet/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-includelet/tcl/apm-callback-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums-includelet/tcl/apm-callback-procs.tcl 30 Jul 2008 11:50:50 -0000 1.1
@@ -0,0 +1,43 @@
+ad_library {
+
+ Forums includelet for use with the layout manager
+
+ @creation-date 2008-07-16
+ @author Don Baccus
+ @version $Id: apm-callback-procs.tcl,v 1.1 2008/07/30 11:50:50 donb Exp $
+}
+
+namespace eval forums_includelet::install {}
+
+ad_proc -private forums_includelet::install::package_install {} {
+ Package installation callback proc
+} {
+
+ db_transaction {
+
+ # Admin includelet
+ layout::includelet::new \
+ -name forums_admin_includelet \
+ -description "Displays forums admin includelet" \
+ -title #forums-includelet.admin_pretty_name# \
+ -application forums \
+ -template /packages/forums-includelet/lib/forums-admin-includelet \
+ -required_privilege admin
+
+ # User includelet
+ layout::includelet::new \
+ -name forums_includelet \
+ -description "Displays the forums includelet" \
+ -title #forums-includelet.pretty_name# \
+ -application forums \
+ -template /packages/forums-includelet/lib/forums-includelet
+ }
+}
+
+ad_proc -private forums_includelet::install::package_uninstall {} {
+ Package uninstallation callback proc
+} {
+ layout::includelet::delete -name forums_includelet
+ layout::includelet::delete -name forums_admin_includelet
+}
+