Annotation of loncom/publisher/lonpubmenu.pm, revision 1.1
1.1 ! raeburn 1: # The LearningOnline Network with CAPA
! 2: # Construction Space Buttons for Top Frame
! 3: #
! 4: # Copyright Michigan State University Board of Trustees
! 5: #
! 6: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
! 7: #
! 8: # LON-CAPA is free software; you can redistribute it and/or modify
! 9: # it under the terms of the GNU General Public License as published by
! 10: # the Free Software Foundation; either version 2 of the License, or
! 11: # (at your option) any later version.
! 12: #
! 13: # LON-CAPA is distributed in the hope that it will be useful,
! 14: # but WITHOUT ANY WARRANTY; without even the implied warranty of
! 15: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! 16: # GNU General Public License for more details.
! 17: #
! 18: # You should have received a copy of the GNU General Public License
! 19: # along with LON-CAPA; if not, write to the Free Software
! 20: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
! 21: #
! 22: # /home/httpd/html/adm/gpl.txt
! 23: #
! 24: # http://www.lon-capa.org/
! 25: #
! 26: ###
! 27:
! 28: package Apache::lonpubmenu;
! 29: use Apache::lonlocal;
! 30: use Apache::loncommon;
! 31:
! 32: sub handler {
! 33: my $r = shift;
! 34: my %lt=&Apache::lonlocal::texthash(
! 35: cnpd => 'Cannot publish directory',
! 36: cnrd => 'Cannot retrieve directory',
! 37: mcdi => 'Must create new subdirectory inside a directory',
! 38: pubr => 'Publish this Resource',
! 39: pubd => 'Publish this Directory',
! 40: rtrv => 'Retrieve Old Version',
! 41: pubs => 'Publish with Subdirectories',
! 42: list => 'List Directory',
! 43: uplo => 'Upload file',
! 44: dele => 'Delete',
! 45: edit => 'Edit Catalog Information',
! 46: sela => 'Select Action',
! 47: nfil => 'New file',
! 48: nhtm => 'New HTML file',
! 49: nprb => 'New problem',
! 50: npag => 'New assembled page',
! 51: nseq => 'New assembled sequence',
! 52: ncrf => 'New custom rights file',
! 53: nsty => 'New style file',
! 54: nsub => 'New subdirectory',
! 55: renm => 'Rename current file to',
! 56: move => 'Move current file to',
! 57: copy => 'Copy current file to',
! 58: type => 'Type Name Here',
! 59: go => 'Go',
! 60: prnt => 'Print'
! 61: );
! 62: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']);
! 63: my $disp = $ENV{'form.disp'};
! 64: # set defaults for parent directory in case frameloc is unable to determine directory
! 65: my $defaultdir = '/priv/'.$ENV{'user.name'}.'/';
! 66: if ($ENV{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) {
! 67: $defaultdir = '/priv/'.$1.'/';
! 68: }
! 69: $r->print(<<"ENDONE");
! 70: <html>
! 71: <head>
! 72: <title>LON-CAPA Publishing Frame</title>
! 73: <script type="text/javascript">
! 74: //<!--
! 75: function frameloc() {
! 76: if (parent.LONCAPAToBePublished.location.pathname.indexOf("/~")!=-1) {
! 77: parent.lastknownpriv=parent.LONCAPAToBePublished.location.pathname;
! 78: }
! 79: // alert ('We are at '+parent.lastknownpriv);
! 80: return unescape(parent.lastknownpriv);
! 81: }
! 82:
! 83: function getdfilename() {
! 84: var currloc = frameloc();
! 85: var currdir;
! 86: if (currloc.indexOf("/") != -1) {
! 87: var loclength = currloc.length;
! 88: var lastslash = currloc.lastIndexOf("/");
! 89: if (loclength == lastslash+1) {
! 90: return;
! 91: }
! 92: else {
! 93: currdir = currloc.substring(0,lastslash+1);
! 94: if (currdir.indexOf("~") != -1) {
! 95: currdir = currdir.substring(currdir.indexOf("~")+1,currdir.length);
! 96: currdir = "/priv/"+currdir
! 97: top.location=currdir
! 98: return;
! 99: }
! 100: }
! 101: }
! 102: top.location="$defaultdir";
! 103: }
! 104:
! 105: function getufilename() {
! 106: document.upublisher.filename.value=frameloc();
! 107: if (document.upublisher.filename.value.indexOf('/adm/pubdir')!=-1) {
! 108: document.upublisher.filename.value=document.dpublisher.filename.value;
! 109: }
! 110: document.upublisher.submit();
! 111: }
! 112:
! 113: function getactionfilename() {
! 114: document.fileaction.filename.value=frameloc();
! 115: var test=document.fileaction.action.selectedIndex;
! 116: if (test == 8) { // trying to create a directory
! 117: if (document.fileaction.filename.value.indexOf('/adm/pubdir')!=-1) {
! 118: document.fileaction.filename.value=document.dpublisher.filename.value;
! 119: }
! 120: if ((document.fileaction.filename.value.charAt(
! 121: document.fileaction.filename.value.length-1)!='/') &&
! 122: (document.fileaction.filename.value.indexOf('/adm/pubdir')==-1)) {
! 123: alert('$lt{'mcdi'}');
! 124: return;
! 125: }
! 126: }
! 127: document.fileaction.submit();
! 128: }
! 129:
! 130: function getcurseed() {
! 131: if (parent.LONCAPAToBePublished.document.lonhomework
! 132: &&
! 133: parent.LONCAPAToBePublished.document.lonhomework.rndseed
! 134: &&
! 135: parent.LONCAPAToBePublished.document.lonhomework.rndseed.value) {
! 136: return parent.LONCAPAToBePublished.document.lonhomework.rndseed.value;
! 137: }
! 138: return 0;
! 139: }
! 140:
! 141: function getproblemtype() {
! 142: if (parent.LONCAPAToBePublished.document.lonhomework) {
! 143: var optionelement;
! 144: var valueIndex=0;
! 145: for (var optionIndex=0;
! 146: optionIndex < parent.LONCAPAToBePublished.document.lonhomework.problemtype.options.length;
! 147: optionIndex++)
! 148: {
! 149: optionElement=parent.LONCAPAToBePublished.document.lonhomework.problemtype.options[optionIndex];
! 150: if (optionElement.selected) {
! 151: return optionElement.value;
! 152: }
! 153: }
! 154: }
! 155: return 0;
! 156: }
! 157:
! 158: function getpostdata() {
! 159: document.printout.postdata.value=frameloc();
! 160: document.printout.curseed.value=getcurseed();
! 161: document.printout.problemtype.value=getproblemtype();
! 162: document.printout.submit();
! 163: }
! 164: ENDONE
! 165:
! 166: if ($disp eq 'dir') {
! 167: $r->print(<<"ENDDIR");
! 168: function getdirname() {
! 169: document.publishdir.filename.value=frameloc();
! 170: pubdir(document.publishdir)
! 171: }
! 172:
! 173: function getsubdirname() {
! 174: document.publishsubdir.filename.value=frameloc();
! 175: pubrecdir(document.publishsubdir)
! 176: }
! 177:
! 178: function geteditcat() {
! 179: top.location=frameloc()+'default.meta'
! 180: }
! 181:
! 182: function pubdir(theform) {
! 183: if (confirm('Publish complete directory?')) {
! 184: forcepub(theform)
! 185: theform.submit();
! 186: }
! 187: }
! 188: function pubrecdir(theform) {
! 189: if (confirm('Publish directory and all subdirectories?')) {
! 190: forcepub(theform);
! 191: theform.submit();
! 192: }
! 193: }
! 194:
! 195: function forcepub(theform) {
! 196: if (confirm('Force publication of unmodified files? - OK=yes; Cancel=No.')) {
! 197: theform.forcerepub.value="ON";
! 198: }
! 199: }
! 200: ENDDIR
! 201: } else {
! 202: $r->print(<<"ENDRES");
! 203: function getfilename() {
! 204: document.publisher.filename.value=frameloc();
! 205: if ((document.publisher.filename.value.charAt(
! 206: document.publisher.filename.value.length-1)!='/') &&
! 207: (document.publisher.filename.value.indexOf('/adm/pubdir')==-1)) {
! 208: document.publisher.submit();
! 209: } else {
! 210: alert('$lt{'cnpd'}');
! 211: }
! 212: }
! 213:
! 214: function getrfilename() {
! 215: document.rpublisher.filename.value=frameloc();
! 216: if ((document.rpublisher.filename.value.charAt(
! 217: document.rpublisher.filename.value.length-1)!='/') &&
! 218: (document.rpublisher.filename.value.indexOf('/adm/pubdir')==-1)) {
! 219: document.rpublisher.submit();
! 220: } else {
! 221: alert('$lt{'cnrd'}');
! 222: }
! 223: }
! 224:
! 225: function getdelfilename() {
! 226: document.del.filename.value=frameloc();
! 227: document.del.submit();
! 228: }
! 229: ENDRES
! 230: }
! 231: $r->print(<<"END");
! 232: //-->
! 233: </script>
! 234: </head>
! 235: <body bgcolor="#ccffdd" text='#002200' link='#003333' vlink='#006666'>
! 236: <table border="0" align="center"><tr><th bgcolor="#004400" height="20">
! 237: <table border="0" cellspacing="2" cellpadding="2"><tr valign="middle">
! 238: <td bgcolor="#ccddaa" align="center">
! 239: END
! 240: if ($disp eq 'dir') {
! 241: $r->print('
! 242: <form name="publishdir" action="/adm/publish" target="_parent" method="post">
! 243: <input type="hidden" name="filename" value="" />
! 244: <input type="hidden" name="forcerepub" value="NO" />
! 245: <input type="button" value="'.$lt{'pubd'}.'" onclick="getdirname();" />
! 246: </form>
! 247: ');
! 248: } else {
! 249: $r->print('
! 250: <form name="publisher" action="/adm/publish" target="_parent" method="post">
! 251: <input type="hidden" name="filename" value="" />
! 252: <input type="button" value="'.$lt{'pubr'}.'" onclick="getfilename();" />
! 253: </form>
! 254: ');
! 255: }
! 256: $r->print(<<"ENDTWO");
! 257: </form>
! 258: </td>
! 259: <td bgcolor="#ccddaa" align="center">
! 260: <form name="dpublisher" action="/adm/pubdir" target="LONCAPAToBePublished" method="post">
! 261: <input type="hidden" name="filename" value="" />
! 262: <input type="button" value="$lt{'list'}" onclick="getdfilename();" />
! 263: </form>
! 264: </td>
! 265: <td bgcolor="#ccddaa" valign="top" align="center">
! 266: <form name="upublisher" action="/adm/upload" target="_parent"
! 267: method="post" enctype="multipart/form-data">
! 268: <input type="hidden" name="filename" value="" />
! 269: <input type="file" name="upfile" size="20" />
! 270: <input type="button" value="$lt{'uplo'}" onclick="getufilename();" />
! 271: </form>
! 272: </td>
! 273: <td rowspan="2" bgcolor="#ccddaa" align="center">
! 274: <form name="printout" target="_parent" action="/adm/printout" method="post" onsubmit="getpostdata();">
! 275: <input type="hidden" name="postdata" value="" />
! 276: <input type="hidden" name="curseed" value="" />
! 277: <input type="hidden" name="problemtype" value="" />
! 278: <input type="button" value="$lt{'prnt'}" onclick="getpostdata();" />
! 279: </form>
! 280: </td>
! 281: </tr>
! 282: <tr valign="middle">
! 283: ENDTWO
! 284: if ($disp eq 'dir') {
! 285: $r->print(<<"ENDDIR");
! 286: <td bgcolor="#ccddaa" align="center">
! 287: <form name="publishsubdir" action="/adm/publish" target="_parent" method="post">
! 288: <input type="hidden" name="filename" value="" />
! 289: <input type="hidden" name="forcerepub" value="NO" />
! 290: <input type="hidden" name="pubrec" value="1" />
! 291: <input type="button" value="$lt{'pubs'}" onclick="getsubdirname();" />
! 292: </form>
! 293: </td>
! 294: <td bgcolor="#ccddaa">
! 295: <form name="editcat" action="/adm/cfile" target="_parent" method="post">
! 296: <input type="hidden" name="filename" value="" />
! 297: <input type="button" value="$lt{'edit'}" onclick="geteditcat();" />
! 298: </form>
! 299: </td>
! 300: ENDDIR
! 301: } else {
! 302: $r->print(<<"ENDFILE");
! 303: <td bgcolor="#ccddaa" align="center">
! 304: <form name="rpublisher" action="/adm/retrieve" target="_parent" method="post">
! 305: <input type="hidden" name="filename" value="" />
! 306: <input type="button" value="$lt{'rtrv'}" onclick="getrfilename();" />
! 307: </form>
! 308: </td>
! 309: <td bgcolor="#ccddaa">
! 310: <form name="del" action="/adm/cfile" target="_parent" method="post">
! 311: <input type="hidden" name="filename" value="" />
! 312: <input type="hidden" name="action" value="delete" />
! 313: <input type="button" value="$lt{'dele'}" onclick="getdelfilename();" />
! 314: </form>
! 315: </td>
! 316: ENDFILE
! 317: }
! 318: $r->print(<<"ENDOPTIONS");
! 319: <td bgcolor="#ccddaa" align="center">
! 320: <form name="fileaction" action="/adm/cfile" target="_parent" method="post" onsubmit="getactionfilename();">
! 321: <nobr>
! 322: <input type="hidden" name="filename" value="" />
! 323: <select name="action">
! 324: <option value="Select Action">$lt{'sela'}</option>
! 325: <option value="newfile">$lt{'nfil'}:</option>
! 326: <option value="newhtmlfile">$lt{'nhtm'}:</option>
! 327: <option value="newproblemfile">$lt{'nprb'}:</option>
! 328: <option value="newpagefile">$lt{'npag'}:</option>
! 329: <option value="newsequencefile">$lt{'nseq'}:</option>
! 330: <option value="newrightsfile">$lt{'ncrf'}:</option>
! 331: <option value="newstyfile">$lt{'nsty'}:</option>
! 332: <option value="newdir">$lt{'nsub'}:</option>
! 333: ENDOPTIONS
! 334: if ($disp ne 'dir') {
! 335: $r->print(<<"ENDPROBOPS");
! 336: <option value="rename">$lt{'renm'}:</option>
! 337: <option value="move">$lt{'move'}:</option>
! 338: <option value="copy">$lt{'copy'}:</option>
! 339: ENDPROBOPS
! 340: }
! 341: $r->print(<<"ENDPAGE");
! 342: </select> <input type="text" name="newfilename" value="$lt{'type'}" onfocus="if (this.value == '$lt{'type'}') this.value=''" /> <input type="button" value="$lt{'go'}" onclick="getactionfilename();" />
! 343: </nobr>
! 344: </form>
! 345: </td>
! 346: </tr>
! 347: </table>
! 348: </th>
! 349: </tr>
! 350: </table>
! 351: </body>
! 352: </html>
! 353: ENDPAGE
! 354: }
! 355:
! 356: 1;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpubmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher