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

Diff for /loncom/interface/domainprefs.pm between versions 1.138.2.3 and 1.138.2.4

version 1.138.2.3, 2010/08/26 08:27:38 version 1.138.2.4, 2010/10/05 18:44:08
Line 512  sub print_config_box { Line 512  sub print_config_box {
         } elsif ($action eq 'helpsettings') {          } elsif ($action eq 'helpsettings') {
             $output .= &print_helpsettings('top',$dom,$confname,$settings,\$rowtotal);              $output .= &print_helpsettings('top',$dom,$confname,$settings,\$rowtotal);
         } elsif ($action eq 'usersessions') {          } elsif ($action eq 'usersessions') {
             $output .= &print_usersessions('top',$dom,$settings,\$rowtotal);               $output .= &print_usersessions('top',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'rolecolors') {          } elsif ($action eq 'rolecolors') {
             $output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);              $output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);
         }          }
Line 2279  sub print_coursedefaults { Line 2279  sub print_coursedefaults {
 sub print_usersessions {  sub print_usersessions {
     my ($position,$dom,$settings,$rowtotal) = @_;      my ($position,$dom,$settings,$rowtotal) = @_;
     my ($css_class,$datatable,%checked,%choices);      my ($css_class,$datatable,%checked,%choices);
       my (%by_ip,%by_location,@intdoms);
       &build_location_hashes(\@intdoms,\%by_ip,\%by_location);
       if (keys(%by_location) == 0) {
           if ($position eq 'top') {
               $datatable .= '<tr'.$css_class.'><td colspan="2">'.
                             &mt('Nothing to set here, as the cluster to which this domain belongs only contains this institution.');
           }
       }
     my %lt = &usersession_titles();      my %lt = &usersession_titles();
     my $itemcount = 1;      my $itemcount = 1;
     my $numinrow = 6;      my $numinrow = 5;
     my $prefix;      my $prefix;
     my @types;      my @types;
     if ($position eq 'top') {      if ($position eq 'top') {
Line 2293  sub print_usersessions { Line 2301  sub print_usersessions {
     }      }
     my (%current,%checkedon,%checkedoff);      my (%current,%checkedon,%checkedoff);
     my @lcversions = &Apache::lonnet::all_loncaparevs();      my @lcversions = &Apache::lonnet::all_loncaparevs();
     my (%by_ip,%by_location,@intdoms);  
     &build_location_hashes(\@intdoms,\%by_ip,\%by_location);  
     my @locations = sort(keys(%by_location));      my @locations = sort(keys(%by_location));
     foreach my $type (@types) {      foreach my $type (@types) {
         $checkedon{$type} = '';          $checkedon{$type} = '';
Line 2317  sub print_usersessions { Line 2323  sub print_usersessions {
         }          }
     }      }
     foreach my $type (@types) {      foreach my $type (@types) {
           next if ($type ne 'version' && !@locations);
         $css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';          $css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
         $datatable .= '<tr'.$css_class.'>          $datatable .= '<tr'.$css_class.'>
                        <td><span class="LC_nobreak">'.$lt{$type}.'</span><br />                         <td><span class="LC_nobreak">'.$lt{$type}.'</span><br />
Removed from v.1.138.2.3  
changed lines
  Added in v.1.138.2.4

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