OpenACS

andrews
committed
MAIN:andrews:20010830010451
on 30 Aug 01
Fixed bug in dt_next_month and dt_prev_month, which were using unnecessary
"day" arguments.
/tcl/acs-calendar-procs.tcl (+3 -3)
782 782     set day [dt_trim_leading_zeros [lindex $date_list 2]]
783 783
784 784     # We put all the data into dt_info_set and return it later
785 785     set dt_info_set [ns_set create]
786 786
787 787     ns_set put $dt_info_set julian_date_today \
788 788         [dt_ansi_to_julian $year $month $day]
789 789     ns_set put $dt_info_set month \
790 790         [clock format [clock scan $the_date] -format %B]
791 791     ns_set put $dt_info_set year \
792 792         [clock format [clock scan $the_date] -format %Y]
793 793     ns_set put $dt_info_set first_julian_date_of_month \
794 794         [dt_ansi_to_julian $year $month 1]
795 795     ns_set put $dt_info_set num_days_in_month \
796 796         [dt_num_days_in_month $year $month]
797 797     ns_set put $dt_info_set first_day_of_month \
798 798         [dt_first_day_of_month $year $month]
799 799     ns_set put $dt_info_set last_day \
800 800         [dt_num_days_in_month $year $month]
801 801     ns_set put $dt_info_set next_month \
802           [dt_next_month $year $month $day]
  802         [dt_next_month $year $month]
803 803     ns_set put $dt_info_set prev_month \
804           [dt_prev_month $year $month $day]
  804         [dt_prev_month $year $month]
805 805     ns_set put $dt_info_set beginning_of_year \
806 806         $year-01-01
807 807     ns_set put $dt_info_set days_in_last_month \
808 808         [dt_num_days_in_month $year [expr $month - 1]]
809 809     ns_set put $dt_info_set next_month_name \
810 810         [dt_next_month_name $year $month]
811 811     ns_set put $dt_info_set prev_month_name \
812 812         [dt_prev_month_name $year $month]
813 813
814 814     # We need the variables from the ns_set
815 815     ad_ns_set_to_tcl_vars $dt_info_set
816 816
817 817     ns_set put $dt_info_set first_julian_date \
818 818         [expr $first_julian_date_of_month + 1 - $first_day_of_month]
819 819     ns_set put $dt_info_set first_day \
820 820         [expr $days_in_last_month + 2 - $first_day_of_month]
821 821     ns_set put $dt_info_set last_julian_date_in_month \
822 822         [expr $first_julian_date_of_month + $num_days_in_month - 1]
823 823
824 824     set days_in_next_month \