version 1.82, 2010/03/16 20:10:13
|
version 1.87, 2013/05/27 00:19:32
|
Line 68 sub editfield {
|
Line 68 sub editfield {
|
|
|
$r->print(<<ENDFORM); |
$r->print(<<ENDFORM); |
<h2>$lt{'annon'} $help</h2> |
<h2>$lt{'annon'} $help</h2> |
<form name="anno" method="post"> |
<form name="anno" method="post" action=""> |
<input type="hidden" value='' name="action" /> |
<input type="hidden" value='' name="action" /> |
<table><tr><td>$lt{'start'}:</td><td>$startdateform</td></tr> |
<table><tr><td>$lt{'start'}:</td><td>$startdateform</td></tr> |
<tr><td>$lt{'end'}:</td><td>$enddateform</td></tr></table> |
<tr><td>$lt{'end'}:</td><td>$enddateform</td></tr></table> |
<textarea name="msg" rows="4" cols="60">$text</textarea> |
<textarea name="msg" rows="4" cols="60">$text</textarea> |
<br /> |
<br /> |
<label><input type="checkbox" name="rsspost" /> $lt{'incrss'}</label> |
<label><input type="checkbox" name="rsspost" /> $lt{'incrss'}</label> |
<br /><input type="button" onClick="trysubmit()" value="$lt{'post'}" /><hr /> |
<br /><input type="button" onclick="trysubmit()" value="$lt{'post'}" /><hr /> |
ENDFORM |
ENDFORM |
} |
} |
|
|
Line 228 sub normalcell {
|
Line 228 sub normalcell {
|
&& ($env{'form.pickdate'} ne 'yes') |
&& ($env{'form.pickdate'} ne 'yes') |
&& (!$internalflag)) { |
&& (!$internalflag)) { |
$output.='<input type="checkbox" name="remove_'.$start.'_'. |
$output.='<input type="checkbox" name="remove_'.$start.'_'. |
$end.'">'; |
$end.'" />'; |
$showedcheck{$start.'_'.$end}=1; |
$showedcheck{$start.'_'.$end}=1; |
} |
} |
} |
} |
Line 569 ENDDOCUMENT
|
Line 569 ENDDOCUMENT
|
} |
} |
# ------------------------------------------------------------ Process commands |
# ------------------------------------------------------------ Process commands |
if ($serverpost) { |
if ($serverpost) { |
if ($env{'form.serveraction'}) { |
if ($env{'form.serveraction'}) { |
foreach my $key (keys(%env)) { |
my $rc; |
if ($key=~/^form\.postto\_(\w+)/) { |
my $message; |
$r->print( |
foreach my $key (keys(%env)) { |
'<br />Posting '.$1.': '.&Apache::lonnet::postannounce |
if ($key=~/^form\.postto\_(\w+[\w\-]*)/) { |
($1,$env{'form.serverannnounce'})); |
$rc = &Apache::lonnet::postannounce |
} |
($1,$env{'form.serverannnounce'}); |
} |
if ($rc eq 'ok') { |
} |
$message .= |
$r->print('<form name="serveranno" method="post">' |
&Apache::lonhtmlcommon::confirm_success( |
|
&mt('Announcement posted to [_1]',$1)) |
|
.'<br />'; |
|
} else { |
|
$message .= |
|
&Apache::lonhtmlcommon::confirm_success( |
|
&mt('Posting announcement to [_1] failed: [_2]' |
|
,$1,$rc), 1) |
|
.'<br />'; |
|
} |
|
} |
|
} |
|
$r->print(&Apache::loncommon::confirmwrapper($message)); |
|
} |
|
$r->print('<form name="serveranno" method="post" action="">' |
.'<h2>'.&mt('Post Server Announcements').'</h2>' |
.'<h2>'.&mt('Post Server Announcements').'</h2>' |
.&mt('Post announcements to the system login and roles screen').'<br />' |
.&mt('Post announcements to the system login and roles screen').'<br />' |
.'<i>'.&mt('(leave blank to delete announcement)').'</i><br />' |
.'<i>'.&mt('(leave blank to delete announcement)').'</i><br />' |
Line 761 ENDDOCUMENT
|
Line 775 ENDDOCUMENT
|
# ----------------------------------------------------------------- Check marks |
# ----------------------------------------------------------------- Check marks |
undef(%showedcheck); |
undef(%showedcheck); |
# --------------------------------------------------------------- Remove button |
# --------------------------------------------------------------- Remove button |
if ($allowed) { $r->print('<br /><input type="button" onClick="removesub()" value="'.&mt('Remove Checked Entries').'">'. |
if ($allowed) { $r->print('<br /><input type="button" onclick="removesub()" value="'.&mt('Remove Checked Entries').'" />'. |
&Apache::loncommon::help_open_topic('Calendar_Remove_Announcement').'</form>'); } |
&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. |