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

Diff for /loncom/interface/loncoursedata.pm between versions 1.201.2.5 and 1.210

version 1.201.2.5, 2021/03/05 17:18:40 version 1.210, 2025/06/28 14:34:46
Line 220  sub init_dbs { Line 220  sub init_dbs {
                       type => 'SMALLINT UNSIGNED' },                        type => 'SMALLINT UNSIGNED' },
                     { name => 'awarded',                      { name => 'awarded',
                       type => 'REAL' },                        type => 'REAL' },
                       { name => 'latefrac',
                         type => 'REAL' },
                     { name => 'award',                      { name => 'award',
                       type => 'TINYTEXT' },                        type => 'TINYTEXT' },
                     { name => 'awarddetail',                      { name => 'awarddetail',
Line 257  sub init_dbs { Line 259  sub init_dbs {
                       type => 'REAL' },                        type => 'REAL' },
                     { name => 'previous',                      { name => 'previous',
                       type => 'SMALLINT UNSIGNED' },                        type => 'SMALLINT UNSIGNED' },
                       { name => 'latefrac',
                         type => 'REAL' },
 #                    { name => 'regrader',  #                    { name => 'regrader',
 #                      type => 'TINYTEXT' },  #                      type => 'TINYTEXT' },
 #                    { name => 'afterduedate',  #                    { name => 'afterduedate',
Line 1186  sub store_student_data { Line 1190  sub store_student_data {
         #          #
         # Parameters          # Parameters
         while (my ($parameter,$value) = each(%$param_hash)) {          while (my ($parameter,$value) = each(%$param_hash)) {
             if ($parameter !~ /(timestamp|resource\.(.*)\.(solved|tries|awarded|award|awarddetail|previous))/) {              if ($parameter !~ /(timestamp|resource\.(.*)\.(solved|tries|awarded|award|awarddetail|previous|latefrac))/) {
                 my $sql_parameter = "('".join("','",                  my $sql_parameter = "('".join("','",
                                               $symb_id,$student_id,                                                $symb_id,$student_id,
                                               $parameter)."',".                                                $parameter)."',".
Line 1901  sub populate_weight_table { Line 1905  sub populate_weight_table {
     my @resources;      my @resources;
     foreach my $seq (@sequences) {      foreach my $seq (@sequences) {
         push(@resources,$navmap->retrieveResources($seq,          push(@resources,$navmap->retrieveResources($seq,
                                                    sub {shift->is_problem();},                                                     sub {shift->is_gradable();},
                                                    0,0,0));                                                     0,0,0));
     }      }
     if (! scalar(@resources)) {      if (! scalar(@resources)) {
Line 2520  sub get_student_scores { Line 2524  sub get_student_scores {
         &Apache::lonnet::logthis('prepared then executed '.$/.$request);          &Apache::lonnet::logthis('prepared then executed '.$/.$request);
         return undef;          return undef;
     }      }
     $request = 'SELECT score,COUNT(*) FROM '.$tmptable.' GROUP BY score';      $request = 'SELECT score,COUNT(*) FROM '.$tmptable.' GROUP BY score ORDER BY score';
 #    &Apache::lonnet::logthis("request = \n".$request);  #    &Apache::lonnet::logthis("request = \n".$request);
     $sth = $dbh->prepare($request);      $sth = $dbh->prepare($request);
     $sth->execute();      $sth->execute();
Line 2619  sub CL_PHOTO   { return 16; } Line 2623  sub CL_PHOTO   { return 16; }
 sub CL_THUMBNAIL { return 17; }  sub CL_THUMBNAIL { return 17; }
 sub CL_AUTHORQUOTA { return 18; }  sub CL_AUTHORQUOTA { return 18; }
 sub CL_AUTHORUSAGE { return 19; }  sub CL_AUTHORUSAGE { return 19; }
   sub CL_CAMANAGER {return 20; }
   
 sub get_classlist {  sub get_classlist {
     my ($cdom,$cnum) = @_;      my ($cdom,$cnum) = @_;
Removed from v.1.201.2.5  
changed lines
  Added in v.1.210

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