--- loncom/interface/lonprintout.pm 2003/09/05 18:43:43 1.227 +++ loncom/interface/lonprintout.pm 2003/09/06 17:22:27 1.231 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.227 2003/09/05 18:43:43 sakharuk Exp $ +# $Id: lonprintout.pm,v 1.231 2003/09/06 17:22:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -703,6 +703,9 @@ ENDPART #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++) { @@ -737,10 +740,10 @@ ENDPART $result.=$texversion; $flag_latex_header_remove = 'YES'; } elsif ($urlp=~/\.(sequence|page)$/) { - $result.='\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent This is sequence/page '.$urlp.'\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent '; + $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/(\\typeout)/ RANDOM SEED IS $rndseed $1/;} + 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: '; @@ -1280,8 +1283,8 @@ CHOOSE_FROM_SUBDIR $paramHash->{'variable'} = 'ANSWER_TYPE'; $helper->declareVar('ANSWER_TYPE'); $paramHash->{CHOICES} = [ - ['Yes', 'yes'], - ['No', 'no'] ]; + ['No', 'yes'], + ['Yes', 'no'] ]; Apache::lonhelper::dropdown->new(); addMessage(""); $startedTable = 1;