version 1.41, 2006/07/07 17:11:04
|
version 1.42, 2006/07/07 19:17:19
|
Line 1182 sub general_settings_form {
|
Line 1182 sub general_settings_form {
|
$toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons, |
$toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons, |
$rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype) = @_; |
$rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype) = @_; |
my ($nexttext,$prevtext); |
my ($nexttext,$prevtext); |
&groupsettings_options($r,$tabcol,$functions,$action,$formname,$stored,1, |
&groupsettings_options($r,$functions,$action,$formname,$stored,1, |
$gpterm,$ucgpterm,$crstype); |
$gpterm,$ucgpterm,$crstype); |
&access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm); |
&access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm); |
if ($action eq 'create') { |
if ($action eq 'create') { |
Line 1209 sub general_settings_form {
|
Line 1209 sub general_settings_form {
|
} |
} |
|
|
sub groupsettings_options { |
sub groupsettings_options { |
my ($r,$tabcol,$functions,$action,$formname,$stored,$image,$gpterm, |
my ($r,$functions,$action,$formname,$stored,$image,$gpterm, |
$ucgpterm,$crstype) = @_; |
$ucgpterm,$crstype) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'gdat' => "$ucgpterm open and close dates", |
'gdat' => "$ucgpterm open and close dates", |
Line 1225 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(' |
<table border="0" cellpadding="2" cellspacing="2"> |
<table class="LC_descriptive_input"> |
<tr> |
<tr> |
<td><b>'.$lt{'gnam'}.':</b></td> |
<td class="LC_description">'.$lt{'gnam'}.':</td> |
<td colspan="5"> |
<td colspan="5"> |
'); |
'); |
if ($action eq 'create') { |
if ($action eq 'create') { |
Line 1240 sub groupsettings_options {
|
Line 1240 sub groupsettings_options {
|
</td> |
</td> |
<tr> |
<tr> |
<tr> |
<tr> |
<td><b>$lt{'desc'}:</b></td> |
<td class="LC_description">$lt{'desc'}:</td> |
<td colspan="5"><input type="text" name="description" size="40" |
<td colspan="5"><input type="text" name="description" size="40" |
value="" /> |
value="" /> |
</td> |
</td> |
<tr> |
<tr> |
<tr> |
<tr> |
<td><b>$lt{'func'}:</b></td> |
<td class="LC_description">$lt{'func'}:</td> |
END |
END |
my $numitems = keys(%{$functions}); |
my $numitems = keys(%{$functions}); |
my $halfnum = int($numitems/2); |
my $halfnum = int($numitems/2); |
Line 1280 END
|
Line 1280 END
|
</td> |
</td> |
</tr> |
</tr> |
<tr> |
<tr> |
<td><b>'.&mt('Granularity:').'</b></td> |
<td class="LC_description">'.&mt('Granularity:').'</td> |
<td colspan="10">'.$lt{'doyo'}.' <label><input type="radio" name="granularity" value="Yes" />'.&mt('Yes').'</label> <label><input type="radio" name="granularity" value="No" checked="checked" />'.&mt('No').'</label>'); |
<td colspan="10">'.$lt{'doyo'}.' <label><input type="radio" name="granularity" value="Yes" />'.&mt('Yes').'</label> <label><input type="radio" name="granularity" value="No" checked="checked" />'.&mt('No').'</label>'); |
if ($action eq 'modify') { |
if ($action eq 'modify') { |
$r->print(' ('.&mt('Currently set to "[_1]"', |
$r->print(' ('.&mt('Currently set to "[_1]"', |
Line 1290 END
|
Line 1290 END
|
</td> |
</td> |
</tr> |
</tr> |
<tr> |
<tr> |
<td valign="top">'.&mt('<b>Disk quota:</b> ').'</td><td colspan="10">'); |
<td class="LC_description">'.&mt('Disk quota: ').'</td><td colspan="10">'); |
if ($action eq 'create') { |
if ($action eq 'create') { |
$r->print(&mt('If you enable the file repository for the [_1], allocate a disk quota.',$gpterm)); |
$r->print(&mt('If you enable the file repository for the [_1], allocate a disk quota.',$gpterm)); |
} else { |
} else { |
Line 1456 sub choose_members_form {
|
Line 1456 sub choose_members_form {
|
my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm, |
my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm, |
$ucgpterm,$crstype); |
$ucgpterm,$crstype); |
if ($earlyout) { |
if ($earlyout) { |
|
$r->print($earlyout) |
&display_navbuttons($r,$formname,$$states{$action}[$page-1], |
&display_navbuttons($r,$formname,$$states{$action}[$page-1], |
$$navbuttons{'gtps'}); |
$$navbuttons{'gtps'}); |
return; |
return; |
Line 1507 sub choose_members_form {
|
Line 1508 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('<div class="LC_navbuttons">'); |
if ($prev) { |
if ($prev) { |
$r->print(' |
$r->print(' |
<input type="button" name="previous" value = "'.$prevtext.'" |
<input type="button" name="previous" value = "'.$prevtext.'" |
Line 1518 sub display_navbuttons {
|
Line 1520 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('</div>'); |
} |
} |
|
|
sub check_tools { |
sub check_tools { |
Line 1558 sub print_current_settings {
|
Line 1561 sub print_current_settings {
|
} |
} |
if ($action eq 'create') { |
if ($action eq 'create') { |
$r->print(' |
$r->print(' |
<div><span>'.$lt{'ygrs'}.'</span> |
<div><span style="font-size: larger">'.$lt{'ygrs'}.'</span> |
<br />'.$lt{'tfwa'}.' |
<br />'.$lt{'tfwa'}.' |
</div>'); |
</div>'); |
} |
} |
Line 1670 sub pick_new_members {
|
Line 1673 sub pick_new_members {
|
&topic_bar($r,$img,$lt{'gpme'}); |
&topic_bar($r,$img,$lt{'gpme'}); |
if (keys(%members) > 0) { |
if (keys(%members) > 0) { |
$r->print(' |
$r->print(' |
<tr> |
|
<td> </td> |
|
<td colspan="3"> |
|
<table> |
<table> |
<tr>'); |
<tr>'); |
&check_uncheck_buttons($r,$formname,'member',$lt{'addm'}); |
&check_uncheck_buttons($r,$formname,'member',$lt{'addm'}); |
Line 1687 sub pick_new_members {
|
Line 1687 sub pick_new_members {
|
</fieldset></nobr></td>'); |
</fieldset></nobr></td>'); |
} |
} |
$r->print('</tr></table> |
$r->print('</tr></table> |
</td> |
|
</tr> |
|
<tr> |
|
<td colspan="4"> </td> |
|
</tr> |
|
<tr> |
|
<td> </td> |
|
<td colspan="3"> |
|
'); |
'); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(' |
$r->print(' |
<table border="0" cellpadding="4" cellspacing="1"> |
<table border="0" cellpadding="4" cellspacing="1"> |
<tr bgcolor="'.$tabcol.'" align="center"> |
<tr bgcolor="'.$tabcol.'" align="center"> |
Line 1779 sub pick_new_members {
|
Line 1771 sub pick_new_members {
|
} |
} |
} |
} |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print(' |
|
</td> |
|
</tr>'); |
|
} else { |
} else { |
$r->print(' |
|
<tr> |
|
<td> </td> |
|
<td colspan="3"> |
|
'); |
|
if ($totalusers > 0) { |
if ($totalusers > 0) { |
$r->print($lt{'nnew'}.'<br /><br />'.$lt{'yoma'}); |
$r->print($lt{'nnew'}.'<br /><br />'.$lt{'yoma'}); |
} else { |
} else { |
$r->print($lt{'nome'}); |
$r->print($lt{'nome'}); |
} |
} |
$r->print(' |
|
</td> |
|
</tr>'); |
|
} |
} |
return $newusers; |
return $newusers; |
} |
} |
Line 1897 sub privilege_specificity {
|
Line 1878 sub privilege_specificity {
|
} else { |
} else { |
$r->print($lt{'algm'}.'<br /><br />'); |
$r->print($lt{'algm'}.'<br /><br />'); |
} |
} |
&default_privileges($r,$action,$tabcol,$rowColor1,$rowColor2, |
&default_privileges($r,$action,$tools,$toolprivs,$fixedprivs, |
$tools,$toolprivs,$fixedprivs,$available); |
$available); |
} else { |
} else { |
if ($action eq 'create') { |
if ($action eq 'create') { |
$r->print($lt{'asyo'}); |
$r->print($lt{'asyo'}); |
Line 1922 sub privilege_specificity {
|
Line 1903 sub privilege_specificity {
|
} |
} |
|
|
sub default_privileges { |
sub default_privileges { |
my ($r,$action,$tabcol,$rowColor1,$rowColor2,$tools,$toolprivs, |
my ($r,$action,$tools,$toolprivs,$fixedprivs,$available) = @_; |
$fixedprivs,$available) = @_; |
|
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'addp' => 'Additional privileges', |
'addp' => 'Additional privileges', |
'fixp' => 'Fixed privileges', |
'fixp' => 'Fixed privileges', |
'oppr' => 'Optional privileges', |
'oppr' => 'Optional privileges', |
'func' => 'Function', |
'func' => 'Function', |
); |
); |
$r->print(&Apache::loncommon::start_data_table(). |
$r->print(&Apache::lonhtmlcommon::start_pick_box('LC_group_priv_box'). |
&Apache::loncommon::start_data_table_header_row()); |
&Apache::lonhtmlcommon::row_title($lt{'func'},undef, |
$r->print('<th>'.$lt{'func'}.'</th> |
'LC_groups_functionality')); |
</tr> |
$r->print(join('</td><td class="LC_groups_functionality">',@{$tools})); |
<tr> |
$r->print(&Apache::lonhtmlcommon::row_closure(1)); |
<td valign="top"><b>'.$lt{'fixp'}.'</b></td> |
my $fixed = ''; |
</tr> |
my $dynamic = ''; |
<tr> |
|
<td valign="top"><b>'.$lt{'oppr'}.'</b></td> |
|
</tr> |
|
</table> |
|
</td> |
|
'); |
|
foreach my $tool (@{$tools}) { |
foreach my $tool (@{$tools}) { |
$r->print('<td align="center" valign="top"> |
|
<table cellspacing="0" cellpadding="1"> |
|
<tr bgcolor="#cccccc"> |
|
<td colspan="2" align="center"><b>'.$tool.'</b></td> |
|
</tr> |
|
'); |
|
my $privcount = 0; |
my $privcount = 0; |
my $fixed = ''; |
if ($dynamic ne '') { |
my $dynamic = ''; |
$dynamic .= '</td><td class="LC_groups_optional">'; |
|
} |
|
$dynamic .= '<table class="LC_group_priv"><tr>'; |
foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { |
foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { |
if (exists($$fixedprivs{$tool}{$priv})) { |
if (exists($$fixedprivs{$tool}{$priv})) { |
|
if ($fixed ne '') { |
|
$fixed .= '</td><td class="LC_groups_fixed">'; |
|
} |
$fixed .= '<input type="hidden" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.' '; |
$fixed .= '<input type="hidden" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.' '; |
if ($action eq 'modify') { |
if ($action eq 'modify') { |
if (grep/^$tool$/,@{$available}) { |
if (grep(/^$tool$/,@{$available})) { |
$fixed .= '<small>'.&mt('(on)').'<small> '; |
$fixed .= '<small>'.&mt('(on)').'<small> '; |
} else { |
} else { |
$fixed .= '<small>'.&mt('(off)').'<small> '; |
$fixed .= '<small>'.&mt('(off)').'<small> '; |
} |
} |
} |
} |
} else { |
} else { |
$privcount ++; |
$privcount++; |
if ($privcount == 3) { |
if ($privcount == 3) { |
$dynamic .= '</tr> |
$dynamic .= '</tr> |
<tr bgcolor="'.$rowColor1.'">'."\n"; |
<tr>'."\n"; |
} |
} |
$dynamic .= '<td><label><input type="checkbox" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'</label></td>'."\n"; |
$dynamic .= '<td><label><input type="checkbox" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'</label></td>'."\n"; |
} |
} |
} |
} |
if ($dynamic eq '') { |
if ($privcount == 0) { |
$dynamic = '<td>None</td>'."\n"; |
$dynamic .= '<td>None</td>'."\n"; |
} |
} |
if ($privcount < 3) { |
if ($privcount < 3) { |
$dynamic .= '</tr> |
$dynamic .= '</td> |
<tr bgcolor="'.$rowColor1.'"> |
<td> </td>'."\n"; |
<td colspan="2"> </td>'."\n"; |
|
} elsif ($privcount%2) { |
} elsif ($privcount%2) { |
$dynamic = '<td> </td>'."\n"; |
$dynamic = '<td> </td>'."\n"; |
} |
} |
$r->print('<tr bgcolor="'.$rowColor2.'"> |
$dynamic .= '</tr></table>'; |
<td colspan="2" align="center"><nobr>'.$fixed.'</nobr></td> |
|
</tr> |
|
<tr bgcolor="'.$rowColor1.'">'."\n".$dynamic.'</tr>'."\n".'</table>'."\n".'</td> |
|
'); |
|
} |
} |
$r->print('</tr>'."\n"); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'fixp'},undef, |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
'LC_groups_fixed'). |
|
$fixed. |
|
&Apache::lonhtmlcommon::row_closure(1)); |
|
$r->print(&Apache::lonhtmlcommon::row_title($lt{'oppr'},undef, |
|
'LC_groups_optional'). |
|
$dynamic. |
|
&Apache::lonhtmlcommon::end_pick_box()); |
$r->print('<br />'); |
$r->print('<br />'); |
return; |
return; |
|
|
} |
} |
|
|
sub display_defprivs { |
sub display_defprivs { |
Line 3396 sub date_setting_table {
|
Line 3371 sub date_setting_table {
|
my $perpetual = |
my $perpetual = |
'<nobr><label><input type="checkbox" name="no_end_date" />'. |
'<nobr><label><input type="checkbox" name="no_end_date" />'. |
&mt('None').'</label></nobr>'; |
&mt('None').'</label></nobr>'; |
my $table = "<table>\n". |
my $table = "<table class=\"LC_descriptive_input\">\n". |
'<tr><td align="right">'.&mt('Start:').'</td>'. |
'<tr><td class="LC_description">'.&mt('Start:').'</td>'. |
'<td>'.$startform.'</td>'. |
'<td>'.$startform.'</td>'. |
'<td> </td>'."</tr>\n". |
'<td> </td>'."</tr>\n". |
'<tr><td align="right">'.&mt('End:').'</td>'. |
'<tr><td class="LC_description">'.&mt('End:').'</td>'. |
'<td>'.$endform.'</td>'. |
'<td>'.$endform.'</td>'. |
'<td>'.$perpetual.'</td>'."</tr>\n". |
'<td>'.$perpetual.'</td>'."</tr>\n". |
"</table>\n"; |
"</table>\n"; |
Line 3635 sub validate_groupname {
|
Line 3610 sub validate_groupname {
|
"existing $gpterm", |
"existing $gpterm", |
); |
); |
|
|
my $exitmsg = '<b>'.$lt{'igna'}.'</b><br /><br />'.$lt{'tgne'}.' "'. |
my $exitmsg = '<span class="LC_error">'.$lt{'igna'}.'</span><br /><br />'. |
$groupname.'" '; |
$lt{'tgne'}.' "'.$groupname.'" '; |
my $dupmsg = $lt{'grna'}; |
my $dupmsg = $lt{'grna'}; |
my $earlyout; |
my $earlyout; |
if (($groupname eq '') || ($groupname =~ /\W/)) { |
if (($groupname eq '') || ($groupname =~ /\W/)) { |