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

Diff for /loncom/interface/portfolio.pm between versions 1.267 and 1.268

version 1.267, 2023/12/28 15:57:27 version 1.268, 2023/12/28 18:14:07
Line 490  sub display_directory { Line 490  sub display_directory {
     my $cond_access = 0;      my $cond_access = 0;
     foreach my $key (sort(keys(%{$access_controls{$fullpath}}))) {      foreach my $key (sort(keys(%{$access_controls{$fullpath}}))) {
  my ($num,$scope,$end,$start) = &unpack_acc_key($key);   my ($num,$scope,$end,$start) = &unpack_acc_key($key);
                           next if ($scope eq 'ip');   
  if (($now > $start) && (!$end || $end > $now)) {   if (($now > $start) && (!$end || $end > $now)) {
     if ($scope eq 'public')  {      if ($scope eq 'public')  {
  $pub_access = 1;   $pub_access = 1;
Line 1005  sub build_access_summary { Line 1006  sub build_access_summary {
                       domains => 'Conditional: domain-based',                        domains => 'Conditional: domain-based',
                       users => 'Conditional: user-based',                        users => 'Conditional: user-based',
                       course => 'Conditional: course/community-based',                        course => 'Conditional: course/community-based',
                       ip     => 'Conditional: IP-based',                        userip => 'Conditional: IP-based',
                      );                       );
     my @allscopes = ('public','guest','domains','users','course','ip');      my @allscopes = ('public','guest','domains','users','course','userip');
     foreach my $scope (@allscopes) {      foreach my $scope (@allscopes) {
         if ((!(exists($todisplay{$scope}))) || (ref($todisplay{$scope}) ne 'HASH')) {          if ((!(exists($todisplay{$scope}))) || (ref($todisplay{$scope}) ne 'HASH')) {
             next;              next;
Line 1084  sub build_access_summary { Line 1085  sub build_access_summary {
                 } elsif ($scope eq 'users') {                  } elsif ($scope eq 'users') {
                     my $curr_user_list = &sort_users($content->{'users'});                      my $curr_user_list = &sort_users($content->{'users'});
                     $r->print(&mt('Users: ').$curr_user_list);                      $r->print(&mt('Users: ').$curr_user_list);
                 } elsif ($scope eq 'ip') {                  } elsif ($scope eq 'userip') {
                     my $curr_ips_list = &sort_ips($content->{'ip'});                      my $curr_ips_list = &sort_ips($content->{'userip'});
                     $r->print(&mt('IP(s):').' '.$curr_ips_list);                      $r->print(&mt('IP(s):').' '.$curr_ips_list);
                 } else {                  } else {
                     $r->print(' ');                      $r->print(' ');
Line 1195  sub update_access { Line 1196  sub update_access {
     my $totalnew = 0;      my $totalnew = 0;
     my $status = 'new';      my $status = 'new';
     my ($firstitem,$lastitem);      my ($firstitem,$lastitem);
     my @types = ('course','domains','users','ip');      my @types = ('course','domains','users','userip');
     foreach my $newitem (@types) {      foreach my $newitem (@types) {
         $allnew += $env{'form.new'.$newitem};          $allnew += $env{'form.new'.$newitem};
     }      }
Line 1207  sub update_access { Line 1208  sub update_access {
            course  => 'course/community',             course  => 'course/community',
            domains => 'domain',             domains => 'domain',
            users   => 'user',             users   => 'user',
            ip      => 'IP',             userip  => 'IP',
         );          );
         foreach my $newitem (@types) {          foreach my $newitem (@types) {
             next if ($env{'form.new'.$newitem} <= 0);              next if ($env{'form.new'.$newitem} <= 0);
Line 1311  sub build_access_record { Line 1312  sub build_access_record {
  'udom'  => $udom   'udom'  => $udom
  });   });
  }   }
     } elsif ($scope eq 'ip') {      } elsif ($scope eq 'userip') {
         my $ipslist = $env{'form.ips_'.$num};          my $ipslist = $env{'form.ips_'.$num};
         $ipslist =~ s/\s+//sg;          $ipslist =~ s/\s+//sg;
         my %ipshash = map { ($_,1) } (split(/,/,$ipslist));          my %ipshash = map { ($_,1) } (split(/,/,$ipslist));
Line 1382  sub access_setting_table { Line 1383  sub access_setting_table {
                 push(@domains,$key);                  push(@domains,$key);
             } elsif ($scope eq 'users') {              } elsif ($scope eq 'users') {
                 push(@users,$key);                  push(@users,$key);
             } elsif ($scope eq 'ip') {              } elsif ($scope eq 'userip') {
                 push(@ips,$key);                  push(@ips,$key);
             }              }
         }          }
Line 1444  sub standard_settings { Line 1445  sub standard_settings {
     my $numconditionals = 0;      my $numconditionals = 0;
     my $conditionstext;      my $conditionstext;
     my %cond_status;      my %cond_status;
     foreach my $scope ('domains','users','course','ip') {      foreach my $scope ('domains','users','course','userip') {
         $numconditionals += $acl_count->{$scope};           $numconditionals += $acl_count->{$scope}; 
         if ($acl_count->{$scope} > 0) {          if ($acl_count->{$scope} > 0) {
             if ($conditionstext ne 'Active') {              if ($conditionstext ne 'Active') {
Line 1491  sub condition_setting { Line 1492  sub condition_setting {
     $r->print('</td></tr><tr><td colspan="3"></td></tr><tr><td valign="top">');      $r->print('</td></tr><tr><td colspan="3"></td></tr><tr><td valign="top">');
     &access_element($r,'course',$acl_count,$courses,$access_controls,$now,$then);      &access_element($r,'course',$acl_count,$courses,$access_controls,$now,$then);
     $r->print('</td><td>&nbsp;</td><td valign="top">');      $r->print('</td><td>&nbsp;</td><td valign="top">');
     &access_element($r,'ip',$acl_count,$ips,$access_controls,$now,$then);      &access_element($r,'userip',$acl_count,$ips,$access_controls,$now,$then);
     $r->print('</td></tr></table>');      $r->print('</td></tr></table>');
 }  }
   
Line 1512  sub access_element { Line 1513  sub access_element {
         domains => 'Domain',          domains => 'Domain',
         users   => 'User',          users   => 'User',
         course  => 'Course/Community',          course  => 'Course/Community',
         ip      => 'IP',          userip  => 'IP',
     );      );
     $r->print('<h3>'.&mt($typetext{$type}.'-based conditional access:').' ');      $r->print('<h3>'.&mt($typetext{$type}.'-based conditional access:').' ');
     if ($$acl_count{$type}) {      if ($$acl_count{$type}) {
Line 1537  sub display_access_row { Line 1538  sub display_access_row {
     } elsif ($type eq 'users') {      } elsif ($type eq 'users') {
         $showtype = &mt('Users');          $showtype = &mt('Users');
         $infotype = 'User';          $infotype = 'User';
     } elsif ($type eq 'ip') {      } elsif ($type eq 'userip') {
         $showtype = &mt('IP-based');          $showtype = &mt('IP-based');
         $infotype = 'IP';            $infotype = 'IP';  
     }      }
Line 1565  sub display_access_row { Line 1566  sub display_access_row {
                             $then);                              $then);
             } elsif ($type eq 'users') {              } elsif ($type eq 'users') {
                 &users_row($r,$status,$key,$access_controls,$now,$then);                  &users_row($r,$status,$key,$access_controls,$now,$then);
             } elsif ($type eq 'ip') {              } elsif ($type eq 'userip') {
                 &ips_row($r,$status,$key,$access_controls,$now,$then);                  &ips_row($r,$status,$key,$access_controls,$now,$then);
             }              }
     $r->print(&Apache::loncommon::end_data_table_row());      $r->print(&Apache::loncommon::end_data_table_row());
Line 1748  sub users_row { Line 1749  sub users_row {
 sub ips_row {  sub ips_row {
     my ($r,$status,$item,$access_controls,$now,$then) = @_;      my ($r,$status,$item,$access_controls,$now,$then) = @_;
     my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,      my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
                                                     'ip');                                                      'userip');
     my $curr_ips_list;      my $curr_ips_list;
     if ($status eq 'old') {      if ($status eq 'old') {
         my $content = $$access_controls{$item};          my $content = $$access_controls{$item};
         $curr_ips_list = &sort_ips($content->{'ip'});          $curr_ips_list = &sort_ips($content->{'userip'});
     }      }
     $r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.&mt('Format for IP controls').'<br />'.      $r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.&mt('Format for IP controls').'<br />'.
               &mt('[_1] or [_2] or [_3] or [_4] or [_5]','<tt>35.8.*</tt>','<tt>35.8.3.[34-56]</tt>',                &mt('[_1] or [_2] or [_3] or [_4] or [_5]','<tt>35.8.*</tt>','<tt>35.8.3.[34-56]</tt>',
Line 1771  sub additional_item { Line 1772  sub additional_item {
         $showtype = 'domain';          $showtype = 'domain';
     } elsif ($type eq 'users') {      } elsif ($type eq 'users') {
         $showtype = 'user';          $showtype = 'user';
     } elsif ($type eq 'ip') {      } elsif ($type eq 'userip') {
         $showtype = 'IP';          $showtype = 'IP';
     }      }
     return      return
Line 1785  sub actionbox { Line 1786  sub actionbox {
     my $output = '<span class="LC_nobreak"><label>';      my $output = '<span class="LC_nobreak"><label>';
     if ($status eq 'new') {      if ($status eq 'new') {
         my $checkstate;          my $checkstate;
         if ($scope eq 'domains' || $scope eq 'users' || $scope eq 'course' || $scope eq 'ip') {          if ($scope eq 'domains' || $scope eq 'users' || $scope eq 'course' || $scope eq 'userip') {
             $checkstate = 'checked="checked"';              $checkstate = 'checked="checked"';
         }          }
         $output .= '<input type="checkbox" name="activate" value="'.$num.'" '.          $output .= '<input type="checkbox" name="activate" value="'.$num.'" '.
Removed from v.1.267  
changed lines
  Added in v.1.268

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