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

Diff for /loncom/publisher/lonpublisher.pm between versions 1.139 and 1.140

version 1.139, 2003/10/21 19:50:15 version 1.140, 2003/10/21 20:18:45
Line 181  nothing Line 181  nothing
 #########################################  #########################################
 #########################################  #########################################
 sub metaeval {  sub metaeval {
     my $metastring=shift;      my ($metastring,$prefix)=@_;
         
     my $parser=HTML::LCParser->new(\$metastring);      my $parser=HTML::LCParser->new(\$metastring);
     my $token;      my $token;
Line 209  sub metaeval { Line 209  sub metaeval {
     $metadatakeys{$unikey}=$_;      $metadatakeys{$unikey}=$_;
  }   }
     }      }
       my $newentry=$parser->get_text('/'.$entry);
       if ($entry eq 'customdistributionfile') {
    $newentry=~s/^\s*//;
    if ($newentry !~m|^/res|) { $newentry=$prefix.$newentry; }
       }
     if ($metadatafields{$unikey}) {      if ($metadatafields{$unikey}) {
  my $newentry=$parser->get_text('/'.$entry);  
  unless (($metadatafields{$unikey}=~/\Q$newentry\E/) ||   unless (($metadatafields{$unikey}=~/\Q$newentry\E/) ||
  ($newentry eq '')) {   ($newentry eq '')) {
     $metadatafields{$unikey}.=', '.$newentry;      $metadatafields{$unikey}.=', '.$newentry;
  }   }
     } else {      } else {
  $metadatafields{$unikey}=$parser->get_text('/'.$entry);   $metadatafields{$unikey}=$newentry;
     }      }
  }   }
     }      }
Line 260  XHTML text that indicates successful rea Line 264  XHTML text that indicates successful rea
 #########################################  #########################################
 #########################################  #########################################
 sub metaread {  sub metaread {
     my ($logfile,$fn)=@_;      my ($logfile,$fn,$prefix)=@_;
     unless (-e $fn) {      unless (-e $fn) {
  print($logfile 'No file '.$fn."\n");   print($logfile 'No file '.$fn."\n");
         return '<br /><b>No file:</b> <tt>'.$fn.'</tt>';          return '<br /><b>No file:</b> <tt>'.$fn.'</tt>';
Line 268  sub metaread { Line 272  sub metaread {
     print($logfile 'Processing '.$fn."\n");      print($logfile 'Processing '.$fn."\n");
     my $metastring;      my $metastring;
     {      {
      my $metafh=Apache::File->new($fn);   my $metafh=Apache::File->new($fn);
      $metastring=join('',<$metafh>);   $metastring=join('',<$metafh>);
     }      }
     &metaeval($metastring);      &metaeval($metastring,$prefix);
     return '<br /><b>Processed file:</b> <tt>'.$fn.'</tt>';      return '<br /><b>Processed file:</b> <tt>'.$fn.'</tt>';
 }  }
   
Line 955  sub publish { Line 959  sub publish {
   
         my $currentpath='/home/'.$cuname.'/';          my $currentpath='/home/'.$cuname.'/';
   
    my $prefix='../'x($#urlparts);
         foreach (@urlparts) {          foreach (@urlparts) {
     $currentpath.=$_.'/';      $currentpath.=$_.'/';
             $scrout.=&metaread($logfile,$currentpath.'default.meta');              $scrout.=&metaread($logfile,$currentpath.'default.meta',$prefix);
       $prefix=~s|^\.\./||;
         }          }
   
 # ------------------- Clear out parameters and stores (there should not be any)  # ------------------- Clear out parameters and stores (there should not be any)
Removed from v.1.139  
changed lines
  Added in v.1.140

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