[BACK]Return to lonprintout.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.56 and 1.57

version 1.56, 2002/09/06 17:46:13 version 1.57, 2002/09/09 19:27:42
Line 45  use Apache::lonxml; Line 45  use Apache::lonxml;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::inputtags;  use Apache::inputtags;
 use Apache::loncoursedata;  
 use Apache::grades;  use Apache::grades;
 use Apache::edit;  use Apache::edit;
 use Apache::File();  use Apache::File();
Line 62  sub headerform { Line 61  sub headerform {
 <body bgcolor="FFFFFF">  <body bgcolor="FFFFFF">
 <form method="post" enctype="multipart/form-data" action="/adm/printout" name="printform">  <form method="post" enctype="multipart/form-data" action="/adm/printout" name="printform">
 <tt>$ENV{'form.postdata'}</tt><p>  <tt>$ENV{'form.postdata'}</tt><p>
 <h1>What do you want to print? Make a choice.</h1><br />  
 ENDHEADER  ENDHEADER
 }  }
   
Line 70  ENDHEADER Line 68  ENDHEADER
 sub menu_for_output {  sub menu_for_output {
     my $r = shift;      my $r = shift;
     $r->print(<<ENDMENUOUT1);      $r->print(<<ENDMENUOUT1);
   <h1>What do you want to print? Make a choice.</h1><br />
 <input type="hidden" name="phase" value="two">  <input type="hidden" name="phase" value="two">
 <input type="hidden" name="url" value="$ENV{'form.postdata'}">  <input type="hidden" name="url" value="$ENV{'form.postdata'}">
 <input type="radio" name="choice" value="Standard LaTeX output for current document" checked>  Current document  <input type="radio" name="choice" value="Standard LaTeX output for current document" checked>  Current document
Line 109  ENDMENUOUT4 Line 108  ENDMENUOUT4
      Number of columns: <select name="numberofcolumns">       Number of columns: <select name="numberofcolumns">
                          <option selected> 1 </option>                           <option selected> 1 </option>
                          <option> 2 </option>                           <option> 2 </option>
                          <option> 3 </option>  
                          <option> 4 </option>  
                          <option> 5 </option>  
                          <option> 6 </option>  
                          <option> 7 </option>  
                          <option> 8 </option>  
                          <option> 9 </option>  
                         </select>                           </select> 
    </td>     </td>
  </tr>   </tr>
Line 135  sub additional_class_menu { Line 127  sub additional_class_menu {
 <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">  <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
 <h1>Mark students which assignments you want to print</h1>  <h1>Mark students which assignments you want to print</h1>
 ENDMENUOUT1  ENDMENUOUT1
     my $c = $r->connection;          my %courselist=&Apache::lonnet::dump(
     my %cache;                     'classlist',
     my $courseID = $ENV{'request.course.id'};     $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
     my $classlist = &Apache::loncoursedata::DownloadClasslist($courseID,$cache{'ClasslistTimestamp'},$c);     $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
     &Apache::loncoursedata::ProcessClasslist(\%cache,$classlist,$courseID,$c);          my $now=time;
     my @all_students = split(':::',$cache{'NamesOfStudents'});      $r->print(<<ENDDISHEADER);
     my @active_students = ();  <input type=hidden name=sendmode value=group>
     foreach my $student (@all_students) {  <script>
  if ($cache{$student.':Status'} eq 'Active') {      function checkall() {
     push @active_students,$student;   for (i=0; i<document.forms.printform.elements.length; i++) {
  }              if 
             (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) {
         document.forms.printform.elements[i].checked=true;
               }
           }
       }
   
       function checksec() {
    for (i=0; i<document.forms.printform.elements.length; i++) {
               if 
             (document.forms.printform.elements[i].value.indexOf
              (document.forms.printform.chksec.value)==0) {
         document.forms.printform.elements[i].checked=true;
               }
           }
       }
   
       function uncheckall() {
    for (i=0; i<document.forms.printform.elements.length; i++) {
               if 
             (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) {
         document.forms.printform.elements[i].checked=false;
               }
           }
     }      }
     my $what_to_print = '<table border="1">';      </script>
   <input type=button onClick="checkall()" value="Check for All">&nbsp;
   <input type=button onClick="checksec()" value="Check for Section/Group">
   <input type=text size=5 name=chksec>&nbsp;
   <input type=button onClick="uncheckall()" value="Check for None">
   <p>
   ENDDISHEADER
     my $i = 0;      my $i = 0;
     foreach my $student (@active_students) {      foreach (sort keys %courselist) {
  $what_to_print .= '<tr><td><input type="checkbox" name="whomtoprint'.$i.'" value="'.$student.'">'.$cache{$student.':fullname'}.'</td></tr>';          my ($end,$start)=split(/\:/,$courselist{$_});
 # $what_to_print .= '<tr><td><input type="checkbox" name="whomtoprint'.$i.'" value="'.$cache{$student.':fullname'}.'">'.$cache{$student.':fullname'}.'</td></tr>';          my $active=1;
  $i++;          if (($end) && ($now>$end)) { $active=0; }
           if ($active) {
              my ($sname,$sdom)=split(/\:/,$_);
              my %reply=&Apache::lonnet::get('environment',
                 ['firstname','middlename','lastname','generation'],
                 $sdom,$sname);
              my $section=&Apache::lonnet::usection
          ($sdom,$sname,$ENV{'request.course.id'});
              $r->print(
           '<br /><input type=checkbox name="whomtoprint'.$i.'" value="'.$section.':'.$_.'"> '.
         $reply{'firstname'}.' '. 
                         $reply{'middlename'}.' '.
                         $reply{'lastname'}.' '.
                         $reply{'generation'}.
                         ' ('.$_.') '.$section);
      $i++;
           } 
     }      }
     $what_to_print .= '</table>';  
     $r->print(<<ENDMENUOUT2);      $r->print(<<ENDMENUOUT2);
     $what_to_print <br />  <br />
 <input type="hidden" name="numberofstudents" value="$i">  <input type="hidden" name="numberofstudents" value="$i">
 <input type="hidden" name="phase" value="three">  <input type="hidden" name="phase" value="three">
 <input type="submit" value="Submit">  <input type="submit" value="Submit">
Line 177  sub additional_print_menu { Line 213  sub additional_print_menu {
 <input type="hidden" name="layout" value="$ENV{'form.layout'}">  <input type="hidden" name="layout" value="$ENV{'form.layout'}">
 <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}">  <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}">
 <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">  <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
 Enter width of the page: <input type="text" name="width" width="10" value="9cm"> <br />  Define page layout parameters: <br />
   <b>Width</b>: <input type="text" name="width" width="8" value="9cm"> <br />
   <b>Height</b>: <input type="text" name="height" width="8" value="25.9cm"> <br />
   <b>Left margin</b>: <input type="text" name="leftmargin" width="8" value="-0.57in"> <br />
 <input type="hidden" name="phase" value="four">  <input type="hidden" name="phase" value="four">
 <input type="submit" value="Submit">  <input type="submit" value="Submit">
 </form>  </form>
Line 339  ENDPART Line 378  ENDPART
         #loop over students          #loop over students
  foreach my $person (@students) {   foreach my $person (@students) {
     my $current_output = '';       my $current_output = ''; 
     my ($username,$userdomain) = split /:/,$person;      my ($usersection,$username,$userdomain) = split /:/,$person;
     my $fullname = &Apache::grades::get_fullname($username,$userdomain);      my $fullname = &Apache::grades::get_fullname($username,$userdomain);
             #goes through all resources, checks if they are available for current student, and produces output               #goes through all resources, checks if they are available for current student, and produces output 
     foreach my $curres (@master_seq)  {      foreach my $curres (@master_seq)  {
Removed from v.1.56  
changed lines
  Added in v.1.57

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