calendar::get_month_multirow_information (private)

 calendar::get_month_multirow_information -current_day current_day \
    -today_julian_date today_julian_date \
    -first_julian_date_of_month first_julian_date_of_month

Defined in packages/calendar/tcl/calendar-procs.tcl

Builds a multirow with information about the month. Used to display the month calendar view.

Switches:

-current_day

(required)

-today_julian_date

(required)

-first_julian_date_of_month

(required)

Author:

Dirk Gomez <openacs@dirkgomez.de>

Created:

20-July-2003

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set first_day_of_week [lc_get firstdayofweek]
    set last_day_of_week [expr {($first_day_of_week + 6) % 7}]

    if {$current_day == $today_julian_date} {
        set today_p t
    } else {
        set today_p f
    }
    set day_number [expr {$current_day - $first_julian_date_of_month +1}]
    set weekday [expr {($current_day + 1) % 7}]

    set beginning_of_week_p f
    set end_of_week_p f
    if {$weekday == $last_day_of_week} {
        set end_of_week_p t
    } elseif {$weekday == $first_day_of_week} {
        set beginning_of_week_p t
    }
    return [list day_number $day_number  today_p $today_p  beginning_of_week_p $beginning_of_week_p  end_of_week_p $end_of_week_p  weekday $weekday]

Generic XQL file:

packages/calendar/tcl/calendar-procs.xql

PostgreSQL XQL file:

packages/calendar/tcl/calendar-procs-postgresql.xql

Oracle XQL file:

packages/calendar/tcl/calendar-procs-oracle.xql