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

Diff for /loncom/interface/lonprintout.pm between versions 1.681 and 1.682

version 1.681, 2022/06/11 17:32:32 version 1.682, 2022/06/11 18:12:28
Line 4790  CHOOSE_FROM_SUBDIR Line 4790  CHOOSE_FROM_SUBDIR
         (!$is_published || (($subdir eq '') && ($url eq '/adm/navmaps')))) {          (!$is_published || (($subdir eq '') && ($url eq '/adm/navmaps')))) {
         push(@$printChoices,[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course',          push(@$printChoices,[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course',
                                  '<b>','</b>','<b>','</b>'),                                   '<b>','</b>','<b>','</b>'),
                              'select_sequences','CHOOSE_SEQUENCE']);                                'select_sequences','CHOOSE_SEQUENCE']);
         my $escapedSequenceName;          my $escapedSequenceName;
         if ($helper->{VARS}->{'SEQUENCE'} ne '') {          if ($helper->{VARS}->{'SEQUENCE'} ne '') {
             $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};              $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};
Line 4805  CHOOSE_FROM_SUBDIR Line 4805  CHOOSE_FROM_SUBDIR
         #Escape apostrophes and backslashes for Perl          #Escape apostrophes and backslashes for Perl
         $escapedSequenceName =~ s/\\/\\\\/g;          $escapedSequenceName =~ s/\\/\\\\/g;
         $escapedSequenceName =~ s/'/\\'/g;          $escapedSequenceName =~ s/'/\\'/g;
           my $nocurrloc;
         if (($subdir eq '') && ($url eq '/adm/navmaps')) {          if (($subdir eq '') && ($url eq '/adm/navmaps')) {
               $nocurrloc = 'nocurrloc="1"';
             if ($perm{'pfo'}) {              if ($perm{'pfo'}) {
                 push(@{$printChoices},                  push(@{$printChoices},
                     [&mt('Selected [_1]Problems[_2] from [_3]selected folder[_4] in course for [_5]selected people[_6]',                      [&mt('Selected [_1]Problems[_2] from [_3]selected folder[_4] in course for [_5]selected people[_6]',
Line 4880  CHOOSE_FROM_SUBDIR Line 4882  CHOOSE_FROM_SUBDIR
   <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">    <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">
     <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" toponly='1' addstatus="1"      <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"
               closeallpages="1" modallink="1">                closeallpages="1" modallink="1" $nocurrloc>
       <nextstate>PAGESIZE</nextstate>        <nextstate>PAGESIZE</nextstate>
       <filterfunc>return $isNotMap</filterfunc>        <filterfunc>return $isNotMap</filterfunc>
       <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>        <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>
Line 4904  CHOOSE_FROM_ANY_SEQUENCE Line 4906  CHOOSE_FROM_ANY_SEQUENCE
   <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">    <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">
     <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" toponly='1' addstatus="1"      <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"
               closeallpages="1" modallink="1">                closeallpages="1" modallink="1" $nocurrloc>
       <nextstate>PAGESIZE</nextstate>        <nextstate>PAGESIZE</nextstate>
       <filterfunc>return $isNotMap</filterfunc>        <filterfunc>return $isNotMap</filterfunc>
       <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>        <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>
Removed from v.1.681  
changed lines
  Added in v.1.682

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