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

raeburn lon-capa-cvs@mail.lon-capa.org
Fri, 02 Mar 2007 20:58:33 -0000


raeburn		Fri Mar  2 15:58:33 2007 EDT

  Modified files:              
    /loncom/interface	lonwhatsnew.pm 
  Log:
  $tabbg no longer required now CSS is being used from loncommon::standard_css().
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.68 loncom/interface/lonwhatsnew.pm:1.69
--- loncom/interface/lonwhatsnew.pm:1.68	Tue Feb 27 17:16:02 2007
+++ loncom/interface/lonwhatsnew.pm	Fri Mar  2 15:58:32 2007
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.68 2007/02/27 22:16:02 raeburn Exp $
+# $Id: lonwhatsnew.pm,v 1.69 2007/03/02 20:58:32 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -144,7 +144,6 @@
     my ($r,$command,$refpage,$checkallowed) = @_;
     my $domain=&Apache::loncommon::determinedomain();
     my $function = &Apache::loncommon::get_users_function();
-    my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
     my $lctype = lc(&Apache::loncommon::course_type());
     $r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">');
 
@@ -172,7 +171,7 @@
 
     if (($command eq 'chgthreshold') 
 	&& $checkallowed->{'abovethreshold'}) {
-        &display_threshold_config($r,$refpage,$tabbg,\%threshold_titles,
+        &display_threshold_config($r,$refpage,\%threshold_titles,
                                                                    $cdom,$crs);
     } elsif (($command eq 'chginterval') 
 	     && $checkallowed->{'versionchanges'}) {
@@ -183,7 +182,7 @@
     } elsif ($command eq 'courseinit') {
         &courseinit_config($r,$refpage,\%initpage);
     } else {
-        &display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles,
+        &display_actions_box($r,$command,$refpage,\%threshold_titles,
                         \%interval_titles,\%initpage,$cdom,$crs,$checkallowed);
     }
     my $end_page = &Apache::loncommon::end_page();
@@ -241,8 +240,8 @@
 #-------------------------------
                                                                                 
 sub display_actions_box {
-    my ($r,$tabbg,$command,$refpage,$threshold_titles,$interval_titles,
-                                      $initpage,$cdom,$crs,$checkallowed) = @_;
+    my ($r,$command,$refpage,$threshold_titles,$interval_titles,$initpage,
+        $cdom,$crs,$checkallowed) = @_;
     my $udom = $env{'user.domain'};
     my $uname = $env{'user.name'};
     my $cid = $env{'request.course.id'};
@@ -429,7 +428,7 @@
             if ($displayed == $halfway) {
                 $r->print('</td><td width="6%">&nbsp;</td><td align="left" valign="top" width="47%">');
             }
-            &display_launcher($r,$actionitem,$refpage,$checkallowed,$tabbg,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,$interval,$countunread);
+            &display_launcher($r,$actionitem,$refpage,$checkallowed,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,$interval,$countunread);
             $displayed ++; 
         }
     }
@@ -451,7 +450,7 @@
 #-------------------------------
                                                                                 
 sub display_threshold_config {
-    my ($r,$refpage,$tabbg,$threshold_titles,$cdom,$crs) = @_;
+    my ($r,$refpage,$threshold_titles,$cdom,$crs) = @_;
     my $uname = $env{'user.name'};
     my $udom = $env{'user.dom'};
     my $cid = $env{'request.course.id'};
@@ -654,13 +653,13 @@
 }
 
 sub display_launcher {
-    my ($r,$action,$refpage,$checkallowed,$tabbg,$show,$headings,$res_title,
+    my ($r,$action,$refpage,$checkallowed,$show,$headings,$res_title,
         $tograde,$ungraded,$bombs,$bombed,$changed,$warnings,$triggered,
         $newdiscussions,$unread,$msgcount,$newmsgs,$critmsgcount,$critmsgs,
         $interval,$countunread) = @_;
 
     if ($$checkallowed{$action}) {
-        &start_box($r,$tabbg,$show,$headings,$action,$refpage,$action);
+        &start_box($r,$show,$headings,$action,$refpage,$action);
         if ($$show{$action}) {
             if ($action eq 'handgrading') {    # UNGRADED ITEMS
                 &display_handgrade($r,$tograde,$ungraded);
@@ -1506,7 +1505,7 @@
 }
 
 sub start_box {
-    my ($r,$tabbg,$show,$heading,$caller,$refpage) = @_;
+    my ($r,$show,$heading,$caller,$refpage) = @_;
     my %lt = &Apache::lonlocal::texthash( 
                        chth => 'Change thresholds?',
                        chin => 'Change interval?',