--- loncom/interface/lonsource.pm	2006/06/22 18:17:23	1.17
+++ loncom/interface/lonsource.pm	2007/08/28 22:23:22	1.19
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Souce Code handler
 #
-# $Id: lonsource.pm,v 1.17 2006/06/22 18:17:23 www Exp $
+# $Id: lonsource.pm,v 1.19 2007/08/28 22:23:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,7 +44,7 @@ use LONCAPA;
 
 sub make_link {
     my ($filename, $listname) = @_;
-    my $sourcelink = "/adm/source?filename=".$filename."&listname=".$listname;
+    my $sourcelink = "/adm/source?inhibitmenu=yes&filename=".$filename."&listname=".$listname;
 
     return $sourcelink;
 }
@@ -76,7 +76,7 @@ sub copy_stage {
     my $author_name;
 #Figure out if we are author or co-author
 
-    if($env{'request.role'} =~ m|ca.|) {
+    if ($env{'request.role'} =~ m{^ca\.}) {
         ($role, $domain, $author_name) = split(/\//,$env{'request.role'});
     } else {
         $role = "au.";