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

[albertel]

albertel		Thu Aug 10 17:07:02 2006 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  - eliminating unneed group_id fetches (BUG#4958)
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.174 loncom/interface/loncoursedata.pm:1.175
--- loncom/interface/loncoursedata.pm:1.174	Tue Aug  8 15:02:04 2006
+++ loncom/interface/loncoursedata.pm	Thu Aug 10 17:07:01 2006
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.174 2006/08/08 19:02:04 albertel Exp $
+# $Id: loncoursedata.pm,v 1.175 2006/08/10 21:07:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1139,7 +1139,6 @@
     &setup_table_names($courseid);
     #
     my $student_id = &get_student_id($sname,$sdom);
-    my @group_ids = &get_students_groupids($student_id);
     my $student = $sname.':'.$sdom;
     #
     my $returnstatus = 'okay';
@@ -1422,7 +1421,6 @@
     &setup_table_names($courseid);
     #
     my $student_id = &get_student_id($sname,$sdom);
-    my @group_ids = &get_students_groupids($student_id);
     my $student = $sname.':'.$sdom;
     #
     my $returnstatus = 'okay';
@@ -1474,7 +1472,6 @@
     my ($sname,$sdom,$courseid,$student_data) = @_;
     #
     my $student_id = &get_student_id($sname,$sdom);
-    my @group_ids = &get_students_groupids($student_id);
     my $student = $sname.':'.$sdom;
     #
     my $returnstatus = 'okay';
@@ -1671,7 +1668,6 @@
          $Apache::lonnet::perlvar{'lonUsersDir'});
     #
     my $student_id = &get_student_id($sname,$sdom);
-    my @group_ids = &get_students_groupids($student_id);
     my @Result = &Apache::lonmysql::get_rows($student_table,
                                              "student_id ='$student_id'");
     my $data = undef;
@@ -1720,7 +1716,6 @@
          $Apache::lonnet::perlvar{'lonUsersDir'});
     #
     my $student_id = &get_student_id($sname,$sdom);
-    my @group_ids = &get_students_groupids($student_id);
     my @Result = &Apache::lonmysql::get_rows($student_table,
                                              "student_id ='$student_id'");
     my $updatetime;
@@ -2756,7 +2751,6 @@
     #
     my $student_id = &get_student_id($student->{'username'},
                                      $student->{'domain'});
-    my @group_ids = &get_students_groupids($student_id);
     #
     my $dbh = &Apache::lonmysql::get_dbh();
     return undef if (! defined($dbh));