Index: openacs-4/packages/calendar/catalog/calendar.AR_LB.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/catalog/Attic/calendar.AR_LB.utf-8.xml,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/calendar/catalog/calendar.AR_LB.utf-8.xml 10 Mar 2004 13:46:45 -0000 1.5
+++ openacs-4/packages/calendar/catalog/calendar.AR_LB.utf-8.xml 6 May 2004 15:21:39 -0000 1.6
@@ -11,8 +11,9 @@
حدث طوال النهار
كُلّ الأحداث
والوقت
+ يطبق علر جميع الآحداث
الملحقات:
- مُشاهدون للمادةِ
+ مُشاهدون للمادةِ%cal_item_name%
المُفكِرات
المفكرة: أضف بند
المفكرة: عَدّلْ البند
Index: openacs-4/packages/calendar/catalog/calendar.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/catalog/calendar.es_ES.ISO-8859-1.xml,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/calendar/catalog/calendar.es_ES.ISO-8859-1.xml 10 Mar 2004 13:46:45 -0000 1.11
+++ openacs-4/packages/calendar/catalog/calendar.es_ES.ISO-8859-1.xml 6 May 2004 15:21:39 -0000 1.12
@@ -11,6 +11,7 @@
Cita para todo el d�a
Todas las citas
y Hora
+ Aplicar a todos los eventos
Archivos Adjuntos:
Audiencia para la cita
Calendario
@@ -44,6 +45,7 @@
de
Otorgar
Autorizar
+ El evento es recurrente
Cita
�Desea realmente borrar este calendario? Todos los eventos y permisos asociados ser�n borrados tambi�n.
�Desea realmente borrar este evento?
@@ -93,6 +95,7 @@
cada
S�bado
Elegir Calendarios
+ Compartiendo
Inicio
Enviar solicitud
Domingo
Index: openacs-4/packages/calendar/catalog/calendar.hu_HU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/catalog/calendar.hu_HU.utf-8.xml,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/calendar/catalog/calendar.hu_HU.utf-8.xml 10 Mar 2004 13:46:45 -0000 1.4
+++ openacs-4/packages/calendar/catalog/calendar.hu_HU.utf-8.xml 6 May 2004 15:21:39 -0000 1.5
@@ -13,6 +13,7 @@
Naptár
Naptár: új tétel
Naptár: tétel szerkesztése
+ Naptárbejegyzés-típusok
Naptár neve
"Naptár jogosultságok"
Naptár jogosultságok
@@ -22,13 +23,17 @@
Dátum:
Dátum
nap
+ napos időszak alatt
nap(ok)
Törlés
törlés
Leírás
Részletek:
Szerkesztés
szerkesztés
+ Események egy
Péntek
Tétel
+ Új típus:
+ Nincsenek tételek.
Index: openacs-4/packages/calendar/catalog/calendar.nl_NL.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/catalog/calendar.nl_NL.ISO-8859-1.xml,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/calendar/catalog/calendar.nl_NL.ISO-8859-1.xml 10 Mar 2004 13:46:45 -0000 1.12
+++ openacs-4/packages/calendar/catalog/calendar.nl_NL.ISO-8859-1.xml 6 May 2004 15:21:39 -0000 1.13
@@ -7,7 +7,7 @@
Een nieuw publiek toevoegen
Een gebeurtenis toevoegen
Gebeurtenis toevoegen
- Herhaling toevoegen
+ Repeterend toevoegen
Gebeurtenis op iedere dag
alle gebeurtenissen
en tijd
@@ -36,11 +36,11 @@
Verwijderen
Beschrijving
Details:
- Toelichting voor ontwikkelaars: Een kalender aanmaken omvat de volgende stappen:
-<ol>
-<li>Maak een kalenderobject aan en wijzig, indien nodig, de standaardrechten.
-<li>Associeer de kalender met groepen en/of gebruikers.
-<li>Wijzig groeps- en gebruikersrechten, indien gewenst.
+ Toelichting voor ontwikkelaars: Een kalender aanmaken omvat de volgende stappen:
+<ol>
+<li>Een kalenderobject aanmaken en - indien nodig- de standaardrechten veranderen.</li>
+<li>De kalender met groepen en/of gebruikers verbinden.</li>
+<li>De gewenste groeps- en gebruikersrechten toepassen.</li>
</ol>
Bewerken
bewerken
@@ -50,20 +50,20 @@
van
Toekennen
Rechten toekennen
- Terugkerende gebeurtenis.
+ Repeterende gebeurtenis.
Gebeurtenis
- Moet deze kalender echt worden verwijderd?
-
+ Deze kalender echt verwijderen?
+
Alle gebeurtenissen en alle rechten die met deze kalender zijn verbonden zullen ook worden verwijderd.
- Moet deze gebeurtenis echt worden verwijderd?
+ Deze gebeurtenis echt verwijderen?
Publiek voor kalender
Kalender administratie
- Kalender administratie van gebruiker
+ Kalender administratie voor gebruiker
Kalender: kalender kiezen
Kalender detail: alle informatie over de persoonlijke kalender
Gebeurtenis administratie
"Rechten van gebeurtenissen"
- Kalenders: terugkerende gebeurtenis
+ Kalenders: repeterende gebeurtenis
Nieuwe kalender aanmaken
alle voorkomende gevallen verwijderen
alleen deze instance verwijderen
@@ -79,7 +79,7 @@
Dit is een lijst van beschikbare kalenders. Deze lijst is beschikbaar via de persoonlijke kalender, zodat gebeurtenissen tussen twee kalenders kunnen worden ingezien. Men kan zelf aangeven welke kalenders op de lijst moeten blijven en welke niet.
Deze kalender heeft geen publiek
Deze gebeurtenis is terugkerend
- Deze gebeurtenis is als terugkerend ingesteld, zodat deze vaker in de kalender zal verschijnen. De details zijn:
+ Deze gebeurtenis is als repeterend ingesteld, zodat deze vaker in de kalender zal verschijnen. De details zijn:
De volgende kalenders staan ter beschikking
Er is geen kalender die voor alle gebruikers beschikbaar is.
maandag
Index: openacs-4/packages/calendar/catalog/calendar.nn_NO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/catalog/calendar.nn_NO.ISO-8859-1.xml,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/catalog/calendar.nn_NO.ISO-8859-1.xml 6 May 2004 15:21:39 -0000 1.2
@@ -0,0 +1,117 @@
+
+
+
+ . Du kan velje �
+ Legg til
+ legg til
+ Legg til ei ny gruppe personar
+ legg til avtale
+ Legg inn
+ Legg til repitisjon
+ Heile dagen
+ alle innlegg
+ og tid
+ Legg inn for alle aktivitetar
+ Vedlegg:
+ Kven som kan sj� innlegget %cal_item_name%
+ Kalender
+ Kalender: Nyt aktivitet
+ Kalender: rediger aktivitet
+ Kalenderaktivitet
+ Kalenderinnlegg Slett
+ Kalender Innleggstypar
+ Kalendernavn
+ "Rettar for kalender"
+ Rettar for kalender
+ "Val for kalender"
+ Kalendrar
+ Vel
+ Noverande rettar
+ Dato:
+ Dato
+ dag
+ dagars rullande periode
+ dag(ar)
+ Slett
+ slett
+ Beskriving
+ Detaljar:
+ Utviklarnotis: � lage kalender involverer fleire steg: <ol> <li>Lag kalenderobjektet og endre standard rettigar dersom n�dvendig<li>Vel grupper og/eller brukarar som skal bruke kalenderen<li>Legg inn gruppe, brukarspesifikke rettar etter trong</ol>
+ Rediger
+ rediger
+ Sluttid
+ Innlegg over ein
+ fredag
+ fr�
+ Gje
+ Gje l�yve
+ Innlegg repeterer
+ Innlegg
+ Er du sikker p� at du vil slette denne kalenderen? Alle kalenderinnlegg og alle rettar som er knytte til kalenderen vil ogs� bli sletta.
+ Er du sikker p� at du vil slette denne aktiviteten?
+ Dei som kan sj� kalendaren
+ Kalenderadministrasjon
+ Kalenderadministrasjon for brukar
+ Kalender: Vel kalender
+ Kalenderdetalj: skriv ut all informasjon om den individuelle kalenderen
+ Kalenderinnleggsadministrasjon
+ Kalenderinnleggsrettar
+ Kalender: Repeterande innlegg
+ Lag ny kalender
+ slett alle repetisjonar
+ slett berre dette innlegget
+ Rediger dine kalender-val
+ alle har lesetilgang og kan sj� innlegga, b�de registrerte og uregistrerte brukarar.
+ G�ym avmerkte kalendrar
+ Organiser kven som kan sj� kalenderen
+ Ingen grupper fins. kontakt systemadministrator.
+ Ingen rettar fins. kontakt systemadministrator.
+ ingen rettar er gjevne
+ berre dei du vel kan sj� kalenderen kan s� desse innlegga.
+ Repeter dette innlegget til:
+ F�lgjande liste av kalendrar er tilgjengelege for deg. Lista vil visast p� din kalender som eit val vor deg � sj� innlegg mellom desse kalendrane. Du kan velgje kva kalendrar du vil skal vere med p� denne lista.
+ Ingen andre kan sj� denne kalendaren.
+ Dette er eit repeterande innlegg
+ Du vel � gjere dette innlegget repeterande, slik at det blir vist meir enn ein gong i kalenderen. Detaljar for innlegget er:
+ Du kan vedlikehalde f�lgjande kalendrar:
+ Du har ingen kalendrar for ei heil gruppe
+ m�ndag
+ Ny type:
+ Nei
+ Ingen kalender
+ Ingen innlegg
+ nei, behald det
+ Notat
+ i m�naden
+ i veka
+ Privat:
+ privat
+ Offentleg:
+ offentleg
+ Repeter
+ Repeter?
+ Repeter kvar
+ inspiser
+ same
+ laurdag
+ Vel kalendrar
+ Deling
+ Starttid
+ Send spurnad
+ sundag
+ synkroniser med Outlook
+ torsdag
+ Tid:
+ Tittel;
+ Tittel
+ til
+ tysdag
+ Type:
+ Type
+ Bruk timane under:
+ onsdag
+ �r
+ Ja
+ ja, slett det
+ Ja, eg er sikker
+
Index: openacs-4/packages/calendar/catalog/calendar.no_NO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/catalog/calendar.no_NO.ISO-8859-1.xml,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/calendar/catalog/calendar.no_NO.ISO-8859-1.xml 10 Mar 2004 13:46:45 -0000 1.9
+++ openacs-4/packages/calendar/catalog/calendar.no_NO.ISO-8859-1.xml 6 May 2004 15:21:39 -0000 1.10
@@ -4,15 +4,16 @@
. Du kan velge �:
Legg til
legg til
- Legg til nye tilskuere
+ Legg til en ny gruppe personer
legg inn avtale
- Nytt innlegg
+ Nyt aktivitet
Legg til gjentakelse
Hele dagen
- alle innlegg
+ alle aktivitetar
og Tid
+ Legg inn for alle aktiviteter
Vedlegg
- Tilskuere for innlegg
+ De som kan se aktiviteten
Kalender
Kalender: Nytt innlegg
Kalender: Rediger innlegg
@@ -29,24 +30,28 @@
Dato:
Dato
dag
+ dager rullende periode
dag (er)
Slett
slett
Beskrivelse
Detaljer:
+ Utviklernotis: � lage kalender involverer flere steg: <ol> <li>Lag kalenderobjektet og endre standard rettigheter dersom n�dvendig<li>Velg grupper og/eller brukere som skal bruke kalenderen<li>Legg inn gruppe, brukerspesifikke rettigheter etter behov</ol>
Rediger
rediger
Sluttid
+ Innlegg over en
Fredag
fra
Gi
Gi tillatelse
+ Innlegg repeterer
Innlegg
Er du sikker p� at du vil slette denne kalenderen? Alle innleggene i kalenderen og alle tillatelsene som er knyttet til kalenderen vil bli slettet ogs�.
Er du sikker p� at du vil slette dette innlegget?
Tilskuere for kalender
- Kalender Administrasjon
- kalender Administrasjon for brukere
+ Kalenderadministrasjon
+ Kalenderadministrasjon for brukere
Kalender: Velg kalender
Kalender detalj: lister all informasjon om den individuelle kalenderen
Kalenderinnleggsadministrasjon
@@ -74,6 +79,7 @@
Ny type:
Nei
Ingen kalendere
+ Ingen innlegg
nei, behold det
Notat
i m�neden
@@ -89,6 +95,7 @@
samme
L�rdag
Velg kalendere
+ Deling
Starttid
Send foresp�rsel
S�ndag
Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl 25 Feb 2004 13:07:07 -0000 1.24
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl 6 May 2004 15:21:40 -0000 1.25
@@ -152,7 +152,7 @@
ad_proc -public calendar::have_private_p {
{-return_id 0}
{-calendar_id_list {}}
- party_id
+ {-party_id party_id }
} {
check to see if ther user have a private calendar
if -return_id is 1, then proc will return the calendar_id
Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/calendar/www/cal-item-new.tcl 26 Feb 2004 15:29:03 -0000 1.24
+++ openacs-4/packages/calendar/www/cal-item-new.tcl 6 May 2004 15:21:41 -0000 1.25
@@ -154,7 +154,7 @@
}
} -new_request {
# Seamlessly create a private calendar if the user doesn't have one
- if { ![calendar::have_private_p $user_id] } {
+ if { ![calendar::have_private_p -party_id $user_id] } {
calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
}
Index: openacs-4/packages/calendar/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/index.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/calendar/www/index.tcl 25 Feb 2004 13:07:08 -0000 1.16
+++ openacs-4/packages/calendar/www/index.tcl 6 May 2004 15:21:41 -0000 1.17
@@ -12,7 +12,7 @@
set package_id [ad_conn package_id]
set user_id [ad_conn user_id]
-if { ![calendar::have_private_p $user_id] } {
+if { ![calendar::have_private_p -party_id $user_id] } {
calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
}
Index: openacs-4/packages/calendar/www/view-list-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-list-display.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/calendar/www/view-list-display.tcl 24 Feb 2004 16:13:45 -0000 1.22
+++ openacs-4/packages/calendar/www/view-list-display.tcl 6 May 2004 15:21:41 -0000 1.23
@@ -1,8 +1,10 @@
if {[info exists url_stub_callback]} {
# This parameter is only set if this file is called from .LRN.
# This way I make sure that for the time being this adp/tcl
- # snippet is backwards-compatible. Will be fixed in OpenACS 5.1.
- set portled_mode_p 1
+ # snippet is backwards-compatible.
+ set portlet_mode_p 1
+} else {
+ set portlet_mode_p 0
}
if {[info exists portlet_mode_p] && $portlet_mode_p} {
Index: openacs-4/packages/calendar/www/view-month-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-month-display.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/calendar/www/view-month-display.tcl 19 Feb 2004 17:58:37 -0000 1.16
+++ openacs-4/packages/calendar/www/view-month-display.tcl 6 May 2004 15:21:41 -0000 1.17
@@ -10,25 +10,29 @@
if {[info exists url_stub_callback]} {
# This parameter is only set if this file is called from .LRN.
# This way I make sure that for the time being this adp/tcl
- # snippet is backwards-compatible. Will be fixed in OpenACS 5.1.
- set portled_mode_p 1
+ # snippet is backwards-compatible.
+ set portlet_mode_p 1
}
if {[info exists portlet_mode_p] && $portlet_mode_p} {
- set page_num "&page_num=$page_num"
- set item_template "\${url_stub}cal-item-view?show_cal_nav=0&return_url=$encoded_return_url&action=edit&cal_item_id=\$item_id>"
+ set page_num_urlvar "&page_num=$page_num"
+ set item_template "\${url_stub}cal-item-view?show_cal_nav=0&return_url=[ad_urlencode "../"]&action=edit&cal_item_id=\$item_id"
set prev_month_template "?view=month&date=\[ad_urlencode \$prev_month\]&page_num=$page_num"
- set prev_month_template "?view=month&date=\[ad_urlencode \$next_month\]&page_num=$page_num"
+ set next_month_template "?view=month&date=\[ad_urlencode \$next_month\]&page_num=$page_num"
set url_stub_callback "calendar_portlet_display::get_url_stub"
} else {
set item_template "cal-item-view?cal_item_id=\$item_id"
set prev_month_template "view?view=month&\date=[ad_urlencode $prev_month]"
set next_month_template "view?view=month&\date=[ad_urlencode $next_month]"
set url_stub_callback ""
- set page_num ""
+ set page_num_urlvar ""
set base_url ""
}
+if { ![info exists show_calendar_name_p] } {
+ set show_calendar_name_p 1
+}
+
if {[exists_and_not_null calendar_id_list]} {
set calendars_clause [db_map dbqd.calendar.www.views.openacs_in_portal_calendar]
} else {
@@ -157,7 +161,7 @@
f \
0 \
"${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time" \
- "?view=day&date=[dt_julian_to_ansi $current_day]&page_num=${page_num}"
+ "?view=day&date=[dt_julian_to_ansi $current_day]&$page_num_urlvar"
}
}
@@ -197,7 +201,7 @@
f \
$time_p \
"${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time" \
- "?view=day&date=[dt_julian_to_ansi $current_day]&page_num=${page_num}"
+ "?view=day&date=[dt_julian_to_ansi $current_day]&$page_num_urlvar"
}
# Add cells for remaining days inside the month
@@ -221,7 +225,7 @@
f \
0 \
"${base_url}cal-item-new?date=[dt_julian_to_ansi $current_day]&start_time=&end_time" \
- "?view=day&date=[dt_julian_to_ansi $current_day]&page_num=${page_num}"
+ "?view=day&date=[dt_julian_to_ansi $current_day]&$page_num_urlvar"
}
# Add cells for remaining days outside the month
Index: openacs-4/packages/calendar/www/view-one-day-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-one-day-display.tcl,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/calendar/www/view-one-day-display.tcl 19 Feb 2004 17:58:37 -0000 1.28
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl 6 May 2004 15:21:41 -0000 1.29
@@ -1,14 +1,18 @@
if {[info exists url_stub_callback]} {
# This parameter is only set if this file is called from .LRN.
# This way I make sure that for the time being this adp/tcl
- # snippet is backwards-compatible. Will be fixed in OpenACS 5.1.
- set portled_mode_p 1
+ # snippet is backwards-compatible.
+ set portlet_mode_p 1
+} else {
+ set portlet_mode_p 0
}
+set current_date $date
+
if {[info exists portlet_mode_p] && $portlet_mode_p} {
- set item_template "\${url_stub}cal-item-view?show_cal_nav=0&return_url=$encoded_return_url&action=edit&cal_item_id=\$item_id>"
+ set item_template "\${url_stub}cal-item-view?show_cal_nav=0&return_url=[ad_urlencode "../"]&action=edit&cal_item_id=\$item_id"
set url_stub_callback "calendar_portlet_display::get_url_stub"
- set hour_template "calendar/cal-item-new?date=$current_date&start_time=\$localized_day_current_hour"
+ set hour_template "calendar/cal-item-new?date=foofoo$current_date&start_time=\$day_current_hour"
} else {
set item_template "cal-item-view?cal_item_id=\$item_id"
set url_stub_callback ""
@@ -33,7 +37,6 @@
set calendars_clause [db_map dbqd.calendar.www.views.openacs_calendar]
}
-set current_date $date
if {[empty_string_p $date]} {
# Default to todays date in the users (the connection) timezone
set server_now_time [dt_systime]
@@ -106,22 +109,18 @@
set ansi_start_date [lc_time_system_to_conn $ansi_start_date]
set ansi_end_date [lc_time_system_to_conn $ansi_end_date]
- set start_hour [lc_time_fmt $ansi_start_date "%H"]
- set end_hour [lc_time_fmt $ansi_end_date "%H"]
set start_time [lc_time_fmt $ansi_start_date "%X"]
set end_time [lc_time_fmt $ansi_end_date "%X"]
- if {![regexp {([1-9][0-9]*)} $start_hour match start_hour_no]} {
- set start_hour_no 0
+ if {($start_hour == $end_hour) || ($end_minutes > 0)} {
+ incr end_hour
}
- if {![regexp {([1-9][0-9]*)} $end_hour match end_hour_no]} {
- set end_hour_no 0
- }
for { set item_current_hour $start_hour } { $item_current_hour < $end_hour } { incr item_current_hour } {
set item_current_hour [expr [string trimleft $item_current_hour 0]+0]
- if { $start_hour_no == $item_current_hour } {
+ if { $start_hour == $item_current_hour } {
+
lappend day_items_per_hour \
[list $item_current_hour $name $item_id $calendar_name $status_summary $start_hour $end_hour $start_time $end_time]
} else {
@@ -147,11 +146,10 @@
set item_start_hour [expr [string trimleft [lindex $this_item 5] 0]+0]
set item_end_hour [expr [string trimleft [lindex $this_item 6] 0]+0]
set rowspan [expr $item_end_hour - $item_start_hour]
-
if {$item_start_hour > $day_current_hour && \
- $item_start_hour >= $start_display_hour && \
- $item_end_hour <= $end_display_hour} {
+ $item_start_hour >= $start_display_hour} {
# need to add dummy entries to show all hours
+
for { } { $day_current_hour < $item_start_hour } { incr day_current_hour } {
set localized_day_current_hour [lc_time_fmt "$current_date $day_current_hour:00:00" "%X"]
multirow append items \
@@ -207,7 +205,7 @@
if {$day_current_hour < $end_display_hour } {
# need to add dummy entries to show all hours
- for { } { $day_current_hour <= $end_display_hour } { incr day_current_hour } {
+ for { } { $day_current_hour < $end_display_hour } { incr day_current_hour } {
set localized_day_current_hour [lc_time_fmt "$current_date $day_current_hour:00:00" "%X" [ad_conn locale]]
multirow append items \
"" \
@@ -225,7 +223,11 @@
db_1row dbqd.calendar.www.views.select_day_info {}
-set previous_week_url "view?view=day&date=[ns_urlencode $yesterday]"
-set next_week_url "view?view=day&date=[ns_urlencode $tomorrow]"
-
+if {$portlet_mode_p} {
+ set previous_week_url "?page_num=$page_num&date=[ns_urlencode $yesterday]"
+ set next_week_url "?page_num=$page_num&&date=[ns_urlencode $tomorrow]"
+} else {
+ set previous_week_url "view?view=day&date=[ns_urlencode $yesterday]"
+ set next_week_url "view?view=day&date=[ns_urlencode $tomorrow]"
+}
set dates [lc_time_fmt $date "%q"]
Index: openacs-4/packages/calendar/www/view-week-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-week-display.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/calendar/www/view-week-display.tcl 19 Feb 2004 17:58:37 -0000 1.15
+++ openacs-4/packages/calendar/www/view-week-display.tcl 6 May 2004 15:21:41 -0000 1.16
@@ -1,23 +1,29 @@
if {[info exists url_stub_callback]} {
# This parameter is only set if this file is called from .LRN.
# This way I make sure that for the time being this adp/tcl
- # snippet is backwards-compatible. Will be fixed in OpenACS 5.1.
- set portled_mode_p 1
+ # snippet is backwards-compatible.
+ set portlet_mode_p 1
+} else {
+ set portlet_mode_p 0
}
if {[info exists portlet_mode_p] && $portlet_mode_p} {
- set item_template "\${url_stub}cal-item-view?show_cal_nav=0&return_url=$encoded_return_url&action=edit&cal_item_id=\$item_id>"
+ set item_template "\${url_stub}cal-item-view?show_cal_nav=0&return_url=[ad_urlencode "../"]&action=edit&cal_item_id=\$item_id"
set url_stub_callback "calendar_portlet_display::get_url_stub"
set page_num_formvar [export_form_vars page_num]
- set page_num "&page_num=$page_num"
+ set page_num_urlvar "&page_num=$page_num"
} else {
set item_template "cal-item-view?cal_item_id=\$item_id"
set url_stub_callback ""
set page_num_formvar ""
- set page_num ""
+ set page_num_urlvar ""
set base_url ""
}
+if { ![info exists show_calendar_name_p] } {
+ set show_calendar_name_p 1
+}
+
if {[exists_and_not_null calendar_id_list]} {
set calendars_clause [db_map dbqd.calendar.www.views.openacs_in_portal_calendar]
} else {
@@ -100,7 +106,7 @@
"" \
"" \
"${base_url}cal-item-new?date=${ansi_this_date}&start_time=&end_time=" \
- "?view=day&date=$ansi_this_date&page_num=${page_num}"
+ "?view=day&date=$ansi_this_date&page_num_urlvar"
}
set ansi_this_date [dt_julian_to_ansi [expr $first_weekday_julian + $current_weekday]]
@@ -131,7 +137,7 @@
$start_time \
$end_time \
$no_time_p \
- "?view=day&date=$ansi_start_date&page_num=${page_num}" \
+ "?view=day&date=$ansi_start_date&page_num_urlvar" \
"${base_url}cal-item-new?date=${ansi_this_date}&start_time=&end_time="
set current_weekday $day_of_week
}
@@ -152,11 +158,16 @@
"" \
"" \
"${base_url}cal-item-new?date=${ansi_this_date}&start_time=&end_time=" \
- "?view=day&date=$ansi_this_date&page_num=${page_num}"
+ "?view=day&date=$ansi_this_date&page_num_urlvar"
}
}
# Navigation Bar
set dates "[lc_time_fmt $first_weekday_date "%q"] - [lc_time_fmt $last_weekday_date "%q"]"
-set previous_week_url "view=week&date=[ad_urlencode [dt_julian_to_ansi [expr $first_weekday_julian - 7]]]"
-set next_week_url "view?view=week&date=[ad_urlencode [dt_julian_to_ansi [expr $first_weekday_julian + 7]]]"
+if {$portlet_mode_p} {
+ set previous_week_url "?$page_num_urlvar&view=week&date=[ad_urlencode [dt_julian_to_ansi [expr $first_weekday_julian - 7]]]"
+ set next_week_url "?$page_num_urlvar&view=week&date=[ad_urlencode [dt_julian_to_ansi [expr $first_weekday_julian + 7]]]"
+} else {
+ set previous_week_url "view=week&date=[ad_urlencode [dt_julian_to_ansi [expr $first_weekday_julian - 7]]]"
+ set next_week_url "?view=week&date=[ad_urlencode [dt_julian_to_ansi [expr $first_weekday_julian + 7]]]"
+}
Index: openacs-4/packages/calendar/www/views-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/views-oracle.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/calendar/www/views-oracle.xql 19 Feb 2004 17:58:37 -0000 1.4
+++ openacs-4/packages/calendar/www/views-oracle.xql 6 May 2004 15:21:41 -0000 1.5
@@ -7,6 +7,9 @@
select to_char(start_date, 'YYYY-MM-DD HH24:MI:SS') as ansi_start_date,
to_char(end_date, 'YYYY-MM-DD HH24:MI:SS') as ansi_end_date,
+ to_number(to_char(start_date,'HH24'),'90') as start_hour,
+ to_number(to_char(end_date,'HH24'),'90') as end_hour,
+ to_number(to_char(end_date,'MI'),'90') as end_minutes,
nvl(e.name, a.name) as name,
nvl(e.status_summary, a.status_summary) as status_summary,
e.event_id as item_id,
Index: openacs-4/packages/calendar/www/views-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/views-postgresql.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/calendar/www/views-postgresql.xql 27 Feb 2004 21:29:59 -0000 1.4
+++ openacs-4/packages/calendar/www/views-postgresql.xql 6 May 2004 15:21:41 -0000 1.5
@@ -7,6 +7,9 @@
select to_char(start_date, 'YYYY-MM-DD HH24:MI:SS') as ansi_start_date,
to_char(end_date, 'YYYY-MM-DD HH24:MI:SS') as ansi_end_date,
+ to_number(to_char(start_date,'HH24'),'90') as start_hour,
+ to_number(to_char(end_date,'HH24'),'90') as end_hour,
+ to_number(to_char(end_date,'MI'),'90') as end_minutes,
coalesce(e.name, a.name) as name,
coalesce(e.status_summary, a.status_summary) as status_summary,
e.event_id as item_id,