--- loncom/interface/lonprintout.pm 2003/05/15 21:51:00 1.183 +++ loncom/interface/lonprintout.pm 2003/05/27 19:00:35 1.184 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.183 2003/05/15 21:51:00 albertel Exp $ +# $Id: lonprintout.pm,v 1.184 2003/05/27 19:00:35 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -500,7 +500,8 @@ sub latex_corrections { sub output_data { - my ($r,$helper) = @_; + my ($r,$helper,$rparmhash) = @_; + my %parmhash = %$rparmhash; $r->print(< @@ -599,6 +600,7 @@ ENDPART $form{'grade_target'}='tex'; $form{'textwidth'}=$LaTeXwidth; $form{'symb'}=$master_seq[$i]; + $form{'problem_split'}=$parmhash{'problem_stream_switch'}; #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); my $texversion=&Apache::lonnet::ssi($urlp,%form); if ($urlp=~/\.page$/) { @@ -797,8 +799,17 @@ sub handler { # $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-
'); # } # return OK; - - &output_data($r,$helper); + + my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'}); +# $r->print('
START '.$ENV{'request.course.fn'}.' FINISH
'); +# my $key; +# foreach $key (keys %parmhash) { +# $r->print(' '.$key.'->'.$parmhash{$key}.'<-
'); +# } +# return OK; + + + &output_data($r,$helper,\%parmhash); return OK; }