--- loncom/interface/lonprintout.pm 2008/09/05 09:09:38 1.538 +++ loncom/interface/lonprintout.pm 2008/09/05 11:16:13 1.539 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.538 2008/09/05 09:09:38 onken Exp $ +# $Id: lonprintout.pm,v 1.539 2008/09/05 11:16:13 onken Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1481,7 +1481,7 @@ ENDPART my ($result,$selectionmade) = ('',''); my $number_of_columns = 1; #used only for pages to determine the width of the cell my @temporary_array=split /\|/,$format_from_helper; - my ($laystyle,$numberofcolumns,$papersize)=@temporary_array; + my ($laystyle,$numberofcolumns,$papersize,$pdfFormFields)=@temporary_array; if ($laystyle eq 'L') { $laystyle='album'; } else { @@ -1502,6 +1502,7 @@ ENDPART my %form; $form{'grade_target'} = 'tex'; $form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); + $form{'pdfFormFields'} = $pdfFormFields; # If form.showallfoils is set, then request all foils be shown: # privilege will be enforced both by not allowing the @@ -3393,6 +3394,9 @@ sub render { my $PaperType=&mt('Paper type'); my $landscape=&mt('Landscape'); my $portrait=&mt('Portrait'); + my $pdfFormLabel=&mt('PDF-Formfields'); + my $with=&mt('with Formfields'); + my $without=&mt('without Formfields'); $result .= < @@ -3401,6 +3405,7 @@ sub render { $PageLayout $NumberOfColumns $PaperType + $pdfFormLabel @@ -3438,7 +3443,18 @@ STATEHTML } $i++; } - $result .= ""; + $result .= < + + + + + +HTML + return $result; } @@ -3449,7 +3465,7 @@ sub postprocess { my $helper = Apache::lonhelper->getHelper(); $helper->{VARS}->{$var} = $env{"form.$var.layout"} . '|' . $env{"form.$var.cols"} . '|' . - $env{"form.$var.paper"}; + $env{"form.$var.paper"} . '|' . $env{"form.$var.pdfFormFields"}; return 1; }