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

[raeburn]

raeburn		Tue Dec 20 10:52:27 2005 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
  Log:
  Advanced users (not just CCs) can now choose to set user preference to enable/disable whatsnew screen when entering a course.
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.70 loncom/interface/lonpreferences.pm:1.71
--- loncom/interface/lonpreferences.pm:1.70	Mon Dec 19 16:39:37 2005
+++ loncom/interface/lonpreferences.pm	Tue Dec 20 10:52:27 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.70 2005/12/19 21:39:37 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.71 2005/12/20 15:52:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -982,17 +982,24 @@
     my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get('environment',['course_init_display']);
-
+    my $currvalue = 'whatsnew';
     my $firstselect='checked="checked"';
     my $whatsnewselect='';
-    if ($userenv{'course_init_display'} ne 'firstres') {
-        $firstselect='';
-        $whatsnewselect='checked="checked"';
+    if (exists($userenv{'course_init_display'})) {
+        if ($userenv{'course_init_display'} eq 'firstres') {
+            $currvalue = 'firstres';
+            $firstselect='';
+            $whatsnewselect='checked="checked"';
+        }
     }
+    my %pagenames = (
+                       firstres => 'First resource',
+                       whatsnew => "What's new page",
+                    );
     my $whatsnew_off=&mt('Display the [_1] in the course.','<b>first resource</b>');
     my $whatsnew_on=&mt('Display the "[_1]" page - a summary of items in the course which require attention.',"<b>What's New</b>");
 
-    $r->print('<br /><b>'.&mt('Set the default page to be displayed when you select a course role other than student or TA').':</b><br />'.&mt('The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the "[_1]" page in the course',"<i>What's New</i>").'<br /><br />');
+    $r->print('<br /><b>'.&mt('Set the default page to be displayed when you select a course role').'</b>&nbsp;'.&mt('(Currently: [_1])',$pagenames{$currvalue}).'<br />'.&mt('The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the "[_1]" page in the course',"<i>What's New</i>").'<br /><br />');
     $r->print(<<ENDLSCREEN);
 <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_coursepage" />
@@ -1008,7 +1015,7 @@
     my $message='';
     my %lt = &Apache::lonlocal::texthash(
         'defs' => 'Default now set',
-        'when' => 'when selecting a course role other than student or TA from the roles screen',
+        'when' => 'when you select a course role from the roles screen',
         'ywbt' => 'you will be taken to the start of the course.',
         'apwb' => 'a page will be displayed that lists items in the course that may require action from you.',
         'gtts' => 'Go to the start of the course',
@@ -1225,7 +1232,7 @@
                             text => 'Change Math Preferences'},
                       printmenu => 'yes',
                       }));
-    if($env{'request.role'} =~ /^cc\.\//) {
+    if ($env{'user.adv'}) {
         push (@Options,({ action => 'changecourseinit',
                           linktext => 'Change Course Initialization Preference',
                           href => '/adm/preferences',