[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.24 and 1.27

version 1.24, 2007/08/18 00:32:05 version 1.27, 2009/04/29 15:21:00
Line 935  sub process_dynamic_metadata { Line 935  sub process_dynamic_metadata {
     }      }
     #      #
     # put together comments      # put together comments
     my $comments = '<div class="LCevalcomments">';      my $comments = '';
     foreach my $evaluator (keys(%{$resdata->{'evaluation'}->{'comments'}})){      foreach my $evaluator (keys(%{$resdata->{'evaluation'}->{'comments'}})){
         $comments .=           $comments .= 
             '<p>'.              '<p>'.
             '<b>'.$evaluator.'</b>:'.              '<b>'.$evaluator.'</b>: '.
             $resdata->{'evaluation'}->{'comments'}->{$evaluator}.              $resdata->{'evaluation'}->{'comments'}->{$evaluator}.
             '</p>';              '</p>';
     }      }
     $comments .= '</div>';      if ($comments) {
     $data{'comments'} = $comments;          $comments = '<div class="LCevalcomments">'
                      .$comments
                      .'</div>';
           $data{'comments'} = $comments;
       }
     #      #
     if (exists($resdata->{'stats'})) {      if (exists($resdata->{'stats'})) {
         $data{'stats'} = $resdata->{'stats'};          $data{'stats'} = $resdata->{'stats'};
Line 1183  sub process_allusers_data { Line 1187  sub process_allusers_data {
         if ($udom eq '' || $uname eq '' ) {          if ($udom eq '' || $uname eq '' ) {
             $error = 'No domain and/or username specified';              $error = 'No domain and/or username specified';
         } else {          } else {
             $delitem = 'domain = '.$dbh->quote($udom).' AND username = '.              $delitem = 'domain = '.$dbh->quote($udom).' AND username '.
                        $dbh->quote($uname);                         'COLLATE latin1_general_cs = '.$dbh->quote($uname);
             $error=&delete_metadata($dbh,$newnames->{'allusers'},$delitem);              $error=&delete_metadata($dbh,$newnames->{'allusers'},$delitem);
         }          }
         if (defined($error)) {          if (defined($error)) {
Removed from v.1.24  
changed lines
  Added in v.1.27

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