version 1.52, 2010/12/02 00:53:37
|
version 1.53, 2010/12/03 15:19:09
|
Line 93 sub real_handler {
|
Line 93 sub real_handler {
|
$r->print('<p class="LC_info">'.&mt('This may take a few moments to display.').'</p>'); |
$r->print('<p class="LC_info">'.&mt('This may take a few moments to display.').'</p>'); |
|
|
$r->rflush(); |
$r->rflush(); |
my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=&getData($showPoints); |
|
&outputTable($r,$showPoints,$notshowTotals, |
my $uname='korte'; |
|
my $udom='gerd'; |
|
|
|
my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)= |
|
&getData($showPoints,$uname,$udom); |
|
|
|
if ($showCategories) { |
|
&outputCategories($r,$showPoints,$notshowTotals, |
|
$navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted); |
|
} else { |
|
&outputTable($r,$showPoints,$notshowTotals, |
$navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted); |
$navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted); |
|
} |
return OK; |
return OK; |
|
|
} |
} |
|
|
sub getData { |
sub getData { |
|
|
my ($showPoints)=@_; |
my ($showPoints,$uname,$udom)=@_; |
|
|
|
&Apache::lonnet::logthis("About to call with $uname $udom"); |
|
|
# Create the nav map |
# Create the nav map |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom); |
|
|
my $res = $navmap->firstResource(); # temp resource to access constants |
my $res = $navmap->firstResource(); # temp resource to access constants |
|
|
Line 334 sub outputTable {
|
Line 347 sub outputTable {
|
|
|
} |
} |
|
|
|
# |
|
# Outputting category-based grades. |
|
# |
|
|
|
sub outputCategories { |
|
|
|
my ($r,$showPoints,$notshowTotals, |
|
$navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=@_; |
|
} |
|
|
# Pass this two refs to arrays for the start and end color, and a number |
# Pass this two refs to arrays for the start and end color, and a number |
# from 0 to 1 for how much of the latter you want to mix in. It will |
# from 0 to 1 for how much of the latter you want to mix in. It will |
# return a string ready to show ("#FFC309"); |
# return a string ready to show ("#FFC309"); |