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

Diff for /loncom/publisher/lonpubmenu.pm between versions 1.3 and 1.4

version 1.3, 2005/04/07 06:56:27 version 1.4, 2006/04/06 22:15:19
Line 68  sub handler { Line 68  sub handler {
     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 166  function getpostdata() { Line 163  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 201  function forcepub(theform) { Line 198  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 230  function getdelfilename() { Line 227  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 351  ENDPROBOPS Line 350  ENDPROBOPS
     </th>      </th>
   </tr>    </tr>
  </table>   </table>
     </body>  $end_page
   </html>  
 ENDPAGE  ENDPAGE
 }  }
   
Removed from v.1.3  
changed lines
  Added in v.1.4

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