loncom/interface/lonblockingstatus.pm - diff

Return to lonblockingstatus.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2009/07/07 19:50:47	version 1.3, 2009/07/26 20:39:46
Line 31 package Apache::lonblockingstatus;	Line 31 package Apache::lonblockingstatus;
use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonnet;
	use GDBM_File;
	use POSIX qw(strftime mktime);
	use Apache::lonmenu();
	use Apache::lonenc();
	use Apache::lonlocal;
	use Apache::lonnet();
	use HTML::Entities;
	use Apache::lonhtmlcommon();
	use Apache::loncoursedata();
	use Apache::lontexconvert();
	use Apache::lonclonecourse();
	use LONCAPA qw(:DEFAULT :match);
	use DateTime::TimeZone;
	use DateTime::Locale::Catalog;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 43 sub handler {	Line 58 sub handler {
Apache::loncommon::start_page(	Apache::loncommon::start_page(
'Communication Blocking Status Information',	'Communication Blocking Status Information',
undef, {'only_body' => 1, }));	undef, {'only_body' => 1, }));
	Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['activity']);
my $table = 'Status table goes here';	my ($blocked, $blocktext) = &Apache::loncommon::blocking_status_print($env{'form.activity'});
$r->print($table);	$r->print($blocktext);

$r->print(Apache::loncommon::end_page());	$r->print(Apache::loncommon::end_page());
return OK;	return OK;