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

[raeburn]

raeburn		Sat May 23 21:02:39 2015 EDT

  Modified files:              
    /loncom/interface	lonsource.pm 
  Log:
  - add missing closing </form> tag. 
  - return from subroutines.
  
  
Index: loncom/interface/lonsource.pm
diff -u loncom/interface/lonsource.pm:1.33 loncom/interface/lonsource.pm:1.34
--- loncom/interface/lonsource.pm:1.33	Sat May 23 18:10:02 2015
+++ loncom/interface/lonsource.pm	Sat May 23 21:02:39 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Source Code handler
 #
-# $Id: lonsource.pm,v 1.33 2015/05/23 18:10:02 raeburn Exp $
+# $Id: lonsource.pm,v 1.34 2015/05/23 21:02:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -122,6 +122,7 @@
     }
     
     $r->print(&Apache::loncommon::end_page());
+    return;
 }
 
 sub confirm {
@@ -135,6 +136,7 @@
 
               <input type="submit" value="Delete" />
               </form>');
+    return;
 }
 
 sub delete_copy_file {
@@ -148,7 +150,7 @@
         $r->print('<form name="delete_done" action="/adm/source" target="_parent" method="post">'
                  .'<input type="button" value="'.&mt('Close Window').'" name="close"'
                  .' onclick="window.close()" />'
-                 .'</p>');
+                 .'</form></p>');
     } else {
         $r->print(&Apache::loncommon::start_page('Copying Source',undef,{'only_body' => 1}));
         if(-e $path_to_new_file) {
@@ -163,6 +165,7 @@
         &copy_file($r, $newpath, $filename, $path_to_new_file);
         $r->print(&Apache::loncommon::end_page());
     }
+    return;
 }
 
 sub copy_file {
@@ -206,6 +209,7 @@
               .&mt('Close Window').'" name="close" onclick="window.close()" />'
               .'</form>');
     #Some 1.3'ish feature is to include the derivative feature, will go here..'
+    return;
 }
 
 sub print_item {