version 1.11, 2009/11/21 18:07:03
|
version 1.12, 2009/11/23 21:45:18
|
Line 332 sub handler {
|
Line 332 sub handler {
|
\@prefs_order,\%prefs,\%values, |
\@prefs_order,\%prefs,\%values, |
$cnum,undef,\@allitems); |
$cnum,undef,\@allitems); |
} elsif ($phase eq 'display') { |
} elsif ($phase eq 'display') { |
my $jscript = &get_jscript($cdom,$phase); |
my $jscript = &get_jscript($cdom,$phase,$crstype); |
my @allitems = &get_allitems(%prefs); |
my @allitems = &get_allitems(%prefs); |
&Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context, |
&Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context, |
\@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype); |
\@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype); |
Line 1174 sub get_course {
|
Line 1174 sub get_course {
|
} |
} |
|
|
sub get_jscript { |
sub get_jscript { |
my ($cdom,$phase) = @_; |
my ($cdom,$phase,$crstype) = @_; |
my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom); |
my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype); |
my ($jscript,$categorize_js); |
my ($jscript,$categorize_js); |
my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript(); |
my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript(); |
my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset'); |
my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset'); |
Line 1294 sub print_courseinfo {
|
Line 1294 sub print_courseinfo {
|
if (ref($cathash) eq 'HASH') { |
if (ref($cathash) eq 'HASH') { |
$categoriesform = |
$categoriesform = |
&Apache::loncommon::assign_categories_table($cathash, |
&Apache::loncommon::assign_categories_table($cathash, |
$settings->{'categories'})."\n"; |
$settings->{'categories'},$crstype)."\n"; |
} |
} |
} |
} |
if (!defined($categoriesform)) { |
if (!defined($categoriesform)) { |
$categoriesform = &mt('No categories defined for this domain'); |
$categoriesform = &mt('No categories defined for this domain'); |
} |
} |
|
|
my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom); |
my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype); |
|
|
my $replace; |
my $replace; |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
Line 1507 sub new_cloners_dom_row {
|
Line 1507 sub new_cloners_dom_row {
|
} |
} |
|
|
sub can_modify_catsettings { |
sub can_modify_catsettings { |
my ($dom) = @_; |
my ($dom,$crstype) = @_; |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom); |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom); |
my ($can_toggle_cat,$can_categorize); |
my ($can_toggle_cat,$can_categorize); |
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') { |
if ($crstype eq 'Community') { |
$can_toggle_cat = 1; |
if ($domconf{'coursecategories'}{'togglecatscomm'} eq 'comm') { |
} |
$can_toggle_cat = 1; |
if ($domconf{'coursecategories'}{'categorize'} eq 'crs') { |
} |
$can_categorize = 1; |
if ($domconf{'coursecategories'}{'categorizecomm'} eq 'comm') { |
|
$can_categorize = 1; |
|
} |
|
} else { |
|
if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') { |
|
$can_toggle_cat = 1; |
|
} |
|
if ($domconf{'coursecategories'}{'categorize'} eq 'crs') { |
|
$can_categorize = 1; |
|
} |
} |
} |
} |
} |
return ($can_toggle_cat,$can_categorize); |
return ($can_toggle_cat,$can_categorize); |
Line 1531 sub assign_course_categories {
|
Line 1540 sub assign_course_categories {
|
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
$cathash = $domconf{'coursecategories'}{'cats'}; |
$cathash = $domconf{'coursecategories'}{'cats'}; |
if (ref($cathash) eq 'HASH') { |
if (ref($cathash) eq 'HASH') { |
$hascats = 1; |
foreach my $cat (keys(%{$cathash})) { |
|
next if ($cat eq 'instcode::0'); |
|
unless ($crstype eq 'Community') { |
|
next if ($cat eq 'communities::0'); |
|
} |
|
$hascats ++; |
|
} |
} |
} |
} |
} |
my $catwin_js; |
my $catwin_js; |
Line 1597 ENDSCRIPT
|
Line 1612 ENDSCRIPT
|
if ($hascats) { |
if ($hascats) { |
my %currsettings = |
my %currsettings = |
&Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum); |
&Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum); |
$categoriesform .= $assign.'<br /><br />'. |
my $cattable = &Apache::loncommon::assign_categories_table($cathash, |
'<form name="chgcats" action="/adm/courseprefs" method="post">'."\n". |
$currsettings{'categories'},$crstype); |
&Apache::loncommon::assign_categories_table($cathash, |
if ($cattable eq '') { |
$currsettings{'categories'})."\n". |
$categoriesform .= &mt('No suitable categories defined for this course type in this domain.'); |
'<br /><input type="button" name="changes" value="'. |
} else { |
&mt('Copy to main window').'" '. |
$categoriesform .= $assign.'<br /><br />'. |
'onclick="javascript:updateCategories()" /></form><br />'; |
'<form name="chgcats" action="/adm/courseprefs" method="post">'."\n". |
|
$cattable."\n". |
|
'<br /><input type="button" name="changes" value="'. |
|
&mt('Copy to main window').'" '. |
|
'onclick="javascript:updateCategories()" /></form><br />'; |
|
} |
} else { |
} else { |
$categoriesform .= &mt('No categories defined for this domain'); |
$categoriesform .= &mt('No categories defined in this domain.'); |
} |
} |
$r->print($start_page.$categoriesform.$end_page); |
$r->print($start_page.$categoriesform.$end_page); |
return; |
return; |