--- loncom/interface/lonprintout.pm	2008/01/14 10:43:12	1.511
+++ loncom/interface/lonprintout.pm	2008/01/28 11:40:42	1.513
@@ -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.513 2008/01/28 11:40:42 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -756,6 +755,13 @@ sub character_chart {
     $result =~ s/&\#8600;/\\ensuremath\{\\searrow\}/g;
     $result =~ s/&\#8601;/\\ensuremath\{\\swarrow\}/g;
     $result =~ s/&\#8598;/\\ensuremath\{\\nwarrow\}/g;
+
+    # Left/right quotations:
+
+    $result =~ s/&(ldquo|#8220);/\`\`/g;
+    $result =~ s/&(rdquo|#8221);/\'\'/g;
+
+
     return $result;
 }
 
@@ -1342,6 +1348,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 +1383,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 +1421,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 +2472,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 +3098,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>"); 
+
 	} 
     }