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

Diff for /loncom/interface/lonsource.pm between versions 1.12 and 1.13

version 1.12, 2005/06/23 23:07:04 version 1.13, 2005/06/23 23:24:53
Line 59  sub stage_2 { Line 59  sub stage_2 {
     $r->print(&Apache::loncommon::bodytag('Problem source code moving operation'));      $r->print(&Apache::loncommon::bodytag('Problem source code moving operation'));
     $r->print("Please enter the directory that you would like the source code to go into, a default has also been provided <br />");      $r->print("Please enter the directory that you would like the source code to go into, a default has also been provided <br />");
     $r->print("Also note, the path is in reference to the root of your construction space, and new directories will be automatically created. <br /><br />");      $r->print("Also note, the path is in reference to the root of your construction space, and new directories will be automatically created. <br /><br />");
     $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="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="copy_stage" />                <input type="hidden" name="action" value="copy_stage" />
Line 114  sub copy_stage { Line 114  sub copy_stage {
 sub confirm {  sub confirm {
     my ($r, $author_name, $newpath, $filename, $path_to_new_file) = @_;      my ($r, $author_name, $newpath, $filename, $path_to_new_file) = @_;
     $r->print("<b>Press delete to remove file and replace it with a copy of the source you are viewing</b><br /><br / >");      $r->print("<b>Press delete to remove file and replace it with a copy of the source you are viewing</b><br /><br / >");
     $r->print('<form name="delete_confirm" action="/adm/source/" target="_parent" method="post">      $r->print('<form name="delete_confirm" action="/adm/source" target="_parent" method="post">
               <input type="hidden" name="filename" value="'.$filename.'" />                <input type="hidden" name="filename" value="'.$filename.'" />
               <input type="hidden" name="path" value="'.$path_to_new_file.'" />                <input type="hidden" name="path" value="'.$path_to_new_file.'" />
               <input type="hidden" name="author" value="'.$author_name.'" />                <input type="hidden" name="author" value="'.$author_name.'" />
Line 232  sub handler { Line 232  sub handler {
     } else {      } else {
         &Apache::loncommon::content_type($r,'text/html');          &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;          $r->send_http_header;
         $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="Close Window" name="close" onClick="window.close()" />                    <input type="button" value="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.'" />
Removed from v.1.12  
changed lines
  Added in v.1.13

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