version 1.402, 2014/06/13 11:22:41
|
version 1.403, 2014/06/30 14:49:35
|
Line 3044 sub update_user_data {
|
Line 3044 sub update_user_data {
|
my %newenvhash; |
my %newenvhash; |
foreach my $key (keys(%changed)) { |
foreach my $key (keys(%changed)) { |
if (($key eq 'official') || ($key eq 'unofficial') |
if (($key eq 'official') || ($key eq 'unofficial') |
|| ($key eq 'community')) { |
|| ($key eq 'community') || ($key eq 'textbook')) { |
$newenvhash{'environment.requestcourses.'.$key} = |
$newenvhash{'environment.requestcourses.'.$key} = |
$changeHash{'requestcourses.'.$key}; |
$changeHash{'requestcourses.'.$key}; |
if ($changeHash{'requestcourses.'.$key}) { |
if ($changeHash{'requestcourses.'.$key}) { |