version 1.176, 2006/03/15 21:55:43
|
version 1.178, 2006/03/16 22:12:17
|
Line 1032 ENDLINK
|
Line 1032 ENDLINK
|
} |
} |
$r->print("</td></tr>"); |
$r->print("</td></tr>"); |
} |
} |
$r->print('</table>'.&Apache::loncommon::endbodytag().'</html>'); |
$r->print('</table>'.&Apache::loncommon::end_page()); |
} 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 1621 sub examblock {
|
Line 1621 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(); |
my $end_page=&Apache::loncommon::end_page(); |
$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> |
$endbody |
$end_page |
</html> |
|
END |
END |
return; |
return; |
} |
} |
Line 2082 sub displayresource {
|
Line 2081 sub displayresource {
|
|
|
sub header { |
sub header { |
my ($r,$title,$baseurl)=@_; |
my ($r,$title,$baseurl)=@_; |
$r->print(&Apache::lonxml::xmlbegin(). |
|
'<head>'.&Apache::lonxml::fontsettings(). |
my $extra = &Apache::loncommon::studentbrowser_javascript(); |
'<title>Communication and Messages</title>'. |
|
&Apache::lonhtmlcommon::htmlareaheaders()); |
|
if ($baseurl) { |
if ($baseurl) { |
$r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />"); |
$extra .= "<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />"; |
} |
} |
$r->print(&Apache::loncommon::studentbrowser_javascript().'</head>'. |
$r->print(&Apache::loncommon::start_page('Communication and Messages', |
&Apache::loncommon::bodytag('Communication and Messages')); |
$extra)); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,($title?$title:'Communication and Messages'))); |
(undef,($title?$title:'Communication and Messages'))); |
|
|
} |
} |
|
|
Line 2125 sub storedcommentlisting {
|
Line 2122 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(&Apache::lonxml::xmlbegin().'<head>'. |
$r->print(&Apache::loncommon::start_page('Stored Comment Listing',undef, |
&Apache::lonxml::fontsettings().'</head><body>'); |
{'onlybody' => 1})); |
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 2475 sub handler {
|
Line 2472 sub handler {
|
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode)); |
&disall($r,($folder?$folder:$dismode)); |
} |
} |
$r->print(&Apache::loncommon::endbodytag().'</html>'); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
# ================================================= Main program, reset counter |
# ================================================= Main program, reset counter |