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

Diff for /loncom/interface/lonprintout.pm between versions 1.691 and 1.697

version 1.691, 2023/04/16 01:33:04 version 1.697, 2024/10/29 22:00:23
Line 3310  ENDPART Line 3310  ENDPART
                  ($map, my $id, my $resource) =                   ($map, my $id, my $resource) =
                      &Apache::lonnet::decode_symb($helper->{VARS}->{'symb'});                       &Apache::lonnet::decode_symb($helper->{VARS}->{'symb'});
              }               }
            } elsif (($helper->{'VARS'}->{'postdata'} eq '/adm/navmaps') && ($perm{'pfo'})) {
                $map = $helper->{'VARS'}->{'SEQUENCE'};
          }           }
   
  #loop over students   #loop over students
Line 3399  ENDPART Line 3401  ENDPART
          if ($helper->{VARS}{'symb'}) {           if ($helper->{VARS}{'symb'}) {
              ($map, my $id, my $resource) =               ($map, my $id, my $resource) =
                  &Apache::lonnet::decode_symb($helper->{VARS}{'symb'});                   &Apache::lonnet::decode_symb($helper->{VARS}{'symb'});
            } elsif (($helper->{'VARS'}->{'postdata'} eq '/adm/navmaps') && ($perm{'pfo'})) {
                $map = $helper->{'VARS'}->{'SEQUENCE'};
          }           }
  my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));   my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
  $moreenv{'problem_split'}    = $parmhash{'problem_stream_switch'};   $moreenv{'problem_split'}    = $parmhash{'problem_stream_switch'};
            $moreenv{'suppress_tries'} = $parmhash{'suppress_tries'};
          $moreenv{'instructor_comments'}='hide';           $moreenv{'instructor_comments'}='hide';
          $moreenv{'bubbles_per_row'} = $bubbles_per_row;           $moreenv{'bubbles_per_row'} = $bubbles_per_row;
  my $seed=time+($$<<16)+($$);   my $seed=time+($$<<16)+($$);
Line 4825  CHOOSE_FROM_SUBDIR Line 4830  CHOOSE_FROM_SUBDIR
                         &generate_common_choosers($r,$helper,$escapedSequenceName,$escapedSequenceName,                          &generate_common_choosers($r,$helper,$escapedSequenceName,$escapedSequenceName,
                                                   $isProblem,$symbFilter,$start_new_option);                                                    $isProblem,$symbFilter,$start_new_option);
   
                     my $resource_selector .= <<RESOURCE_SELECTOR;                      my $resource_selector = <<RESOURCE_SELECTOR;
   <state name="CHOOSE_STUDENTS2" title="Select Students and Resources">    <state name="CHOOSE_STUDENTS2" title="Select Students and Resources">
     <choices variable='student_sort'>      <choices variable='student_sort'>
       <choice computer='0'>Sort by section then student</choice>        <choice computer='0'>Sort by section then student</choice>
Line 4840  CHOOSE_FROM_SUBDIR Line 4845  CHOOSE_FROM_SUBDIR
     <nextstate>PRINT_FORMATTING</nextstate>      <nextstate>PRINT_FORMATTING</nextstate>
     <message>(mark desired resources then click "next" button) <br /></message>      <message>(mark desired resources then click "next" button) <br /></message>
     <resource variable="RESOURCES" multichoice="1" addstatus="1"      <resource variable="RESOURCES" multichoice="1" addstatus="1"
               closeallpages="1" modallink="1">                closeallpages="1" modallink="1" suppressNavmap="1" $nocurrloc>
       <filterfunc>return $isNotMap;</filterfunc>        <filterfunc>return $isNotMap;</filterfunc>
       <mapurl>$map</mapurl>        <mapurl>$escapedSequenceName</mapurl>
       <valuefunc>return $symbFilter;</valuefunc>        <valuefunc>return $symbFilter;</valuefunc>
       $start_new_option        $start_new_option
       </resource>        </resource>
Removed from v.1.691  
changed lines
  Added in v.1.697

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