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

Diff for /loncom/publisher/lonpublisher.pm between versions 1.71 and 1.75

version 1.71, 2002/01/17 15:13:56 version 1.75, 2002/03/25 17:09:21
Line 314  sub publish { Line 314  sub publish {
                               print $logfile 'Index: '.$tag.':'.$maxindex."\n";                                print $logfile 'Index: '.$tag.':'.$maxindex."\n";
   }    }
       }        }
   }     }
                     
                   foreach ('src','href','background') {                    foreach my $type ('src','href','background','bgimg') {
                       if (defined($parms{$_})) {        foreach my $key (keys(%parms)) {
   my $oldurl=$parms{$_};    if ($key =~ /^$type$/i) {
                           my $newurl=&urlfixup($oldurl,$target);        my $oldurl=$parms{$key};
                           if ($newurl ne $oldurl) {        my $newurl=&urlfixup($oldurl,$target);
       $parms{$_}=$newurl;        if ($newurl ne $oldurl) {
                               print $logfile 'URL: '.$tag.':'.$oldurl.' - '.    $parms{$key}=$newurl;
   $newurl."\n";    print $logfile 'URL: '.$tag.':'.$oldurl.' - '.
         $newurl."\n";
         }
         if (($newurl !~ /^javascript:/i) &&
     ($newurl !~ /^mailto:/i) &&
     ($newurl !~ /^http:/i) &&
     ($newurl !~ /^\#/)) {
     $allow{&absoluteurl($newurl,$target)}=1;
         }
   }    }
                           $allow{&absoluteurl($newurl,$target)}=1;    last;
                       }        }
                   }                    }
   
                   if ($lctag eq 'applet') {                    if ($lctag eq 'applet') {
Line 389  sub publish { Line 397  sub publish {
           
  $scrout.='<h3>Dependencies</h3>';   $scrout.='<h3>Dependencies</h3>';
         my $allowstr='';          my $allowstr='';
         foreach (keys %allow) {          foreach (sort(keys(%allow))) {
    my $thisdep=$_;     my $thisdep=$_;
      if ($thisdep !~ /[^\s]/) { next; }
            unless ($style eq 'rat') {              unless ($style eq 'rat') { 
               $allowstr.="\n".'<allow src="'.$thisdep.'" />';                $allowstr.="\n".'<allow src="'.$thisdep.'" />';
    }     }
Line 589  sub publish { Line 598  sub publish {
                       $keywordout.=' checked';                         $keywordout.=' checked'; 
                    }                     }
         } elsif (&Apache::loncommon::keyword($_)) {          } elsif (&Apache::loncommon::keyword($_)) {
     $keywordout.=' checked';              $keywordout.=' checked';
                 }                   } 
                 $keywordout.='>'.$_.'</td>';                  $keywordout.='>'.$_.'</td>';
                 if ($colcount>10) {                  if ($colcount>10) {
Line 938  if (-e $target) { Line 947  if (-e $target) {
   
   
     return $warning.$scrout.      return $warning.$scrout.
       '<hr><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'.        '<hr><a href="'.$thisdistarget.'"><font size=+2>View Published Version</font></a>'.
       '<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'.        '<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'.
       '<p><a href="'.$thissrcdir.        '<p><a href="'.$thissrcdir.
       '"><font size=+2>Back to Source Directory</font></a>';        '"><font size=+2>Back to Source Directory</font></a>';
Removed from v.1.71  
changed lines
  Added in v.1.75

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