[BACK]Return to lonsequence.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonsequence.pm between versions 1.54 and 1.58

version 1.54, 2021/04/19 18:21:13 version 1.58, 2022/10/19 18:09:03
Line 234  sub handler { Line 234  sub handler {
                $r->send_http_header;                 $r->send_http_header;
                $r->print(&Apache::loncommon::check_release_result(@reinit));                 $r->print(&Apache::loncommon::check_release_result(@reinit));
                return OK;                 return OK;
            } elsif ($result eq 'update') {             }
                my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};             my ($cnum,$cdom);
                my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};             if ($result) {
                  $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                  $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
              }
              if (($result eq 'main') || ($result eq 'both')) {
                my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");                 my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
                if ($ferr) {                 if ($ferr) {
                    my $requrl = $r->uri;                     my $requrl = $r->uri;
Line 245  sub handler { Line 249  sub handler {
                    return HTTP_NOT_ACCEPTABLE;                     return HTTP_NOT_ACCEPTABLE;
                }                 }
            }             }
              if (($result eq 'both') || ($result eq 'supp')) {
                  my $possdel;
                  if ($result eq 'supp') {
                      $possdel = 1;
                  }
                  my ($supplemental,$refs_updated) = &Apache::lonnet::get_supplemental($cnum,$cdom,'',$possdel);
                  unless ($refs_updated) {
                      &Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental,$possdel);
                  }
              }
            &Apache::loncommon::content_type($r,'text/html');             &Apache::loncommon::content_type($r,'text/html');
            $r->send_http_header;             $r->send_http_header;
   
Line 291  sub handler { Line 304  sub handler {
                    }                     }
                    push(@crumbs,{text => $maptitle, no_mt => 1});                     push(@crumbs,{text => $maptitle, no_mt => 1});
                    $args = {'bread_crumbs' => \@crumbs,                     $args = {'bread_crumbs' => \@crumbs,
                             'bread_crumbs_nomenu' => 1};                              'bread_crumbs_nomenu' => 1,
                               'no_auto_mt_title' => 1};
                    $r->print(&Apache::loncommon::start_page($maptitle,undef,$args));                     $r->print(&Apache::loncommon::start_page($maptitle,undef,$args));
   
                    my $renderArgs = { 'cols'                    => [0,1,2,3],                     my $renderArgs = { 'cols'                    => [0,1,2,3],
Line 374  sub handler { Line 388  sub handler {
                $dismapid=(split(/\./,$disid))[1];                 $dismapid=(split(/\./,$disid))[1];
        if (!$env{'request.role.adv'}) {         if (!$env{'request.role.adv'}) {
    $randomout = $bighash{'randomout_'.$disid};     $randomout = $bighash{'randomout_'.$disid};
        }  
                if (!$env{'request.role.adv'}) {  
                    $is_encrypted = $bighash{'encrypted_'.$disid};                     $is_encrypted = $bighash{'encrypted_'.$disid};
                }                 }
            } elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',             } elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
Line 396  sub handler { Line 408  sub handler {
                    $dismapid=(split(/\./,$disid))[1];                     $dismapid=(split(/\./,$disid))[1];
    if (!$env{'request.role.adv'}) {     if (!$env{'request.role.adv'}) {
        $randomout = $bighash{'randomout_'.$disid};         $randomout = $bighash{'randomout_'.$disid};
    }  
                    if (!$env{'request.role.adv'}) {  
                        $is_encrypted = $bighash{'encrypted_'.$disid};                         $is_encrypted = $bighash{'encrypted_'.$disid};
                    }                     }
                }                 }
Removed from v.1.54  
changed lines
  Added in v.1.58

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