--- loncom/interface/lonpreferences.pm	2004/03/26 20:29:35	1.41
+++ loncom/interface/lonpreferences.pm	2004/05/11 10:42:41	1.42
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.41 2004/03/26 20:29:35 www Exp $
+# $Id: lonpreferences.pm,v 1.42 2004/05/11 10:42:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -626,6 +626,63 @@ ENDERROR
     return;
 }
 
+################################################################
+#            discussion display subroutines 
+################################################################
+sub discussionchanger {
+    my $r = shift;
+    my $user       = $ENV{'user.name'};
+    my $domain     = $ENV{'user.domain'};
+    my %userenv = &Apache::lonnet::get
+        ('environment',['discdisplay']);
+    my $discdisplay=$userenv{'discdisplay'};
+    my $discchange = 'unread';
+    my $alllong = &mt('all posts');
+    my $unreadlong = &mt('only unread posts');
+    my $discbutton = $unreadlong;
+    my $currdisc = $alllong;
+    if ($discdisplay eq 'unread') {
+        $discchange = 'allposts';
+        $discbutton = $alllong;
+        $currdisc = $unreadlong;
+    }
+    $r->print(<<ENDLSCREEN);
+<form name="server" action="/adm/preferences" method="post">
+<input type="hidden" name="action" value="verify_and_change_discussion" />
+<br />
+ENDLSCREEN
+    $r->print(
+&mt('You can set a display preference for discussion posts for both bulletin boards and individual resources in all your courses.').'<br/>'.
+&mt('This default preference can be overridden within each individual discussion.').'<br/><br />'.
+&mt('Your discussion post display preference is currently set to display').' '.$currdisc. 
+'.<br /><br /><input type="hidden" name="discdisplay" value="'.
+$discchange.'" /><input type="submit" value="'.
+&mt('Change to display').' '.$discbutton.'" /></form>'
+    );
+}
+                                                                                                                
+sub verify_and_change_discussion {
+    my $r = shift;
+    my $user       = $ENV{'user.name'};
+    my $domain     = $ENV{'user.domain'};
+# Discussion
+    my $discdisplay  = $ENV{'form.discdisplay'};
+    my $message='';
+    if ($discdisplay eq 'unread') {
+        &Apache::lonnet::put('environment',{'discdisplay' => $discdisplay});
+        &Apache::lonnet::appenv('environment.discdisplay' => $discdisplay);
+        $message='Discussions set to display only unread posts';
+    } else {
+        &Apache::lonnet::del('environment',['discdisplay']);
+        &Apache::lonnet::delenv('environment\.discdisplay');
+        $message='Discussions set to display all posts';
+    }
+    $r->print(<<ENDVCSCREEN);
+</p>
+$message
+ENDVCSCREEN
+}
+
 ######################################################
 #            other handler subroutines               #
 ######################################################
@@ -742,6 +799,22 @@ sub handler {
                       printmenu => 'yes',
                       subroutine=>\&verify_and_change_languages, }
                     ));
+    push (@Options,({ action => 'changediscussions',
+                      linktext => 'Change Discussion Display Preferences',
+                      href => '/adm/preferences',
+                      breadcrumb => 
+                            { href => '/adm/preferences?action=changediscussions',
+                              text => 'Change Discussions'},
+                      subroutine => \&discussionchanger,
+                  },
+                    { action => 'verify_and_change_discussion',
+                      breadcrumb =>
+                          { href => '/adm/preferences?action=changediscussions',
+                            text => 'Change Discussions'},
+                      printmenu => 'yes',
+                      subroutine => \&verify_and_change_discussion, }
+                    ));
+                       
     if ($ENV{'user.name'} =~ /^(albertel|koretemey|korte|hallmat3|turtle)$/) {
         push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',