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

[albertel]

albertel		Tue Jul  5 11:25:37 2005 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
  Log:
  - couldn't actually change to course init preference
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.65 loncom/interface/lonpreferences.pm:1.66
--- loncom/interface/lonpreferences.pm:1.65	Thu Jun 16 18:11:13 2005
+++ loncom/interface/lonpreferences.pm	Tue Jul  5 11:25:34 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.65 2005/06/16 22:11:13 albertel Exp $
+# $Id: lonpreferences.pm,v 1.66 2005/07/05 15:25:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -980,12 +980,11 @@
     my $r = shift;
     my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};
-    my %userenv = &Apache::lonnet::get
-        ('environment',['course_init_display']);
+    my %userenv = &Apache::lonnet::get('environment',['course_init_display']);
 
     my $firstselect='checked="checked"';
     my $whatsnewselect='';
-    if ($userenv{'course_init_display'} eq 'whatsnew') {
+    if ($userenv{'course_init_display'} ne 'firstres') {
         $firstselect='';
         $whatsnewselect='checked="checked"';
     }