'.$previous.' -previous
'.$future.' -future'; } return 'ok'; } sub general_settings_form { my ($r,$cdom,$cnum,$action,$tabcol,$formname,$page,$functions,$tools, $toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons, $rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype) = @_; my ($nexttext,$prevtext); &groupsettings_options($r,$functions,$action,$formname,$stored,1, $gpterm,$ucgpterm,$crstype); &access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm); if ($action eq 'create') { &membership_options($r,$action,$formname,$sectioncount,3,$gpterm, $ucgpterm); $nexttext = $$navbuttons{'gtns'}; } else { my @available = (); my @unavailable = (); &check_tools($functions,$tools,\@available,\@unavailable); @{$tools} = sort(keys(%{$functions})); &privilege_specificity($r,$tabcol,$rowColor1,$rowColor2,$action, 3,$tools,$stored,$toolprivs,$fixedprivs, \@available,$formname,$gpterm,$ucgpterm); &mapping_options($r,$action,$formname,$page,$tabcol,$sectioncount, $states,$stored,$navbuttons,4,5,$rowColor1, $rowColor2,$gpterm,$ucgpterm,$crstype); $nexttext = $$navbuttons{'mose'}; } $prevtext = $$navbuttons{'gtpp'}; &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext, $$states{$action}[$page+1],$nexttext); return; } sub groupsettings_options { my ($r,$functions,$action,$formname,$stored,$image,$gpterm, $ucgpterm,$crstype) = @_; my %lt = &Apache::lonlocal::texthash( 'gdat' => "$ucgpterm open and close dates", 'sten' => "Set a start date/time and end date/time for the $gpterm", 'gfun' => "$ucgpterm functionality", 'gnde' => "$ucgpterm name, description and available functionality", 'desc' => 'Description', 'func' => 'Functionality', 'gnam' => "$ucgpterm Name", 'doyo' => "Do you want to assign different functionality ". "to different $gpterm members?", ); my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored); &topic_bar($r,$image,$lt{'gnde'}); $r->print('
| '.$lt{'gnam'}.': | '); if ($action eq 'create') { $r->print(''); } else { $r->print(''.$env{'form.groupname'}); } $r->print(<<"END"); | |||||||||
| $lt{'desc'}: | ||||||||||
| $lt{'func'}: | END my $numitems = keys(%{$functions}); my $halfnum = int($numitems/2); my $remnum = $numitems%2; if ($remnum) { $halfnum ++; } my @allfunctions = sort(keys (%{$functions})); for (my $i=0; $i<$halfnum; $i++) { $r->print(''); } $r->print(' | '. ' | ||||||||
| '); for (my $j=$halfnum; $j<@allfunctions; $j++) { $r->print(' | '); } if ($remnum) { $r->print(' | '); } $r->print(' | ||||||||
| '.&mt('Granularity:').' | '.$lt{'doyo'}.' '); if ($action eq 'modify') { $r->print(' ('.&mt('Currently set to "[_1]"', $$stored{'granularity'}).')'); } $r->print(' | |||||||||
| '.&mt('Disk quota: ').' | ');
if ($action eq 'create') {
$r->print(&mt('If you enable the file repository for the [_1], allocate a disk quota.',$gpterm));
} else {
$r->print(&mt('Quota allocated to file repository:'));
}
$r->print(' Mb');
if ($action eq 'create') {
$r->print(' '. &mt('A total of [_1] Mb is shared between all [_2]s in the '. '[_3], and [_4] Mb are currently unallocated.',$crsquota, $gpterm,lc($crstype),$freespace)); } else { $r->print(' ('.&mt('The quota is currently [_1] Mb', $$stored{'quota'}).').'); $r->print(' '.&mt('The quota can be increased to [_1] Mb, '. 'by adding all unallocated space for [_2]s in the [_3].', $maxposs,$gpterm,lc($crstype))); } $r->print(' |
|||||||||
'.$lt{'picr'}); if ($action eq 'create') { $r->print($lt{'meof'}.'
'.$lt{'ifno'}.'
'.$lt{'asub'}); } else { $r->print($lt{'admg'}); } $r->print('
| '.$lt{'acty'}.' | '.$lt{'coro'}.' | '); if (@sections >0) { $r->print(''.$lt{'cose'}.' | '); } $r->print('
|---|---|---|
| '); $r->print(&Apache::lonhtmlcommon::status_select_row(\%status_types)); $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(' | '. §ions_selection(\@sections,'sectionpick').' | '); } $r->print('
for different members:', stda => 'Start date', enda => 'End date:', ); my $showstart = &Apache::lonlocal::locallocaltime($startdate); my $showend; if ($enddate == 0) { $showend = &mt('No end date set'); } else { $showend = &Apache::lonlocal::locallocaltime($enddate); } if ($action eq 'create') { $r->print('
'.$lt{'ygrs'}.'
'.$lt{'tfwa'}.'
');
}
$r->print(&Apache::loncommon::start_data_table('LC_course_group_status').
&Apache::loncommon::start_data_table_header_row());
$r->print('
'.$lt{'tfwa'}.'
| '.$$functions{$$available[$i]}. ' | '); } if ((@{$available} > 3) && (@{$available}%2)) { $r->print(' | '); } $r->print(' |
'); } if (@{$unavailable} > 0) { $r->print('Unavailable:
| '.$$functions{$$unavailable[$j]}. ' | '); } if ((@{$unavailable} > 3) && (@{$unavailable}%2)) { $r->print(' | '); } $r->print(' |
$lt{'enda'} $showend
| '.&mt('Add?').' | '.&mt('Name').' | '.&mt('Username').' | '.&mt('Domain').' | ID | Section | '); if (@{$available} > 0) { $r->print(''.$lt{'func'}.' | '); } $r->print('||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| '. $fullname.' | '.$uname.' | '. $udom.' | '.$id.' | '. ''.$section.' | '); if (@{$available} > 0) { $r->print('||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
'); } else { $r->print($lt{'algm'}.'
'); } &default_privileges($r,$action,$tools,$toolprivs,$fixedprivs, $available); } else { if ($action eq 'create') { $r->print($lt{'asyo'}); } elsif ($action eq 'modify' && $formname eq 'pick_members') { my @defprivs; if (ref($$stored{'defpriv'}) eq 'ARRAY') { @defprivs = @{$$stored{'defpriv'}}; } $r->print($lt{'eaty'}.' '.$lt{cutg}); if ($$stored{'specificity'} eq 'Yes') { $r->print($lt{'sdif'}); } else { $r->print($lt{'sall'}); } $r->print(' '.$lt{'defp'}.'
'); &display_defprivs($r,$tabcol,$rowColor1,$rowColor2,$tools, $toolprivs,\@defprivs); } } return; } sub default_privileges { my ($r,$action,$tools,$toolprivs,$fixedprivs,$available) = @_; my %lt = &Apache::lonlocal::texthash( 'addp' => 'Additional privileges', 'fixp' => 'Fixed privileges', 'oppr' => 'Optional privileges', 'func' => 'Function', ); $r->print(&Apache::lonhtmlcommon::start_pick_box('LC_group_priv_box'). &Apache::lonhtmlcommon::row_title($lt{'func'},undef, 'LC_groups_functionality')); $r->print(join('
| '; } $fixed .= ''.$$toolprivs{$tool}{$priv}.' '; if ($action eq 'modify') { if (grep(/^$tool$/,@{$available})) { $fixed .= ''.&mt('(on)').' '; } else { $fixed .= ''.&mt('(off)').' '; } } } else { $privcount++; if ($privcount == 3) { $dynamic .= ' | |||
| '."\n"; } } if ($privcount == 0) { $dynamic .= ' | None | '."\n"; } if ($privcount < 3) { $dynamic .= ''."\n"; } elsif ($privcount%2) { $dynamic = ' | '."\n"; } $dynamic .= ' |
'); return; } sub display_defprivs { my ($r,$tabcol,$rowColor1,$rowColor2,$tools,$toolprivs,$defprivs) = @_; my %lt = &Apache::lonlocal::texthash( 'priv' => 'Privileges', 'func' => 'Function', ); $r->print(&Apache::lonhtmlcommon::start_pick_box()); $r->print('
| '.$tool.' | ||
| '.$$toolprivs{$tool}{$priv}.' | '."\n"); } if ($privcount%3 > 0) { my $emptycells = 3-($privcount%3); while($emptycells > 0) { $r->print(''."\n"); $emptycells --; } } while ($rownum < $numrows) { $rownum ++; my $bgcol = $rownum%2; $r->print(' | |
'); return; } sub change_members_form { my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$groupname,$description, $startdate,$enddate,$tools,$fixedprivs,$functions,$users,$userdata, $granularity,$quota,$specificity,$idx,$states,$navbuttons,$rowColor1, $rowColor2,$gpterm,$ucgpterm) = @_; my %lt = &Apache::lonlocal::texthash( grse => "$ucgpterm settings", mogm => "Modify $gpterm membership", ); my @regexps = ('user_','userpriv_'); $r->print(&Apache::lonhtmlcommon::echo_form_input( ['origin','action','state','page','expire','deletion', 'reenable','activate','changepriv','sortby', 'togglefunc'],\@regexps)); my $rowimg = 1; my @available = (); my @unavailable = (); &check_tools($functions,$tools,\@available,\@unavailable); my $nexttext = $$navbuttons{'gtns'}; my $prevtext = $$navbuttons{'gtpp'}; $r->print('
| '); &print_current_settings($r,$action,$functions,$startdate,$enddate, $groupname,$description,$granularity,$quota, \@available,\@unavailable,$gpterm,$ucgpterm); $r->print(' | |||
| '); ¤t_membership($r,$cdom,$cnum,$formname,$tabcol,$rowColor1, $rowColor2,$groupname,\@available,\@unavailable, $fixedprivs,$granularity,$specificity); $r->print(' | '); &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext, $$states{$action}[$page+1],$nexttext); $r->print('|||
|
|
');
}
}
$r->print(<<"END");
| $lt{'actn'} | $lt{'name'} | $lt{'usnm'} | $lt{'doma'} | ID | $lt{'stda'} | $lt{'enda'} | END my $colspan = 0; if ($hastools) { $r->print(''.$lt{'curf'}.' | '); $colspan ++; } if ($addtools) { $r->print('Additional Functionality | '); $colspan ++; } $r->print('|||||||||||||||
| ');
if ($$current{$user}{changestate} eq 'reenable') {
$r->print(' '); } elsif ($$current{$user}{changestate} eq 'expire') { $r->print(' '); } elsif ($$current{$user}{changestate} eq 'activate') { $r->print(' '); } $r->print(' |
'. $fullname.' | '.$uname.' | '. $udom.' | '.$id.' | '.$start. ' | '.$end.' | '); if ($hastools) { $r->print('');
if ($granularity eq 'Yes') {
foreach my $tool (@{$$current{$user}{newtools}}) {
$r->print(' | ');
}
$r->print('
|
');
}
sub change_privs_form {
my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$startdate,$enddate,
$tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,
$memchg,$idx,$states,$stored,$sectioncount,$navbuttons,$rowColor1,
$rowColor2,$gpterm,$ucgpterm) = @_;
my @regexps = ('userpriv_');
my $nexttext;
my %lt = &Apache::lonlocal::texthash(
'tode' => 'To be deleted',
'toex' => 'To be expired',
'nome' => "No members to be deleted or expired from the $gpterm.",
);
$r->print(&Apache::lonhtmlcommon::echo_form_input(
['origin','action','state','page','sortby'],\@regexps));
if ($env{'form.branch'} eq 'adds') {
$nexttext = $$navbuttons{'adme'};
} else {
$nexttext = $$navbuttons{'mose'};
}
$r->print('|||||||||||||||
'.$lt{'tode'}.':
| |||
'.$lt{'toex'}.':
| |||
| '.$lt{'nome'}. ' | |||
'); my @available = (); my @unavailable = (); &check_tools($functions,$tools,\@available,\@unavailable); &print_current_settings($r,$action,$functions,$startdate,$enddate, $groupname,$description,$granularity,$quota, \@available,\@unavailable,$gpterm,$ucgpterm); &membership_options($r,$action,$formname,$sectioncount,1,$gpterm,$ucgpterm); my $nexttext = $$navbuttons{'gtns'}; my $prevtext = $$navbuttons{'gtpp'}; &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext, $$states{$action}[$page+1],$nexttext); return; } sub choose_privs_form { my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$startdate,$enddate, $tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,$idx, $states,$stored,$sectioncount,$navbuttons,$rowColor1,$rowColor2, $gpterm,$ucgpterm,$crstype) = @_; my @regexps = ('userpriv_'); my $nexttext; if ($action eq 'create') { push(@regexps,'sec_'); $r->print(&Apache::lonhtmlcommon::echo_form_input( ['origin','action','state','page','sortby','autoadd','autodrop'], \@regexps)); $nexttext = $$navbuttons{'crgr'}; } else { $r->print(&Apache::lonhtmlcommon::echo_form_input( ['origin','action','state','page','sortby'],\@regexps)); $nexttext = $$navbuttons{'adme'}; } $r->print('
');
$r->print('
| '); } } $r->print(' |
'); &display_defprivs($r,$tabcol,$rowColor1,$rowColor2,$tools, $toolprivs,\@defprivs); } } else { if (keys(%{$usertools}) > 0) { $r->print('
'); &display_defprivs($r,$tabcol,$rowColor1,$rowColor2,$tools, $toolprivs,\@defprivs); } else { $r->print('
'); } } } else { $r->print('
| '.$earlyout.' | |||
',$gpterm)); } if ($quota > $maxposs) { $quota = $maxposs; $r->print(&mt('The value you entered for the quota for the file repository in this [_1] exceeded the maximum possible value, so it has been set to [_2] Mb (the maximum possible value).
',$gpterm,$maxposs)); } my %groupinfo = ( description => $esc_description, startdate => $startdate, enddate => $enddate, creation => $creation, modified => $now, creator => $creator, granularity => $env{'form.granularity'}, specificity => $specificity, autoadd => $env{'form.autoadd'}, autodrop => $env{'form.autodrop'}, quota => $quota, ); foreach my $func (keys(%{$functions})) { my $status; if (grep(/^$func$/,@{$tools})) { $status = 'on'; } else { $status = 'off'; } $groupinfo{'functions'} .= qq|
',$gpterm,$result)); } $r->print(&mt('[_1] [_2] was created.
',$ucgpterm,$groupname)); } else { $r->print(&mt('[_1] [_2] was updated.
',$ucgpterm,$groupname)); } } else { my %actiontype = ( 'create' => 'creating', 'modify' => 'modifying', ); &Apache::lonnet::logthis("Failed to store $gpterm $groupname ". 'in '.lc($crstype).': '.$cnum. ' in domain: '.$cdom); $r->print(&mt('An error occurred when [_1] the [_2]. '. 'Please try again.',$actiontype{$action},$gpterm)); } return $result; } sub process_membership { my ($r,$cdom,$cnum,$action,$state,$groupname,$tools,$enddate,$startdate, $userdata,$idx,$toolprivs,$usertools,$specificity,$defprivs,$memchg, $gpterm,$ucgpterm)=@_; my %usersettings = (); my %added= (); my %failed = (); my $num_ok = 0; my $num_fail = 0; my %group_privs = (); my %curr_privs = (); my %curr_start = (); my %curr_end = (); my %tooltype = (); foreach my $tool (@{$tools}) { foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { $tooltype{$priv} = $tool; if ($specificity eq 'Yes') { my @users = &Apache::loncommon::get_env_multiple('form.userpriv_'.$priv); foreach my $user (@users) { $group_privs{$user} .= $priv.':'; if ($state eq 'memresult') { unless (exists($$usertools{$user}{$tool})) { $$usertools{$user}{$tool} = 1; } } } } else { if (@{$defprivs} > 0) { if (grep/^\Q$priv\E$/,@{$defprivs}) { foreach my $user (sort(keys(%{$usertools}))) { if ($$usertools{$user}{$tool}) { $group_privs{$user} .= $priv.':'; } } } } } } } foreach my $user (keys(%group_privs)) { $group_privs{$user} =~ s/:$//; } my $now = time; my @activate = (); my @expire = (); my @deletion = (); my @reenable = (); my @unchanged = (); if ($state eq 'memresult') { if (ref($$memchg{'activate'}) eq 'ARRAY') { @activate = @{$$memchg{'activate'}}; } if (ref($$memchg{'expire'}) eq 'ARRAY') { @expire = @{$$memchg{'expire'}}; } if (ref($$memchg{'deletion'}) eq 'ARRAY') { @deletion = @{$$memchg{'deletion'}}; } if (ref($$memchg{'reenable'}) eq 'ARRAY') { @reenable = @{$$memchg{'reenable'}}; } my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum, $groupname); foreach my $key (sort(keys(%membership))) { if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) { ($curr_end{$1},$curr_start{$1},$curr_privs{$1}) = split(/:/,$membership{$key},3); } } if (@expire + @deletion > 0) { foreach my $user (@expire) { my $savestart = $curr_start{$user}; if ($savestart > $now) { $savestart = $now; } $usersettings{$groupname.':'.$user} = $now.':'.$savestart.':'. $curr_privs{$user}; if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname, $user,$now,$savestart, $curr_privs{$user}) eq 'ok') { push(@{$added{'expired'}},$user); $num_ok ++; } else { push(@{$failed{'expired'}},$user); $num_fail ++; } } foreach my $user (@deletion) { $usersettings{$groupname.':'.$user} = $now.':-1:'; if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname, $user,$now,'-1','') eq 'ok') { push(@{$added{'deleted'}},$user); $num_ok ++; } else { push(@{$failed{'deleted'}},$user); $num_fail ++; } } } } foreach my $user (sort(keys(%{$usertools}))) { if ((grep(/^$user$/,@expire)) || (grep(/^$user$/,@deletion))) { next; } my $type; my $start = $startdate; my $end = $enddate; if ($state eq 'memresult') { if (@activate > 0) { if (grep/^$user$/,@activate) { $start = $now; $end = $enddate; $type = 'activated'; } } if (@reenable > 0) { if (grep/^$user$/,@reenable) { $start = $startdate; $end = $enddate; $type = 'reenabled'; } } if ($type eq '') { if ($curr_privs{$user} eq $group_privs{$user}) { push(@unchanged,$user); next; } if (exists($curr_start{$user})) { $start = $curr_start{$user}; } if (exists($curr_end{$user})) { $end = $curr_end{$user}; } $type = 'modified'; } } else { $type = 'added'; } $usersettings{$groupname.':'.$user} = $end.':'.$start.':'. $group_privs{$user}; if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname, $user,$end,$start, $group_privs{$user}) eq 'ok') { push(@{$added{$type}},$user); $num_ok ++; } else { push(@{$failed{$type}},$user); $num_fail ++; } } my $roster_result = &Apache::lonnet::modify_coursegroup_membership($cdom, $cnum,\%usersettings); if ($num_ok) { foreach my $type (sort(keys(%added))) { $r->print(&mt('The following users were successfully [_1]',$type)); if (!($type eq 'deleted' || $type eq 'expired')) { $r->print(&mt(' with the following privileges')); } $r->print(':
'); foreach my $user (@{$added{$type}}) { my $privlist = ''; if (!($type eq 'deleted' || $type eq 'expired')) { $privlist = ': '; my @privs = split(/:/,$group_privs{$user}); my $curr_tool = ''; foreach my $priv (@privs) { unless ($curr_tool eq $tooltype{$priv}) { $curr_tool = $tooltype{$priv}; $privlist .= ''.$curr_tool.': '; } $privlist .= $$toolprivs{$curr_tool}{$priv}.', '; } $privlist =~ s/, $//; } $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.$privlist.'
'); } $r->print('
'); } } if ($num_fail) { foreach my $type (sort(keys(%failed))) { $r->print(&mt('The following users could not be [_1], because an error occurred:
',$type)); foreach my $user (@{$failed{$type}}) { $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'
'); } } $r->print('
'); } if (@unchanged > 0) { $r->print(&mt('No change occurred for the following users:
')); foreach my $user (sort(@unchanged)) { $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'
'); } $r->print('
'); } if ($roster_result eq 'ok') { $r->print('
'.&mt('[_1] membership list updated.',$ucgpterm)); $r->print('
'.&mt("For full access to all of [_1]'s privileges, users will need to log out and log back in.",$groupname).'
'); } else { $r->print(''.&mt('An error occurred while updating the [_1] membership list -',$gpterm).$roster_result.'
'); } return; } sub mapping_options { my ($r,$action,$formname,$page,$tabcol,$sectioncount,$states,$stored, $navbuttons,$img1,$img2,$rowColor1,$rowColor2,$gpterm,$ucgpterm, $crstype) = @_; my %lt = &Apache::lonlocal::texthash( 'auto' => "Settings for automatic $gpterm enrollment", 'gmma' => "$ucgpterm membership mapping to specific sections/roles", 'endi' => "Enable/disable automatic $gpterm enrollment for ". "users in specified roles and sections", 'adds' => "If automatic $gpterm enrollment is enabled, when a user is assigned a ".lc($crstype)."-wide or section-specific role, he/she will automatically be added as a member of the $gpterm, with start and end access dates defined by the default dates set for the $gpterm, unless he/she is already a $gpterm member, with access dates that permit either current or future $gpterm access.", 'drops' => "If automatic $gpterm disenrollment is enabled, when a user's role is expired, access to the $gpterm will be terminated unless the user continues to have other ".lc($crstype)."-wide or section-specific active or future roles which receive automatic membership in the $gpterm.", 'pirs' => "Pick roles and sections for automatic $gpterm enrollment", 'curr' => 'Currently set to', 'on' => 'on', 'off' => 'off', 'auad' => "Automatically enable $gpterm membership when roles are added?", 'auex' => "Automatically expire $gpterm membership when roles are removed?", 'mapr' => "Mapping of roles and sections affected by automatic $gpterm enrollment/disenrollment follows scheme chosen below.", ); &automapping($r,$action,$tabcol,$stored,\%lt,$img1); $r->print('
'.$$lt{'adds'}.'
'.$$lt{'drops'}.'
'; $menu_html.= &mt($menu_item->{'text'}).''; if (exists($menu_item->{'help'})) { $menu_html.= &Apache::loncommon::help_open_topic($menu_item->{'help'}); } $menu_html.='
'.$/; } $r->print($menu_html); return; } sub member_privs_entries { my ($r,$tabcol,$rowColor1,$rowColor2,$usertools,$toolprivs, $fixedprivs,$userdata,$idx,$showtools,$defprivs,$excluded) = @_; my $rowColor; my $rowNum = 0; foreach my $user (sort(keys(%{$usertools}))) { if (defined($excluded)) { if (ref($excluded) eq 'ARRAY') { if (grep/^$user$/,@{$excluded}) { next; } } } my ($uname,$udom) = split(/:/,$user); if ($rowNum %2 == 1) { $rowColor = $rowColor1; } else { $rowColor = $rowColor2; } $r->print('| Function |
| Fixed |
| Optional |
| '.$tool.' | |
| '.$tool.' | |
| '.&mt('Start:').' | '. ''.$startform.' | '. ''." |
| '.&mt('End:').' | '. ''.$endform.' | '. ''.$perpetual.' | '."
'; return $outcome; } my ($errtext,$fatal)=&Apache::lonratedt::mapread($parentmap); if ($fatal) { $outcome = &mt('Error reading contents of parent folder')." ($parentmap): $errtext".'
'; return $outcome; } else { my $newidx=&Apache::lonratedt::getresidx($newmapurl); $Apache::lonratedt::resources[$newidx] = $itemtitle.':'.$newmapurl. ':false:normal:res'; $Apache::lonratedt::order[1+$#Apache::lonratedt::order]=$newidx; my ($outtext,$errtext) = &Apache::lonratedt::storemap($parentmap,1); if ($errtext) { $outcome = &mt('Error storing updated parent folder')." ($parentmap): $errtext".'
'; return $outcome; } } return 'ok'; } sub new_map { my ($startsrc,$starttitle,$endsrc,$endtitle) = @_; my $newmapstr = ' '; return $newmapstr; } sub parm_setter { my ($navmap,$cdom,$url,$groupname) = @_; my $allresults; my %hide_settings = ( 'course' => { 'num' => 13, 'set' => 'yes', }, 'group' => { 'num' => 5, 'set' => 'no', 'extra' => $groupname, }, ); my $res = $navmap->getResourceByUrl($url); my $symb = $res->symb(); foreach my $level (keys(%hide_settings)) { my $parmresult = &Apache::lonparmset::storeparm_by_symb($symb, '0_hiddenresource', $hide_settings{$level}{'num'}, $hide_settings{$level}{'set'}, 'string_yesno',undef,$cdom, undef,undef, $hide_settings{$level}{'extra'}); if ($parmresult) { $allresults .= $level.': '.$parmresult; } } return $allresults; } sub create_homepage { my ($cdom,$cnum,$name,$groupinfo,$tools,$gpterm,$ucgpterm,$now) = @_; my $functionality = join(',',@{$tools}); my $content = &unescape($$groupinfo{description}); $content=~s/\s+$//s; $content=~s/^\s+//s; $content=~s/\
'. $lt{'tgne'}.' "'.$groupname.'" '; my $dupmsg = $lt{'grna'}; my $earlyout; if (($groupname eq '') || ($groupname =~ /\W/)) { $earlyout = $exitmsg.$lt{'isno'}.'
'.$lt{'gnmo'}; return $earlyout; } if (exists($sectioncount{$groupname})) { return $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}. '
'.$lt{'grna'}; } if ($action eq 'create' && exists($curr_groups{$groupname})) { return $exitmsg.$lt{'cnnb'}.&mt('an existing [_1]',$gpterm). $lt{'inth'}.'
'.$lt{'grna'}; } elsif ($action eq 'modify') { unless(exists($curr_groups{$groupname})) { $earlyout = &mt('[_1] name:',$ucgpterm).' '.$groupname.$lt{'thgr'}. $lt{'inth'}; return $earlyout; } } return; } sub topic_bar { my ($r,$imgnum,$title) = @_; $r->print('
'.$title.'