[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.23 and 1.26

version 1.23, 2007/07/25 23:17:49 version 1.26, 2009/04/21 15:38:05
Line 488  sub store_metadata { Line 488  sub store_metadata {
   
 =pod  =pod
   
 =item ()  =item lookup_metadata()
   
 Inputs: database handle ($dbh) and a hash or hash reference containing   Inputs: database handle ($dbh) and a hash or hash reference containing 
 metadata which will be used for a search.  metadata which will be used for a search.
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) {
           $comments = '<div class="LCevalcomments">'
                      .$comments
                      .'</div>';
       }
     $data{'comments'} = $comments;      $data{'comments'} = $comments;
     #      #
     if (exists($resdata->{'stats'})) {      if (exists($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.23  
changed lines
  Added in v.1.26

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