[BACK]Return to lonpubmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubmenu.pm between versions 1.2 and 1.7

version 1.2, 2005/03/10 03:50:49 version 1.7, 2015/06/09 21:23:27
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # Construction Space Buttons for Top Frame   # Construction Space Buttons for Top Frame 
 #  #
   # $Id$
   #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 27 Line 29
   
 package Apache::lonpubmenu;  package Apache::lonpubmenu;
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     my %lt=&Apache::lonlocal::texthash(      my %js_lt=&Apache::lonlocal::texthash(
                                        cnpd => 'Cannot publish directory',                                         cnpd => 'Cannot publish directory',
                                        cnrd => 'Cannot retrieve directory',                                         cnrd => 'Cannot retrieve directory',
                                        mcdi => 'Must create new subdirectory inside a directory',                                         mcdi => 'Must create new subdirectory inside a directory',
                                         );
       &js_escape(\%js_lt);
       my %html_lt=&Apache::lonlocal::texthash(
                                        pubr => 'Publish this Resource',                                         pubr => 'Publish this Resource',
                                        pubd => 'Publish this Directory',                                         pubd => 'Publish this Directory',
                                        rtrv => 'Retrieve Old Version',                                         rtrv => 'Retrieve Old Version',
Line 42  sub handler { Line 48  sub handler {
                                        list => 'List Directory',                                         list => 'List Directory',
                                        uplo => 'Upload file',                                           uplo => 'Upload file',  
                                        dele => 'Delete',                                         dele => 'Delete',
                                        edit => 'Edit Catalog Information',                                          edit => 'Edit Metadata', 
                                        sela => 'Select Action',                                         sela => 'Select Action',
                                        nfil => 'New file',                                         nfil => 'New file',
                                        nhtm => 'New HTML file',                                         nhtm => 'New HTML file',
Line 60  sub handler { Line 66  sub handler {
                                        go => 'Go',                                         go => 'Go',
                                        prnt => 'Print'                                         prnt => 'Print'
                                       );                                        );
       &html_escape(\%html_lt);
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['disp']);
     my $disp = $ENV{'form.disp'};      my $disp = $env{'form.disp'};
 # set defaults for parent directory in case frameloc is unable to determine directory  # set defaults for parent directory in case frameloc is unable to determine directory
     my $defaultdir = '/priv/'.$ENV{'user.name'}.'/';       my $defaultdir = '/priv/'.$env{'user.name'}.'/'; 
     if ($ENV{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) {      if ($env{'request.role'} =~ m#^ca\./[^/]+/([^/]+)#) {
         $defaultdir = '/priv/'.$1.'/';          $defaultdir = '/priv/'.$1.'/';
     }      }
     $r->print(<<"ENDONE");      my $js=
 <html>  
 <head>  
 <title>LON-CAPA Publishing Frame</title>  
 <script type="text/javascript">  <script type="text/javascript">
 //<!--  //<!--
 function frameloc() {  function frameloc() {
Line 121  function getactionfilename() { Line 125  function getactionfilename() {
       if ((document.fileaction.filename.value.charAt(        if ((document.fileaction.filename.value.charAt(
            document.fileaction.filename.value.length-1)!='/') &&             document.fileaction.filename.value.length-1)!='/') &&
            (document.fileaction.filename.value.indexOf('/adm/pubdir')==-1)) {             (document.fileaction.filename.value.indexOf('/adm/pubdir')==-1)) {
           alert('$lt{'mcdi'}');            alert('$js_lt{'mcdi'}');
           return;            return;
       }        }
    }     }
Line 165  function getpostdata() { Line 169  function getpostdata() {
 ENDONE  ENDONE
   
     if ($disp eq 'dir') {      if ($disp eq 'dir') {
         $r->print(<<"ENDDIR");          $js .= <<"ENDDIR";
 function getdirname() {  function getdirname() {
     document.publishdir.filename.value=frameloc();      document.publishdir.filename.value=frameloc();
     pubdir(document.publishdir)      pubdir(document.publishdir)
Line 200  function forcepub(theform) { Line 204  function forcepub(theform) {
 }  }
 ENDDIR  ENDDIR
     } else {      } else {
         $r->print(<<"ENDRES");          $js.=<<"ENDRES";
 function getfilename() {  function getfilename() {
     document.publisher.filename.value=frameloc();      document.publisher.filename.value=frameloc();
     if ((document.publisher.filename.value.charAt(      if ((document.publisher.filename.value.charAt(
Line 208  function getfilename() { Line 212  function getfilename() {
       (document.publisher.filename.value.indexOf('/adm/pubdir')==-1)) {        (document.publisher.filename.value.indexOf('/adm/pubdir')==-1)) {
         document.publisher.submit();          document.publisher.submit();
     } else {      } else {
         alert('$lt{'cnpd'}');          alert('$js_lt{'cnpd'}');
     }      }
 }  }
   
Line 219  function getrfilename() { Line 223  function getrfilename() {
        (document.rpublisher.filename.value.indexOf('/adm/pubdir')==-1)) {         (document.rpublisher.filename.value.indexOf('/adm/pubdir')==-1)) {
         document.rpublisher.submit();          document.rpublisher.submit();
    } else {     } else {
       alert('$lt{'cnrd'}');        alert('$js_lt{'cnrd'}');
    }     }
 }  }
   
Line 229  function getdelfilename() { Line 233  function getdelfilename() {
 }  }
 ENDRES  ENDRES
     }      }
       my $start_page = 
    &Apache::loncommon::start_page('Publishing Frame',$js,
          {'only_body' => 1,});
       my $end_page = 
    &Apache::loncommon::end_page();
     $r->print(<<"END");      $r->print(<<"END");
 //-->  $start_page
 </script>  
     </head>  
     <body bgcolor="#ccffdd" text='#002200' link='#003333' vlink='#006666'>  
  <table border="0" align="center"><tr><th bgcolor="#004400" height="20">   <table border="0" align="center"><tr><th bgcolor="#004400" height="20">
       <table border="0" cellspacing="2" cellpadding="2"><tr valign="middle">        <table border="0" cellspacing="2" cellpadding="2"><tr valign="middle">
   <td bgcolor="#ccddaa" align="center">    <td bgcolor="#ccddaa" align="center">
Line 243  END Line 249  END
                     <form name="publishdir" action="/adm/publish" target="_parent" method="post">                      <form name="publishdir" action="/adm/publish" target="_parent" method="post">
                       <input type="hidden" name="filename" value="" />                        <input type="hidden" name="filename" value="" />
                       <input type="hidden" name="forcerepub" value="NO" />                        <input type="hidden" name="forcerepub" value="NO" />
                       <input type="button" value="'.$lt{'pubd'}.'" onclick="getdirname();" />                        <input type="button" value="'.$html_lt{'pubd'}.'" onclick="getdirname();" />
                     </form>                      </form>
                  ');                   ');
     } else {      } else {
         $r->print('          $r->print('
                     <form name="publisher" action="/adm/publish" target="_parent" method="post">                      <form name="publisher" action="/adm/publish" target="_parent" method="post">
                       <input type="hidden" name="filename" value="" />                        <input type="hidden" name="filename" value="" />
               <input type="button" value="'.$lt{'pubr'}.'" onclick="getfilename();" />                <input type="button" value="'.$html_lt{'pubr'}.'" onclick="getfilename();" />
                     </form>                      </form>
                    ');                     ');
     }      }
Line 260  END Line 266  END
   <td bgcolor="#ccddaa" align="center">    <td bgcolor="#ccddaa" align="center">
     <form name="dpublisher" action="/adm/pubdir" target="LONCAPAToBePublished" method="post">      <form name="dpublisher" action="/adm/pubdir" target="LONCAPAToBePublished" method="post">
       <input type="hidden" name="filename" value="" />        <input type="hidden" name="filename" value="" />
       <input type="button" value="$lt{'list'}" onclick="getdfilename();" />        <input type="button" value="$html_lt{'list'}" onclick="getdfilename();" />
     </form>      </form>
   </td>    </td>
   <td bgcolor="#ccddaa" valign="top" align="center">    <td bgcolor="#ccddaa" valign="top" align="center">
Line 268  END Line 274  END
  method="post" enctype="multipart/form-data">   method="post" enctype="multipart/form-data">
       <input type="hidden" name="filename" value="" />        <input type="hidden" name="filename" value="" />
       <input type="file" name="upfile" size="20" />        <input type="file" name="upfile" size="20" />
       <input type="button" value="$lt{'uplo'}"  onclick="getufilename();" />        <input type="button" value="$html_lt{'uplo'}"  onclick="getufilename();" />
     </form>      </form>
   </td>    </td>
   <td rowspan="2" bgcolor="#ccddaa" align="center">    <td rowspan="2" bgcolor="#ccddaa" align="center">
Line 276  END Line 282  END
       <input type="hidden" name="postdata" value="" />        <input type="hidden" name="postdata" value="" />
       <input type="hidden" name="curseed" value="" />        <input type="hidden" name="curseed" value="" />
       <input type="hidden" name="problemtype" value="" />        <input type="hidden" name="problemtype" value="" />
       <input type="button" value="$lt{'prnt'}" onclick="getpostdata();" />        <input type="button" value="$html_lt{'prnt'}" onclick="getpostdata();" />
     </form>      </form>
   </td>    </td>
  </tr>   </tr>
Line 289  ENDTWO Line 295  ENDTWO
                       <input type="hidden" name="filename" value="" />                        <input type="hidden" name="filename" value="" />
                       <input type="hidden" name="forcerepub" value="NO" />                        <input type="hidden" name="forcerepub" value="NO" />
                       <input type="hidden" name="pubrec" value="1" />                        <input type="hidden" name="pubrec" value="1" />
                       <input type="button" value="$lt{'pubs'}" onclick="getsubdirname();" />                        <input type="button" value="$html_lt{'pubs'}" onclick="getsubdirname();" />
                     </form>                      </form>
                   </td>                    </td>
                   <td bgcolor="#ccddaa">                    <td bgcolor="#ccddaa">
                     <form name="editcat" action="/adm/cfile" target="_parent" method="post">                      <form name="editcat" action="/adm/cfile" target="_parent" method="post">
                       <input type="hidden" name="filename" value="" />                        <input type="hidden" name="filename" value="" />
                       <input type="button" value="$lt{'edit'}" onclick="geteditcat();" />                        <input type="button" value="$html_lt{'edit'}" onclick="geteditcat();" />
                     </form>                      </form>
                   </td>                    </td>
 ENDDIR  ENDDIR
Line 304  ENDDIR Line 310  ENDDIR
   <td bgcolor="#ccddaa" align="center">    <td bgcolor="#ccddaa" align="center">
     <form name="rpublisher" action="/adm/retrieve" target="_parent" method="post">      <form name="rpublisher" action="/adm/retrieve" target="_parent" method="post">
       <input type="hidden" name="filename" value="" />        <input type="hidden" name="filename" value="" />
       <input type="button" value="$lt{'rtrv'}" onclick="getrfilename();" />        <input type="button" value="$html_lt{'rtrv'}" onclick="getrfilename();" />
     </form>      </form>
   </td>    </td>
   <td bgcolor="#ccddaa">    <td bgcolor="#ccddaa">
     <form name="del" action="/adm/cfile" target="_parent" method="post">      <form name="del" action="/adm/cfile" target="_parent" method="post">
       <input type="hidden" name="filename" value="" />        <input type="hidden" name="filename" value="" />
       <input type="hidden" name="action" value="delete" />        <input type="hidden" name="action" value="delete" />
               <input type="button" value="$lt{'dele'}" onclick="getdelfilename();" />                <input type="button" value="$html_lt{'dele'}" onclick="getdelfilename();" />
     </form>      </form>
   </td>    </td>
 ENDFILE  ENDFILE
Line 322  ENDFILE Line 328  ENDFILE
       <nobr>        <nobr>
  <input type="hidden" name="filename" value="" />   <input type="hidden" name="filename" value="" />
   <select name="action">    <select name="action">
     <option value="Select Action">$lt{'sela'}</option>      <option value="Select Action">$html_lt{'sela'}</option>
     <option value="newfile">$lt{'nfil'}:</option>      <option value="newfile">$html_lt{'nfil'}:</option>
     <option value="newhtmlfile">$lt{'nhtm'}:</option>      <option value="newhtmlfile">$html_lt{'nhtm'}:</option>
     <option value="newproblemfile">$lt{'nprb'}:</option>      <option value="newproblemfile">$html_lt{'nprb'}:</option>
                             <option value="newpagefile">$lt{'npag'}:</option>                              <option value="newpagefile">$html_lt{'npag'}:</option>
                             <option value="newsequencefile">$lt{'nseq'}:</option>                              <option value="newsequencefile">$html_lt{'nseq'}:</option>
                             <option value="newrightsfile">$lt{'ncrf'}:</option>                              <option value="newrightsfile">$html_lt{'ncrf'}:</option>
                             <option value="newstyfile">$lt{'nsty'}:</option>                              <option value="newstyfile">$html_lt{'nsty'}:</option>
                             <option value="newlibraryfile">$lt{'nlib'}:</option>                              <option value="newlibraryfile">$html_lt{'nlib'}:</option>
     <option value="newdir">$lt{'nsub'}:</option>      <option value="newdir">$html_lt{'nsub'}:</option>
 ENDOPTIONS  ENDOPTIONS
     if ($disp ne 'dir') {      if ($disp ne 'dir') {
         $r->print(<<"ENDPROBOPS");          $r->print(<<"ENDPROBOPS");
     <option value="rename">$lt{'renm'}:</option>      <option value="rename">$html_lt{'renm'}:</option>
     <option value="move">$lt{'move'}:</option>      <option value="move">$html_lt{'move'}:</option>
     <option value="copy">$lt{'copy'}:</option>      <option value="copy">$html_lt{'copy'}:</option>
 ENDPROBOPS  ENDPROBOPS
     }      }
     $r->print(<<"ENDPAGE");      $r->print(<<"ENDPAGE");
   </select>&nbsp;<input type="text" name="newfilename" value="$lt{'type'}" onfocus="if (this.value == '$lt{'type'}') this.value=''" />&nbsp;<input type="button" value="$lt{'go'}" onclick="getactionfilename();" />    </select>&nbsp;<input type="text" name="newfilename" value="$html_lt{'type'}" onfocus="if (this.value == '$html_lt{'type'}') this.value=''" />&nbsp;<input type="button" value="$html_lt{'go'}" onclick="getactionfilename();" />
       </nobr>        </nobr>
     </form>      </form>
    </td>     </td>
Line 350  ENDPROBOPS Line 356  ENDPROBOPS
     </th>      </th>
   </tr>    </tr>
  </table>   </table>
     </body>  $end_page
   </html>  
 ENDPAGE  ENDPAGE
 }  }
   
Removed from v.1.2  
changed lines
  Added in v.1.7

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