[LON-CAPA-cvs] cvs: loncom /interface portfolio.pm

[albertel]

albertel		Thu Jun 22 15:23:56 2006 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - using css for all permissions changes
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.117 loncom/interface/portfolio.pm:1.118
--- loncom/interface/portfolio.pm:1.117	Thu Jun 22 15:11:13 2006
+++ loncom/interface/portfolio.pm	Thu Jun 22 15:23:56 2006
@@ -513,8 +513,6 @@
 
 sub update_access {
     my ($r,$url,$group) = @_;
-    my $function = &Apache::loncommon::get_users_function();
-    my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg');
     my $totalprocessed = 0;
     my %processing;
     my %title  = (
@@ -614,8 +612,7 @@
                             if ($scope eq 'guest') {
                                 $r->print(&mt('Password').': '.$content->{'password'});
                             } elsif ($scope eq 'course' || $scope eq 'group') {
-                                $r->print('<table border="0"><tr bgcol = "'.
-                                          $tablecolor.'">');
+                                $r->print('<table><tr>');
                                 $r->print('<th>'.&mt('Roles').'</th><th>'.
                                           &mt('Access').'</th><th>'.
                                           &mt('Sections').'</th>');
@@ -937,7 +934,6 @@
     my ($r,$status,$type,$items,$access_controls,$now,$then) = @_;
     if (@{$items} > 0) {
         my @all_doms;
-        my $tablecolor;
         my $colspan = 3;
         my $uctype = $type;
         $uctype =~ s/^(\w)/uc($1)/e;
@@ -949,25 +945,22 @@
             $r->print('<th>'.&mt('Allowed [_1] member affiliations',$type).
                       '</th>');
             $colspan ++;
-            my $function = &Apache::loncommon::get_users_function();
-            $tablecolor=&Apache::loncommon::designparm($function.'.tabbg');
         } elsif ($type eq 'domains') {
             @all_doms = &Apache::loncommon::get_domains();
         }
         $r->print(&Apache::loncommon::end_data_table_header_row());
-	$r->print(&Apache::loncommon::start_data_table_row());
         foreach my $key (@{$items}) {
+	    $r->print(&Apache::loncommon::start_data_table_row());
             if (($type eq 'course') || ($type eq 'group')) {
-                &course_row($r,$status,$type,$key,$access_controls,
-                            $tablecolor,$now,$then);
+                &course_row($r,$status,$type,$key,$access_controls,$now,$then);
             } elsif ($type eq 'domains') {
                 &domains_row($r,$status,$key,\@all_doms,$access_controls,$now,
                             $then);
             } elsif ($type eq 'users') {
                 &users_row($r,$status,$key,$access_controls,$now,$then);
             }
+	    $r->print(&Apache::loncommon::end_data_table_row());
         }
-        $r->print(&Apache::loncommon::end_data_table_row());
         if ($status eq 'old') {
 	    $r->print(&Apache::loncommon::start_data_table_row());
             $r->print('<td colspan="',$colspan.'">'.&additional_item($type).
@@ -1026,7 +1019,7 @@
 }
 
 sub course_row {
-    my ($r,$status,$type,$item,$access_controls,$tablecolor,$now,$then) = @_;
+    my ($r,$status,$type,$item,$access_controls,$now,$then) = @_;
     my $content;
     my $defdom = $env{'user.domain'};
     if ($status eq 'old') {
@@ -1052,7 +1045,7 @@
         $r->print('<td>'.&Apache::loncommon::selectcourse_link('portform','crsnum_'.$num,'crsdom_'.$num,'description_'.$num,undef,undef,$uctype).'&nbsp;&nbsp;<input type="text" name="description_'.$num.'" size="30" /><input type="hidden" name="crsdom_'.$num.'" /><input type="hidden" name="crsnum_'.$num.'" /></td>');
     }
     $r->print('<td>'.&dateboxes($num,$start,$end).'</td>');
-    $r->print('<td><table border="0"><tr bgcolor="'.$tablecolor.'">');
+    $r->print('<td><table><tr>');
     $r->print('<th>'.&mt('Action').'</th><th>'.&mt('Roles').'</th><th>'.
               &mt('Access').'</th><th>'.&mt('Sections').'</th><th>'.
               &mt($crsgrptext).'</th></tr>');