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

Diff for /loncom/interface/lonmeta.pm between versions 1.142 and 1.143

version 1.142, 2005/12/19 20:08:40 version 1.143, 2005/12/19 21:13:45
Line 1142  ENDEDIT Line 1142  ENDEDIT
         } else {          } else {
             $r->print("This resource is not associated with a course.<br />");              $r->print("This resource is not associated with a course.<br />");
         }          }
         foreach my $field_name(@fields) {          foreach my $field_name (@fields) {
   
             if (defined($env{'form.new_'.$field_name})) {              if (defined($env{'form.new_'.$field_name})) {
                 $Apache::lonpublisher::metadatafields{$field_name}=                  $Apache::lonpublisher::metadatafields{$field_name}=
Line 1152  ENDEDIT Line 1152  ENDEDIT
                 # handle restrictions here                  # handle restrictions here
                 if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||                  if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||
                     ($field_name eq 'courserestricted')){                      ($field_name eq 'courserestricted')){
                     $output.=('<p>'.$lt{$field_name}.': '.                      $output.=("\n".'<p>'.$lt{$field_name}.': '.
                               &prettyinput($field_name,                                &prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},
                     'new_'.$field_name,'defaultmeta',                      'new_'.$field_name,'defaultmeta',
                     undef,undef,undef,undef,                      undef,undef,undef,undef,
                     $Apache::lonpublisher::metadatafields{'courserestricted'}).'</p>');                      $Apache::lonpublisher::metadatafields{'courserestricted'}).'</p>'."\n");
                  }                   }
             } else {              } else {
   
Line 1168  ENDEDIT Line 1168  ENDEDIT
                                 
             }              }
         }          }
    if ($env{'form.store'}) {
     $r->print($output.'<br /><input type="submit" name="store" value="'.      my $mfh;
                   &mt('Store Catalog Information').'">');      my $formname='store'; 
               my $file_content;
     }  
     $r->print('</form>');  
   
     if ($env{'form.store'}) {  
  my $mfh;  
  my $formname='store';   
  my $file_content;  
  foreach my $meta_field (keys %env) {  
     if (&Apache::loncommon::get_env_multiple('form.new_keywords')) {      if (&Apache::loncommon::get_env_multiple('form.new_keywords')) {
  $Apache::lonpublisher::metadatafields{'keywords'} =    $Apache::lonpublisher::metadatafields{'keywords'} = 
     join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));      join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));
     }      }
  }  
  foreach (sort keys %Apache::lonpublisher::metadatafields) {      foreach (sort keys %Apache::lonpublisher::metadatafields) {
     next if ($_ =~ /\./);   next if ($_ =~ /\./);
     my $unikey=$_;   my $unikey=$_;
     $unikey=~/^([A-Za-z]+)/;   $unikey=~/^([A-Za-z]+)/;
     my $tag=$1;   my $tag=$1;
     $tag=~tr/A-Z/a-z/;   $tag=~tr/A-Z/a-z/;
     $file_content.= "\n\<$tag";   $file_content.= "\n\<$tag";
     foreach (split(/\,/,   foreach (split(/\,/,
    $Apache::lonpublisher::metadatakeys{$unikey})         $Apache::lonpublisher::metadatakeys{$unikey})
      ) {   ) {
  my $value=      my $value=
                     $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};   $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
  $value=~s/\"/\'\'/g;      $value=~s/\"/\'\'/g;
  $file_content.=' '.$_.'="'.$value.'"' ;      $file_content.=' '.$_.'="'.$value.'"' ;
  # print $mfh ' '.$_.'="'.$value.'"';      # print $mfh ' '.$_.'="'.$value.'"';
     }   }
     $file_content.= '>'.   $file_content.= '>'.
  &HTML::Entities::encode      &HTML::Entities::encode
  ($Apache::lonpublisher::metadatafields{$unikey},      ($Apache::lonpublisher::metadatafields{$unikey},
  '<>&"').       '<>&"').
  '</'.$tag.'>';       '</'.$tag.'>';
  }  
  if ($fn =~ /\/portfolio\//) {  
     $fn =~ /\/portfolio\/(.*)$/;  
     my $new_fn = '/'.$1;  
     $env{'form.'.$formname}=$file_content."\n";  
     $env{'form.'.$formname.'.filename'}=$new_fn;  
     &Apache::lonnet::userfileupload('uploaddoc','',  
     'portfolio'.$env{'form.currentpath'});  
     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 {      &Apache::lonnet::logthis(" file ".$file_content);
     if (!  ($mfh=Apache::File->new('>'.$fn))) {      if ($fn =~ m|/portfolio/|) {
  $r->print('<p><font color="red">'.   my ($path, $new_fn) = ($fn =~ m|/(portfolio.*)/([^/]*)$|);
   &mt('Could not write metadata').', '.   $env{'form.'.$formname}=$file_content."\n";
   &mt('FAIL').'</font></p>');   $env{'form.'.$formname.'.filename'}=$new_fn;
    my $result =&Apache::lonnet::userfileupload($formname,'',
       $path);
   
    if ($result =~ /(error|notfound)/) {
       $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 {
  print $mfh $file_content;   if (!  ($mfh=Apache::File->new('>'.$fn))) {
  $r->print('<p><font color="blue">'.&mt('Wrote Metadata').      $r->print('<p><font color="red">'.
   ' '.&Apache::lonlocal::locallocaltime(time).        &mt('Could not write metadata').', '.
   '</font></p>');        &mt('FAIL').'</font></p>');
    } else {
       print $mfh $file_content;
       $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="'.
                     &mt('Store Catalog Information').'">');
           
     }      }
           $r->print('</form>');
   
     return;      return;
 }  }
   
Removed from v.1.142  
changed lines
  Added in v.1.143

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