--- loncom/interface/lonannounce.pm	2003/11/08 03:22:03	1.23
+++ loncom/interface/lonannounce.pm	2004/02/17 01:46:34	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.23 2003/11/08 03:22:03 www Exp $
+# $Id: lonannounce.pm,v 1.27 2004/02/17 01:46:34 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'}.
-		', '.&Apache::lonlocal::locallocaltime($start).' - '.&Apache::lonlocal::locallocaltime($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,12 @@ 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);
+	    }
+	    $msg=~s/INTERNAL\://gs;
+	    $fullmsg.=': '.$msg;
             $fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
             $fullmsg=~s/&/\\&/g;
             $output.='<a href="javascript:alert('."'$fullmsg'".')">'.
@@ -132,7 +179,13 @@ sub listcell {
         if ($_) {
 	    my ($courseid,$start,$end,@msg)=split(/\@/,$_);
             my $msg=join('@',@msg);
-            my $fullmsg=localtime($start).' to '.localtime($end).':<br /><b>'.
+	    $msg=~s/INTERNAL\://gs;
+            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>';
        }
@@ -151,7 +204,11 @@ sub showday {
     my %th=&Apache::loncommon::timehash($tk);
     my ($nextday,$nextmonth)=&nextday(%th);
     my $outp='';
-    my $oneday=24*3600;
+    if ($mode) {
+	my $oneday=24*3600;
+	$tk-=$oneday;
+	$nextday+=$oneday;
+    }
     foreach (keys %allcal) {
 	my ($course,$startdate,$enddate)=($_=~/^(\w+)\@(\d+)\_(\d+)$/);
         if (($startdate<$nextday) && ($enddate>$tk))  {
@@ -433,7 +490,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> '.
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>500 Internal Server Error</title>
</head><body>
<h1>Internal Server Error</h1>
<p>The server encountered an internal error or
misconfiguration and was unable to complete
your request.</p>
<p>Please contact the server administrator at 
 root@localhost to inform them of the time this error occurred,
 and the actions you performed just before this error.</p>
<p>More information about this error may be available
in the server error log.</p>
</body></html>