[LON-CAPA-cvs] cvs: loncom /homework response.pm

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 17 Oct 2006 19:35:38 -0000


albertel		Tue Oct 17 15:35:38 2006 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  - few tailing whicuser conversions
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.148 loncom/homework/response.pm:1.149
--- loncom/homework/response.pm:1.148	Tue Oct 17 13:09:44 2006
+++ loncom/homework/response.pm	Tue Oct 17 15:35:37 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.148 2006/10/17 17:09:44 albertel Exp $
+# $Id: response.pm,v 1.149 2006/10/17 19:35:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -306,7 +306,7 @@
 }
 
 sub view_or_modify {
-    my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
+    my ($symb,$courseid,$domain,$name) = &Apache::lonnet::whichuser();
     my $myself=0;
     if ( ($name eq $env{'user.name'}) && ($domain eq $env{'user.domain'}) ) {
 	$myself=1;
@@ -340,7 +340,7 @@
     if ( $target eq 'web' ) {
     } elsif ($target eq 'grade' ) {
 	if ( defined $env{'form.submitted'}) {
-	    my ($symb,$courseid,$domain,$name)=&Apache::lonxml::whichuser();
+	    my ($symb,$courseid,$domain,$name)=&Apache::lonnet::whichuser();
 	    my $allowed=&Apache::lonnet::allowed('mgr',$courseid);
 	    if ($allowed) {
 		&Apache::response::setup_params('dataresponse',$safeeval);
@@ -776,7 +776,7 @@
 
 sub showallfoils {
     if (defined($env{'form.showallfoils'})) {
-	my ($symb)=&Apache::lonxml::whichuser();
+	my ($symb)=&Apache::lonnet::whichuser();
 	if (($env{'request.state'} eq 'construct') || 
 	    ($env{'user.adv'} && $symb eq '')      ||
             ($Apache::lonhomework::viewgrades) ) {
@@ -998,7 +998,7 @@
 }
 
 sub add_to_gradingqueue {
-    my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
+    my ($symb,$courseid,$domain,$name) = &Apache::lonnet::whichuser();
     if (   $courseid eq ''
 	|| $symb eq ''
 	|| $env{'request.state'} eq 'construct'