--- loncom/interface/loncoursegroups.pm 2006/07/07 15:54:15 1.39
+++ loncom/interface/loncoursegroups.pm 2006/07/07 16:48:21 1.40
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncoursegroups.pm,v 1.39 2006/07/07 15:54:15 albertel Exp $
+# $Id: loncoursegroups.pm,v 1.40 2006/07/07 16:48:21 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1182,24 +1182,13 @@ sub general_settings_form {
$toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons,
$rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype) = @_;
my ($nexttext,$prevtext);
- $r->print('
-
- | |||
- | |||
- |
'.$lt{'acty'}.' | -- | '.$lt{'coro'}.' | '); +'.$lt{'acty'}.' | +'.$lt{'coro'}.' | '); if (@sections >0) { $r->print(' -- | '.$lt{'cose'}.' | -'); + | '.$lt{'cose'}.' | '); } - $r->print('
---|---|---|---|---|---|---|---|---|
'); $r->print(&Apache::lonhtmlcommon::status_select_row(\%status_types)); - $r->print(' | '); + $r->print(' | '); $r->print(&Apache::lonhtmlcommon::role_select_row(\@roles)); if (@sections > 0) { @sections = sort {$a cmp $b} @sections; unshift(@sections,'none'); # Put 'no sections' next unshift(@sections,'all'); # Put 'all' at the front of the list - $r->print(' | - | '. + $r->print(' | '. §ions_selection(\@sections,'sectionpick').' | '); } $r->print('
- | -'); if ($earlyout) { - $r->print($earlyout.' |
'.$lt{'ygrs'}.'
+ '.$lt{'ygrs'}.'
'.$lt{'tfwa'}.' - |
-||||||||||||||||||||||||||||||||||||||||||
'); - $r->print(&Apache::lonhtmlcommon::start_pick_box()); + $r->print(&Apache::loncommon::start_data_table('LC_course_group_status'). + &Apache::loncommon::start_data_table_header_row()); $r->print(' - | ||||||||||||||||||||||||||||||||||||||||||
-
'); + $r->print(&Apache::loncommon::end_data_table_row(). + &Apache::loncommon::end_data_table()); return; } @@ -1741,7 +1694,7 @@ sub pick_new_members { $r->print(&check_uncheck_tools($r,$available)); } } - &topic_bar($r,$tabcol,$img,$lt{'gpme'}); + &topic_bar($r,$img,$lt{'gpme'}); if (keys(%members) > 0) { $r->print(' | ||||||||||||||||||||||||||||||||||||||||||
- |
- ');
+ &topic_bar($r,$img,$lt{'uprv'});
if ((($action eq 'create') && (@{$available} > 0)) ||
(($action eq 'modify') && ($formname eq 'change_settings'))) {
my %specific = (
@@ -1948,21 +1896,14 @@ sub privilege_specificity {
}
if ($totaloptionalprivs) {
$r->print('
- - - |
- |||||||||||||||||||||||||||||||||||||||||
- | ||||||||||||||||||||||||||||||||||||||||||
- | '.$lt{'plin'});
+ $r->print($lt{'plin'});
if ($action eq 'create') {
$r->print(' '.$lt{'thwi'});
}
@@ -1973,24 +1914,15 @@ sub privilege_specificity {
$r->print('('.&mt('if enabled below').').');
}
$r->print(' - |
- |||||||||||||||||||||||||||||||||||||||||
- | |
- |
-
| '); } else { - $r->print(' | '.$lt{'algm'}.' |
- '); + $r->print($lt{'algm'}.' '); } &default_privileges($r,$action,$tabcol,$rowColor1,$rowColor2, $tools,$toolprivs,$fixedprivs,$available); @@ -2013,10 +1945,6 @@ sub privilege_specificity { $toolprivs,\@defprivs); } } - $r->print(' -
|