loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.636.2.3 and 1.636.2.5

-version 1.636.2.3, 2008/03/18 23:00:51
+version 1.636.2.5, 2008/03/23 23:13:26
  Line 78  my $readit;
  ## Global Variables
  ##
+ # ----------------------------------------------- SSI with retries:
+ #
+ =pod
+ =head1 Server Side include with retries:
+ =over 4
+ =item * &ssi_with_retries(resource,retries form)
+ Performs an ssi with some number of retries.  Retries continue either
+ until the result is ok or until the retry count supplied by the
+ caller is exhausted.
+ Inputs:
+ =over 4
+ resource   - Identifies the resource to insert.
+ retries    - Count of the number of retries allowed.
+ form       - Hash that identifies the rendering options.
+ =back
+ Returns:
+ =over 4
+ content    - The content of the response.  If retries were exhausted this is empty.
+ response   - The response from the last attempt (which may or may not have been successful.
+ =back
+ =back
+ =cut
+ 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));
+     if (!$ok) {
+         $content = '';          # On error return an empty content.
+     }
+     return ($content, $response);
+ }
  # ----------------------------------------------- Filetypes/Languages/Copyright
  my %language;
  my %supported_language;
- Line 3981  ENDROLE
+ Line 4047  ENDROLE
          $dc_info = '('.$dc_info.')';
      }
-     if ($env{'environment.remote'} eq 'off') {
+     if (($env{'environment.remote'} eq 'off') || ($args->{'suppress_header_logos'})) {
          # No Remote
  	if ($env{'request.state'} eq 'construct') {
  	    $forcereg=1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.636.2.3
changed lines
	Added in v.1.636.2.5