[LON-CAPA-cvs] cvs: loncom /interface lonsource.pm

[www]

www		Thu Jun 23 19:24:54 2005 EDT

  Modified files:              
    /loncom/interface	lonsource.pm 
  Log:
  Saving work.
  
  
Index: loncom/interface/lonsource.pm
diff -u loncom/interface/lonsource.pm:1.12 loncom/interface/lonsource.pm:1.13
--- loncom/interface/lonsource.pm:1.12	Thu Jun 23 19:07:04 2005
+++ loncom/interface/lonsource.pm	Thu Jun 23 19:24:53 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Souce Code handler
 #
-# $Id: lonsource.pm,v 1.12 2005/06/23 23:07:04 www Exp $
+# $Id: lonsource.pm,v 1.13 2005/06/23 23:24:53 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,7 +59,7 @@
     $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("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="listname" value="'.$listname.'" />
               <input type="hidden" name="action" value="copy_stage" />
@@ -114,7 +114,7 @@
 sub confirm {
     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('<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="path" value="'.$path_to_new_file.'" />
               <input type="hidden" name="author" value="'.$author_name.'" />
@@ -232,7 +232,7 @@
     } else {
         &Apache::loncommon::content_type($r,'text/html');
         $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="hidden" name="filename" value="'.$filename.'" />
                   <input type="hidden" name="listname" value="'.$listname.'" />