loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.515, 2008/02/26 10:46:14
+version 1.516, 2008/03/03 10:50:26
  Line 144  sub ssi_with_retries {
      my ($resource, $retries, %form) = @_;
-     my $ok = 0;			# True if we got a good response.
+     my ($content, $response) = &Apache::loncommon::ssi_with_retries($resource, $retries, %form);
-     my $content;
+     if (!$response->is_success) {
-     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 {
  	$ssi_error               = 1;
  	$ssi_last_error_resource = $resource;
- 	$ssi_last_error          = $response->code." ". $response->message;
+ 	$ssi_last_error          = $response->code . " " . $response->message;
- 	return '';		# Nothing we can add to the printout that makes sense.
      }
+     return $content;
  }
  #