Annotation of loncom/publisher/publisher.html, revision 1.6

1.1       www         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: }
                      9: 
1.4       www        10: function getdfilename() {
                     11:   document.dpublisher.filename.value=parent.LONCAPAToBePublished.location.href;
1.6     ! www        12:   if (document.dpublisher.filename.value.indexOf('/adm/pubdir')==-1) {
        !            13:       document.dpublisher.submit();
        !            14:   }
1.4       www        15: }
                     16: 
                     17: function getrfilename() {
                     18:   document.rpublisher.filename.value=parent.LONCAPAToBePublished.location.href;
                     19: }
                     20: 
1.1       www        21: </script>
                     22: </head>
                     23: <body bgcolor="#FFFFFF">
1.4       www        24: <table><tr><td>
1.5       www        25: <form name="publisher" action="/adm/publish" target="_parent" method="post" 
                     26: onSubmit="getfilename();">
1.1       www        27: <input type="hidden" name="filename" value="">
                     28: <input type="submit" value="Publish this Resource">
1.4       www        29: </form></td><td>
1.5       www        30: <form name="dpublisher" action="/adm/pubdir" target="LONCAPAToBePublished" 
1.6     ! www        31: method="post">
1.4       www        32: <input type="hidden" name="filename" value="">
1.6     ! www        33: <input type="button" value="List Directory" onClick="getdfilename();">
1.4       www        34: </form></td><td>
                     35: <form name="rpublisher" action="/adm/retrieve" target="_parent" method="post"
                     36:  onSubmit="getrfilename();">
                     37: <input type="hidden" name="filename" value="">
                     38: <input type="submit" value="Retrieve Old Version">
                     39: </form></td><td>
                     40: <b>LON-CAPA Construction Space</b>
                     41: </td></tr></table>
1.1       www        42: </body>
                     43: </html>

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