Diff for /loncom/interface/spreadsheet/classcalc.pm between versions 1.15 and 1.16

version 1.15, 2003/11/17 19:55:41 version 1.16, 2003/11/21 21:51:28
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 128  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 176  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 270  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'},
   );
   }
   
 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) = @_;
       #
       $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>$header{'student'}</th>
     <th>$header{'username'}</th>
     <th>$header{'domain'}</th>
     <th>$header{'section'}</th>
     <th>$header{'status'}</th>
   </tr>
   END
       #
       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>'.$link.$student->{'fullname'}.'</a></td>'.
     '<td>'.$link.$student->{'username'}.'</a></td>'.
     '<td>'.$student->{'domain'}  .'</td>'.
     '<td>'.$student->{'section'} .'</td>'.
     '<td>'.$student->{'status'}  .'</td>'.
                     "</tr>\n");
       }
       $r->print("</table></p>\n");
       return;
   }
   
 sub compute {  sub compute {
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($r) = @_;

Removed from v.1.15  
changed lines
  Added in v.1.16


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>