[LON-CAPA-cvs] cvs: loncom /interface lonrequestcourse.pm

[raeburn]

raeburn		Tue Aug 25 14:59:53 2009 EDT

  Modified files:              
    /loncom/interface	lonrequestcourse.pm 
  Log:
  - courserequestqueue.db now stored in domainconfig user's directory.
  
  
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.24 loncom/interface/lonrequestcourse.pm:1.25
--- loncom/interface/lonrequestcourse.pm:1.24	Sun Aug 23 03:51:53 2009
+++ loncom/interface/lonrequestcourse.pm	Tue Aug 25 14:59:53 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.24 2009/08/23 03:51:53 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.25 2009/08/25 14:59:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2112,9 +2112,10 @@
                                                    $env{'user.domain'},$env{'user.name'});
             if ($userreqhash{$statuskey} ne '') {
                 $modified = 1;
-                my %queuehash = &Apache::lonnet::get_dom('courserequestqueue',
-                                                         [$cnum.'_approval',
-                                                          $cnum.'_pending'],$dom);
+                my $uname = &Apache::lonnet::get_domainconfiguser($dom);
+                my %queuehash = &Apache::lonnet::get('courserequestqueue',
+                                                     [$cnum.'_approval',
+                                                      $cnum.'_pending'],$dom,$uname);
                 if (($queuehash{$cnum.'_approval'} ne '') || 
                     ($queuehash{$cnum.'_pending'} ne '')) {
                     $queued = 1;