Diff for /loncom/publisher/publisher.html between versions 1.7 and 1.8

version 1.7, 2001/04/02 21:45:58 version 1.8, 2001/04/03 14:57:17
Line 23  function getdfilename() { Line 23  function getdfilename() {
   
 function getrfilename() {  function getrfilename() {
   document.rpublisher.filename.value=parent.LONCAPAToBePublished.location.href;    document.rpublisher.filename.value=parent.LONCAPAToBePublished.location.href;
      if ((document.rpublisher.filename.value.charAt(
           document.rpublisher.filename.value.length-1)!='/') &&
          (document.rpublisher.filename.value.indexOf('/adm/pubdir')==-1)) {
           document.rpublisher.submit();
      } else {
         alert('Cannot retrieve directory');
      }
 }  }
   
 </script>  </script>
Line 38  method="post"> Line 45  method="post">
 <input type="hidden" name="filename" value="">  <input type="hidden" name="filename" value="">
 <input type="button" value="List Directory" onClick="getdfilename();">  <input type="button" value="List Directory" onClick="getdfilename();">
 </form></td><td>  </form></td><td>
 <form name="rpublisher" action="/adm/retrieve" target="_parent" method="post"  <form name="rpublisher" action="/adm/retrieve" target="_parent" method="post">
  onSubmit="getrfilename();">  
 <input type="hidden" name="filename" value="">  <input type="hidden" name="filename" value="">
 <input type="submit" value="Retrieve Old Version">  <input type="button" value="Retrieve Old Version" onClick="getrfilename();">
 </form></td><td>  </form></td><td>
 <b>LON-CAPA Construction Space</b>  <b>LON-CAPA Construction Space</b>
 </td></tr></table>  </td></tr></table>

Removed from v.1.7  
changed lines
  Added in v.1.8


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