--- loncom/interface/lonprintout.pm	2008/01/14 10:43:12	1.511
+++ loncom/interface/lonprintout.pm	2008/01/21 10:24:23	1.512
@@ -1,8 +1,7 @@
-#
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.511 2008/01/14 10:43:12 foxr Exp $
+# $Id: lonprintout.pm,v 1.512 2008/01/21 10:24:23 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1342,6 +1341,8 @@ sub output_data {
 </script>
 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 ...');
 
@@ -1375,6 +1376,7 @@ ENDPART
     my @print_array=();
     my @student_names=();
 
+     
     #  Common settings for the %form has:
     # In some cases these settings get overriddent by specific cases, but the
     # settings are common enough to make it worthwhile factoring them out
@@ -1412,6 +1414,7 @@ ENDPART
 	    $currentURL=$helper->{'VARS'}->{'postdata'};
 	    $cleanURL=&Apache::lonenc::check_decrypt($currentURL);
 	} else {
+
             #prints resource from the construction space
 	    $currentURL='/'.$helper->{'VARS'}->{'filename'};
 	    if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
@@ -2462,7 +2465,7 @@ sub printHelper {
 	$helper->{VARS}->{'curseed'}=$env{'form.curseed'};
     }
     if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
-	$helper->{VARS}->{'probstatus'}=$env{'form.problemtype'};
+	$helper->{VARS}->{'probstatus'}=$env{'form.problemstatus'};
     }
 
     my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
@@ -3088,6 +3091,24 @@ CHOOSE_FROM_ANY_SEQUENCE
 	     <message></td></tr></message>
 RNDSEED
             &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
+
+
+	    addMessage("<tr><td>Problem Type:</td><td>");
+	    $paramHash = &Apache::lonhelper::getParamHash();
+	    $paramHash->{'variable'} = 'probstatus'; # Already declared:
+	    #
+	    # Initial value from construction space:
+	    #
+	    if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
+		$helper->{VARS}->{'probstatus'} = $env{'form.problemtype'};	# initial value
+	    }
+	    $paramHash->{CHOICES} = [
+				     ['Homework problem',     'problem'],
+				     ['Exam Problem', 'exam'],
+				     ['Survey question',      'survey']];
+	    Apache::lonhelper::dropdown->new();
+	    addMessage("</td></tr>"); 
+
 	} 
     }