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

Diff for /loncom/interface/lonmeta.pm between versions 1.89 and 1.95

version 1.89, 2005/01/19 01:28:33 version 1.95, 2005/03/18 16:47:31
Line 236  sub diffgraph { Line 236  sub diffgraph {
   
 # The field names  # The field names
 sub fieldnames {  sub fieldnames {
     return &Apache::lonlocal::texthash      my $file_type=shift;
         (      my %fields = 
          '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 247  sub fieldnames { Line 247  sub fieldnames {
          'notes' => 'Notes',           'notes' => 'Notes',
          'abstract' => 'Abstract',           'abstract' => 'Abstract',
          'lowestgradelevel' => 'Lowest Grade Level',           'lowestgradelevel' => 'Lowest Grade Level',
          'highestgradelevel' => 'Highest Grade Level',           'highestgradelevel' => 'Highest Grade Level');
       if (! defined($file_type) || $file_type ne 'portfolio') {
           %fields = 
           (%fields,
            'domain' => 'Domain',
          'standards' => 'Standards',           'standards' => 'Standards',
          'mime' => 'MIME Type',           'mime' => 'MIME Type',
          'language' => 'Language',           'language' => 'Language',
Line 280  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 530  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/(.*)$:) {
Line 540  sub handler { Line 547  sub handler {
     } elsif ($uri=~/\/portfolio\//) {      } elsif ($uri=~/\/portfolio\//) {
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::bodytag
           ('Edit Portfolio File Information','','','',$resdomain));            ('Edit Portfolio File Information','','','',$resdomain));
         &present_editable_metadata($r,$uri);          &present_editable_metadata($r,$uri,'portfolio');
                   
     } elsif ($uri=~/^\/\~/) {       } elsif ($uri=~/^\/\~/) { 
         # Construction space          # Construction space
Line 875  sub print_dynamic_metadata { Line 882  sub print_dynamic_metadata {
 #####################################################  #####################################################
 #####################################################  #####################################################
 sub present_editable_metadata {  sub present_editable_metadata {
     my ($r,$uri) = @_;      my ($r,$uri, $file_type) = @_;
     # Construction Space Call      # Construction Space Call
     # Header      # Header
     my $disuri=$uri;      my $disuri=$uri;
Line 912  ENDBOMBS Line 919  ENDBOMBS
         }          }
         %Apache::lonpublisher::metadatafields=();          %Apache::lonpublisher::metadatafields=();
         %Apache::lonpublisher::metadatakeys=();          %Apache::lonpublisher::metadatakeys=();
         &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));          my $result=&Apache::lonnet::getfile($fn);
           if ($result == -1){
               $r->print('Unable to get '.$fn);
               return ;
           } else {
               &Apache::lonpublisher::metaeval($result);
           }
         $r->print(<<ENDEDIT);          $r->print(<<ENDEDIT);
 <h1>$displayfile</h1>  <h1>$displayfile</h1>
 <form method="post" name="defaultmeta">  <form method="post" name="defaultmeta">
Line 920  ENDEDIT Line 933  ENDEDIT
         $r->print('<script language="JavaScript">'.          $r->print('<script language="JavaScript">'.
                   &Apache::loncommon::browser_and_searcher_javascript().                    &Apache::loncommon::browser_and_searcher_javascript().
                   '</script>');                    '</script>');
         my %lt=&fieldnames();          my %lt=&fieldnames($file_type);
  my $output;   my $output;
         foreach ('author','title','subject','keywords','abstract','notes',   my @fields;
    if ($file_type eq 'portfolio') {
       @fields =  ('author','title','subject','keywords','abstract','notes','lowestgradelevel',
                   'highestgradelevel');
    } else {
       @fields = ('author','title','subject','keywords','abstract','notes',
                  'copyright','customdistributionfile','language',                   'copyright','customdistributionfile','language',
                  'standards',                   'standards',
                  'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',                   'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
                  'obsolete','obsoletereplacement') {                   'obsolete','obsoletereplacement');
           }
           foreach (@fields) {
             if (defined($ENV{'form.new_'.$_})) {              if (defined($ENV{'form.new_'.$_})) {
                 $Apache::lonpublisher::metadatafields{$_}=                  $Apache::lonpublisher::metadatafields{$_}=
                     $ENV{'form.new_'.$_};                      $ENV{'form.new_'.$_};
Line 942  ENDEDIT Line 962  ENDEDIT
         }          }
         if ($ENV{'form.store'}) {          if ($ENV{'form.store'}) {
             my $mfh;              my $mfh;
             if (!  ($mfh=Apache::File->new('>'.$fn))) {              my $formname='store';
                 $r->print('<p><font color="red">'.              my $file_content;
                           &mt('Could not write metadata').', '.              foreach (sort keys %Apache::lonpublisher::metadatafields) {
                           &mt('FAIL').'</font></p>');                  next if ($_ =~ /\./);
                   my $unikey=$_;
                   $unikey=~/^([A-Za-z]+)/;
                   my $tag=$1;
                   $tag=~tr/A-Z/a-z/;
                   $file_content.= "\n\<$tag";
                   foreach (split(/\,/,
                                $Apache::lonpublisher::metadatakeys{$unikey})
                            ) {
                       my $value=
                        $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
                       $value=~s/\"/\'\'/g;
                       $file_content.=' '.$_.'="'.$value.'"' ;
                       # print $mfh ' '.$_.'="'.$value.'"';
                   }
                   $file_content.= '>'.
                       &HTML::Entities::encode
                       ($Apache::lonpublisher::metadatafields{$unikey},
                        '<>&"').
                        '</'.$tag.'>';
               }
               if ($fn =~ /\/portfolio\//) {
                   $fn =~ /\/portfolio\/(.*)$/;
                   my $new_fn = '/'.$1;
                   $ENV{'form.'.$formname}=$file_content;
                   $ENV{'form.'.$formname.'.filename'}=$new_fn;
                   &Apache::lonnet::userfileupload('uploaddoc','',
            'portfolio'.$ENV{'form.currentpath'});
           my $status =&Apache::lonnet::userfileupload($formname,'','portfolio');
                   if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') {
                       $r->print('<p><font color="red">'.
                         &mt('Could not write metadata').', '.
                        &mt('FAIL').'</font></p>');
                   } else {
                       $r->print('<p><font color="blue">'.&mt('Wrote Metadata').
     ' '.&Apache::lonlocal::locallocaltime(time).
     '</font></p>');
                   }
             } else {              } else {
                 foreach (sort keys %Apache::lonpublisher::metadatafields) {                  if (!  ($mfh=Apache::File->new('>'.$fn))) {
                     next if ($_ =~ /\./);                      $r->print('<p><font color="red">'.
                     my $unikey=$_;                          &mt('Could not write metadata').', '.
                     $unikey=~/^([A-Za-z]+)/;                          &mt('FAIL').'</font></p>');
                     my $tag=$1;                  } else {
                     $tag=~tr/A-Z/a-z/;                      print $mfh $file_content;
                     print $mfh "\n\<$tag";      $r->print('<p><font color="blue">'.&mt('Wrote Metadata').
                     foreach (split(/\,/,        ' '.&Apache::lonlocal::locallocaltime(time).
                                  $Apache::lonpublisher::metadatakeys{$unikey})        '</font></p>');
                              ) {  
                         my $value=  
                          $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};  
                         $value=~s/\"/\'\'/g;  
                         print $mfh ' '.$_.'="'.$value.'"';  
                     }  
                     print $mfh '>'.  
                         &HTML::Entities::encode  
                         ($Apache::lonpublisher::metadatafields{$unikey},  
                          '<>&"').  
                          '</'.$tag.'>';  
                 }                  }
                 $r->print('<p><font color="blue">'.&mt('Wrote Metadata').  
   ' '.&Apache::lonlocal::locallocaltime(time).  
   '</font></p>');  
             }              }
         }          }
  $r->print($output.'<br /><input type="submit" name="store" value="'.   $r->print($output.'<br /><input type="submit" name="store" value="'.
Removed from v.1.89  
changed lines
  Added in v.1.95

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