[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> '.