version 1.22, 2003/10/04 20:49:40
|
version 1.25, 2004/01/15 01:43:43
|
Line 47 sub editfield {
|
Line 47 sub editfield {
|
my $enddateform = &Apache::lonhtmlcommon::date_setter('anno', |
my $enddateform = &Apache::lonhtmlcommon::date_setter('anno', |
'enddate', |
'enddate', |
$end); |
$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); |
$r->print(<<ENDFORM); |
|
$help |
<form name="anno" method="post"> |
<form name="anno" method="post"> |
<input type="hidden" value='' name="action" > |
<input type="hidden" value='' name="action" > |
<table><tr><td>Starting date:</td><td>$startdateform</td></tr> |
<table><tr><td>Starting date:</td><td>$startdateform</td></tr> |
<tr><td>Ending date:</td><td>$enddateform</td></tr></table> |
<tr><td>Ending date:</td><td>$enddateform</td></tr></table> |
<textarea name="msg" rows="4" cols="60">$text</textarea> |
<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 |
ENDFORM |
} |
} |
|
|
Line 418 SERVERANNOUNCE
|
Line 421 SERVERANNOUNCE
|
} |
} |
$r->print('</tr>'); |
$r->print('</tr>'); |
|
|
for (my $k=0;$k<=3;$k++) { |
for (my $k=0;$k<=4;$k++) { |
$r->print('<tr>'); |
$r->print('<tr>'); |
for (my $i=0;$i<=6;$i++) { |
for (my $i=0;$i<=6;$i++) { |
($tk,$nm,$outp)=&showday($tk,0,%allcal); |
($tk,$nm,$outp)=&showday($tk,0,%allcal); |
Line 433 SERVERANNOUNCE
|
Line 436 SERVERANNOUNCE
|
%showedcheck=(); |
%showedcheck=(); |
undef %showedcheck; |
undef %showedcheck; |
# --------------------------------------------------------------- Remove button |
# --------------------------------------------------------------- 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>'. |
$r->print('<p>'. |
'<a href="/adm/announcements?month='.$pm.'&year='.$py. |
'<a href="/adm/announcements?month='.$pm.'&year='.$py. |
($pickdatemode?$pickinfo:'').'">'.&mt('Previous Month').'</a> '. |
($pickdatemode?$pickinfo:'').'">'.&mt('Previous Month').'</a> '. |