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

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

version 1.93, 2005/03/16 22:52:04 version 1.94, 2005/03/17 21:32:17
Line 919  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 956  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";  
                     foreach (split(/\,/,  
                                  $Apache::lonpublisher::metadatakeys{$unikey})  
                              ) {  
                         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.93  
changed lines
  Added in v.1.94

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