loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.3, 2002/02/06 16:38:04	version 1.4, 2002/02/06 16:59:01
Line 310 sub usection {	Line 310 sub usection {
if ($key eq $courseid.'_st') { $section=''; }	if ($key eq $courseid.'_st') { $section=''; }
my ($dummy,$end,$start)=split(/\_/,&Apache::lonnet::unescape($value));	my ($dummy,$end,$start)=split(/\_/,&Apache::lonnet::unescape($value));
$section=($section) ? $section : '(none)';	$section=($section) ? $section : '(none)';
$section=(int($section)) ? int($section) : $section;	# $section=(int($section)) ? int($section) : $section;
# $r->print($unam.'...'.$section.'<br>');	# $r->print($unam.'...'.$section.'<br>');
return $section;	return $section;
}	}
Line 821 sub ClassList {	Line 821 sub ClassList {
my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);	my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);
if ($ssec==-1) {next;}	if ($ssec==-1) {next;}
$ssec=($ssec) ? $ssec : '(none)';	$ssec=($ssec) ? $ssec : '(none)';
$ssec=(int($ssec)) ? int($ssec) : $ssec;	#$ssec=(int($ssec)) ? int($ssec) : $ssec;
#$r->print($sname.'...'.$ssec.'<br>');	#$r->print($sname.'...'.$ssec.'<br>');
$section{$ssec}=$ssec;	$section{$ssec}=$ssec;
if ($CurSec eq 'All Sections' \|\| $ssec eq $CurSec) {	if ($CurSec eq 'All Sections' \|\| $ssec eq $CurSec) {