[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.82

version 1.80, 2004/06/16 18:33:46 version 1.82, 2004/06/17 18:22:13
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 285  sub fieldnames { Line 283  sub fieldnames {
 # Pretty printing of metadata field  # Pretty printing of metadata field
   
 sub prettyprint {  sub prettyprint {
     my ($type,$value)=@_;      my ($type,$value,$target,$prefix,$form,$noformat)=@_;
   # $target,$prefix,$form are optional and for filecrumbs only
     if (! defined($value)) {       if (! defined($value)) { 
         return '&nbsp;';           return '&nbsp;'; 
     }      }
Line 339  sub prettyprint { Line 338  sub prettyprint {
  ($type eq 'obsoletereplacement') ||   ($type eq 'obsoletereplacement') ||
  ($type eq 'goto_list') ||   ($type eq 'goto_list') ||
  ($type eq 'comefrom_list') ||   ($type eq 'comefrom_list') ||
  ($type eq 'sequsage_list')) {   ($type eq 'sequsage_list') ||
  return join('<br />',map {   ($type eq 'linkto_list')) {
    return '<ul><font size="-1">'.join("\n",map {
             my $url = &Apache::lonnet::clutter($_);              my $url = &Apache::lonnet::clutter($_);
             my $title = &Apache::lonnet::gettitle($url);              my $title = &Apache::lonnet::gettitle($url);
             if ($title eq '') {              if ($title eq '') {
Line 357  sub prettyprint { Line 357  sub prettyprint {
                     $title .= ' Syllabus';                      $title .= ' Syllabus';
                 }                   } 
             }              }
             $_ = '<b>'.$title.'</b> '.              $_ = '<li>'.$title.' '.
                 '<a href="'.$url.'" target="preview">'.   &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat).
                 '<font size="-1">'.$url.'</font>'.                  '</li>'
                 '</a>'      } split(/\s*\,\s*/,$value)).'</ul></font>';
         } split(/\s*\,\s*/,$value));  
     }      }
     # Evaluations      # Evaluations
     if (($type eq 'clear') ||      if (($type eq 'clear') ||
Line 832  sub print_dynamic_metadata { Line 831  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 849  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.82

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