version 1.14, 2003/10/14 18:36:54
|
version 1.20, 2004/06/04 21:43:36
|
Line 85 sub html_header {
|
Line 85 sub html_header {
|
&Apache::lonstatistics::clear_classlist_variables(); |
&Apache::lonstatistics::clear_classlist_variables(); |
foreach (['Sections',&Apache::lonstatistics::SectionSelect('Section','multpile',3)], |
foreach (['Sections',&Apache::lonstatistics::SectionSelect('Section','multpile',3)], |
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)], |
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)], |
['Output Format',&Apache::Spreadsheet::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>'; |
$bottomrow .= '<td>'.$selector.'</td>'; |
$bottomrow .= '<td>'.$selector.'</td>'; |
Line 117 sub parent_link {
|
Line 117 sub parent_link {
|
sub outsheet_html { |
sub outsheet_html { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
|
#################################### |
|
# Report any calculation errors # |
|
#################################### |
|
$r->print($self->html_report_error()); |
################################### |
################################### |
# Determine table structure |
# Determine table structure |
################################### |
################################### |
Line 124 sub outsheet_html {
|
Line 128 sub outsheet_html {
|
my $exportcolor = '#BBBBFF'; |
my $exportcolor = '#BBBBFF'; |
my $num_uneditable = 26; |
my $num_uneditable = 26; |
my $num_left = 52-$num_uneditable; |
my $num_left = 52-$num_uneditable; |
my %lt=&Apache::lonlocal::texthash( |
# |
'co' => 'Course', |
my %header=&Apache::lonlocal::texthash( |
'im' => 'Import', |
'course' => 'Course', |
'ca' => 'Calculations', |
'import' => 'Import', |
'stu' => 'Student', |
'calculations' => 'Calculations', |
'sta' => 'Status', |
'student' => 'Student', |
'usr' => 'Username', |
'status' => 'Status', |
'dom' => 'Domain', |
'username' => 'Username', |
'sec' => 'Section', |
'domain' => 'Domain', |
); |
'section' => 'Section', |
|
'row' => 'Row', |
|
); |
my $tableheader =<<"END"; |
my $tableheader =<<"END"; |
<p> |
<p> |
<table border="2"> |
<table border="2"> |
<tr> |
<tr> |
<th colspan="2" rowspan="2"><font size="+2">$lt{'co'}</font></th> |
<th colspan="2" rowspan="2"><font size="+2">$header{'course'}</font></th> |
<td bgcolor="$importcolor" colspan="$num_uneditable"> |
<td bgcolor="$importcolor" colspan="$num_uneditable"> |
<b><font size="+1">$lt{'im'}</font></b></td> |
<b><font size="+1">$header{'import'}</font></b></td> |
<td colspan="$num_left"> |
<td colspan="$num_left"> |
<b><font size="+1">$lt{'ca'}</font></b></td> |
<b><font size="+1">$header{'calculations'}</font></b></td> |
</tr><tr> |
</tr><tr> |
END |
END |
my $label_num = 0; |
my $label_num = 0; |
Line 172 END
|
Line 178 END
|
$tableheader =<<"END"; |
$tableheader =<<"END"; |
</p><p> |
</p><p> |
<table border="2"> |
<table border="2"> |
<tr><th>$lt{'ro'}</th> |
<tr><th>$header{'row'}</th> |
<th>$lt{'stu'}</th><th>$lt{'usr'}</th><th>$lt{'dom'}</th> |
<th>$header{'student'}</th> |
<th>$lt{'sec'}</th><th>$lt{'sta'}</th> |
<th>$header{'username'}</th> |
|
<th>$header{'domain'}</th> |
|
<th>$header{'section'}</th> |
|
<th>$header{'status'}</th> |
END |
END |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
if ($label_num<$num_uneditable) { |
if ($label_num<$num_uneditable) { |
Line 247 sub csv_rows {
|
Line 256 sub csv_rows {
|
my ($connection,$filehandle) = @_; |
my ($connection,$filehandle) = @_; |
# |
# |
# 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('Status'),&mt('ID'))); |
# |
# |
Line 267 sub csv_rows {
|
Line 275 sub csv_rows {
|
return; |
return; |
} |
} |
|
|
|
sub output_options { |
|
my $self = shift(); |
|
return ({value => 'htmlclasslist', |
|
description => 'Student Sheet Links'}, |
|
{value => 'html', |
|
description => 'HTML'}, |
|
{value => 'excel', |
|
description => 'Excel'}, |
|
{value => 'csv', |
|
description => 'Comma Separated Values'}, |
|
# {value => 'xml', |
|
# description => 'XML'}, |
|
); |
|
} |
|
|
sub outsheet_recursive_excel { |
sub outsheet_recursive_excel { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
} |
} |
|
|
|
sub outsheet_htmlclasslist { |
|
my $self = shift; |
|
my ($r) = @_; |
|
# |
|
# Determine if we should output expire caches links... |
|
my $show_expire_link = 0; |
|
if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){ |
|
$show_expire_link = 1; |
|
} |
|
# |
|
if ($show_expire_link) { |
|
$r->print('<a href="/adm/classcalc?output_format=htmlclasslist&'. |
|
'recalc=ilovewastingtime¬_first_run=1">'. |
|
&mt('Expire all student spreadsheets').'</a>'.$/); |
|
} |
|
# |
|
$r->print('<h3>'. |
|
&mt('Click on a student to be taken to their spreadsheet'). |
|
'</h3>'); |
|
# |
|
my %header=&Apache::lonlocal::texthash( |
|
'student' => 'Student', |
|
'status' => 'Status', |
|
'username' => 'Username', |
|
'domain' => 'Domain', |
|
'section' => 'Section', |
|
); |
|
# |
|
# Prepare to output rows |
|
my $tableheader =<<"END"; |
|
</p><p> |
|
<table border="2"> |
|
<tr> |
|
<th></th> |
|
<th>$header{'student'}</th> |
|
<th>$header{'username'}</th> |
|
<th>$header{'domain'}</th> |
|
<th>$header{'section'}</th> |
|
<th>$header{'status'}</th> |
|
END |
|
if ($show_expire_link) { |
|
$tableheader.= '<th> </th>'; |
|
} |
|
$tableheader.= "</tr>\n"; |
|
# |
|
my $num_output = 0; |
|
foreach my $student (@Students) { |
|
if ($num_output++ % 50 == 0) { |
|
$r->print("</table>\n".$tableheader); |
|
} |
|
my $link = '<a href="/adm/studentcalc?sname='.$student->{'username'}. |
|
'&sdomain='.$student->{'domain'}.'">'; |
|
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
|
$r->print('<tr>'. |
|
'<td>'.$num_output.'</td>'. |
|
'<td>'.$link.$student->{'fullname'}.'</a></td>'. |
|
'<td>'.$link.$student->{'username'}.'</a></td>'. |
|
'<td>'.$student->{'domain'} .'</td>'. |
|
'<td>'.$student->{'section'} .'</td>'. |
|
'<td>'.$student->{'status'} .'</td>'); |
|
if ($show_expire_link) { |
|
$r->print('<td>'. |
|
'<a href="/adm/classcalc?recalc=student:'. |
|
$student->{'username'}.':'.$student->{'domain'}.'&'. |
|
'output_format=htmlclasslist&'. |
|
'not_first_run=1'.'">Expire Record</a>'.$/); |
|
} |
|
$r->print("</tr>\n"); |
|
} |
|
$r->print("</table></p>\n"); |
|
return; |
|
} |
|
|
sub compute { |
sub compute { |
my $self = shift; |
my $self = shift; |
Line 280 sub compute {
|
Line 376 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(); |
|
&Apache::studentcalc::initialize_package(); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,&mt('Spreadsheet Computation Status'), |
($r,&mt('Spreadsheet Computation Status'), |
&mt('Spreadsheet Computation'), scalar(@Students)); |
&mt('Spreadsheet Computation'), scalar(@Students)); |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
&mt('Processing course structure')); |
|
&Apache::studentcalc::initialize_package(); |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
&mt('Processing first student')); |
&mt('Processing first student')); |
foreach my $student (@Students) { |
foreach my $student (@Students) { |
if ($connection->aborted()) { $self->cleanup(); return; } |
if ($connection->aborted()) { $self->cleanup(); return; } |
Line 295 sub compute {
|
Line 389 sub compute {
|
($student->{'username'},$student->{'domain'},undef); |
($student->{'username'},$student->{'domain'},undef); |
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()) { |
|
$self->set_calcerror($sname.' : '. |
|
$studentsheet->calcerror()); |
|
} |
if ($connection->aborted()) { $self->cleanup(); return; } |
if ($connection->aborted()) { $self->cleanup(); return; } |
my $rownum = $self->get_row_number_from_key($sname); |
my $rownum = $self->get_row_number_from_key($sname); |
$f{'A'.$rownum} = $sname; |
$f{'A'.$rownum} = $sname; |