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

Diff for /loncom/publisher/lonpublisher.pm between versions 1.58 and 1.59

version 1.58, 2001/12/05 20:37:06 version 1.59, 2001/12/05 21:12:04
Line 353  sub publish { Line 353  sub publish {
  $scrout.='<h3>Dependencies</h3>';   $scrout.='<h3>Dependencies</h3>';
  my $allowstr="\n";   my $allowstr="\n";
         map {          map {
            $allowstr.='<allow src="'.$_.'" />'."\n";     my $thisdep=$_;
              $allowstr.='<allow src="'.$thisdep.'" />'."\n";
            $scrout.='<br>';             $scrout.='<br>';
            unless ($_=~/\*/) {             unless ($thisdep=~/\*/) {
        $scrout.='<a href="'.$_.'">';         $scrout.='<a href="'.$thisdep.'">';
            }             }
            $scrout.='<tt>'.$_.'</tt>';             $scrout.='<tt>'.$thisdep.'</tt>';
            unless ($_=~/\*/) {             unless ($thisdep=~/\*/) {
        $scrout.='</a>';         $scrout.='</a>';
                if (&Apache::lonnet::getfile(                 if (
                    $Apache::lonnet::perlvar{'lonDocRoot'}.'/'.         &Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.'/'.
                                             $_.'.meta') eq '-1') {                                              $thisdep.'.meta') eq '-1') {
    $scrout.=     $scrout.=
                            ' - <font color=red>Currently not available</font>';                             ' - <font color=red>Currently not available</font>';
                }                 } else {
                      my %temphash=(&Apache::lonnet::declutter($target).'___'.
                                &Apache::lonnet::declutter($thisdep).'___usage'
                                    => time);
                      $thisdep=~/^\/res\/(\w+)\/(\w+)\//;
                      if ((defined($1)) && (defined($2))) {
                         &Apache::lonnet::put('resevaldata',\%temphash,$1,$2);
      }
          }
            }             }
         } keys %allow;          } keys %allow;
         $outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;          $outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;
Removed from v.1.58  
changed lines
  Added in v.1.59

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