--- loncom/interface/lonprintout.pm	2003/05/01 20:37:32	1.140
+++ loncom/interface/lonprintout.pm	2003/05/13 20:42:39	1.165
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.140 2003/05/01 20:37:32 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.165 2003/05/13 20:42:39 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1349,34 +1349,7 @@ ENDPART
 	$laystyle='book';
     }
     my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format_new($papersize,$laystyle,$numberofcolumns);
-
-
-
-   
-#    my $choice = $ENV{'form.choice'};
-#    my $layout = $ENV{'form.layout'};
-#    my $numberofcolumns = $ENV{'form.numberofcolumns'};  
-#    my $papersize = $ENV{'form.papersize'};          
-#    my $laystyle = 'book';
     my $assignment =  $ENV{'form.assignment'};
-#    if ($choice eq 'Subdirectory print') {
-#	if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';}
-#	if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';}
-#	if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;}
-#    }
-#    if (($choice eq 'Standard LaTeX output for current document') &&
-#	($ENV{'form.url'}=~m|^/~|)) {
-#	if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';}
-#	if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';}
-#	if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;}
-#    }
-
-    
-#    my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
-#    if ($numberofcolumns == 1) {
-#	$textwidth=$ENV{'form.width'};
-#	$textheight=$ENV{'form.height'};
-#    }
     my $LaTeXwidth; 
     if ($textwidth=~/(\d+)\s*cm/) {
 	$LaTeXwidth = $1*10;
@@ -1386,27 +1359,45 @@ ENDPART
 	$LaTeXwidth = $1*25.4;
     }
     $LaTeXwidth.=' mm';
-
-
+    
     if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') {
-      #-- single document - problem, page, html, xml, ...  
+      #-- single document - problem, page, html, xml, ...
+	my $currentURL;
+	if ($helper->{'VARS'}->{'construction'} ne '1') {
+            #prins published resource
+	    $currentURL=$helper->{'VARS'}->{'postdata'};
+	} else {
+            #prins resource from the construction space
+	    $currentURL=$helper->{'VARS'}->{'filename'};
+	    $currentURL=~s/\/home\//\/~/;
+	    $currentURL=~s/public_html\///;
+	}
 	$selectionmade = 1;
-	if ($helper->{'VARS'}->{'url'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
-        my %moreenv;
-        $moreenv{'form.grade_target'}='tex';
-        if (&Apache::lonnet::allowed('bre',$helper->{'VARS'}->{'url'})) {
-	  $helper->{'VARS'}->{'url'}=~s/http:\/\/[^\/]+//;
-        }
-        $moreenv{'request.filename'}=$helper->{'VARS'}->{'url'};
-        $moreenv{'form.textwidth'}=$LaTeXwidth;
-        &Apache::lonnet::appenv(%moreenv);
-        my $texversion=&Apache::lonnet::ssi($helper->{'VARS'}->{'url'});
-        &Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter');
-        $result .= $texversion;
-        if ($helper->{'VARS'}->{'url'}=~m/\.page\s*$/) {
-	  ($result,$number_of_columns) = &page_cleanup($result);
-        }
-      } else {
+	if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
+	    my %moreenv;
+	    $moreenv{'form.grade_target'}='tex';
+	    $moreenv{'request.filename'}=$currentURL;
+	    $moreenv{'form.textwidth'}=$LaTeXwidth;
+	    &Apache::lonnet::appenv(%moreenv);
+	    my $texversion=&Apache::lonnet::ssi($currentURL);
+	    &Apache::lonnet::delenv('form.grade_target');
+	    &Apache::lonnet::delenv('form.textwidth');
+	    &Apache::lonnet::delenv('form.counter');
+	    if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
+		$moreenv{'form.grade_target'}='answer';
+		$moreenv{'form.print_answer'}='yes';
+		&Apache::lonnet::appenv(%moreenv);
+		my $answer=&Apache::lonnet::ssi($currentURL);
+		&Apache::lonnet::delenv('form.grade_target');
+		&Apache::lonnet::delenv('form.print_answer');
+#		$r->print('<pre>'.$answer.'</pre>'); return OK;
+		$texversion=~s/(\\end{document})/$answer$1/;
+	    }
+	    $result .= $texversion;
+	    if ($currentURL=~m/\.page\s*$/) {
+		($result,$number_of_columns) = &page_cleanup($result);
+	    }
+	} else {
 #	  $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
 #	  if ($ENV{'form.url'}=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
 #	      $result.=$1;
@@ -1414,205 +1405,150 @@ ENDPART
 #	      $result.=$ENV{'form.url'};
 #	  }
 #	  $result.=' \end{document}'
-      }
-
-
-#    } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or 
-#             $choice eq 'Standard LaTeX output for whole primary sequence') {
-#      #-- minimal sequence to which the current document belongs
-#        #-- where is the primary sequence containing file?
-#        my @master_seq = ();
-#	for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {
-#	    if ($ENV{'form.whatfile'.$i}=~/\S/) {
-#		push @master_seq,$ENV{'form.whatfile'.$i};
-#	    }
-#	}
-#        #-- produce an output string
-#	my $flag_latex_header_remove = 'NO';
-#	my $flag_page_in_sequence = 'NO';
-#	for (my $i=0;$i<=$#master_seq;$i++) {
-#           my ($urlp,$symb) = split /&&/, $master_seq[$i];
-#	    if ($choice eq 'Standard LaTeX output for the primary sequence') {
-#              $selectionmade = 2;
-#	    } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') {
-#              $selectionmade = 3;
-#	    }
-#	   my %moreenv;
-#	   $moreenv{'form.grade_target'}='tex';
-#	   $moreenv{'form.textwidth'}=$LaTeXwidth;
-#	   &Apache::lonnet::appenv(%moreenv);
-#	   #&Apache::lonnet::logthis("Trying to get $urlp with symb $symb");
-#	   my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
-#	   &Apache::lonnet::delenv('form.grade_target','form.textwidth');
-#	   if ($urlp =~ m/\.page/) {
-#	     ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
-#	     if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 
-#	     $texversion =~ s/\\end{document}\d*/\\end{document}/;
-#	     $flag_page_in_sequence = 'YES';
-#	   } 
-#	   if ($flag_latex_header_remove ne 'NO') {
-#	     $texversion = &latex_header_footer_remove($texversion);
-#	   } else {
-#	     $texversion =~ s/\\end{document}//;
-#	   }
-#	   $result .= $texversion;         
-#	   $flag_latex_header_remove = 'YES';   
-#	}
-#	&Apache::lonnet::delenv('form.counter');
-#	if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}	
-#	$result .= '\end{document}';
-#    }  elsif ($choice eq 'Standard LaTeX output for the top level sequence') {
-#        # where is the main sequence of the course?
-#	$selectionmade = 4;
-#	my $main_seq=&Apache::lonnet::clutter($ENV{'request.course.uri'});
-#	my @file_seq = &coming_from_hash($main_seq);
-#	for (my $i=0;$i<=$#file_seq;$i++) {
-#	    my ($path,$title,$symb) = split /&&/,$file_seq[$i];
-#	    $file_seq[$i] = $path.'&&'.$symb;
-#	}
-#	my $flag_latex_header_remove = 'NO';
-#        #-- produce an output string
-#	for (my $i=0;$i<=$#file_seq;$i++) {
-#	   if (not $file_seq[$i]=~/^&&/) {
-#	     my ($urlp,$symb) = split /&&/, $file_seq[$i];
-#	     $urlp=~s/\/home\/httpd\/html//;	    
-#	     if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) {
-#		my %moreenv;
-#		$moreenv{'form.grade_target'}='tex';
-#		$moreenv{'form.textwidth'}=$LaTeXwidth;
-#		&Apache::lonnet::appenv(%moreenv);
-#		my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
-#		&Apache::lonnet::delenv('form.grade_target','form.textwidth');		    
-#		if ($flag_latex_header_remove ne 'NO') {
-#		    $texversion = &latex_header_footer_remove($texversion);
-#		} else {
-#		    $texversion =~ s/\\end{document}//;
-#		}
-#		$result .= $texversion;  
-#		$flag_latex_header_remove = 'YES';
-#	     }		
-#	   }
-#	}	    
-#	$result .= '\end{document}';
-#    } elsif ($choice eq 'All class print') { 
-#    #-- prints assignments for whole class or for selected students  
-#	$selectionmade = 5;
-#        my @students = ();
-#	for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) {
-#	    if ($ENV{'form.whomtoprint'.$i}=~/:/) {
-#		push @students,$ENV{'form.whomtoprint'.$i};
-#	    }
-#	}
-#	#where is the primary sequence containing current resource (the same for all students)?
-#	my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});
-#	my @sequence = split('___',$symbolic);
-#	my $primary_sequence;
-#
-#	$primary_sequence=&Apache::lonnet::clutter($sequence[0]);
-#	my @master_seq = &coming_from_hash($primary_sequence); 
-#	for (my $i=0;$i<=$#master_seq;$i++) {
-#	    my ($path,$title,$symb) = split /&&/,$master_seq[$i];
-#	    $master_seq[$i] = $path.'&&'.$symb;
-#	}
-#        #loop over students
-#	my $flag_latex_header_remove = 'NO'; 
-#	my %moreenv;
-#	$moreenv{'form.textwidth'}=$LaTeXwidth;
-#	&Apache::lonnet::appenv(%moreenv);
-#	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
-#	foreach my $person (@students) {
-#	    my $current_output = ''; 
+	}
+    } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
+             ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
+             ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')) { 
+        #-- produce an output string
+	my $flag_latex_header_remove = 'NO';
+	my $flag_page_in_sequence = 'NO';
+	my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
+	for (my $i=0;$i<=$#master_seq;$i++) {
+	    $master_seq[$i]=~/___\d+___(.*)$/;
+	    my $urlp='/res/'.$1;
+	    if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {
+		$selectionmade = 2;
+	    } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') {
+		$selectionmade = 3;
+	    } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {
+		$selectionmade = 4;
+	    }
+	    my %moreenv;
+	    $moreenv{'form.grade_target'}='tex';
+	    $moreenv{'form.textwidth'}=$LaTeXwidth;
+	    &Apache::lonnet::appenv(%moreenv);
+	    #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
+	    my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$master_seq[$i]));
+	    &Apache::lonnet::delenv('form.grade_target');
+	    &Apache::lonnet::delenv('form.textwidth');
+	    if ($urlp=~/\.page$/) {
+		($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
+		if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 
+		$texversion =~ s/\\end{document}\d*/\\end{document}/;
+		$flag_page_in_sequence = 'YES';
+	    } 
+	    if ($flag_latex_header_remove ne 'NO') {
+		$texversion = &latex_header_footer_remove($texversion);
+	    } else {
+		$texversion =~ s/\\end{document}//;
+	    }
+	    $result .= $texversion;         
+	    $flag_latex_header_remove = 'YES';   
+	}
+	&Apache::lonnet::delenv('form.counter');
+	if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}	
+	$result .= '\end{document}';
+     } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') { 
+     #-- prints assignments for whole class or for selected students  
+	 $selectionmade=5;
+	 my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
+	 my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
+	 #loop over students
+	 my $flag_latex_header_remove = 'NO'; 
+	 my %moreenv;
+	 $moreenv{'form.textwidth'}=$LaTeXwidth;
+	 &Apache::lonnet::appenv(%moreenv);
+	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
+	 foreach my $person (@students) {
+	    my $current_output = ''; 
 #	    my ($usersection,$username,$userdomain) = split /:/,$person;
-#	    my $fullname = &get_name($username,$userdomain);
-#            #goes through all resources, checks if they are available for current student, and produces output   
-#	    foreach my $curresline (@master_seq)  {
-#		my ($curres,$symb) = split /&&/, $curresline;
-#                if ($curres=~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {
-#		    my ($map,$id,$res_url) = split(/___/,$symb);
-#		    if (&Apache::lonnet::allowed('bre',$res_url)) {
-#			my $rendered = &Apache::loncommon::get_student_view($symb,$username,$userdomain,
-#                                                                        $ENV{'request.course.id'},'tex');
-#			if ($flag_latex_header_remove eq 'YES') {
-#			    $rendered = &latex_header_footer_remove($rendered);
-#			} else {
-#			    $rendered =~ s/\\end{document}//;
-#			}
-#			$current_output .= $rendered;
-#		    }
-#		    $flag_latex_header_remove = 'YES';
-#		}
-#	    }
-#	    my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
-#	    if ($current_output=~/\\documentclass/) {
-#		$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\vskip 3 mm /;
-#	    } else {
-#		my $blanspages = '';
-#		for (my $j=0;$j<$ENV{'form.addedpages'};$j++) {$blanspages.='\clearpage\strut\clearpage';}
-#		$current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}\hskip 1.4in } \vskip 5 mm '.$current_output;
-#	    }
-#	    $result .= $current_output;
-#	    &Apache::lonnet::delenv('form.counter');	    
-#	    &Apache::lonxml::init_counter(); 
-#	    &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
-#						    'last student '.$fullname);
-#	}
-#	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
-#	$result .= '\end{document}';
-#	&Apache::lonnet::delenv('form.textwidth');
-#    } elsif ($choice eq 'Subdirectory print') {      
-#    #prints selected problems from the subdirectory 
-#	$selectionmade = 6;
-#        my @list_of_files = ();
-#	for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {
-#	    if ($ENV{'form.whattoprint'.$i}=~/^\//) {
-#		push @list_of_files,$ENV{'form.whattoprint'.$i};
-#	    }
-#	}	
-#	my $flag_latex_header_remove = 'NO';  
-#	for (my $i=0;$i<=$#list_of_files;$i++) {
-#	    my $urlp = $list_of_files[$i];
-#	    if ($urlp=~/\//) {
-#		my %moreenv;
-#		$moreenv{'form.grade_target'}='tex';
-#		$moreenv{'form.textwidth'}=$LaTeXwidth;
-#		&Apache::lonnet::appenv(%moreenv);
-#		if ($urlp =~ m|/home/([^/]+)/public_html|) {
-#		    $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
-#		} else {
-#		    $urlp =~ s|^/home/httpd/html||;
-#		}
-#		my $texversion=&Apache::lonnet::ssi($urlp);
-#		&Apache::lonnet::delenv('form.grade_target','form.textwidth');
-#                #this chunck is responsible for printing the path to problem
-#		my $newurlp = '';
-#		my $HowMany = length($urlp)*2;
-#		if ($HowMany > $LaTeXwidth) {
-#		    my @temporrary = split '/',$urlp;
-#		    my $HowManyNew = 0;
-#		    for (my $ii=0;$ii<=$#temporrary;$ii++) {
-#			if ($temporrary[$ii] ne '') {
-#			    $HowManyNew += length($temporrary[$ii])*2;
-#			    if ($HowManyNew < $LaTeXwidth ) {
-#				$newurlp .=  '/'.$temporrary[$ii];
-#			    } else {
-#				$HowManyNew = 0;
-#				$newurlp .=  '|\vskip -1 mm \noindent \verb|';
-#				$ii--;
-#			    }
-#			}
-#		    }
-#		}
-#		$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/;
-#		if ($flag_latex_header_remove ne 'NO') {
-#		    $texversion = &latex_header_footer_remove($texversion);
-#		} else {
-#		    $texversion =~ s/\\end{document}//;
-#		}
-#		$result .= $texversion;
-#	    }
-#	    $flag_latex_header_remove = 'YES';  
-#	}
-#	$result .= '\end{document}';      	
+	    my ($username,$userdomain) = split /:/,$person;
+	    my $fullname = &get_name($username,$userdomain);
+            #goes through all resources, checks if they are available for current student, and produces output   
+	    foreach my $curresline (@master_seq)  {
+		if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) {
+		    my ($map,$id,$res_url) = split(/___/,$curresline);
+		    if (&Apache::lonnet::allowed('bre',$res_url)) {
+			my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,
+                                                                        $ENV{'request.course.id'},'tex');
+			if ($flag_latex_header_remove eq 'YES') {
+			    $rendered = &latex_header_footer_remove($rendered);
+			} else {
+			    $rendered =~ s/\\end{document}//;
+			}
+			$current_output .= $rendered;
+		    }
+		    $flag_latex_header_remove = 'YES';
+		}
+	    }
+	    my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+	    if ($current_output=~/\\documentclass/) {
+		$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\vskip 3 mm /;
+	    } else {
+		my $blanspages = '';
+		for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';}
+		$current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}\hskip 1.4in } \vskip 5 mm '.$current_output;
+	    }
+	    $result .= $current_output;
+	    &Apache::lonnet::delenv('form.counter');	    
+	    &Apache::lonxml::init_counter(); 
+	    &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
+						    'last student '.$fullname);
+	}
+	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
+	$result .= '\end{document}';
+	&Apache::lonnet::delenv('form.textwidth');
+    } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') {      
+    #prints selected problems from the subdirectory 
+	$selectionmade = 6;
+        my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'};
+	@list_of_files=sort @list_of_files;
+	my $flag_latex_header_remove = 'NO';  
+	for (my $i=0;$i<=$#list_of_files;$i++) {
+	    my $urlp = $list_of_files[$i];
+	    if ($urlp=~/\//) {
+		my %moreenv;
+		$moreenv{'form.grade_target'}='tex';
+		$moreenv{'form.textwidth'}=$LaTeXwidth;
+		&Apache::lonnet::appenv(%moreenv);
+		if ($urlp =~ m|/home/([^/]+)/public_html|) {
+		    $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
+		} else {
+		    $urlp =~ s|^/home/httpd/html||;
+		}
+		my $texversion=&Apache::lonnet::ssi($urlp);
+		&Apache::lonnet::delenv('form.grade_target');
+		&Apache::lonnet::delenv('form.textwidth');
+                #this chunck is responsible for printing the path to problem
+		my $newurlp = '';
+		my $HowMany = length($urlp)*2;
+		if ($HowMany > $LaTeXwidth) {
+		    my @temporrary = split '/',$urlp;
+		    my $HowManyNew = 0;
+		    for (my $ii=0;$ii<=$#temporrary;$ii++) {
+			if ($temporrary[$ii] ne '') {
+			    $HowManyNew += length($temporrary[$ii])*2;
+			    if ($HowManyNew < $LaTeXwidth ) {
+				$newurlp .=  '/'.$temporrary[$ii];
+			    } else {
+				$HowManyNew = 0;
+				$newurlp .=  '|\vskip -1 mm \noindent \verb|';
+				$ii--;
+			    }
+			}
+		    }
+		}
+		$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/;
+		if ($flag_latex_header_remove ne 'NO') {
+		    $texversion = &latex_header_footer_remove($texversion);
+		} else {
+		    $texversion =~ s/\\end{document}//;
+		}
+		$result .= $texversion;
+	    }
+	    $flag_latex_header_remove = 'YES';  
+	}
+	$result .= '\end{document}';      	
     }
 #-------------------------------------------------------- corrections for the different page formats
     $result = &page_format_transformation_new($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'});
@@ -1636,7 +1572,7 @@ ENDPART
     } 
     print $temp_file $result;
 
-
+#<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
 $r->print(<<FINALEND);
 <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
 </body>
@@ -1658,14 +1594,16 @@ sub handler {
             return $result;
         }
         $helper = $result;
-    
-
-#    my $key; 
-#    foreach $key (keys %{$helper->{'VARS'}}) {
-#	$r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<br />');
-#    }
+	
 	
 
+	my $key; 
+	foreach $key (keys %{$helper->{'VARS'}}) {
+	    $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');
+	}
+#	return OK;
+	
+	
 	&output_data_new($r,$helper);
 
 
@@ -1675,12 +1613,12 @@ sub handler {
 
     return OK;
     }
-    my $loaderror=&Apache::lonnet::overloaderror($r);
-    if ($loaderror) { return $loaderror; }
-    $loaderror=
-       &Apache::lonnet::overloaderror($r,
-         $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
-    if ($loaderror) { return $loaderror; }
+#    my $loaderror=&Apache::lonnet::overloaderror($r);
+#    if ($loaderror) { return $loaderror; }
+#    $loaderror=
+#       &Apache::lonnet::overloaderror($r,
+#         $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
+#    if ($loaderror) { return $loaderror; }
 
     $r->content_type('text/html');
     $r->send_http_header;
@@ -1764,37 +1702,72 @@ sub printHelper {
     Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
     
     my $helper = Apache::lonhelper::helper->new("Printing Wizard");
+    $helper->declareVar('symb');
+    $helper->declareVar('postdata');    
+    $helper->declareVar('filename');
+    $helper->declareVar('construction');
     
     # This will persistently load in the data we want from the
     # very first screen.
-    if (defined($ENV{'form.postdata'})) {
-        $helper->{VARS}->{'postdata'} = $ENV{'form.postdata'};
-    }
-    if (defined($ENV{'form.symb'})) {
-        $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
+    # Detect whether we're coming from construction space
+    if ($ENV{'form.postdata'} =~ /http:\/\// ) {
+        $ENV{'form.postdata'} =~ /http:\/\/[a-zA-Z.]+\/~([a-zA-Z0-9]+)\/(.*)/;
+        $helper->{VARS}->{'filename'} = "/home/$1/public_html/$2";
+        $helper->{VARS}->{'construction'} = 1;
+    } else {
+        if ($ENV{'form.postdata'}) {
+            $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'});
+        }
+        if ($ENV{'form.symb'}) {
+            $helper->{VARS}->{'symb'} = $ENV{'form.symb'};
+        }
+        if ($ENV{'form.url'}) {
+            $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
+        }
     }
-    if (defined($ENV{'form.url'})) {
-        $helper->{VARS}->{'url'} = $helper->{VARS}->{'postdata'};
+
+    if ($ENV{'form.symb'}) {
+        $helper->{VARS}->{'symb'} = $ENV{'form.symb'};
     }
+    if ($ENV{'form.url'}) {
+        $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
 
+    }
+    
     my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
     $helper->{VARS}->{'assignment'} = $sequenceTitle;
 
-    if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
-        my $url = $helper->{VARS}->{'postdata'};
-        $resourceTitle = substr($url, rindex($url, '/') + 1);
-    }
-
-    Apache::lonhelper::registerHelperTags();
-
+    
     # Extract map
     my $symb = $helper->{VARS}->{'symb'};
-    my ($map, $id, $url) = split(/__/, $symb);
+    my ($map, $id, $url);
+    my $subdir;
 
-    my $subdir = &Apache::lonnet::filelocation("", $helper->{VARS}->{'postdata'});
+    # Get the resource name from construction space
+    if ($helper->{VARS}->{'construction'}) {
+        $resourceTitle = substr($helper->{VARS}->{'filename'}, 
+                                rindex($helper->{VARS}->{'filename'}, '/')+1);
+        $subdir = substr($helper->{VARS}->{'filename'},
+                         0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
+    } else {
+        ($map, $id, $url) = split(/___/, $symb);
+        $helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url);
+
+        if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
+            my $url = $helper->{VARS}->{'postdata'};
+            $resourceTitle = substr($url, rindex($url, '/') + 1);
+        }
+        $subdir = &Apache::lonnet::filelocation("", $url);
+    }
+
+    Apache::lonhelper::registerHelperTags();
 
     # "Delete everything after the last slash."
     $subdir =~ s|/[^/]+$||;
+    if (not $helper->{VARS}->{'construction'}) {
+	$subdir='/home/httpd/html/res/'.$subdir;
+    }
+
 
     # What can be printed is a very dynamic decision based on
     # lots of factors. So we need to dynamically build this list.
@@ -1809,38 +1782,40 @@ sub printHelper {
     # the helper by hand.
     my $printChoices = [];
     my $paramHash;
-    # We can always print the current screen.
 
-    push @{$printChoices}, ["<b>$resourceTitle</b> (exactly what was on the screen)", 'current_document', 'FINAL'];
+    if ($resourceTitle) {
+        push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE'];
+    }
+
+    $r->print($helper->{VARS}->{'postdata'});
 
     # If we're in a sequence...
-    if ($helper->{VARS}->{'postdata'} =~ /\/res\//) {
+    if ($helper->{'VARS'}->{'construction'} ne '1') {
         # Allow problems from sequence
-        push @{$printChoices}, ["Problems from <b>$sequenceTitle</b>", 'map_problems', 'CHOOSE_PROBLEMS'];
+        push @{$printChoices}, ["Problem(s) from <b>$sequenceTitle</b>", 'map_problems', 'CHOOSE_PROBLEMS'];
         # Allow all resources from sequence
-        push @{$printChoices}, ["Problems and pages from <b>$sequenceTitle</b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML'];
+        push @{$printChoices}, ["Everything (problem(s), page(s), html/xml file(s)) from <b>$sequenceTitle</b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML'];
 
         my $isProblem = '$res->is_problem();';
         my $isProblemOrMap = '$res->is_problem() || $res->is_map()';
         my $isNotMap = '!$res->is_map();';
         my $symb = '$res->symb();';
         my $helperFragment = <<HELPERFRAGMENT;
-  <state name="CHOOSE_PROBLEMS" title="Select Problems">
-    <message>Select problems to print:</message>
-    <resource variable="RESOURCES" multichoice="1">
-      <nextstate>FINAL</nextstate>
-      <filterfunc>return $isProblemOrMap</filterfunc>
-      <choicefunc>return $isProblem</choicefunc>
+  <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print">
+    <message>(mark them then click "next" button) <br /></message>
+    <resource variable="RESOURCES" multichoice="1" toponly='1'>
+      <nextstate>PAGESIZE</nextstate>
+      <filterfunc>return $isProblem</filterfunc>
       <mapurl>$map</mapurl>
       <valuefunc>return $symb</valuefunc>
       </resource>
     </state>
 
-  <state name="CHOOSE_PROBLEMS_HTML" title="Select Resources">
-    <message>Select resources to print:</message>
-    <resource variable="RESOURCES" multichoice="1">
-      <nextstate>FINAL</nextstate>
-      <choicefunc>return $isNotMap;</choicefunc>
+  <state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print">
+    <message>(mark them then click "next" button) <br /></message>
+    <resource variable="RESOURCES" multichoice="1" toponly='1'>
+      <nextstate>PAGESIZE</nextstate>
+      <filterfunc>return $isNotMap;</filterfunc>
       <mapurl>$map</mapurl>
       <valuefunc>return $symb</valuefunc>
       </resource>
@@ -1853,40 +1828,53 @@ HELPERFRAGMENT
     # If the user is priviledged, allow them to print all 
     # problems in the course, optionally for selected students
     if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($helper->{VARS}->{'postdata'}=~/\/res\//)) { 
-        push @{$printChoices}, ['<b>All problems</b> in course (may take a lot of time)', 'all_problems', 'ALL_PROBLEMS'];
+        push @{$printChoices}, ['<b>Problems</b> in this course', 'all_problems', 'ALL_PROBLEMS'];
         push @{$printChoices}, ["Problems from <b>$sequenceTitle</b> for selected students", 'problems_for_students', 'CHOOSE_STUDENTS'];
 
         my $isProblem = '$res->is_problem();';
         my $isProblemOrMap = '$res->is_problem() || $res->is_map()';
         my $symb = '$res->symb();';
         &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);
-  <state name="ALL_PROBLEMS" title="Select Problems">
-    <message>Select problems to print:</message>
+  <state name="ALL_PROBLEMS" title="Select Problem(s) to print">
+    <message>(mark them then click "next" button) <br /></message>
     <resource variable="RESOURCES" multichoice="1">
-      <nextstate>FINAL</nextstate>
+      <nextstate>PAGESIZE</nextstate>
       <filterfunc>return $isProblemOrMap</filterfunc>
       <choicefunc>return $isProblem</choicefunc>
       <valuefunc>return $symb</valuefunc>
       </resource>
     </state>
 
-  <state name="CHOOSE_STUDENTS" title="Choose Students">
-    <message>Select the students you wish to print the problems for:</message>
-    <student multichoice='1' variable="STUDENTS" nextstate="FINAL" />
+  <state name="CHOOSE_STUDENTS" title="Choose Students whose assignments you want to print">
+    <message>(do not forget to select assignment itself - make another selection below) <br /></message>
+    <student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
+    <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
+    <resource variable="RESOURCES" multichoice="1">
+      <filterfunc>return $isProblem</filterfunc>
+      <mapurl>$map</mapurl>
+      <valuefunc>return $symb</valuefunc>
+      </resource>
+    <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
+    <choices variable="EMPTY_PAGES">
+      <choice computer='0'>Print students assignments without separations (as uniform flow)</choice>
+      <choice computer='1'>Start student assignment from new page (add pagefeed after each student)</choice>
+      <choice computer='2'>Add one emty page after each student assignment</choice> 
+      <choice computer='3'>Add two emty page after each student assignment</choice> 
+      </choices>
     </state>
 CHOOSE_STUDENTS
     }
 
     # FIXME: That RE should come from a library somewhere.
-    if ((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) {    
-        push @{$printChoices}, ["Problems from <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
+    if (((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) {    
+        push @{$printChoices}, ["Problems from current subdirectory <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
         
         my $f = '$filename';
         my $xmlfrag = <<CHOOSE_FROM_SUBDIR;
-  <state name="CHOOSE_FROM_SUBDIR" title="Select Files">
-    <message>Select problems you wish to print from <b>$subdir</b></message>
+  <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$subdir</small></b> to print">
+    <message>(mark them then click "next" button) <br /></message>
     <files variable="FILES" multichoice='1'>
-      <nextstate>FINAL</nextstate>
+      <nextstate>PAGESIZE</nextstate>
       <filechoice>return '$subdir';</filechoice>
 CHOOSE_FROM_SUBDIR
         
@@ -1901,17 +1889,37 @@ CHOOSE_FROM_SUBDIR
     }
 
     # Generate the first state, to select which resources get printed.
-    Apache::lonhelper::state->new("START", "Selecting Resources to Print");
+    Apache::lonhelper::state->new("START", "What do you want to print? Make a choice.");
     $paramHash = Apache::lonhelper::getParamHash();
-    $paramHash->{MESSAGE_TEXT} = "What do you want to print?";
+    $paramHash->{MESSAGE_TEXT} = "";
     Apache::lonhelper::message->new();
     $paramHash = Apache::lonhelper::getParamHash();
     $paramHash->{'variable'} = 'PRINT_TYPE';
     $helper->declareVar('PRINT_TYPE');
     $paramHash->{CHOICES} = $printChoices;
     Apache::lonhelper::choices->new();
+
+    if ($ENV{'request.role.adv'}) {
+        $paramHash = Apache::lonhelper::getParamHash();
+        $paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />";
+        Apache::lonhelper::message->new();
+        $paramHash = Apache::lonhelper::getParamHash();
+	$paramHash->{'variable'} = 'ANSWER_TYPE';   
+	$helper->declareVar('ANSWER_TYPE');         
+        $paramHash->{CHOICES} = [
+                                   ['Print without answer', 'yes'],
+                                   ['Print with answers', 'no'] ];
+        Apache::lonhelper::choices->new();
+    }
+
     Apache::lonprintout::page_format_state->new("FORMAT");
 
+    # Generate the PAGESIZE state which will offer the user the margin
+    # choices if they select one column
+    Apache::lonhelper::state->new("PAGESIZE", "Set Margins");
+    Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL');
+
+
     $helper->process();
 
     # MANUAL BAILOUT CONDITION:
@@ -1989,31 +1997,28 @@ sub render {
     my $helper = Apache::lonhelper::getHelper();
     my $result = '';
     my $var = $self->{'variable'};
-    my $curVal = $helper->{VARS}->{$var};
-
-    my ($layout, $cols, $paper) = split(/\|/, $curVal);
 
     $result .= <<STATEHTML;
 
-<p>How should the printing be formatted?</p>
+<p><big><i><b>What page format do you prefer?</b></i></big></p>
 <table cellpadding="3">
   <tr>
-    <td align="center"><b>Layout</b></td>
-    <td align="center"><b>Columns</b></td>
+    <td align="center"><b>Page layout</b></td>
+    <td align="center"><b>Number of columns</b></td>
     <td align="center"><b>Paper type</b></td>
   </tr>
   <tr>
     <td>
-      <input type="radio" name="${var}.layout" value="L" checked='1' /> Landscape<br />
-      <input type="radio" name="${var}.layout" value="P" /> Portrait
+      <input type="radio" name="${var}.layout" value="L" /> Landscape<br />
+      <input type="radio" name="${var}.layout" value="P" checked='1'  /> Portrait
     </td>
-    <td>
+    <td align="center">
       <select name="${var}.cols">
 STATEHTML
 
     my $i;
     for ($i = 1; $i <= $maxColumns; $i++) {
-        if ($i == $cols) {
+        if ($i == 2) {
             $result .= "<option value='$i' selected>$i</option>\n";
         } else {
             $result .= "<option value='$i'>$i</option>\n";
@@ -2025,7 +2030,7 @@ STATEHTML
 
     $i = 0;
     foreach (@paperSize) {
-        if ($paper == $i) {
+        if ($i == 0) {
             $result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n";
         } else {
             $result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n";
@@ -2050,5 +2055,160 @@ sub postprocess {
 
 1;
 
+package Apache::lonprintout::page_size_state;
+
+=pod
+
+=head1 Helper element: page_size_state
+
+See lonhelper.pm documentation for discussion of the helper framework.
+
+Apache::lonprintout::page_size_state is an element that gives the 
+user the opportunity to further refine the page settings if they
+select a single-column page.
+
+page_size_state is always directly invoked in lonprintout.pm, so there
+is no tag interface. You actually pass parameters to the constructor.
+
+=over 4
+
+=item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
+
+=back
+
+=cut
+
+use Apache::lonhelper;
+
+no strict;
+@ISA = ("Apache::lonhelper::element");
+use strict;
+
+
+
+sub new { 
+    my $self = Apache::lonhelper::element->new();
+
+    shift; # disturbs me (probably prevents subclassing) but works (drops
+           # package descriptor)... - Jeremy
+
+    $self->{'variable'} = shift;
+    my $helper = Apache::lonhelper::getHelper();
+    $helper->declareVar($self->{'variable'});
+
+    # The variable name of the format element, so we can look into 
+    # $helper->{VARS} to figure out whether the columns are one or two
+    $self->{'formatvar'} = shift;
+
+    # The state to transition to after selection, or after discovering
+    # the cols are not set to 1
+    $self->{NEXTSTATE} = shift;
+    bless($self);
+    return $self;
+}
+
+sub render {
+    my $self = shift;
+    my $helper = Apache::lonhelper::getHelper();
+    my $result = '';
+    my $var = $self->{'variable'};
+
+    if (defined $self->{ERROR_MSG}) {
+        $result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />';
+    }
+
+    $result .= <<ELEMENTHTML;
+
+<p>How should the column be formatted?</p>
+
+<table cellpadding='3'>
+  <tr>
+    <td align='right'><b>Width</b>:</td>
+    <td align='left'><input type='text' name='$var.width' value='18' size='4'></td>
+    <td align='left'>
+      <select name='$var.widthunit'>
+        <option>cm</option><option>in</option>
+      </select>
+    </td>
+  </tr>
+  <tr>
+    <td align='right'><b>Height</b>:</td>
+    <td align='left'><input type='text' name="$var.height" value="25.9" size='4'></td>
+    <td align='left'>
+      <select name='$var.heightunit'>
+        <option>cm</option><option>in</option>
+      </select>
+    </td>
+  </tr>
+  <tr>
+    <td align='right'><b>Left margin</b>:</td>
+    <td align='left'><input type='text' name='$var.lmargin' value='-1.5' size='4'></td>
+    <td align='left'>
+      <select name='$var.heightunit'>
+        <option>cm</option><option>in</option>
+      </select>
+    </td>
+  </tr>
+</table>
+
+<p>Hint: Some instructors like to leave scratch space for the student by
+making the width much smaller then the width of the page.</p>
+
+ELEMENTHTML
+
+    return $result;
+}
+
+# If the user didn't select 1 column, skip this state.
+sub preprocess {
+    my $self = shift;
+    my $helper = Apache::lonhelper::getHelper();
+
+    my $format = $helper->{VARS}->{$self->{'formatvar'}};
+    if (substr($format, 2, 1) ne '1') {
+        $helper->changeState($self->{NEXTSTATE});
+    }
+   
+    return 1;
+}
+
+sub postprocess {
+    my $self = shift;
+
+    my $var = $self->{'variable'};
+    my $helper = Apache::lonhelper->getHelper();
+    my $width = $helper->{VARS}->{$var .'.width'} = $ENV{"form.${var}.width"}; 
+    my $height = $helper->{VARS}->{$var .'.height'} = $ENV{"form.${var}.height"}; 
+    my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $ENV{"form.${var}.lmargin"}; 
+    $helper->{VARS}->{$var .'.widthunit'} = $ENV{"form.${var}.widthunit"}; 
+    $helper->{VARS}->{$var .'.heightunit'} = $ENV{"form.${var}.heightunit"}; 
+    $helper->{VARS}->{$var .'.lmarginunit'} = $ENV{"form.${var}.lmarginunit"}; 
+
+    my $error = '';
+
+    # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed 
+    # by an optional period, followed by digits, ending the string
+
+    if ($width !~  /^-?[0-9]+(\.[0-9]*)?$/) {
+        $error .= "Invalid width; please type only a number.<br />\n";
+    }
+    if ($height !~  /^-?[0-9]+(\.[0-9]*)?$/) {
+        $error .= "Invalid height; please type only a number.<br />\n";
+    }
+    if ($lmargin !~  /^-?[0-9]+(\.[0-9]*)?$/) {
+        $error .= "Invalid left margin; please type only a number.<br />\n";
+    }
+
+    if (!$error) {
+        Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE});
+        return 1;
+    } else {
+        $self->{ERROR_MSG} = $error;
+        return 0;
+    }
+}
+
+
+
 __END__