--- loncom/interface/lonannounce.pm 2006/03/21 20:45:35 1.47
+++ loncom/interface/lonannounce.pm 2006/04/22 16:32:55 1.49
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Announce
#
-# $Id: lonannounce.pm,v 1.47 2006/03/21 20:45:35 albertel Exp $
+# $Id: lonannounce.pm,v 1.49 2006/04/22 16:32:55 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -155,7 +155,7 @@ sub readcalendar {
}
sub emptycell {
- return '
| ';
+ return ' | ';
}
sub normalcell {
@@ -193,11 +193,11 @@ sub normalcell {
substr($msg,0,20).'...
';
}
}
- return ''.&tfont(''.&picklink($day,$day,$month,$year).' '.$output).' | ';
+ ($year eq $todayhash{'year'}))?'_current':'').
+ '" >'.&picklink($day,$day,$month,$year).'
'.$output.'';
}
sub plaincell {
@@ -295,15 +295,6 @@ sub showday {
}
}
-sub tfont {
- my $text=shift;
- if ($env{'form.pickdate'} eq 'yes') {
- return ''.$text.'';
- } else {
- return $text;
- }
-}
-
sub picklink {
my ($text,$day,$month,$year)=@_;
if ($env{'form.pickdate'} eq 'yes') {
@@ -342,8 +333,7 @@ sub handler {
my $today=time;
%todayhash=&Apache::loncommon::timehash($today);
# ----------------------------------------------------------------- Check marks
- %showedcheck=();
- undef %showedcheck;
+ undef(%showedcheck);
# ---------------------------------------------------------- Get month and year
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['month','year','pickdate','formname','element']);
@@ -366,7 +356,6 @@ sub handler {
'dlsav' => -1 ));
my $weekday=$firstday{'weekday'};
# ------------------------------------------------------------ Print the screen
- my $html=&Apache::lonxml::xmlbegin();
my $js = <
@@ -487,7 +476,7 @@ SERVERANNOUNCE
}
# ----------------------------------------------------- Summarize all calendars
my %allcal=();
- foreach my $course (&Apache::loncommon::findallcourses()) {
+ foreach my $course (sort(&Apache::loncommon::findallcourses())) {
%allcal=(%allcal,&readcalendar($course));
}
@@ -510,6 +499,11 @@ SERVERANNOUNCE
&Apache::loncommon::end_page());
return OK;
}
+
+ my $class = "LC_calendar";
+ if ($env{'form.pickdate'} eq 'yes') {
+ $class .= " LC_calendar_pickdate";
+ }
$r->print(
''.&mt('Previous Month').' '.
@@ -518,21 +512,14 @@ SERVERANNOUNCE
' '.&mt('Current Month').''.
- '