version 1.403, 2008/07/01 01:35:28
|
version 1.409, 2008/09/19 03:27:04
|
Line 1899 ENDTABLEHEADFOUR
|
Line 1899 ENDTABLEHEADFOUR
|
} |
} |
$r->print('<div align="center"><h4>' |
$r->print('<div align="center"><h4>' |
.&mt('Set Defaults for All Resources in [_1]Specifically for [_2][_3]' |
.&mt('Set Defaults for All Resources in [_1]Specifically for [_2][_3]' |
,$foldermap.'<br /><font color="red"><i>$showtitle</i></font><br />' |
,$foldermap.'<br /><font color="red"><i>'.$showtitle.'</i></font><br />' |
,$tmp |
,$tmp |
,'<font color="red"><i>'.$coursename.'</i></font>' |
,'<font color="red"><i>'.$coursename.'</i></font>' |
) |
) |
Line 2126 sub crsenv {
|
Line 2126 sub crsenv {
|
$setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'; |
$setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'; |
if ($name =~ /^default_enrollment_(start|end)_date$/) { |
if ($name =~ /^default_enrollment_(start|end)_date$/) { |
$setoutput .= &Apache::lonlocal::locallocaltime($value); |
$setoutput .= &Apache::lonlocal::locallocaltime($value); |
|
} elsif ($name eq 'categories') { |
|
$setoutput .= $env{'form.categories_display'}; |
} else { |
} else { |
$setoutput .= $value; |
$setoutput .= $value; |
} |
} |
Line 2355 sub crsenv {
|
Line 2357 sub crsenv {
|
'categories' |
'categories' |
=> '<b>'.&mt('Categorize course').'</b> <a href="javascript:catsbrowser()">'. |
=> '<b>'.&mt('Categorize course').'</b> <a href="javascript:catsbrowser()">'. |
&mt('Display Categories').'</a>', |
&mt('Display Categories').'</a>', |
|
'datelocale' |
|
=> '<b>'.&mt('Locale used for course calendar').'</b>', |
); |
); |
my @Display_Order = ('url','description','courseid','cloners'); |
my @Display_Order = ('url','description','courseid','cloners'); |
(my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom); |
(my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom); |
Line 2378 sub crsenv {
|
Line 2382 sub crsenv {
|
'allow_discussion_post_editing', |
'allow_discussion_post_editing', |
'languages', |
'languages', |
'timezone', |
'timezone', |
|
'datelocale', |
'nothideprivileged', |
'nothideprivileged', |
'rndseed', |
'rndseed', |
'receiptalg', |
'receiptalg', |
Line 2399 sub crsenv {
|
Line 2404 sub crsenv {
|
'disableexampointprint', |
'disableexampointprint', |
'task_messages','task_grading')); |
'task_messages','task_grading')); |
foreach my $parameter (sort(keys(%values))) { |
foreach my $parameter (sort(keys(%values))) { |
unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) { |
unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./) || |
|
($parameter =~ m/^selfenroll_/) || ($parameter =~ /_selfenroll$/) |
|
|| ($parameter eq 'type')) { |
if (! $descriptions{$parameter}) { |
if (! $descriptions{$parameter}) { |
$descriptions{$parameter}=$parameter; |
$descriptions{$parameter}=$parameter; |
push(@Display_Order,$parameter); |
push(@Display_Order,$parameter); |
Line 2429 sub crsenv {
|
Line 2436 sub crsenv {
|
&Apache::loncommon::select_timezone($parameter.'_value', |
&Apache::loncommon::select_timezone($parameter.'_value', |
$timezone, |
$timezone, |
$onchange,$includeempty).'</td>'; |
$onchange,$includeempty).'</td>'; |
|
} elsif ($parameter eq 'datelocale') { |
|
my $includeempty = 1; |
|
my $locale_obj = &Apache::lonlocal::getdatelocale(); |
|
my $currdatelocale; |
|
if (ref($locale_obj)) { |
|
$currdatelocale = $locale_obj->id(); |
|
} |
|
$output .= '<td>'. |
|
&Apache::loncommon::select_datelocale($parameter.'_value', |
|
$currdatelocale, |
|
$onchange,$includeempty).'</td>'; |
|
} elsif ($parameter eq 'categories') { |
|
my $catdisplay; |
|
if ($values{'categories'} ne '') { |
|
my @curritems = split(/\&/,$values{'categories'}); |
|
foreach my $item (@curritems) { |
|
my ($name,$parent,$pos) = split(/:/,$item); |
|
$catdisplay .= &unescape($name).'&'; |
|
} |
|
$catdisplay =~ s/\&$//; |
|
} |
|
$output .= '<td>'. |
|
'<input type="hidden" name="categories_value" value="'. |
|
$values{'categories'}.'" />'. |
|
'<input type="textbox" name="categories_display" value="'. |
|
$catdisplay.'" readonly="readonly" size="40" /></td>'; |
} else { |
} else { |
$output .= '<td>'. |
$output .= '<td>'. |
&Apache::lonhtmlcommon::textbox($parameter.'_value', |
&Apache::lonhtmlcommon::textbox($parameter.'_value', |
Line 2539 sub assign_course_categories {
|
Line 2572 sub assign_course_categories {
|
|
|
function updateCategories() { |
function updateCategories() { |
var newcategories = ''; |
var newcategories = ''; |
|
var unescapedcats = ''; |
if (document.chgcats.usecategory.length) { |
if (document.chgcats.usecategory.length) { |
for (var i=0; i<document.chgcats.usecategory.length; i++) { |
for (var i=0; i<document.chgcats.usecategory.length; i++) { |
if (document.chgcats.usecategory[i].checked == true) { |
if (document.chgcats.usecategory[i].checked == true) { |
newcategories = newcategories + document.chgcats.usecategory[i].value + '&'; |
newcategories = newcategories + document.chgcats.usecategory[i].value + '&'; |
|
unescapedcats = unescapedcats + document.chgcats.catname[i].value + ' & '; |
} |
} |
} |
} |
if (newcategories.length > 0) { |
if (newcategories.length > 0) { |
newcategories = newcategories.slice(0,-1); |
newcategories = newcategories.slice(0,-1); |
} |
} |
|
if (unescapedcats.length > 0) { |
|
unescapedcats = unescapedcats.slice(0,-3); |
|
} |
} else { |
} else { |
if (document.chgcats.usecategory.checked == true) { |
if (document.chgcats.usecategory.checked == true) { |
newcategories = document.chgcats.usecategory.value; |
newcategories = document.chgcats.usecategory.value; |
|
unescapedcats = document.chgcats.catname.value; |
} |
} |
} |
} |
opener.document.envform.categories_value.value = newcategories; |
opener.document.envform.categories_value.value = newcategories; |
|
opener.document.envform.categories_display.value = unescapedcats; |
opener.document.envform.categories_setparmval.checked = true; |
opener.document.envform.categories_setparmval.checked = true; |
alert("$alert"); |
alert("$alert"); |
self.close(); |
self.close(); |