version 1.35, 2002/02/28 23:35:31
|
version 1.36, 2002/03/02 01:44:00
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# |
|
# Homework Performance Chart |
# Homework Performance Chart |
# |
# |
# (Navigate Maps Handler |
# (Navigate Maps Handler |
Line 254 sub usection2 {
|
Line 253 sub usection2 {
|
|
|
|
|
sub usection { |
sub usection { |
my ($udom,$unam,$courseid)=@_; |
my ($udom,$unam,$courseid,$ActiveFlag)=@_; |
$courseid=~s/\_/\//g; |
$courseid=~s/\_/\//g; |
$courseid=~s/^(\w)/\/$1/; |
$courseid=~s/^(\w)/\/$1/; |
foreach (split(/\&/,&Apache::lonnet::reply('dump:'. |
foreach (split(/\&/,&Apache::lonnet::reply('dump:'. |
Line 266 sub usection {
|
Line 265 sub usection {
|
my $section=$1; |
my $section=$1; |
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)'; |
if ( $ActiveFlag ne 'Any' ) { |
# $section=(int($section)) ? int($section) : $section; |
my $now=time; |
# $r->print($unam.'...'.$section.'<br>'); |
my $notactive=0; |
|
if ($start) { |
|
if ($now<$start) { $notactive=1; } |
|
} |
|
if ($end) { |
|
if ($now>$end) { $notactive=1; } |
|
} |
|
if ((($ActiveFlag eq 'Expired') && $notactive == 1) || |
|
(($ActiveFlag eq 'Active') && $notactive == 0 ) ) { |
|
return $section; |
|
} |
|
else { return '-1'; } |
|
} |
return $section; |
return $section; |
} |
} |
} |
} |
#} split(/\&/,&Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles', |
return '-1'; |
# &Apache::lonnet::homeserver($unam,$udom))); |
|
return ''; |
|
} |
} |
|
|
sub BuildChart { |
sub BuildChart { |
Line 295 sub BuildChart {
|
Line 304 sub BuildChart {
|
my ($name,$value)=split(/\=/,$KeyPoint); |
my ($name,$value)=split(/\=/,$KeyPoint); |
my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value)); |
my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value)); |
my $active=1; |
my $active=1; |
if (($end) && ($now>$end)) { $active=0; } |
my $Status=$ENV{'form.status'}; |
|
$Status = ($Status) ? $Status : 'Active'; |
if ($ENV{'form.active'} eq 'All Students') { $active=1; } |
if ( ( ($end) && $now > $end ) && |
|
( ($Status eq 'Active') ) ) { $active=0; } |
|
|
|
if ( ($Status eq 'Expired') && |
|
($end == 0 || $now < $end) ) { $active=0; } |
|
|
if ($active) { |
if ($active) { |
my $thisindex=$#students+1; |
my $thisindex=$#students+1; |
Line 305 sub BuildChart {
|
Line 318 sub BuildChart {
|
$students[$thisindex]=$name; |
$students[$thisindex]=$name; |
my ($sname,$sdom)=split(/\:/,$name); |
my ($sname,$sdom)=split(/\:/,$name); |
$PreCol[$thisindex]=$sname.':'; |
$PreCol[$thisindex]=$sname.':'; |
|
my $ssec=&usection($sdom,$sname,$cid,$Status); |
my $ssec=&usection($sdom,$sname,$cid);#,$active); |
|
|
|
if ($ssec==-1) { |
if ($ssec==-1) { |
$rowlabels[$thisindex]= |
$rowlabels[$thisindex]= |
'Data not available: '.$name; |
'Data not available: '.$name; |
} else { |
} |
|
else { |
my %reply=&Apache::lonnet::idrget($sdom,$sname); |
my %reply=&Apache::lonnet::idrget($sdom,$sname); |
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
':environment:lastname&generation&firstname&middlename', |
':environment:lastname&generation&firstname&middlename', |
Line 365 sub BuildChart {
|
Line 377 sub BuildChart {
|
sub CreateForm { |
sub CreateForm { |
my $OpSel1=''; |
my $OpSel1=''; |
my $OpSel2=''; |
my $OpSel2=''; |
if ( $ENV{'form.active'} eq 'All Students' ) { $OpSel2='selected'; } |
my $OpSel3=''; |
|
my $Status = $ENV{'form.status'}; |
|
if ( $Status eq 'Any' ) { $OpSel3='selected'; } |
|
elsif ($Status eq 'Expired' ) { $OpSel2 = 'selected'; } |
else { $OpSel1 = 'selected'; } |
else { $OpSel1 = 'selected'; } |
|
|
my $Ptr = '<form name=stat method=post action="/adm/chart" >'."\n"; |
my $Ptr = '<form name=stat method=post action="/adm/chart" >'."\n"; |
Line 377 sub CreateForm {
|
Line 392 sub CreateForm {
|
$Ptr .= ' '; |
$Ptr .= ' '; |
$Ptr .= '<input type=submit name=sort value="Section"/>'."\n"; |
$Ptr .= '<input type=submit name=sort value="Section"/>'."\n"; |
$Ptr .= '<br><br>'; |
$Ptr .= '<br><br>'; |
$Ptr .= '<b> Activation Area: </b>'."\n". |
$Ptr .= '<b> Student Status: </b>'."\n". |
'<select name="active"> <option '.$OpSel1.' >Active Students</option>'."\n". |
'<select name="status">'. |
'<option '.$OpSel2.'>All Students</option> </select> '."\n"; |
'<option '.$OpSel1.' >Active</option>'."\n". |
|
'<option '.$OpSel2.' >Expired</option>'."\n". |
|
'<option '.$OpSel3.' >Any</option> </select> '."\n"; |
$Ptr .= ' '; |
$Ptr .= ' '; |
$Ptr .= '<input type=submit name=sort value="Recalculate Chart"/>'."\n"; |
$Ptr .= '<input type=submit name=sort value="Recalculate Chart"/>'."\n"; |
$Ptr .= '</form>'."\n"; |
$Ptr .= '</form>'."\n"; |
Line 524 sub handler {
|
Line 541 sub handler {
|
} |
} |
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|