version 1.295.2.31, 2010/03/23 16:44:46
|
version 1.295.2.34, 2010/05/22 13:30:43
|
Line 2385 sub update_user_data {
|
Line 2385 sub update_user_data {
|
} |
} |
} |
} |
foreach my $item (@requestcourses) { |
foreach my $item (@requestcourses) { |
$newcustom{$item} = $env{'form.crsreq_'.$item}; |
if ($env{'form.custom'.$item} == 1) { |
if ($env{'form.crsreq_'.$item} eq 'autolimit') { |
$newcustom{$item} = $env{'form.crsreq_'.$item}; |
$newcustom{$item} .= '='; |
if ($env{'form.crsreq_'.$item} eq 'autolimit') { |
unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) { |
$newcustom{$item} .= '='; |
$newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'}; |
unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) { |
|
$newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'}; |
|
} |
} |
} |
|
$changed{$item} = &tool_admin($item,$newcustom{$item}, |
|
\%changeHash,'requestcourses'); |
} |
} |
$changed{$item} = &tool_admin($item,$newcustom{$item}, |
|
\%changeHash,'requestcourses'); |
|
} |
} |
} |
} |
if ($canmodify_status{'inststatus'}) { |
if ($canmodify_status{'inststatus'}) { |
Line 2437 sub update_user_data {
|
Line 2439 sub update_user_data {
|
} |
} |
} |
} |
## |
## |
my (@userroles,%userupdate,$cnum,$cdom,$crstype,%namechanged); |
my (@userroles,%userupdate,$cnum,$cdom,%namechanged); |
if ($context eq 'course') { |
if ($context eq 'course') { |
($cnum,$cdom) = &Apache::lonuserutils::get_course_identity(); |
($cnum,$cdom) = &Apache::lonuserutils::get_course_identity(); |
$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum); |
$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum); |
Line 2574 sub update_user_data {
|
Line 2576 sub update_user_data {
|
} |
} |
my ($quotachanged,$oldportfolioquota,$newportfolioquota,$oldinststatus, |
my ($quotachanged,$oldportfolioquota,$newportfolioquota,$oldinststatus, |
$newinststatus,$oldisdefault,$newisdefault,%oldsettings, |
$newinststatus,$oldisdefault,$newisdefault,%oldsettings, |
%oldsettingstext,%newsettings,%newsettingstext,@disporder); |
%oldsettingstext,%newsettings,%newsettingstext,@disporder, |
|
$olddefquota,$oldsettingstatus,$newdefquota,$newsettingstatus); |
@disporder = ('inststatus'); |
@disporder = ('inststatus'); |
if ($env{'request.role.domain'} eq $env{'form.ccdomain'}) { |
if ($env{'request.role.domain'} eq $env{'form.ccdomain'}) { |
push(@disporder,'requestcourses'); |
push(@disporder,'requestcourses'); |
Line 2582 sub update_user_data {
|
Line 2585 sub update_user_data {
|
push(@disporder,'reqcrsotherdom'); |
push(@disporder,'reqcrsotherdom'); |
} |
} |
push(@disporder,('quota','tools')); |
push(@disporder,('quota','tools')); |
my ($defquota,$settingstatus) = |
$oldinststatus = $userenv{'inststatus'}; |
|
($olddefquota,$oldsettingstatus) = |
&Apache::loncommon::default_quota($env{'form.ccdomain'},$oldinststatus); |
&Apache::loncommon::default_quota($env{'form.ccdomain'},$oldinststatus); |
|
($newdefquota,$newsettingstatus) = ($olddefquota,$oldsettingstatus); |
my %canshow; |
my %canshow; |
if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) { |
if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) { |
$canshow{'quota'} = 1; |
$canshow{'quota'} = 1; |
Line 2600 sub update_user_data {
|
Line 2605 sub update_user_data {
|
$canshow{'inststatus'} = 1; |
$canshow{'inststatus'} = 1; |
} |
} |
my (%changeHash,%changed); |
my (%changeHash,%changed); |
$oldinststatus = $userenv{'inststatus'}; |
|
if ($oldinststatus eq '') { |
if ($oldinststatus eq '') { |
$oldsettings{'inststatus'} = $othertitle; |
$oldsettings{'inststatus'} = $othertitle; |
} else { |
} else { |
Line 2620 sub update_user_data {
|
Line 2624 sub update_user_data {
|
$changeHash{'inststatus'} = $newinststatus; |
$changeHash{'inststatus'} = $newinststatus; |
if ($newinststatus ne $oldinststatus) { |
if ($newinststatus ne $oldinststatus) { |
$changed{'inststatus'} = $newinststatus; |
$changed{'inststatus'} = $newinststatus; |
|
($newdefquota,$newsettingstatus) = |
|
&Apache::loncommon::default_quota($env{'form.ccdomain'},$newinststatus); |
} |
} |
if (ref($usertypes) eq 'HASH') { |
if (ref($usertypes) eq 'HASH') { |
$newsettings{'inststatus'} = join(', ',map{ $usertypes->{$_}; } (@inststatuses)); |
$newsettings{'inststatus'} = join(', ',map{ $usertypes->{$_}; } (@inststatuses)); |
Line 2633 sub update_user_data {
|
Line 2639 sub update_user_data {
|
$newsettings{'inststatus'} = $othertitle; |
$newsettings{'inststatus'} = $othertitle; |
if ($newinststatus ne $oldinststatus) { |
if ($newinststatus ne $oldinststatus) { |
$changed{'inststatus'} = $changeHash{'inststatus'}; |
$changed{'inststatus'} = $changeHash{'inststatus'}; |
|
($newdefquota,$newsettingstatus) = |
|
&Apache::loncommon::default_quota($env{'form.ccdomain'},$newinststatus); |
} |
} |
} |
} |
} elsif ($context ne 'selfcreate') { |
} elsif ($context ne 'selfcreate') { |
Line 2655 sub update_user_data {
|
Line 2663 sub update_user_data {
|
} |
} |
} else { |
} else { |
$changed{'quota'} = "a_admin('',\%changeHash); |
$changed{'quota'} = "a_admin('',\%changeHash); |
$newportfolioquota = $defquota; |
$newportfolioquota = $newdefquota; |
$newisdefault = 1; |
$newisdefault = 1; |
} |
} |
} else { |
} else { |
$oldisdefault = 1; |
$oldisdefault = 1; |
$oldportfolioquota = $defquota; |
$oldportfolioquota = $olddefquota; |
if ($env{'form.customquota'} == 1) { |
if ($env{'form.customquota'} == 1) { |
if ($env{'form.portfolioquota'} eq '') { |
if ($env{'form.portfolioquota'} eq '') { |
$newportfolioquota = 0; |
$newportfolioquota = 0; |
Line 2670 sub update_user_data {
|
Line 2678 sub update_user_data {
|
} |
} |
$changed{'quota'} = "a_admin($newportfolioquota,\%changeHash); |
$changed{'quota'} = "a_admin($newportfolioquota,\%changeHash); |
} else { |
} else { |
$newportfolioquota = $defquota; |
$newportfolioquota = $newdefquota; |
$newisdefault = 1; |
$newisdefault = 1; |
} |
} |
} |
} |
if ($oldisdefault) { |
if ($oldisdefault) { |
$oldsettingstext{'quota'} = &get_defaultquota_text($settingstatus); |
$oldsettingstext{'quota'} = &get_defaultquota_text($oldsettingstatus); |
} |
} |
if ($newisdefault) { |
if ($newisdefault) { |
$newsettingstext{'quota'} = &get_defaultquota_text($settingstatus); |
$newsettingstext{'quota'} = &get_defaultquota_text($newsettingstatus); |
} |
} |
&tool_changes('tools',\@usertools,\%oldsettings,\%oldsettingstext,\%userenv, |
&tool_changes('tools',\@usertools,\%oldsettings,\%oldsettingstext,\%userenv, |
\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
Line 4859 ENDSCRIPT
|
Line 4867 ENDSCRIPT
|
'<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'. |
'<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'. |
&Apache::loncommon::plainname($ccuname,$ccudom). |
&Apache::loncommon::plainname($ccuname,$ccudom). |
'</label></span></td>'; |
'</label></span></td>'; |
$count; |
$count ++; |
} |
} |
my $rem = $count%$numcols; |
my $rem = $count%$numcols; |
if ($rem) { |
if ($rem) { |
Line 4876 ENDSCRIPT
|
Line 4884 ENDSCRIPT
|
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'}; |
my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'}; |
my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'}; |
my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'}; |
my $nolimit = ' checked="checked" '; |
$nolimit = ' checked="checked" '; |
if ($currlim eq 'allstudents') { |
if ($currlim eq 'allstudents') { |
$crslimit = ' checked="checked" '; |
$crslimit = ' checked="checked" '; |
$selflimit = ' '; |
$selflimit = ' '; |