[LON-CAPA-cvs] cvs: loncom /interface lonannounce.pm

www lon-capa-cvs@mail.lon-capa.org
Wed, 14 Jan 2004 16:07:18 -0000


www		Wed Jan 14 11:07:18 2004 EDT

  Modified files:              
    /loncom/interface	lonannounce.pm 
  Log:
  Contextual help
  
  
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.23 loncom/interface/lonannounce.pm:1.24
--- loncom/interface/lonannounce.pm:1.23	Fri Nov  7 22:22:03 2003
+++ loncom/interface/lonannounce.pm	Wed Jan 14 11:07:18 2004
@@ -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.24 2004/01/14 16:07:18 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,14 +47,14 @@
     my $enddateform = &Apache::lonhtmlcommon::date_setter('anno',
                                                           'enddate',
                                                           $end);
-
+    my $help=&Apache::loncommon::help_open_topic('Calendar_Add_Announcement');
     $r->print(<<ENDFORM);
 <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">$help<hr>
 ENDFORM
 }
 
@@ -433,7 +433,8 @@
     %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> '.