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,