[BACK]Return to lonpreferences.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpreferences.pm between versions 1.41 and 1.42

version 1.41, 2004/03/26 20:29:35 version 1.42, 2004/05/11 10:42:41
Line 626  ENDERROR Line 626  ENDERROR
     return;      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               #  #            other handler subroutines               #
 ######################################################  ######################################################
Line 742  sub handler { Line 799  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       subroutine=>\&verify_and_change_languages, }                        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)$/) {      if ($ENV{'user.name'} =~ /^(albertel|koretemey|korte|hallmat3|turtle)$/) {
         push (@Options,({ action => 'debugtoggle',          push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',                            printmenu => 'yes',
Removed from v.1.41  
changed lines
  Added in v.1.42

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>