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

Diff for /loncom/interface/lonmeta.pm between versions 1.91 and 1.93

version 1.91, 2005/02/10 22:01:40 version 1.93, 2005/03/16 22:52:04
Line 237  sub diffgraph { Line 237  sub diffgraph {
 # The field names  # The field names
 sub fieldnames {  sub fieldnames {
     my $file_type=shift;      my $file_type=shift;
     if ($file_type eq 'portfolio') {      my %fields = 
     return &Apache::lonlocal::texthash          ('title' => 'Title',
         (  
          'title' => 'Title',  
          'author' =>'Author(s)',           'author' =>'Author(s)',
          'authorspace' => 'Author Space',           'authorspace' => 'Author Space',
          'modifyinguser' => 'Last Modifying User',           'modifyinguser' => 'Last Modifying User',
Line 250  sub fieldnames { Line 248  sub fieldnames {
          'abstract' => 'Abstract',           'abstract' => 'Abstract',
          'lowestgradelevel' => 'Lowest Grade Level',           'lowestgradelevel' => 'Lowest Grade Level',
          'highestgradelevel' => 'Highest Grade Level');           'highestgradelevel' => 'Highest Grade Level');
     } else {      if (! defined($file_type) || $file_type ne 'portfolio') {
     return &Apache::lonlocal::texthash          %fields = 
         (          (%fields,
          'title' => 'Title',           'domain' => 'Domain',
          'author' =>'Author(s)',  
          'authorspace' => 'Author Space',  
          'modifyinguser' => 'Last Modifying User',  
          'subject' => 'Subject',  
          'keywords' => 'Keyword(s)',  
          'notes' => 'Notes',  
          'abstract' => 'Abstract',  
          'lowestgradelevel' => 'Lowest Grade Level',  
          'highestgradelevel' => 'Highest Grade Level',  
          'standards' => 'Standards',           'standards' => 'Standards',
          'mime' => 'MIME Type',           'mime' => 'MIME Type',
          'language' => 'Language',           'language' => 'Language',
Line 295  sub fieldnames { Line 284  sub fieldnames {
          'disc'       => 'Degree of discrimination',           'disc'       => 'Degree of discrimination',
  'dependencies' => 'Resources used by this resource',   'dependencies' => 'Resources used by this resource',
          );           );
         }      }
       return &Apache::lonlocal::texthash(%fields);
 }  }
   
 # Pretty printing of metadata field  # Pretty printing of metadata field
Line 546  sub handler { Line 536  sub handler {
     #      #
     my ($resdomain,$resuser)=      my ($resdomain,$resuser)=
         (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);          (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
     $r->print('<html><head><title>'.      my $html=&Apache::lonxml::xmlbegin();
       $r->print($html.'<head><title>'.
               'Catalog Information'.                'Catalog Information'.
               '</title></head>');                '</title></head>');
     if ($uri=~m:/adm/bombs/(.*)$:) {      if ($uri=~m:/adm/bombs/(.*)$:) {
Removed from v.1.91  
changed lines
  Added in v.1.93

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