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

Diff for /loncom/interface/lonparmset.pm between versions 1.522.2.28.4.1 and 1.522.2.28.4.3

version 1.522.2.28.4.1, 2022/01/03 20:09:40 version 1.522.2.28.4.3, 2022/03/23 17:29:29
Line 1313  sub print_row { Line 1313  sub print_row {
         my ($domltistr,$crsltistr);          my ($domltistr,$crsltistr);
         my %lti =          my %lti =
             &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},              &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
                                             'provider');                                              'linkprot');
         if (keys(%lti)) {          if (keys(%lti)) {
             foreach my $item (sort { $a <=> $b }  (keys(%lti))) {              foreach my $item (sort { $a <=> $b }  (keys(%lti))) {
                 if (ref($lti{$item}) eq 'HASH') {                  if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
                     unless ($lti{$item}{'requser'}) {                      $domltistr .= $item.':'.&escape(&escape($lti{$item}{'name'})).',';
                         $domltistr .= $item.':'.&escape(&escape($lti{$item}{'consumer'})).',';  
                     }  
                 }                  }
             }              }
             $domltistr =~ s/,$//;              $domltistr =~ s/,$//;
Line 2675  sub assessparms { Line 2673  sub assessparms {
         my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};          my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
         my ($got_chostname,$chostname,$cmajor,$cminor);          my ($got_chostname,$chostname,$cmajor,$cminor);
         my $totalstored = 0;          my $totalstored = 0;
           my $totalskippeduser = 0;
         my $now = time;          my $now = time;
         for (my $i=0;$i<=$#markers;$i++) {          for (my $i=0;$i<=$#markers;$i++) {
             my ($needsrelease,$needsnewer,$name);              my ($needsrelease,$needsnewer,$name);
Line 2683  sub assessparms { Line 2682  sub assessparms {
             }              }
             if ($markers[$i] =~ /\&(6|5|4)$/) {              if ($markers[$i] =~ /\&(6|5|4)$/) {
                 next if ($noeditgrp);                  next if ($noeditgrp);
               } elsif ($markers[$i] =~ /\&(3|2|1)$/) {
                   if ($uname eq '') {
                       $totalskippeduser ++;
                       next;
                   }
             }              }
             if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {              if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {
                 my (@ok_slots,@fail_slots,@del_slots);                  my (@ok_slots,@fail_slots,@del_slots);
Line 2760  sub assessparms { Line 2764  sub assessparms {
 # ---------------------------------------------------------------- Done storing  # ---------------------------------------------------------------- Done storing
         if ($totalstored) {          if ($totalstored) {
             $message.='<p class="LC_warning">'              $message.='<p class="LC_warning">'
                        .&mt('Changes for [quant,_1,parameter] saved.',$totalstored)
                        .'<br />'
                      .&mt('Changes can take up to 10 minutes before being active for all students.')                       .&mt('Changes can take up to 10 minutes before being active for all students.')
                      .&Apache::loncommon::help_open_topic('Caching')                       .&Apache::loncommon::help_open_topic('Caching')
                      .'</p>';                       .'</p>';
           } else {
               $message.='<p class="LC_info">'.&mt('No parameter changes saved.').'</p>';
           }
           if ($totalskippeduser) {
               $message .= '<p class="LC_warning">';
               if ($uhome eq 'no_host') {
                   $message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the username or ID was invalid.',
                                   $totalskippeduser);
               } elsif ($env{'form.userroles'} eq 'any') {
                   $message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the user does not have a course role.',
                                   $totalskippeduser);
               } else {
                   $message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the user is not a student.',
                                   $totalskippeduser);
               }
               $message .= '</p>';
         }          }
     }      }
 #----------------------------------------------- if all selected, fill in array  #----------------------------------------------- if all selected, fill in array
Line 4005  sub string_deeplink_selector { Line 4027  sub string_deeplink_selector {
     }      }
     my %lti =      my %lti =
         &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},          &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
                                         'provider');                                          'linkprot');
     foreach my $item (keys(%lti)) {      foreach my $item (keys(%lti)) {
         if (ref($lti{$item}) eq 'HASH') {          if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
             unless ($lti{$item}{'requser'}) {              $domlti{$item} = $lti{$item}{'name'};
                 $domlti{$item} = $lti{$item}{'consumer'};  
             }  
         }          }
     }      }
     if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) {      if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) {
Removed from v.1.522.2.28.4.1  
changed lines
  Added in v.1.522.2.28.4.3

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