--- loncom/interface/loncoursegroups.pm 2006/07/07 16:48:21 1.40
+++ loncom/interface/loncoursegroups.pm 2006/07/07 17:11:04 1.41
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncoursegroups.pm,v 1.40 2006/07/07 16:48:21 albertel Exp $
+# $Id: loncoursegroups.pm,v 1.41 2006/07/07 17:11:04 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1184,8 +1184,7 @@ sub general_settings_form {
my ($nexttext,$prevtext);
&groupsettings_options($r,$tabcol,$functions,$action,$formname,$stored,1,
$gpterm,$ucgpterm,$crstype);
- &access_date_settings($r,$tabcol,$action,$formname,$stored,2,$gpterm,
- $ucgpterm);
+ &access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm);
if ($action eq 'create') {
&membership_options($r,$action,$formname,$sectioncount,3,$gpterm,
$ucgpterm);
@@ -1226,9 +1225,6 @@ sub groupsettings_options {
my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored);
&topic_bar($r,$image,$lt{'gnde'});
$r->print('
-
- |
-
'.$lt{'gnam'}.': |
@@ -1318,8 +1314,6 @@ END
- |
-
');
return;
}
@@ -1428,7 +1422,7 @@ sub sections_selection {
}
sub access_date_settings {
- my ($r,$tabcol,$action,$formname,$stored,$image,$gpterm,$ucgpterm) = @_;
+ my ($r,$action,$formname,$stored,$image,$gpterm,$ucgpterm) = @_;
my %lt = &Apache::lonlocal::texthash(
'sten' => "Default start and end dates for $gpterm access",
);
@@ -1440,21 +1434,11 @@ sub access_date_settings {
$endtime = $$stored{'enddate'};
}
}
- my ($start_table,$end_table) = &date_setting_table
- ($starttime,$endtime,$formname);
+ my ($table) = &date_setting_table($starttime,$endtime,$formname);
&topic_bar($r,$image,$lt{'sten'});
$r->print('
-
- |
- '.$start_table.' |
-
-
- |
-
-
- |
- '.$end_table.' |
-
');
+ '.$table.'
+ ');
return;
}
@@ -1523,13 +1507,6 @@ sub choose_members_form {
sub display_navbuttons {
my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_;
- $r->print('
-
- |
-
-
- |
- ');
if ($prev) {
$r->print('
');
}
- $r->print('
- |
-
-');
}
sub check_tools {
@@ -1957,12 +1930,9 @@ sub default_privileges {
'oppr' => 'Optional privileges',
'func' => 'Function',
);
- $r->print(&Apache::lonhtmlcommon::start_pick_box());
- $r->print('
-
- |