[Stud-cvs] stud booking,1.28,1.29

[Peter B. <mr_...@us...>]

Update of /cvsroot/stud/stud
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20227

Modified Files:
	booking 
Log Message:
Bug:1095101. Fixed display of booking dates for an item.

Index: booking
===================================================================
RCS file: /cvsroot/stud/stud/booking,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** booking	14 Jan 2004 18:46:35 -0000	1.28
--- booking	4 Jan 2005 14:13:36 -0000	1.29
***************
*** 620,623 ****
--- 620,626 ----
    my $today_weekday = Day_of_Week(Today());
    my ($today_week, $today_year) = Week_of_Year(Today());
+   my $today_month;
+   my $today_day;
+   ($today_year, $today_month, $today_day) = Today();
  
    print
***************
*** 753,759 ****
  	    ($yy > $today_year || 
  	     ($yy == $today_year &&
! 	      ($ww > $today_week ||
! 	       ($ww == $today_week &&
! 		($d+1) >= $today_weekday))))) {
  	  $color = " bgcolor=lightblue";
  	  $remove_is_ok = 1;
--- 756,762 ----
  	    ($yy > $today_year || 
  	     ($yy == $today_year &&
! 	      ($mm > $today_month ||
! 	       ($mm == $today_month &&
! 		($dd) >= $today_day))))) {
  	  $color = " bgcolor=lightblue";
  	  $remove_is_ok = 1;