version 1.7, 2009/10/29 14:57:18
|
version 1.8.2.1, 2010/02/13 19:32:51
|
Line 38 use Apache::lonlocal;
|
Line 38 use Apache::lonlocal;
|
|
|
sub print_header { |
sub print_header { |
my ($r,$phase,$context,$jscript) = @_; |
my ($r,$phase,$context,$jscript) = @_; |
my ($pagetitle,$brcrumtitle,$action); |
my ($pagetitle,$brcrumtitle,$action,$call_category_check); |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','Domain Settings'); |
($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','Domain Settings'); |
$action = '/adm/domainprefs'; |
$action = '/adm/domainprefs'; |
|
if ($phase eq 'display') { |
|
my @actions = &Apache::loncommon::get_env_multiple('form.actions'); |
|
if (grep(/^coursecategories$/,@actions)) { |
|
$call_category_check = qq| |
|
if (formname == document.display) { |
|
if (!categoryCheck(formname)) { |
|
return; |
|
} |
|
} |
|
|; |
|
} |
|
} |
} else { |
} else { |
if (&Apache::loncommon::course_type() eq 'Community') { |
if (&Apache::loncommon::course_type() eq 'Community') { |
($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration'); |
($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration'); |
Line 77 function changePage(formname,newphase) {
|
Line 89 function changePage(formname,newphase) {
|
return; |
return; |
} |
} |
} |
} |
|
'.$call_category_check.' |
formname.submit(); |
formname.submit(); |
}'."\n"; |
}'."\n"; |
if ($phase eq 'pickactions') { |
if ($phase eq 'pickactions') { |
Line 199 sub make_changes {
|
Line 212 sub make_changes {
|
} |
} |
if ($context eq 'course') { |
if ($context eq 'course') { |
if ($numchanged) { |
if ($numchanged) { |
$r->print(&Apache::courseprefs::store_changes($dom,$confname,$prefs_order,\@actions, |
my $message = &Apache::courseprefs::store_changes($dom,$confname,$prefs_order,\@actions, |
$prefs,$values,\%changes,$crstype)); |
$prefs,$values,\%changes,$crstype); |
|
$r->print(&Apache::loncommon::confirmwrapper($message)); |
} else { |
} else { |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$r->print(&mt("No changes made to community configuration.")); |
$r->print(&Apache::loncommon::confirmwrapper(&mt("No changes made to community configuration."))); |
} else { |
} else { |
$r->print(&mt("No changes made to course configuration.")); |
$r->print(&Apache::loncommon::confirmwrapper(&mt("No changes made to course configuration."))); |
} |
} |
} |
} |
if (keys(%disallowed) > 0) { |
if (keys(%disallowed) > 0) { |