[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm

[albertel]

albertel		Fri Jan  6 16:03:23 2006 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - switch to using ::get
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.143 loncom/auth/lonroles.pm:1.144
--- loncom/auth/lonroles.pm:1.143	Tue Jan  3 12:46:35 2006
+++ loncom/auth/lonroles.pm	Fri Jan  6 16:03:23 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.143 2006/01/03 17:46:35 albertel Exp $
+# $Id: lonroles.pm,v 1.144 2006/01/06 21:03:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1029,11 +1029,10 @@
 sub courseloadpage {
     my ($courseid) = @_;
     my $startpage;
-    my %entry_settings =
-              &Apache::lonnet::dump('nohist_whatsnew',$env{'user.domain'},
-                                    $env{'user.name'},$courseid.':courseinit');
+    my %entry_settings = &Apache::lonnet::get('nohist_whatsnew',
+					      [$courseid.':courseinit']);
     my ($tmp) = %entry_settings;
-    unless ($tmp =~ /^Error/) {
+    unless ($tmp =~ /^error: 2 /) {
         $startpage = $entry_settings{$courseid.':courseinit'};
     }
     if ($startpage eq '') {