version 1.40, 2006/07/07 16:48:21
|
version 1.41, 2006/07/07 17:11:04
|
Line 1184 sub general_settings_form {
|
Line 1184 sub general_settings_form {
|
my ($nexttext,$prevtext); |
my ($nexttext,$prevtext); |
&groupsettings_options($r,$tabcol,$functions,$action,$formname,$stored,1, |
&groupsettings_options($r,$tabcol,$functions,$action,$formname,$stored,1, |
$gpterm,$ucgpterm,$crstype); |
$gpterm,$ucgpterm,$crstype); |
&access_date_settings($r,$tabcol,$action,$formname,$stored,2,$gpterm, |
&access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm); |
$ucgpterm); |
|
if ($action eq 'create') { |
if ($action eq 'create') { |
&membership_options($r,$action,$formname,$sectioncount,3,$gpterm, |
&membership_options($r,$action,$formname,$sectioncount,3,$gpterm, |
$ucgpterm); |
$ucgpterm); |
Line 1226 sub groupsettings_options {
|
Line 1225 sub groupsettings_options {
|
my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored); |
my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored); |
&topic_bar($r,$image,$lt{'gnde'}); |
&topic_bar($r,$image,$lt{'gnde'}); |
$r->print(' |
$r->print(' |
<tr> |
|
<td> </td> |
|
<td colspan="3"> |
|
<table border="0" cellpadding="2" cellspacing="2"> |
<table border="0" cellpadding="2" cellspacing="2"> |
<tr> |
<tr> |
<td><b>'.$lt{'gnam'}.':</b></td> |
<td><b>'.$lt{'gnam'}.':</b></td> |
Line 1318 END
|
Line 1314 END
|
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
</td> |
|
</tr> |
|
'); |
'); |
return; |
return; |
} |
} |
Line 1428 sub sections_selection {
|
Line 1422 sub sections_selection {
|
} |
} |
|
|
sub access_date_settings { |
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( |
my %lt = &Apache::lonlocal::texthash( |
'sten' => "Default start and end dates for $gpterm access", |
'sten' => "Default start and end dates for $gpterm access", |
); |
); |
Line 1440 sub access_date_settings {
|
Line 1434 sub access_date_settings {
|
$endtime = $$stored{'enddate'}; |
$endtime = $$stored{'enddate'}; |
} |
} |
} |
} |
my ($start_table,$end_table) = &date_setting_table |
my ($table) = &date_setting_table($starttime,$endtime,$formname); |
($starttime,$endtime,$formname); |
|
&topic_bar($r,$image,$lt{'sten'}); |
&topic_bar($r,$image,$lt{'sten'}); |
$r->print(' |
$r->print(' |
<tr> |
'.$table.' |
<td> </td> |
'); |
<td colspan="3">'.$start_table.'</td> |
|
<tr> |
|
<tr> |
|
<td colspan="4"> </td> |
|
</tr> |
|
<tr> |
|
<td> </td> |
|
<td colspan="3">'.$end_table.'</td> |
|
<tr>'); |
|
return; |
return; |
} |
} |
|
|
Line 1523 sub choose_members_form {
|
Line 1507 sub choose_members_form {
|
|
|
sub display_navbuttons { |
sub display_navbuttons { |
my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_; |
my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_; |
$r->print(' |
|
<tr> |
|
<td colspan="4"> </td> |
|
</tr> |
|
<tr> |
|
<td> </td> |
|
<td colspan="3">'); |
|
if ($prev) { |
if ($prev) { |
$r->print(' |
$r->print(' |
<input type="button" name="previous" value = "'.$prevtext.'" |
<input type="button" name="previous" value = "'.$prevtext.'" |
Line 1541 sub display_navbuttons {
|
Line 1518 sub display_navbuttons {
|
<input type="button" name="next" value="'.$nexttext.'" |
<input type="button" name="next" value="'.$nexttext.'" |
onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />'); |
onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />'); |
} |
} |
$r->print(' |
|
</td> |
|
</tr> |
|
'); |
|
} |
} |
|
|
sub check_tools { |
sub check_tools { |
Line 1957 sub default_privileges {
|
Line 1930 sub default_privileges {
|
'oppr' => 'Optional privileges', |
'oppr' => 'Optional privileges', |
'func' => 'Function', |
'func' => 'Function', |
); |
); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
$r->print(&Apache::loncommon::start_data_table(). |
$r->print('<tr> |
&Apache::loncommon::start_data_table_header_row()); |
<td bgcolor="'.$tabcol.'" valign="top"> |
$r->print('<th>'.$lt{'func'}.'</th> |
<table cellspacing="0" cellpadding="1"> |
|
<tr> |
|
<td valign="top"><b>'.$lt{'func'}.'</b></td> |
|
</tr> |
</tr> |
<tr> |
<tr> |
<td valign="top"><b>'.$lt{'fixp'}.'</b></td> |
<td valign="top"><b>'.$lt{'fixp'}.'</b></td> |
Line 3423 sub date_setting_table {
|
Line 3393 sub date_setting_table {
|
'startdate',$starttime); |
'startdate',$starttime); |
my $endform = &Apache::lonhtmlcommon::date_setter($formname, |
my $endform = &Apache::lonhtmlcommon::date_setter($formname, |
'enddate',$endtime); |
'enddate',$endtime); |
my $perpetual = '<nobr><label><input type="checkbox" name="no_end_date" /> |
my $perpetual = |
no ending date</label></nobr>'; |
'<nobr><label><input type="checkbox" name="no_end_date" />'. |
my $start_table = ''; |
&mt('None').'</label></nobr>'; |
$start_table .= "<table>\n"; |
my $table = "<table>\n". |
$start_table .= '<tr><td align="right">Default starting date for |
'<tr><td align="right">'.&mt('Start:').'</td>'. |
member access</td>'. |
|
'<td>'.$startform.'</td>'. |
'<td>'.$startform.'</td>'. |
'<td> </td>'."</tr>\n"; |
'<td> </td>'."</tr>\n". |
$start_table .= "</table>"; |
'<tr><td align="right">'.&mt('End:').'</td>'. |
my $end_table = ''; |
|
$end_table .= "<table>\n"; |
|
$end_table .= '<tr><td align="right">Default ending date for |
|
member access</td>'. |
|
'<td>'.$endform.'</td>'. |
'<td>'.$endform.'</td>'. |
'<td>'.$perpetual.'</td>'."</tr>\n"; |
'<td>'.$perpetual.'</td>'."</tr>\n". |
$end_table .= "</table>\n"; |
"</table>\n"; |
return ($start_table, $end_table); |
return $table; |
} |
} |
|
|
sub add_group_folder { |
sub add_group_folder { |