--- CalendarPlugin.pm.bak	2002-12-22 00:46:06.000000000 -0800
+++ CalendarPlugin.pm	2002-12-24 04:51:00.000000000 -0800
@@ -27,7 +27,8 @@
 use vars qw( $web $topic $user $installWeb $VERSION
 	    $libsLoaded $libsError %defaults );
 
-$VERSION    = '1.006';  #ad# support Monthly items
+$VERSION    = '1.007';  #ap# attributes for day headings
+#$VERSION   = '1.006';  #ad# support Monthly items
 #$VERSION   = '1.005';  #ad# support Date intervals
 #$VERSION   = '1.004';  #as# only HTML::CalendarMonthSimple, ISO dates, options
 #$VERSION   = '1.003';  #as# now also with HTML::CalendarMonthSimple
@@ -85,6 +86,7 @@
 	weekendheadercolor		=> undef, # the default is ok
 	weekendheadercontentcolor	=> undef, # the default is ok
 	# other options not belonging to HTML::CalendarMonthSimple
+	daynames			=> undef, # order is: Monday|Tuesday|Wednesday|Thursday|Friday|Saturday|Sunday
 	topic			=> $topic,
 	web			=> $web,
 	format			=> "<A HREF=\"%SCRIPTURLPATH%/view%SCRIPTSUFFIX%/\$web/\$topic\"><FONT size=\"+2\">\$old</FONT><IMG ALT=\"\$description\" SRC=\"%PUBURLPATH%/$installWeb/CalendarPlugin/exclam.gif\"/></A>"
@@ -239,6 +241,18 @@
 	}
     }
 
+	# set names for days of the week
+	if ($options{showweekdayheaders} && defined($options{daynames}))
+	{
+		my @daynames = split( /\|/, $options{daynames} );
+		if (@daynames == 7)
+		{
+			$cal->weekdays( $daynames[0], $daynames[1], $daynames[2], $daynames[3], $daynames[4] );
+			$cal->saturday( $daynames[5] );
+			$cal->sunday( $daynames[6] );
+		}
+	}
+
     # parse events
     my @days = ();
     my ($descr, $dd, $mm, $yy, $text) =