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

Diff for /loncom/interface/lonsource.pm between versions 1.23 and 1.25

version 1.23, 2009/06/09 13:50:03 version 1.25, 2011/10/25 14:28:13
Line 84  sub copy_stage { Line 84  sub copy_stage {
         $author_name = $env{'user.name'};          $author_name = $env{'user.name'};
     }      }
   
     my $path_to_new_file = '/home/'.$author_name.'/public_html/'.$newpath.'/'.$listname;      my $path_to_new_file = '/home/httpd/html/priv/'.$domain.'/'.$author_name.'/'.$newpath.'/'.$listname;
 #Just checking again for access as we want to make sure that it is really ok now that we have the real path  #Just checking again for access as we want to make sure that it is really ok now that we have the real path
   
     my ($uname,$udom)= &Apache::loncacc::constructaccess($path_to_new_file,$domain);      my ($uname,$udom)= &Apache::loncacc::constructaccess($path_to_new_file);
   
     if (!$uname || !$udom) {      if (!$uname || !$udom) {
  $r->print(&Apache::loncommon::start_page('Not Allowed'));   $r->print(&Apache::loncommon::start_page('Not Allowed'));
Line 135  sub delete_copy_file { Line 135  sub delete_copy_file {
                  .&mt('Please use the code view in previous window to use shared code.')                   .&mt('Please use the code view in previous window to use shared code.')
                  .'<br /><br />');                   .'<br /><br />');
         $r->print('<input type="button" value="Close Window" name="close"'          $r->print('<input type="button" value="Close Window" name="close"'
                  .' onClick="window.close()" />'                   .' onclick="window.close()" />'
                  .'</p>');                   .'</p>');
     } else {      } else {
         if(-e $path_to_new_file) {          if(-e $path_to_new_file) {
Line 182  sub copy_file { Line 182  sub copy_file {
         print $fs $file_output;          print $fs $file_output;
     }      }
     $r->print("<br /><br />");      $r->print("<br /><br />");
     $r->print('<input type="button" value="Close Window" name="close" onClick="window.close()" />');      $r->print('<input type="button" value="Close Window" name="close" onclick="window.close()" />');
     #Some 1.3'ish feature is to include the derivative feature, will go here..'      #Some 1.3'ish feature is to include the derivative feature, will go here..'
 }  }
   
Line 258  sub handler { Line 258  sub handler {
         &delete_copy_file($r, $env{'form.author'}, $env{'form.newpath'}, $env{'form.filename'}, $env{'form.path'}, '0');          &delete_copy_file($r, $env{'form.author'}, $env{'form.newpath'}, $env{'form.filename'}, $env{'form.path'}, '0');
     } else {      } else {
  $r->print('<form name="copy" action="/adm/source" target="_parent" method="post">   $r->print('<form name="copy" action="/adm/source" target="_parent" method="post">
                   <input type="button" value="'.&mt('Close Window').'" name="close" onClick="window.close()" />                    <input type="button" value="'.&mt('Close Window').'" name="close" onclick="window.close()" />
                   <input type="hidden" name="filename" value="'.$filename.'" />                    <input type="hidden" name="filename" value="'.$filename.'" />
                   <input type="hidden" name="listname" value="'.$listname.'" />                    <input type="hidden" name="listname" value="'.$listname.'" />
                   <input type="hidden" name="action" value="stage2" />                    <input type="hidden" name="action" value="stage2" />
Removed from v.1.23  
changed lines
  Added in v.1.25

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