version 1.136, 2005/02/17 04:11:21
|
version 1.139, 2005/03/01 03:28:14
|
Line 639 sub discourse {
|
Line 639 sub discourse {
|
my $r=shift; |
my $r=shift; |
my $classlist = &Apache::loncoursedata::get_classlist(); |
my $classlist = &Apache::loncoursedata::get_classlist(); |
my $now=time; |
my $now=time; |
my %lt=&Apache::lonlocal::texthash('cfa' => 'Check for All', |
my %lt=&Apache::lonlocal::texthash('cfa' => 'Check All', |
'cfs' => 'Check for Section/Group', |
'cfs' => 'Check Section/Group', |
'cfn' => 'Check for None'); |
'cfn' => 'Uncheck All'); |
$r->print(<<ENDDISHEADER); |
$r->print(<<ENDDISHEADER); |
<input type="hidden" name="sendmode" value="group" /> |
<input type="hidden" name="sendmode" value="group" /> |
<script> |
<script> |
Line 877 ENDLINK
|
Line 877 ENDLINK
|
} |
} |
$r->print("</td></tr>"); |
$r->print("</td></tr>"); |
} |
} |
$r->print('</table></body></html>'); |
$r->print('</table>'.&Apache::loncommon::endbodytag().'</html>'); |
} elsif ($numblocked == 0) { |
} elsif ($numblocked == 0) { |
$r->print("<h3>".&mt('You have no unread messages')."</h3>"); |
$r->print("<h3>".&mt('You have no unread messages')."</h3>"); |
} |
} |
Line 1408 sub examblock {
|
Line 1408 sub examblock {
|
$r->print($lt{'ncbc'}.'<br /><br />'); |
$r->print($lt{'ncbc'}.'<br /><br />'); |
} |
} |
&display_addblocker_table($r,$parmcount,\%ltext); |
&display_addblocker_table($r,$parmcount,\%ltext); |
|
my $endbody=&Apache::loncommon::endbodytag(); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<br /> |
<br /> |
<input type="hidden" name="blocktotal" value="$blockcount" /> |
<input type="hidden" name="blocktotal" value="$blockcount" /> |
<input type ="submit" value="Save Changes" /> |
<input type ="submit" value="Save Changes" /> |
</form> |
</form> |
</body> |
$endbody |
</html> |
</html> |
END |
END |
return; |
return; |
Line 1847 sub displayresource {
|
Line 1848 sub displayresource {
|
|
|
sub header { |
sub header { |
my ($r,$title,$baseurl)=@_; |
my ($r,$title,$baseurl)=@_; |
$r->print('<html><head><title>Communication and Messages</title>'); |
$r->print(&Apache::lonxml::xmlbegin(). |
|
'<head>'.&Apache::lonxml::fontsettings(). |
|
'<title>Communication and Messages</title>'); |
if ($baseurl) { |
if ($baseurl) { |
$r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />"); |
$r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />"); |
} |
} |
Line 1887 sub storedcommentlisting {
|
Line 1890 sub storedcommentlisting {
|
my ($r)=@_; |
my ($r)=@_; |
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef, |
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef, |
'^'.&Apache::lonnet::escape(&Apache::lonnet::escape($ENV{'form.showcommentbaseurl'}))); |
'^'.&Apache::lonnet::escape(&Apache::lonnet::escape($ENV{'form.showcommentbaseurl'}))); |
$r->print('<html><body>'); |
$r->print(&Apache::lonxml::xmlbegin().'<head>'. |
|
&Apache::lonxml::fontsettings().'</head><body>'); |
if ((keys %msgs)[0]=~/^error\:/) { |
if ((keys %msgs)[0]=~/^error\:/) { |
$r->print(&mt('No stored comments yet.')); |
$r->print(&mt('No stored comments yet.')); |
} else { |
} else { |
Line 2158 sub handler {
|
Line 2162 sub handler {
|
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,$folder); |
&disall($r,$folder); |
} |
} |
$r->print('</body></html>'); |
$r->print(&Apache::loncommon::endbodytag().'</html>'); |
return OK; |
return OK; |
} |
} |
# ================================================= Main program, reset counter |
# ================================================= Main program, reset counter |