version 1.19, 2004/04/26 14:06:00
|
version 1.31, 2011/12/21 21:25:46
|
Line 83 sub html_header {
|
Line 83 sub html_header {
|
my $self = shift; |
my $self = shift; |
my ($toprow,$bottomrow); |
my ($toprow,$bottomrow); |
&Apache::lonstatistics::clear_classlist_variables(); |
&Apache::lonstatistics::clear_classlist_variables(); |
foreach (['Sections',&Apache::lonstatistics::SectionSelect('Section','multpile',3)], |
foreach (['Sections',&Apache::lonstatistics::SectionSelect('Section','multiple',3)], |
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)], |
['Groups',&Apache::lonstatistics::GroupSelect('Group','multiple',3)], |
|
['Access Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)], |
['Output Format',$self->output_selector()]) { |
['Output Format',$self->output_selector()]) { |
my ($name,$selector) = @{$_}; |
my ($name,$selector) = @{$_}; |
$toprow .= '<th align="center"><b>'.&mt($name).'</b></th>'; |
$toprow .= '<th align="center"><b>'.&mt($name).'</b></th>'; |
Line 93 sub html_header {
|
Line 94 sub html_header {
|
return "<p>\n<table>\n". |
return "<p>\n<table>\n". |
"<tr>".$toprow."</tr>\n". |
"<tr>".$toprow."</tr>\n". |
"<tr>".$bottomrow."</tr>\n". |
"<tr>".$bottomrow."</tr>\n". |
"</table>\n</p>"; |
"</table>\n". |
|
"</p>"; |
} |
} |
|
|
sub get_title { |
sub get_title { |
Line 138 sub outsheet_html {
|
Line 140 sub outsheet_html {
|
'username' => 'Username', |
'username' => 'Username', |
'domain' => 'Domain', |
'domain' => 'Domain', |
'section' => 'Section', |
'section' => 'Section', |
|
'groups' => 'Groups', |
'row' => 'Row', |
'row' => 'Row', |
); |
); |
my $tableheader =<<"END"; |
my $tableheader =<<"END"; |
Line 183 END
|
Line 186 END
|
<th>$header{'username'}</th> |
<th>$header{'username'}</th> |
<th>$header{'domain'}</th> |
<th>$header{'domain'}</th> |
<th>$header{'section'}</th> |
<th>$header{'section'}</th> |
|
<th>$header{'groups'}</th> |
<th>$header{'status'}</th> |
<th>$header{'status'}</th> |
END |
END |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
Line 209 END
|
Line 213 END
|
'<td>'.$link.$student->{'username'}.'</a></td>'. |
'<td>'.$link.$student->{'username'}.'</a></td>'. |
'<td>'.$student->{'domain'} .'</td>'. |
'<td>'.$student->{'domain'} .'</td>'. |
'<td>'.$student->{'section'} .'</td>'. |
'<td>'.$student->{'section'} .'</td>'. |
|
'<td>'.$student->{'groups'} .'</td>'. |
'<td>'.$student->{'status'} .'</td>'. |
'<td>'.$student->{'status'} .'</td>'. |
$self->html_row($num_uneditable,$rownum,$exportcolor, |
$self->html_row($num_uneditable,$rownum,$exportcolor, |
$importcolor). |
$importcolor). |
Line 222 sub excel_rows {
|
Line 227 sub excel_rows {
|
# writes the meat of the spreadsheet to an excel worksheet. Called |
# writes the meat of the spreadsheet to an excel worksheet. Called |
# by Spreadsheet::outsheet_excel; |
# by Spreadsheet::outsheet_excel; |
my $self = shift; |
my $self = shift; |
my ($connection,$worksheet,$cols_output,$rows_output) = @_; |
my ($connection,$worksheet,$cols_output,$rows_output,$format) = @_; |
# |
# |
# Write a header row |
# Write a header row |
$cols_output = 0; |
$cols_output = 0; |
foreach my $value ('Fullname','Username','Domain','Section','Status','ID') { |
foreach my $value ('Fullname','Username','Domain','Section','Group','Status','ID') { |
$worksheet->write($rows_output,$cols_output++,&mt($value)); |
$worksheet->write($rows_output,$cols_output++,&mt($value),$format->{'h4'}); |
} |
} |
$rows_output++; |
$rows_output++; |
# |
# |
Line 241 sub excel_rows {
|
Line 246 sub excel_rows {
|
$student->{'username'}, |
$student->{'username'}, |
$student->{'domain'}, |
$student->{'domain'}, |
$student->{'section'}, |
$student->{'section'}, |
|
$student->{'groups'}, |
$student->{'status'}, |
$student->{'status'}, |
$student->{'id'}); |
$student->{'id'}); |
$self->excel_output_row($worksheet,$rownum,$rows_output++, |
$self->excel_output_row($worksheet,$rownum,$rows_output++, |
Line 257 sub csv_rows {
|
Line 263 sub csv_rows {
|
# |
# |
# Write a header row |
# Write a header row |
$self->csv_output_row($filehandle,undef, |
$self->csv_output_row($filehandle,undef, |
(&mt('Fullname'),&mt('Username'),&mt('Domain'),&mt('Section'),&mt('Status'),&mt('ID'))); |
(&mt('Fullname'),&mt('Username'),&mt('Domain'),&mt('Section'),&mt('Group'),&mt('Status'),&mt('ID'))); |
# |
# |
# Write each students row |
# Write each students row |
foreach my $student (@Students) { |
foreach my $student (@Students) { |
Line 268 sub csv_rows {
|
Line 274 sub csv_rows {
|
$student->{'username'}, |
$student->{'username'}, |
$student->{'domain'}, |
$student->{'domain'}, |
$student->{'section'}, |
$student->{'section'}, |
|
$student->{'groups'}, |
$student->{'status'}, |
$student->{'status'}, |
$student->{'id'}); |
$student->{'id'}); |
$self->csv_output_row($filehandle,$rownum,@studentdata); |
$self->csv_output_row($filehandle,$rownum,@studentdata); |
Line 279 sub output_options {
|
Line 286 sub output_options {
|
my $self = shift(); |
my $self = shift(); |
return ({value => 'htmlclasslist', |
return ({value => 'htmlclasslist', |
description => 'Student Sheet Links'}, |
description => 'Student Sheet Links'}, |
|
{value => 'source', |
|
description => 'Show Source'}, |
{value => 'html', |
{value => 'html', |
description => 'HTML'}, |
description => 'HTML'}, |
{value => 'excel', |
{value => 'excel', |
Line 301 sub outsheet_htmlclasslist {
|
Line 310 sub outsheet_htmlclasslist {
|
# |
# |
# Determine if we should output expire caches links... |
# Determine if we should output expire caches links... |
my $show_expire_link = 0; |
my $show_expire_link = 0; |
if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){ |
if (exists($env{'user.role.dc./'.$env{'request.role.domain'}.'/'})){ |
$show_expire_link = 1; |
$show_expire_link = 1; |
} |
} |
# |
# |
if ($show_expire_link) { |
if ($show_expire_link) { |
$r->print('<a href="/adm/classcalc?output_format=htmlclasslist&'. |
$r->print('<a href="/adm/classcalc?output_format=htmlclasslist&'. |
'recalc=ilovewastingtime¬_first_run=1">'. |
'recalc=expireallsheets¬_first_run=1">'. |
&mt('Expire all student spreadsheets').'</a>'.$/); |
&mt('Expire all student spreadsheets').'</a>'.$/); |
} |
} |
# |
# |
Line 321 sub outsheet_htmlclasslist {
|
Line 330 sub outsheet_htmlclasslist {
|
'username' => 'Username', |
'username' => 'Username', |
'domain' => 'Domain', |
'domain' => 'Domain', |
'section' => 'Section', |
'section' => 'Section', |
|
'groups' => 'Groups', |
); |
); |
# |
# |
# Prepare to output rows |
# Prepare to output rows |
Line 333 sub outsheet_htmlclasslist {
|
Line 343 sub outsheet_htmlclasslist {
|
<th>$header{'username'}</th> |
<th>$header{'username'}</th> |
<th>$header{'domain'}</th> |
<th>$header{'domain'}</th> |
<th>$header{'section'}</th> |
<th>$header{'section'}</th> |
|
<th>$header{'groups'}</th> |
<th>$header{'status'}</th> |
<th>$header{'status'}</th> |
END |
END |
if ($show_expire_link) { |
if ($show_expire_link) { |
Line 354 END
|
Line 365 END
|
'<td>'.$link.$student->{'username'}.'</a></td>'. |
'<td>'.$link.$student->{'username'}.'</a></td>'. |
'<td>'.$student->{'domain'} .'</td>'. |
'<td>'.$student->{'domain'} .'</td>'. |
'<td>'.$student->{'section'} .'</td>'. |
'<td>'.$student->{'section'} .'</td>'. |
|
'<td>'.$student->{'groups'} .'</td>'. |
'<td>'.$student->{'status'} .'</td>'); |
'<td>'.$student->{'status'} .'</td>'); |
if ($show_expire_link) { |
if ($show_expire_link) { |
$r->print('<td>'. |
$r->print('<td>'. |
Line 376 sub compute {
|
Line 388 sub compute {
|
$self->initialize_safe_space(); |
$self->initialize_safe_space(); |
my %c = $self->constants(); |
my %c = $self->constants(); |
my %f = $self->formulas(); |
my %f = $self->formulas(); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,&mt('Spreadsheet Computation Status'), |
|
&mt('Spreadsheet Computation'), scalar(@Students)); |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
&mt('Processing course structure')); |
|
&Apache::studentcalc::initialize_package(); |
&Apache::studentcalc::initialize_package(); |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@Students)); |
&mt('Processing first student')); |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Processing first student')); |
foreach my $student (@Students) { |
foreach my $student (@Students) { |
if ($connection->aborted()) { $self->cleanup(); return; } |
if ($connection->aborted()) { $self->cleanup(); return; } |
my $sname = $student->{'username'}.':'.$student->{'domain'}; |
my $sname = $student->{'username'}.':'.$student->{'domain'}; |
my $studentsheet = Apache::studentcalc->new |
my $studentsheet = Apache::studentcalc->new |
($student->{'username'},$student->{'domain'},undef); |
($student->{'username'},$student->{'domain'},undef,undef, |
|
$student->{'section'},$student->{'groupref'} ); |
if ($connection->aborted()) { $self->cleanup(); return; } |
if ($connection->aborted()) { $self->cleanup(); return; } |
my @exportdata = $studentsheet->export_data($r); |
my @exportdata = $studentsheet->export_data($r); |
if ($studentsheet->badcalc()) { |
if ($studentsheet->badcalc()) { |
Line 408 sub compute {
|
Line 416 sub compute {
|
$c{$cell} = $data; |
$c{$cell} = $data; |
} |
} |
} |
} |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student'); |
'last student'); |
|
} |
} |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$r->rflush(); |
$r->rflush(); |