--- loncom/interface/lonprintout.pm	2006/03/21 18:43:49	1.432
+++ loncom/interface/lonprintout.pm	2006/04/14 19:42:19	1.436
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.432 2006/03/21 18:43:49 albertel Exp $
+# $Id: lonprintout.pm,v 1.436 2006/04/14 19:42:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1022,14 +1022,8 @@ sub output_data {
     my ($r,$helper,$rparmhash) = @_;
     my %parmhash = %$rparmhash;
     my $resources_printed = '';
-    my $html=&Apache::lonxml::xmlbegin();
-    my $headtag     = &Apache::loncommon::headtag('Preparing Printout');
-    my $end_headtag = &Apache::loncommon::endheadtag();
-    my $bodytag     = &Apache::loncommon::bodytag('Preparing Printout');
-    $r->print(<<ENDPART);
-$html
-$headtag
-<script type="text/javascript" language="Javascript">
+    my $js = <<ENDPART;
+<script type="text/javascript">
     var editbrowser;
     function openbrowser(formname,elementname,only,omit) {
         var url = '/res/?';
@@ -1053,14 +1047,12 @@ $headtag
         editbrowser.focus();
     }
 </script>
-$end_headtag
-$bodytag
-<p>
-Please stand by while processing your print request, this may take some time ...
-</p>
 ENDPART
 
+    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 ...');
 
+    $r->print($start_page."\n<p>\n$msg\n</p>\n");
 
     # fetch the pagebreaks and store them in the course environment
     # The page breaks will be pulled into the hash %page_breaks which is
@@ -2242,7 +2234,6 @@ ALL_PROBLEMS
       </resource>
     </state>
     <state name="PRINT_FORMATTING" title="How should results be printed?">
-    <nextstate>NUMBER_PER_PDF</nextstate>
     <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
     <choices variable="EMPTY_PAGES">
       <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
@@ -2250,17 +2241,15 @@ ALL_PROBLEMS
       <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
       <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
     </choices>
-    </state>
-    <state name="NUMBER_PER_PDF" title="Number printed at once">
     <nextstate>PAGESIZE</nextstate>
     <message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message>
     <choices variable="SPLIT_PDFS">
        <choice computer="all">All assignments in a single PDF file</choice>
        <choice computer="sections">Each PDF contains exactly one section</choice>
        <choice computer="oneper">Each PDF contains exactly one assignment</choice>
-       <choice computer="usenumber">Specify Number:</choice>
+       <choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT" relateddefault="all">
+            Specify Number:</choice>
     </choices>
-    <string variable="NUMBER_TO_PRINT" maxlength="5" size="5"><defaultvalue>"all"</defaultvalue></string>
     </state>
 RESOURCE_SELECTOR
 
@@ -2304,12 +2293,13 @@ CHOOSE_STUDENTS
 	    }
 	    push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
 	}
-	$code_selection .=
-'   
-      <exec>
-        push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
-      </exec>
-    '.$/;
+	if (%codes_to_print) {
+	    $code_selection .='   
+             <exec>
+               push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
+            </exec>
+            '.$/;
+	}
 
 	
 	open(FH,$Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
@@ -2411,17 +2401,15 @@ CHOOSE_ANON1
       <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
       <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
     </choices>
-    </state>
-    <state name="NUMBER_PER_PDF" title="Number assignments per pdf">
     <nextstate>PAGESIZE</nextstate>
     <message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message>
     <choices variable="SPLIT_PDFS">
        <choice computer="all">All assignments in a single PDF file</choice>
        <choice computer="sections">Each PDF contains exactly one section</choice>
        <choice computer="oneper">Each PDF contains exactly one assignment</choice>
-       <choice computer="usenumber">Specify Number:</choice>
+       <choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT" relateddefault="all">
+           Specify Number:</choice>
     </choices>
-    <string variable="NUMBER_TO_PRINT" maxlength="5" size="5"><defaultvalue>"all"</defaultvalue></string>
     </state>
 RESOURCE_SELECTOR