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

Diff for /loncom/interface/lonmeta.pm between versions 1.104 and 1.105

version 1.104, 2005/08/09 00:24:55 version 1.105, 2005/08/13 19:32:28
Line 923  sub print_dynamic_metadata { Line 923  sub print_dynamic_metadata {
 }  }
 sub save_instructor_metadata {  sub save_instructor_metadata {
     my ($r) = @_;      my ($r) = @_;
     $r->print('This is the save instructor metadata area<br />');      my $uri=$r->uri;
       my $fn=&Apache::lonnet::filelocation('',$uri);
     my @words =  &Apache::loncommon::get_env_multiple('form.keywords');      my @words =  &Apache::loncommon::get_env_multiple('form.keywords');
       $r->print('This is the save instructor metadata area<br />');
       my $mfh;
       my $formname='store';
       my $file_content;
       foreach (sort keys %Apache::lonpublisher::metadatafields) {
           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.'>';
       }
   
     foreach my $word (@words) {      foreach my $word (@words) {
         $r->print('You entered:'.$word.'<br />');          $r->print('You entered:'.$word.'<br />');
     }      }
       my $tag = 'keywords';
       $file_content.= "\n\<$tag";
       $file_content.= '>'.
           &HTML::Entities::encode
                 (join(', ',@words),
                        '<>&"').
                        '</keywords>';
       $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>');
       }
     return 'ok';      return 'ok';
 }  }
 sub present_instructor_metadata {  sub present_instructor_metadata {
Removed from v.1.104  
changed lines
  Added in v.1.105

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