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

Diff for /loncom/interface/lonprintout.pm between versions 1.511 and 1.514

version 1.511, 2008/01/14 10:43:12 version 1.514, 2008/01/29 11:21:18
Line 1 Line 1
 #  
 # The LearningOnline Network  # The LearningOnline Network
 # Printout  # Printout
 #  #
Line 756  sub character_chart { Line 755  sub character_chart {
     $result =~ s/&\#8600;/\\ensuremath\{\\searrow\}/g;      $result =~ s/&\#8600;/\\ensuremath\{\\searrow\}/g;
     $result =~ s/&\#8601;/\\ensuremath\{\\swarrow\}/g;      $result =~ s/&\#8601;/\\ensuremath\{\\swarrow\}/g;
     $result =~ s/&\#8598;/\\ensuremath\{\\nwarrow\}/g;      $result =~ s/&\#8598;/\\ensuremath\{\\nwarrow\}/g;
   
       # Left/right quotations:
   
       $result =~ s/&(ldquo|#8220);/\`\`/g;
       $result =~ s/&(rdquo|#8221);/\'\'/g;
   
   
     return $result;      return $result;
 }  }
   
Line 775  my %page_formats= Line 781  my %page_formats=
      'legal' => {       'legal' => {
  'book' => {   'book' => {
      '1' => ['7.1 in','13 in',,'-0.57 in','-0.57 in','-0.5 in'],       '1' => ['7.1 in','13 in',,'-0.57 in','-0.57 in','-0.5 in'],
      '2' => ['3.16 in','13 in','-0.57 in','-0.57 in','-0.5 in']       '2' => ['3.66 in','13 in','-0.57 in','-0.57 in','-0.5 in']
  },   },
  'album' => {   'album' => {
      '1' => ['12 in','7.1 in',,'-0.57 in','-0.57 in','-0.5 in'],       '1' => ['12 in','7.1 in',,'-0.57 in','-0.57 in','-0.5 in'],
Line 1342  sub output_data { Line 1348  sub output_data {
 </script>  </script>
 ENDPART  ENDPART
   
   
   
     my $start_page  = &Apache::loncommon::start_page('Preparing Printout',$js);      my $start_page  = &Apache::loncommon::start_page('Preparing Printout',$js);
     my $msg = &mt('Please stand by while processing your print request, this may take some time ...');      my $msg = &mt('Please stand by while processing your print request, this may take some time ...');
   
Line 1375  ENDPART Line 1383  ENDPART
     my @print_array=();      my @print_array=();
     my @student_names=();      my @student_names=();
   
        
     #  Common settings for the %form has:      #  Common settings for the %form has:
     # In some cases these settings get overriddent by specific cases, but the      # In some cases these settings get overriddent by specific cases, but the
     # settings are common enough to make it worthwhile factoring them out      # settings are common enough to make it worthwhile factoring them out
Line 1412  ENDPART Line 1421  ENDPART
     $currentURL=$helper->{'VARS'}->{'postdata'};      $currentURL=$helper->{'VARS'}->{'postdata'};
     $cleanURL=&Apache::lonenc::check_decrypt($currentURL);      $cleanURL=&Apache::lonenc::check_decrypt($currentURL);
  } else {   } else {
   
             #prints resource from the construction space              #prints resource from the construction space
     $currentURL='/'.$helper->{'VARS'}->{'filename'};      $currentURL='/'.$helper->{'VARS'}->{'filename'};
     if ($currentURL=~/([^?]+)/) {$currentURL=$1;}      if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
Line 2462  sub printHelper { Line 2472  sub printHelper {
  $helper->{VARS}->{'curseed'}=$env{'form.curseed'};   $helper->{VARS}->{'curseed'}=$env{'form.curseed'};
     }      }
     if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {      if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
  $helper->{VARS}->{'probstatus'}=$env{'form.problemtype'};   $helper->{VARS}->{'probstatus'}=$env{'form.problemstatus'};
     }      }
   
     my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();      my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
Line 3088  CHOOSE_FROM_ANY_SEQUENCE Line 3098  CHOOSE_FROM_ANY_SEQUENCE
      <message></td></tr></message>       <message></td></tr></message>
 RNDSEED  RNDSEED
             &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);              &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
   
   
       addMessage("<tr><td>Problem Type:</td><td>");
       $paramHash = &Apache::lonhelper::getParamHash();
       $paramHash->{'variable'} = 'probstatus'; # Already declared:
       #
       # Initial value from construction space:
       #
       if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
    $helper->{VARS}->{'probstatus'} = $env{'form.problemtype'}; # initial value
       }
       $paramHash->{CHOICES} = [
        ['Homework problem',     'problem'],
        ['Exam Problem', 'exam'],
        ['Survey question',      'survey']];
       Apache::lonhelper::dropdown->new();
       addMessage("</td></tr>"); 
   
  }    } 
     }      }
   
Removed from v.1.511  
changed lines
  Added in v.1.514

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