--- loncom/interface/lonsource.pm	2005/02/17 08:29:43	1.9
+++ loncom/interface/lonsource.pm	2005/04/07 04:46:36	1.10
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Souce Code handler
 #
-# $Id: lonsource.pm,v 1.9 2005/02/17 08:29:43 albertel Exp $
+# $Id: lonsource.pm,v 1.10 2005/04/07 04:46:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -222,8 +222,7 @@ sub handler {
     } 
     if ($ENV{'form.action'} eq 'stage2') {
         my $author = &Apache::lonnet::metadata($filename,'authorspace');
-        $author =~ m|@|;
-        $author = $`; #This just tells who the author name is for later processing.
+        ($author) = split('@',$author); #strip the domain of the author name
         &stage_2($r, $ENV{'form.filename'}, $author, $listname);
     } elsif($ENV{'form.action'} eq 'copy_stage') {
         &copy_stage($r, $filename,$ENV{'form.listname'},$ENV{'form.newpath'});