version 1.54, 2003/02/28 23:19:01
|
version 1.55, 2003/03/03 21:52:24
|
Line 1308 sub DownloadStudentCourseData {
|
Line 1308 sub DownloadStudentCourseData {
|
$WhatIWant .= ')'; |
$WhatIWant .= ')'; |
# $WhatIWant = '.'; |
# $WhatIWant = '.'; |
|
|
|
my %prog_state; |
if($status eq 'true') { |
if($status eq 'true') { |
&Apache::lonhtmlcommon::Create_PrgWin($r, $title, $heading); |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title, |
|
$heading,($#$students)+1); |
} |
} |
|
|
my $displayString; |
|
my $count=0; |
|
foreach (@$students) { |
foreach (@$students) { |
my %cache; |
my %cache; |
|
|
if($c->aborted()) { return 'Aborted'; } |
if($c->aborted()) { return 'Aborted'; } |
|
|
if($status eq 'true') { |
if($status eq 'true') { |
$count++; |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
my $displayString = $count.'/'.$studentCount.': '.$_; |
'last student '.$_); |
&Apache::lonhtmlcommon::Update_PrgWin($displayString, $r); |
|
} |
} |
|
|
my $downloadTime='Not downloaded'; |
my $downloadTime='Not downloaded'; |
Line 1359 sub DownloadStudentCourseData {
|
Line 1358 sub DownloadStudentCourseData {
|
next; |
next; |
} |
} |
} |
} |
if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r); } |
if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); } |
|
|
return 'OK'; |
return 'OK'; |
} |
} |
Line 1380 sub DownloadStudentCourseDataSeparate {
|
Line 1379 sub DownloadStudentCourseDataSeparate {
|
&CheckForResidualDownload($cacheDB, 'true', 'true', $courseID, $r, $c); |
&CheckForResidualDownload($cacheDB, 'true', 'true', $courseID, $r, $c); |
|
|
my $studentCount = scalar(@$students); |
my $studentCount = scalar(@$students); |
|
my %prog_state; |
if($status eq 'true') { |
if($status eq 'true') { |
&Apache::lonhtmlcommon::Create_PrgWin($r, $title, $heading); |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title, |
|
$heading,($#$students)+1); |
} |
} |
my $count=0; |
|
my $displayString=''; |
my $displayString=''; |
foreach (@$students) { |
foreach (@$students) { |
if($c->aborted()) { |
if($c->aborted()) { |
Line 1391 sub DownloadStudentCourseDataSeparate {
|
Line 1391 sub DownloadStudentCourseDataSeparate {
|
} |
} |
|
|
if($status eq 'true') { |
if($status eq 'true') { |
$count++; |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
$displayString = $count.'/'.$studentCount.': '.$_; |
'last student '.$_); |
&Apache::lonhtmlcommon::Update_PrgWin($displayString, $r); |
|
} |
} |
|
|
my %cache; |
my %cache; |
Line 1438 sub DownloadStudentCourseDataSeparate {
|
Line 1437 sub DownloadStudentCourseDataSeparate {
|
} |
} |
untie(%downloadData); |
untie(%downloadData); |
} |
} |
if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r); } |
if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r, |
|
\%prog_state); } |
|
|
return &CheckForResidualDownload($cacheDB, 'true', 'true', |
return &CheckForResidualDownload($cacheDB, 'true', 'true', |
$courseID, $r, $c); |
$courseID, $r, $c); |
Line 1477 sub CheckForResidualDownload {
|
Line 1477 sub CheckForResidualDownload {
|
my $heading = 'Process Course Data'; |
my $heading = 'Process Course Data'; |
my $title = 'LON-CAPA Statistics'; |
my $title = 'LON-CAPA Statistics'; |
my $studentCount = scalar(@students); |
my $studentCount = scalar(@students); |
|
my %prog_state; |
if($status eq 'true') { |
if($status eq 'true') { |
&Apache::lonhtmlcommon::Create_PrgWin($r, $title, $heading); |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title, |
|
$heading,$#students+1); |
} |
} |
|
|
my $count=1; |
my $count=1; |
Line 1486 sub CheckForResidualDownload {
|
Line 1488 sub CheckForResidualDownload {
|
last if($c->aborted()); |
last if($c->aborted()); |
|
|
if($status eq 'true') { |
if($status eq 'true') { |
my $displayString = $count.'/'.$studentCount.': '.$name; |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin($displayString, $r); |
'last student '.$name); |
} |
} |
|
|
if($extract eq 'true') { |
if($extract eq 'true') { |
Line 1498 sub CheckForResidualDownload {
|
Line 1500 sub CheckForResidualDownload {
|
$count++; |
$count++; |
} |
} |
|
|
if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r); } |
if($status eq 'true') { &Apache::lonhtmlcommon::Close_PrgWin($r, |
|
\%prog_state); } |
|
|
untie(%cache); |
untie(%cache); |
untie(%downloadData); |
untie(%downloadData); |