[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

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

version 1.636.2.5, 2008/03/23 23:13:26 version 1.636.2.6, 2008/04/04 16:48:42
Line 132  sub ssi_with_retries { Line 132  sub ssi_with_retries {
     do {      do {
         ($content, $response) = &Apache::lonnet::ssi($resource, %form);          ($content, $response) = &Apache::lonnet::ssi($resource, %form);
         $ok      = $response->is_success;          $ok      = $response->is_success;
           if (!$ok) {
               &Apache::lonnet::logthis("Failed ssi_with_retries on $resource: ".$response->is_success.', '.$response->code.', '.$response->message);
           }
         $retries--;          $retries--;
     } while (!$ok && ($retries > 0));      } while (!$ok && ($retries > 0));
   
Line 3176  sub get_student_view { Line 3179  sub get_student_view {
   }    }
   if (defined($target)) { $form{'grade_target'} = $target; }    if (defined($target)) { $form{'grade_target'} = $target; }
   $feedurl=&Apache::lonnet::clutter($feedurl);    $feedurl=&Apache::lonnet::clutter($feedurl);
   my $userview=&Apache::lonnet::ssi_body($feedurl,%form);    my ($userview,$response)=&Apache::lonnet::ssi_body($feedurl,%form);
   $userview=~s/\<body[^\>]*\>//gi;    $userview=~s/\<body[^\>]*\>//gi;
   $userview=~s/\<\/body\>//gi;    $userview=~s/\<\/body\>//gi;
   $userview=~s/\<html\>//gi;    $userview=~s/\<html\>//gi;
Line 3185  sub get_student_view { Line 3188  sub get_student_view {
   $userview=~s/\<\/head\>//gi;    $userview=~s/\<\/head\>//gi;
   $userview=~s/action\s*\=/would_be_action\=/gi;    $userview=~s/action\s*\=/would_be_action\=/gi;
   $userview=&relative_to_absolute($feedurl,$userview);    $userview=&relative_to_absolute($feedurl,$userview);
   return $userview;    if (wantarray) {
         return ($userview,$response);
     } else {
         return $userview;
     }
   }
   
   sub get_student_view_with_retries {
       my ($symb,$retries,$username,$domain,$courseid,$target,$moreenv) = @_;
   
       my $ok = 0;                 # True if we got a good response.
       my $content;
       my $response;
   
       # Try to get the student_view done. within the retries count:
       
       do {
           ($content, $response) = &get_student_view($symb,$username,$domain,$courseid,$target,$moreenv);
           $ok = $response->is_success;
           if (!$ok) {
               &Apache::lonnet::logthis("Failed get_student_view_with_retries on $symb: ".$response->is_success.', '.$response->code.', '.$response->message);
           }
           $retries--;
       } while (!$ok && ($retries > 0));
       
       if (!$ok) {
           $content = '';          # On error return an empty content.
       }
       if (wantarray) {
           return ($content, $response);
       } else {
           return $content;
       }
 }  }
   
 =pod  =pod
Removed from v.1.636.2.5  
changed lines
  Added in v.1.636.2.6

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