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

Diff for /loncom/interface/lonprintout.pm between versions 1.277 and 1.278

version 1.277, 2004/02/17 00:26:20 version 1.278, 2004/02/17 16:24:24
Line 982  ENDPART Line 982  ENDPART
      $selectionmade=8;       $selectionmade=8;
  }   }
  my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};   my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
          if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0') {$helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;}           if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' ||
        $helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {
        $helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;
    }
  my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};   my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
  #loop over students   #loop over students
  my $flag_latex_header_remove = 'NO';    my $flag_latex_header_remove = 'NO'; 
Line 1193  ENDPART Line 1196  ENDPART
     $student_names.=$student_names[$i].'_ENDPERSON_';      $student_names.=$student_names[$i].'_ENDPERSON_';
  }   }
     } else {      } else {
  my $fullname = &get_name($ENV{'user.name'},$ENV{'user.domain'});   if ($#student_names>-1) {
  $student_names=join(':',$ENV{'user.name'},$ENV{'user.domain'},      $student_names=$student_names[0].'_ENDPERSON_';
     $ENV{'request.course.sec'},$fullname).   } else {
  '_ENDPERSON_'.'_END_';      my $fullname = &get_name($ENV{'user.name'},$ENV{'user.domain'});
       $student_names=join(':',$ENV{'user.name'},$ENV{'user.domain'},
    $ENV{'request.course.sec'},$fullname).
       '_ENDPERSON_'.'_END_';
    }
     }      }
   
     my $URLback=''; #link to original document      my $URLback=''; #link to original document
Line 1502  CHOOSE_STUDENTS Line 1509  CHOOSE_STUDENTS
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
  $paramHash->{'variable'} = 'NUMBER_TO_PRINT';      $paramHash->{'variable'} = 'NUMBER_TO_PRINT';   
  $helper->declareVar('NUMBER_TO_PRINT');            $helper->declareVar('NUMBER_TO_PRINT');         
  addMessage("<input type='text' name='NUMBER_TO_PRINT.forminput' size='3' value='0' /><hr width='33%' />");   addMessage("<input type='text' name='NUMBER_TO_PRINT.forminput' size='3' value='all' /><hr width='33%' />");
   
  if ($helper->{VARS}->{'assignment'}) {   if ($helper->{VARS}->{'assignment'}) {
     push @{$printChoices}, ["<b>Resources</b> from <b><i>$sequenceTitle</i></b> for <b>selected students</b>", 'resources_for_students', 'CHOOSE_STUDENTS1'];      push @{$printChoices}, ["<b>Resources</b> from <b><i>$sequenceTitle</i></b> for <b>selected students</b>", 'resources_for_students', 'CHOOSE_STUDENTS1'];
Line 1530  CHOOSE_STUDENTS1 Line 1537  CHOOSE_STUDENTS1
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
  $paramHash->{'variable'} = 'NUMBER_TO_PRINT';      $paramHash->{'variable'} = 'NUMBER_TO_PRINT';   
  $helper->declareVar('NUMBER_TO_PRINT');            $helper->declareVar('NUMBER_TO_PRINT');         
  addMessage("<input type='text' name='NUMBER_TO_PRINT.forminput' size='3' value='0' /><hr width='33%' />");   addMessage("<input type='text' name='NUMBER_TO_PRINT.forminput' size='3' value='all' /><hr width='33%' />");
     }      }
   
     # FIXME: That RE should come from a library somewhere.      # FIXME: That RE should come from a library somewhere.
Removed from v.1.277  
changed lines
  Added in v.1.278

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