--- loncom/interface/lonprintout.pm	2008/02/26 10:46:14	1.515
+++ loncom/interface/lonprintout.pm	2008/03/11 09:52:56	1.519
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.515 2008/02/26 10:46:14 foxr Exp $
+# $Id: lonprintout.pm,v 1.519 2008/03/11 09:52:56 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -144,30 +144,17 @@ sub ssi_with_retries {
     my ($resource, $retries, %form) = @_;
 
 
-    my $ok = 0;			# True if we got a good response.
-    my $content;
-    my $response;
-
-    # Try to get the ssi done. within the retries count:
-
-    do {
-	($content, $response) = &Apache::lonnet::ssi($resource, %form);
-	$ok      = $response->is_success;
-	$retries--;
-    } while (!$ok && ($retries > 0));
-
-    # Two cases: ok is true we have valid data, if not, retries have been exhausted
-    # if ok is true, $response->content is what we want to return.. otherwise
-    # set the error information:
-
-    if ($ok) {
-	return $content;
-    } else {
+    my ($content, $response) = &Apache::loncommon::ssi_with_retries($resource, $retries, %form);
+    if (!$response->is_success) {
 	$ssi_error               = 1;
 	$ssi_last_error_resource = $resource;
-	$ssi_last_error          = $response->code." ". $response->message;
-	return '';		# Nothing we can add to the printout that makes sense.
+	$ssi_last_error          = $response->code . " " . $response->message;
+	
+	&Apache::lonnet::logthis("Error in SSI resource: $resource Error: $ssi_last_error");
     }
+
+    return $content;
+
 }
 
 #
@@ -1139,6 +1126,7 @@ sub print_latex_header {
 	     '\usepackage[dvips]{graphicx}\usepackage{epsfig}'."\n".
 	     '\usepackage{wrapfig}'.
 	     '\usepackage{picins}\usepackage{calc}'."\n".
+	     '\usepackage[utf8]{inputenc}'."\n".
 	     '\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n".
 	     '\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n".
 	     '\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'."\n".
@@ -2498,6 +2486,10 @@ sub printHelper {
     $helper->declareVar("showallfoils");
     $helper->declareVar("STUDENTS");
 
+
+   
+
+
     #  The page breaks can get loaded initially from the course environment:
     # But we only do this in the initial state so that they are allowed to change.
     #
@@ -3220,19 +3212,24 @@ RNDSEED
 
 
 	    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();
+	    $xmlfrag = << "PROBTYPE";
+		<dropdown variable="probstatus" multichoice="0" allowempty="0">
+		   <defaultvalue>
+		      return "$helper->{VARS}->{'probstatus'}";
+                   </defaultvalue>
+		   <choice computer="problem">Homework Problem</choice>
+		   <choice computer="exam">Exam Problem</choice>
+		   <choice computer="survey">Survey question</choice>
+		</dropdown>
+PROBTYPE
+            &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
+	    
 	    addMessage("</td></tr>"); 
 
 	}