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', |