File:  [LON-CAPA] / loncom / publisher / publisher.html
Revision 1.7: download - view: text, annotated - select for diffs
Mon Apr 2 21:45:58 2001 UTC (23 years, 2 months ago) by www
Branches: MAIN
CVS tags: HEAD
Cannot publish directory

    1: <html>
    2: <head>
    3: <title>LON-CAPA Publishing Frame</title>
    4: <script>
    5: 
    6: function getfilename() {
    7:    document.publisher.filename.value=parent.LONCAPAToBePublished.location.href;
    8:    if ((document.publisher.filename.value.charAt(
    9:         document.publisher.filename.value.length-1)!='/') &&
   10:        (document.publisher.filename.value.indexOf('/adm/pubdir')==-1)) {
   11:         document.publisher.submit();
   12:    } else {
   13:       alert('Cannot publish directory');
   14:    }
   15: }
   16: 
   17: function getdfilename() {
   18:   document.dpublisher.filename.value=parent.LONCAPAToBePublished.location.href;
   19:   if (document.dpublisher.filename.value.indexOf('/adm/pubdir')==-1) {
   20:       document.dpublisher.submit();
   21:   }
   22: }
   23: 
   24: function getrfilename() {
   25:   document.rpublisher.filename.value=parent.LONCAPAToBePublished.location.href;
   26: }
   27: 
   28: </script>
   29: </head>
   30: <body bgcolor="#FFFFFF">
   31: <table><tr><td>
   32: <form name="publisher" action="/adm/publish" target="_parent" method="post">
   33: <input type="hidden" name="filename" value="">
   34: <input type="button" value="Publish this Resource" onClick="getfilename();">
   35: </form></td><td>
   36: <form name="dpublisher" action="/adm/pubdir" target="LONCAPAToBePublished" 
   37: method="post">
   38: <input type="hidden" name="filename" value="">
   39: <input type="button" value="List Directory" onClick="getdfilename();">
   40: </form></td><td>
   41: <form name="rpublisher" action="/adm/retrieve" target="_parent" method="post"
   42:  onSubmit="getrfilename();">
   43: <input type="hidden" name="filename" value="">
   44: <input type="submit" value="Retrieve Old Version">
   45: </form></td><td>
   46: <b>LON-CAPA Construction Space</b>
   47: </td></tr></table>
   48: </body>
   49: </html>

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