loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.226 and 1.232

-version 1.226, 2003/09/05 02:25:30
+version 1.232, 2003/09/09 13:31:08
  Line 49  use Apache::grades;
  use Apache::edit;
  use Apache::File();
  use Apache::lonnavmaps;
+ use Apache::lonratedt;
  use POSIX qw(strftime);
  use GDBM_File;
- Line 698  ENDPART
+ Line 699  ENDPART
  	    if ($currentURL=~m/\.page\s*$/) {
  		($result,$number_of_columns) = &page_cleanup($result);
  	    }
+         } elsif ($currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') {
+             #printing content of sequence from the construction space
+ 	    my $flag_latex_header_remove = 'NO';
+ 	    my $rndseed=time;
+ 	    if ($helper->{'VARS'}->{'curseed'}) {
+ 		$rndseed=$helper->{'VARS'}->{'curseed'};
+ 	    }
+ 	    $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
+ 	    my $errtext=&Apache::lonratedt::mapread($currentURL);
+ 	    for (my $member=0;$member<=$#Apache::lonratedt::order;$member++) {
+ 		$Apache::lonratedt::resources[$Apache::lonratedt::order[$member]]=~/^([^:]*):([^:]*):/;
+ 		my $urlp=$2;
+ 		if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
+ 		    my %form;
+ 		    $form{'grade_target'}='tex';
+ 		    $form{'textwidth'}=$LaTeXwidth;
+ 		    $form{'problem_split'}=$parmhash{'problem_stream_switch'};
+ 		    $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+ 		    $form{'rndseed'}=$rndseed;
+ 		    my $texversion=&Apache::lonnet::ssi($urlp,%form);
+ 		    if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
+ 			my %form;
+ 			$form{'grade_target'}='answer';
+ 			$form{'answer_output_mode'}='tex';
+ 			$form{'rndseed'}=$rndseed;
+                         if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';}
+ 			####my $answer=' SSSSSS '.$ENV{'request.state'}.' FFFFFFF ';
+ 			my $answer=&Apache::lonnet::ssi($urlp,%form);
+ 			$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
+ 		    }
+ 		    if ($flag_latex_header_remove ne 'NO') {
+ 			$texversion = &latex_header_footer_remove($texversion);
+ 		    } else {
+ 			$texversion =~ s/\\end{document}//;
+ 		    }
+ 		    if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
+ 			$texversion=&IndexCreation($texversion,$urlp);
+ 		    }
+ 		    if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URpL'} eq 'yes') {
+ 			$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
+ 		    }
+ 		    $result.=$texversion;
+ 		    $flag_latex_header_remove = 'YES';
+ 		} elsif ($urlp=~/\.(sequence|page)$/) {
+ 		    $result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';
+ 		}
+ 	    }
+ 	    if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
+ 	    $result .= '\end{document}';
  	} else {
- 	  $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
+ 	  $result.='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
  	  if ($currentURL=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
  	      $result.=$1;
  	  } elsif ($currentURL=~/\/ext\//) {
- Line 1236  CHOOSE_FROM_SUBDIR
+ Line 1286  CHOOSE_FROM_SUBDIR
  	$paramHash->{'variable'} = 'ANSWER_TYPE';
  	$helper->declareVar('ANSWER_TYPE');
          $paramHash->{CHOICES} = [
-                                    ['Yes', 'yes'],
+                                    ['No', 'yes'],
-                                    ['No', 'no'] ];
+                                    ['Yes', 'no'] ];
          Apache::lonhelper::dropdown->new();
  	addMessage("</td></tr>");
  	$startedTable = 1;

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

Removed from v.1.226
changed lines
	Added in v.1.232