--- loncom/interface/lonannounce.pm	2003/09/17 19:45:39	1.20
+++ loncom/interface/lonannounce.pm	2004/02/17 01:36:14	1.26
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.20 2003/09/17 19:45:39 www Exp $
+# $Id: lonannounce.pm,v 1.26 2004/02/17 01:36:14 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,14 +47,17 @@ sub editfield {
     my $enddateform = &Apache::lonhtmlcommon::date_setter('anno',
                                                           'enddate',
                                                           $end);
-
+    my $help=&Apache::loncommon::help_open_topic('Calendar_Add_Announcement').
+	&Apache::loncommon::help_open_faq(274).
+	&Apache::loncommon::help_open_bug('Communication Tools');
     $r->print(<<ENDFORM);
+$help
 <form name="anno" method="post">
 <input type="hidden" value=''          name="action"      >
 <table><tr><td>Starting date:</td><td>$startdateform</td></tr>
 <tr><td>Ending date:</td><td>$enddateform</td></tr></table>
 <textarea name="msg" rows="4" cols="60">$text</textarea>
-<input type="button" onClick="trysubmit()" value="Post Announcement"><hr>
+<input type="button" onClick="trysubmit()" value="Post Announcement"><hr />
 ENDFORM
 }
 
@@ -69,6 +72,35 @@ sub readcalendar {
 	   $returnhash{$courseid.'@'.$_}=$thiscal{$_};
         }
     }
+    if ($courseid eq $ENV{'request.course.id'}) {
+	my %resourcedata=
+	    &Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);
+	foreach my $thiskey (sort keys %resourcedata) {
+	    if ($resourcedata{$thiskey.'.type'}=~/^date/) {
+		my ($course,$middle,$part,$name)=
+		    ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
+		my $section=&mt('All Students');
+		if ($middle=~/^\[(.*)\]\./) {
+		    $section=&mt('Group/Section').': '.$1;
+		    $middle=~s/^\[(.*)\]\.//;
+		}
+		$middle=~s/\.$//;
+		my $realm=&mt('All Resources');
+		if ($middle=~/^(.+)\_\_\_\(all\)$/) {
+		    $realm=&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1);
+		} elsif ($middle) {
+		    $realm=&mt('Resource').': '.&Apache::lonnet::gettitle($middle);
+		}
+		my $datetype='';
+		if ($name eq 'duedate') { $datetype=&mt('Due'); }
+		if ($name eq 'opendate') { $datetype=&mt('Opening'); }
+		if ($name eq 'answerdate') { $datetype=&mt('Answer Available'); }
+		$returnhash{$courseid.'@'.$resourcedata{$thiskey}.'_'.
+			    $resourcedata{$thiskey}}=
+			    'INTERNAL:'.$datetype.': '.$realm.' ('.$section.')';
+	    }
+	}
+    }
     return %returnhash;
 }
 
@@ -81,14 +113,24 @@ sub normalcell {
     my $output='';
     foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {
         if ($_) {
+	    my $internalflag=0;
 	    my ($courseid,$start,$end,@msg)=split(/\@/,$_);
             my $msg=join('@',@msg);
+	    if ($msg=~/INTERNAL\:/) {
+		$msg=~s/INTERNAL\://gs;
+		$internalflag=1;
+	    }
             my $fullmsg=$ENV{'course.'.$courseid.'.description'}.
-		', '.localtime($start).' - '.localtime($end).': '.$msg;
+		', '.&Apache::lonlocal::locallocaltime($start);
+	    if ($start!=$end) {
+		$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end);
+	    }
+	    $fullmsg.=': '.$msg;
             if ($courseid eq $ENV{'request.course.id'}) {
               if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))
                && (!$showedcheck{$start.'_'.$end})
-	       && ($ENV{'form.pickdate'} ne 'yes')) {
+	       && ($ENV{'form.pickdate'} ne 'yes')
+	       && (!$internalflag)) {
                $output.='<input type="checkbox" name="remove_'.$start.'_'.
 		   $end.'">';
                $showedcheck{$start.'_'.$end}=1;
@@ -115,7 +157,11 @@ sub plaincell {
 	    my ($courseid,$start,$end,@msg)=split(/\@/,$_);
             my $msg=join('@',@msg);
             my $fullmsg=$ENV{'course.'.$courseid.'.description'}.
-		', '.localtime($start).' - '.localtime($end).': '.$msg;
+		', '.&Apache::lonlocal::locallocaltime($start);
+	    if ($start!=$end) {
+		$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end);
+	    }
+	    $fullmsg.=': '.$msg;
             $fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
             $fullmsg=~s/&/\\&/g;
             $output.='<a href="javascript:alert('."'$fullmsg'".')">'.
@@ -132,7 +178,12 @@ sub listcell {
         if ($_) {
 	    my ($courseid,$start,$end,@msg)=split(/\@/,$_);
             my $msg=join('@',@msg);
-            my $fullmsg=localtime($start).' to '.localtime($end).':<br /><b>'.
+            my $fullmsg=&Apache::lonlocal::locallocaltime($start);
+	    if ($start!=$end) {
+		$fullmsg.=&mt(' to ').
+		    &Apache::lonlocal::locallocaltime($end);
+	    }
+            $fullmsg.=':<br /><b>'.
                $msg.'</b>';
             $output.='<li>'.$fullmsg.'</li>';
        }
@@ -212,7 +263,7 @@ ENDDIA
 
 sub handler {
     my $r = shift;
-    $r->content_type('text/html');
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     return OK if $r->header_only;
 
@@ -418,7 +469,7 @@ SERVERANNOUNCE
     }
     $r->print('</tr>');
 
-    for (my $k=0;$k<=3;$k++) {
+    for (my $k=0;$k<=4;$k++) {
         $r->print('<tr>');
         for (my $i=0;$i<=6;$i++) {
             ($tk,$nm,$outp)=&showday($tk,0,%allcal);
@@ -433,7 +484,8 @@ SERVERANNOUNCE
     %showedcheck=();
     undef %showedcheck;
 # --------------------------------------------------------------- Remove button
-    if ($allowed) { $r->print('<input type="button" onClick="removesub()" value="Remove Checked Entries"></form>'); }
+    if ($allowed) { $r->print('<input type="button" onClick="removesub()" value="Remove Checked Entries">'.
+			      &Apache::loncommon::help_open_topic('Calendar_Remove_Announcement').'</form>'); }
     $r->print('<p>'.
  '<a href="/adm/announcements?month='.$pm.'&year='.$py.
  ($pickdatemode?$pickinfo:'').'">'.&mt('Previous Month').'</a> '.