Diff for /loncom/publisher/Attic/lonconstruct.pm between versions 1.20 and 1.22

version 1.20, 2003/11/19 14:57:32 version 1.22, 2004/03/31 05:24:00
Line 102  sub handler { Line 102  sub handler {
    &Debug($r, "Initial URL for lower frame: ".$lowerframe);     &Debug($r, "Initial URL for lower frame: ".$lowerframe);
    $lowerframe=~s/^\//\/\~/;     $lowerframe=~s/^\//\/\~/;
    &Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);     &Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);
    $lowerframe= &HTML::Entities::encode($lowerframe);     $lowerframe= &HTML::Entities::encode($lowerframe,'<>&"');
    &Debug($r, "Lower frame URL after quote subst: ".$lowerframe);     &Debug($r, "Lower frame URL after quote subst: ".$lowerframe);
   
 #  #
Line 127  var lastknownpriv="$lowerframe"; Line 127  var lastknownpriv="$lowerframe";
 </script>  </script>
 </head>  </head>
 <frameset rows="110,*" border="0">  <frameset rows="110,*" border="0">
 <frame src='/adm/publisher.html'>  <frame src='/adm/localize/adm/publisher.html'>
 <frame src="$lowerframe" name="LONCAPAToBePublished">  <frame src="$lowerframe" name="LONCAPAToBePublished">
 </frameset>  </frameset>
 </html>  </html>

Removed from v.1.20  
changed lines
  Added in v.1.22


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