version 1.170, 2009/09/08 22:17:02
|
version 1.172, 2009/10/01 22:41:55
|
Line 1608 sub discussionchanger {
|
Line 1608 sub discussionchanger {
|
} |
} |
} |
} |
if (defined($userenv{'discmarkread'})) { |
if (defined($userenv{'discmarkread'})) { |
unless ($userenv{'discdisplay'} eq '') { |
unless ($userenv{'discmarkread'} eq '') { |
$discmark = $userenv{'discmarkread'}; |
$discmark = $userenv{'discmarkread'}; |
} |
} |
} |
} |
Line 1652 sub discussionchanger {
|
Line 1652 sub discussionchanger {
|
$currmark = $lt{'ondisp'}; |
$currmark = $lt{'ondisp'}; |
$newmark = 'onmark'; |
$newmark = 'onmark'; |
} |
} |
|
|
$r->print(<<"END"); |
$r->print(<<"END"); |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
Line 1701 sub verify_and_change_discussion {
|
Line 1701 sub verify_and_change_discussion {
|
if (defined($env{'form.discdisp'}) ) { |
if (defined($env{'form.discdisp'}) ) { |
my $newdisp = $env{'form.newdisp'}; |
my $newdisp = $env{'form.newdisp'}; |
if ($newdisp eq 'unread') { |
if ($newdisp eq 'unread') { |
$message .=&mt('In discussions: only new posts will be displayed.').'<br />'; |
$message .=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: only new posts will be displayed.')).'<br />'; |
&Apache::lonnet::put('environment',{'discdisplay' => $newdisp}); |
&Apache::lonnet::put('environment',{'discdisplay' => $newdisp}); |
&Apache::lonnet::appenv({'environment.discdisplay' => $newdisp}); |
&Apache::lonnet::appenv({'environment.discdisplay' => $newdisp}); |
} else { |
} else { |
$message .= &mt('In discussions: all posts will be displayed.').'<br />'; |
$message .= &Apache::lonhtmlcommon::confirm_success(&mt('In discussions: all posts will be displayed.')).'<br />'; |
&Apache::lonnet::del('environment',['discdisplay']); |
&Apache::lonnet::del('environment',['discdisplay']); |
&Apache::lonnet::delenv('environment.discdisplay'); |
&Apache::lonnet::delenv('environment.discdisplay'); |
} |
} |
Line 1944 push(@{ $menu[1]->{items} }, {
|
Line 1944 push(@{ $menu[1]->{items} }, {
|
url => '/adm/remote?url=/adm/preferences&action=launch', |
url => '/adm/remote?url=/adm/preferences&action=launch', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'network-wireless.png', |
icon => 'remotecontrol.png', |
linktitle => 'Launch the remote control for LON-CAPA.', |
linktitle => 'Launch the remote control for LON-CAPA.', |
}); |
}); |
}else{ |
}else{ |
Line 1953 push(@{ $menu[1]->{items} }, {
|
Line 1953 push(@{ $menu[1]->{items} }, {
|
url => '/adm/remote?url=/adm/preferences&action=collapse', |
url => '/adm/remote?url=/adm/preferences&action=collapse', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'network-wireless.png', |
icon => 'remotecontrol.png', |
linktitle => 'Collapse the remote control for LON-CAPA.', |
linktitle => 'Collapse the remote control for LON-CAPA.', |
}); |
}); |
} |
} |