loncom/interface/lonblockingmenu.pm - diff

Return to lonblockingmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2012/04/10 00:28:04	version 1.9, 2013/01/04 05:45:50
Line 498 sub handler {	Line 498 sub handler {
&Apache::lonhtmlcommon::breadcrumbs('Blocking communication/content access'));	&Apache::lonhtmlcommon::breadcrumbs('Blocking communication/content access'));

my $usertype;	my $usertype;
my $crstype = &Apache::loncommon::course_type();
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$usertype = 'members';	$usertype = 'members';
} else {	} else {
Line 1114 END	Line 1113 END

sub convlim {	sub convlim {
my ($timelimit) = @_;	my ($timelimit) = @_;
my $output;
my @order = ('days','hours','minutes','seconds');	my @order = ('days','hours','minutes','seconds');
my %catlimits = (	my %catlimits = (
days => 86400,	days => 86400,
Line 1132 sub convlim {	Line 1130 sub convlim {
if ($val > 0) {	if ($val > 0) {
push(@toshow,&mt("[_1] $cat",$val));	push(@toshow,&mt("[_1] $cat",$val));
}	}
$timelimit =- $val*$catlimits{$cat};	$timelimit -= $val*$catlimits{$cat};
}	}
}	}
my $output = join(', ',@toshow);	my $output = join(', ',@toshow);