--- loncom/homework/inputtags.pm	2006/10/12 16:28:21	1.208
+++ loncom/homework/inputtags.pm	2006/10/17 15:11:11	1.209
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.208 2006/10/12 16:28:21 albertel Exp $
+# $Id: inputtags.pm,v 1.209 2006/10/17 15:11:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -462,7 +462,7 @@ sub show_past_portfile_submission {
     }
     my (@file_list,@bad_file_list);
     foreach my $file (split(/\s*,\s*/,&unescape($Apache::lonhomework::history{"resource.$part.$id.portfiles"}))) {
-	my (undef,undef,$domain,$user)=&Apache::lonxml::whichuser();
+	my (undef,undef,$domain,$user)=&Apache::lonnet::whichuser();
 	my $url="/uploaded/$domain/$user/portfolio$file";
 	my $icon=&Apache::loncommon::icon($url);
 	push(@file_list,'<a href="'.$url.'"><img src="'.$icon.
@@ -753,7 +753,7 @@ sub decideoutput {
 	$message = &mt("Unknown message").": $award";
 	$button=1;
     }
-    my (undef,undef,$domain,$user)=&Apache::lonxml::whichuser();
+    my (undef,undef,$domain,$user)=&Apache::lonnet::whichuser();
     foreach my $resid(@Apache::inputtags::response){
         if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) {
 	    $message.='<br />';