[BACK]Return to lonmetadata.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / metadata_database / LONCAPA

Diff for /loncom/metadata_database/LONCAPA/lonmetadata.pm between versions 1.18 and 1.20

version 1.18, 2007/01/19 06:09:08 version 1.20, 2007/05/12 23:03:30
Line 184  $Portfolio_metadata_table_description = Line 184  $Portfolio_metadata_table_description =
      { name => 'domain',    type=>'TEXT'},       { name => 'domain',    type=>'TEXT'},
      { name => 'groupname',     type=>'TEXT'},       { name => 'groupname',     type=>'TEXT'},
      { name => 'courserestricted', type=>'TEXT'},       { name => 'courserestricted', type=>'TEXT'},
      { name => 'addedfieldnames',  type=>'TEXT'},  
      { name => 'addedfieldvalues', type=>'TEXT'},  
       #--------------------------------------------------        #--------------------------------------------------
      { name => 'dependencies',   type=>'TEXT'},       { name => 'dependencies',   type=>'TEXT'},
      { name => 'modifyinguser',  type=>'TEXT'},       { name => 'modifyinguser',  type=>'TEXT'},
Line 830  sub process_dynamic_metadata { Line 828  sub process_dynamic_metadata {
     #      #
     # Find out the number of students who have completed the resource...      # Find out the number of students who have completed the resource...
     my $stdno;      my $stdno;
     foreach my $coursedata (values(%{$resdata->{'statistics'}}),      my %course_counted;
                             values(%{$resdata->{'stats'}})) {  
         if (ref($coursedata) eq 'HASH' && exists($coursedata->{'stdno'})) {  
             $stdno += $coursedata->{'stdno'};  
         }  
     }  
     if (exists($resdata->{'stats'})) {      if (exists($resdata->{'stats'})) {
         #          #
         # For the number of students, take the maximum found for the class          # For the number of students, take the maximum found for the class
Line 848  sub process_dynamic_metadata { Line 841  sub process_dynamic_metadata {
             }              }
             if ($current_course ne $coursedata->{'course'}) {              if ($current_course ne $coursedata->{'course'}) {
                 $stdno += $coursemax;                  $stdno += $coursemax;
    $course_counted{$coursedata->{'course'}}++;
                 $coursemax = 0;                  $coursemax = 0;
                 $current_course = $coursedata->{'course'};                                  $current_course = $coursedata->{'course'};                
             }              }
Line 857  sub process_dynamic_metadata { Line 851  sub process_dynamic_metadata {
         }          }
         $stdno += $coursemax; # pick up the final course in the list          $stdno += $coursemax; # pick up the final course in the list
     }      }
       # check for old data that has not been run since the format was changed
       foreach my $course (keys(%{$resdata->{'statistics'}})) {
    next if (exists($course_counted{$course}));
    my $coursedata = $resdata->{'statistics'}{$course};
           if (ref($coursedata) eq 'HASH' && exists($coursedata->{'stdno'})) {
       $stdno += $coursedata->{'stdno'};
           }
       }
     $data{'stdno'}=$stdno;      $data{'stdno'}=$stdno;
     #      #
     # Get the context data      # Get the context data
Line 994  sub portfolio_metadata { Line 996  sub portfolio_metadata {
             }              }
         } # End of ($token->[0] eq 'S')          } # End of ($token->[0] eq 'S')
     }      }
     if (keys(%addedfields) > 0) {  
         foreach my $key (sort keys(%addedfields)) {  
             $metacache{'addedfieldnames'} .= $key.',';  
             $metacache{'addedfieldvalues'} .= $addedfields{$key}.'&&&';  
         }  
         $metacache{'addedfieldnames'} =~ s/,$//;  
         $metacache{'addedfieldvalues'} =~ s/\&\&\&$//;  
         if ($metacache{'keys'}) {  
             $metacache{'keys'}.=',addedfieldnames';  
         } else {  
             $metacache{'keys'}='addedfieldnames';  
         }  
         $metacache{'keys'}.=',addedfieldvalues';  
     }  
     return (\%metacache,$metacache{'courserestricted'},\%addedfields);      return (\%metacache,$metacache{'courserestricted'},\%addedfields);
 }  }
   
Removed from v.1.18  
changed lines
  Added in v.1.20

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