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

Diff for /loncom/interface/lonmeta.pm between versions 1.80 and 1.81

version 1.80, 2004/06/16 18:33:46 version 1.81, 2004/06/17 15:05:59
Line 61  use Apache::lonmsg; Line 61  use Apache::lonmsg;
 ############################################################  ############################################################
 sub get_dynamic_metadata_from_sql {  sub get_dynamic_metadata_from_sql {
     my ($url) = shift();      my ($url) = shift();
     # &Apache::lonnet::logthis('url = '.$url);  
     my ($authordom,$author)=($url=~m:^/res/(\w+)/(\w+)/:);      my ($authordom,$author)=($url=~m:^/res/(\w+)/(\w+)/:);
     if (! defined($authordom)) {      if (! defined($authordom)) {
         $authordom = shift();          $authordom = shift();
Line 113  sub get_dynamic_metadata_from_sql { Line 112  sub get_dynamic_metadata_from_sql {
             my $url = $Data[0];              my $url = $Data[0];
             for (my $i=0;$i<=$#Fields;$i++) {              for (my $i=0;$i<=$#Fields;$i++) {
                 $ReturnHash{$url}->{$Fields[$i]}=$Data[$i];                  $ReturnHash{$url}->{$Fields[$i]}=$Data[$i];
                 # &Apache::lonnet::logthis('  '.$Fields[$i].' => '.$Data[$i]);  
             }              }
         }          }
         $finished = 1;          $finished = 1;
Line 832  sub print_dynamic_metadata { Line 830  sub print_dynamic_metadata {
     # All other stuff      # All other stuff
     $r->print('<h3>'.      $r->print('<h3>'.
               &mt('Additional Metadata (non-standard, parameters, exports)').                &mt('Additional Metadata (non-standard, parameters, exports)').
               '</h3>');                '</h3><table border="0" cellspacing="1">');
     foreach (sort(keys(%content))) {      foreach (sort(keys(%content))) {
         my $name=$_;          my $name=$_;
         if ($name!~/\.display$/) {          if ($name!~/\.display$/) {
Line 850  sub print_dynamic_metadata { Line 848  sub print_dynamic_metadata {
                                                   $name.'.'.$_).'; ';                                                    $name.'.'.$_).'; ';
                 }                  }
             }              }
             $r->print('<b>'.$display.':</b> '.$content{$name});              $r->print('<tr><td bgcolor="#bbccbb"><font size="-1" color="#556655">'.$display.'</font></td><td bgcolor="#ccddcc"><font size="-1" color="#556655">'.$content{$name});
             if ($otherinfo) {              if ($otherinfo) {
                 $r->print(' ('.$otherinfo.')');                  $r->print(' ('.$otherinfo.')');
             }              }
             $r->print("<br />\n");              $r->print("</font></td></tr>\n");
         }          }
     }      }
       $r->print("</table>");
     return;      return;
 }  }
   
Removed from v.1.80  
changed lines
  Added in v.1.81

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