--- loncom/interface/lonsource.pm 2009/06/09 13:50:03 1.23
+++ loncom/interface/lonsource.pm 2009/08/13 11:00:38 1.24
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Source Code handler
#
-# $Id: lonsource.pm,v 1.23 2009/06/09 13:50:03 bisitz Exp $
+# $Id: lonsource.pm,v 1.24 2009/08/13 11:00:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -135,7 +135,7 @@ sub delete_copy_file {
.&mt('Please use the code view in previous window to use shared code.')
.'
');
$r->print(''
+ .' onclick="window.close()" />'
.'