- ');
+ $groupchgmsg .= '
- '.&mt('Course/Community: [_1]',''.$crsdesc.'
- ');
foreach my $group (sort(keys(%{$groupchange{$crs}}))) {
- $groupchgmsg .= '
- '.&mt('Group: [_1] status now: [_2].',''.$group.'',$groupchange{$crs}{$group}).' '; + unless ($groupdesc{$group}) { + my %groupinfo = &Apache::longroup::get_group_settings($curr_groups{$group}); + $groupdesc{$group} = &unescape($groupinfo{'description'}); + } + $groupchgmsg .= '
- '.&mt('Group: [_1] status now: [_2].',''.$groupdesc{$group}.'',$groupchange{$crs}{$group}).' '; } $groupchgmsg .= '
';
}
@@ -2369,95 +2578,76 @@ sub update_session_roles {
}
if ($changemsg) {
$msg .= '
- '.$changemsg.'
'.$tremark; } - if ((ref($changed_groups{$env{'request.course.id'}}) eq 'HASH') || - (ref($groupchange{"/$cdom/$cnum"}) eq 'HASH') || - ($crsgroupschanged)) { - my %grouproles = &Apache::lonnet::get_my_roles('','','userroles', - ['active'],['gr'],[$cdom],1); - my @activegroups; - foreach my $item (keys(%grouproles)) { - next unless($item =~ /^\Q$cnum\E:\Q$cdom\E/); - my $group; - my ($crsn,$crsd,$role,$remainder) = split(/:/,$item,4); - if ($remainder =~ /:/) { - (my $other,$group) = ($remainder =~ /^([\w:]+):([^:]+)$/); - } else { - $group = $remainder; - } - if ($group ne '') { - push(@activegroups,$group); - } - } - $newenv{'request.course.groups'} = join(':',@activegroups); - } - } - if (keys(%newenv)) { - &Apache::lonnet::appenv(\%newenv); } - return $msg; + return $output; } sub curr_role_status { @@ -2482,7 +2672,7 @@ sub gather_roleprivs { my $spec=$role.'.'.$area; $userroles->{'user.role.'.$spec} = $tstart.'.'.$tend; my ($tdummy,$tdomain,$trest)=split(/\//,$area); - if ($status eq 'active') { + if ($status eq 'active') { if ($role =~ /^cr\//) { &Apache::lonnet::custom_roleprivs($allroles,$role,$tdomain,$trest,$spec,$area); } elsif ($role eq 'gr') { @@ -2519,6 +2709,133 @@ sub is_active_course { return $is_active; } +sub get_roles_functions { + my ($rolescount) = @_; + my @links; + push(@links,["javascript:rolesView('doupdate');",'start-here-22x22',&mt('Check for changes')]); + if ($env{'environment.canrequest.author'}) { + unless (&Apache::loncoursequeueadmin::is_active_author()) { + push(@links,["javascript:rolesView('requestauthor');",'list-add-22x22',&mt('Request author role')]); + } + } + if (($rolescount > 3) || ($env{'environment.recentroles'})) { + push(@links,['/adm/preferences?action=changerolespref&returnurl=/adm/roles','role_hotlist-22x22',&mt('Hotlist')]); + } + if (&Apache::lonmenu::check_for_rcrs()) { + push(@links,['/adm/requestcourse','rcrs-22x22',&mt('Request course')]); + } + if ($env{'form.state'} eq 'queued') { + push(@links,["javascript:rolesView('noqueued');",'selfenrl-queue-22x22',&mt('Hide queued')]); + } else { + push(@links,["javascript:rolesView('queued');",'selfenrl-queue-22x22',&mt('Show queued')]); + } + if ($env{'user.adv'}) { + if ($env{'form.display'} eq 'showall') { + push(@links,["javascript:rolesView('noshowall');",'edit-redo-22x22',&mt('Exclude expired')]); + } else { + push(@links,["javascript:rolesView('showall');",'edit-undo-22x22',&mt('Include expired')]); + } + } + if (&Apache::loncommon::designparm('login.coursecatalog',$env{'user.domain'})) { + push(@links,['/adm/coursecatalog','ccat-22x22',&mt('Course catalog')]); + } + my $funcs = &Apache::lonhtmlcommon::start_funclist(); + foreach my $link (@links) { + $funcs .= &Apache::lonhtmlcommon::add_item_funclist( + ''. + '
!['.$link->[2].'](/res/adm/pages/'.$link->[1].'.png)
'.
+ $link->[2].'');
+ }
+ $funcs .= &Apache::lonhtmlcommon::end_funclist();
+ return &Apache::loncommon::head_subbox($funcs);
+}
+
+sub get_queued {
+ my ($output,%reqcrs);
+ my ($types,$typenames) = &Apache::loncommon::course_types();
+ my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'},
+ $env{'user.name'},'^status:');
+ foreach my $key (keys(%statusinfo)) {
+ next unless (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending'));
+ (undef,my($cdom,$cnum)) = split(/:/,$key);
+ my $requestkey = $cdom.'_'.$cnum;
+ if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
+ my %history = &Apache::lonnet::restore($requestkey,'courserequests',
+ $env{'user.domain'},$env{'user.name'});
+ next if ((exists($history{'status'})) && ($history{'status'} eq 'created'));
+ my $reqtime = $history{'reqtime'};
+ my $lastupdate = $history{'timestamp'};
+ my $showtype = $history{'crstype'};
+ if (defined($typenames->{$history{'crstype'}})) {
+ $showtype = $typenames->{$history{'crstype'}};
+ }
+ my $description;
+ if (ref($history{'details'}) eq 'HASH') {
+ $description = $history{details}{'cdescr'};
+ }
+ @{$reqcrs{$reqtime}} = ($description,$showtype);
+ }
+ }
+ my @sortedtimes = sort {$a <=> $b} (keys(%reqcrs));
+ if (@sortedtimes > 0) {
+ $output .= ''.&mt('Course/Community requests').'
'.
+ &Apache::loncommon::start_data_table().
+ &Apache::loncommon::start_data_table_header_row().
+ '
'; + } + my $queuedselfenroll = &Apache::loncoursequeueadmin::queued_selfenrollment(1); + if ($queuedselfenroll) { + $output .= '
'.&mt('Enrollment requests').'
'.
+ $queuedselfenroll.'
'.&mt('Author role request').'
';
+ if ($status eq 'approval') {
+ $output .= &mt('A request for authoring space submitted on [_1] is awaiting approval',
+ &Apache::lonlocal::locallocaltime($timestamp));
+ } elsif ($status eq 'approved') {
+ my %roleshash =
+ &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles',
+ ['active'],['au'],[$env{'user.domain'}]);
+ if (keys(%roleshash)) {
+ $output .= ''.
+ &mt('Your request for an author role has been approved.').'
'.
+ &mt('Use the "Check for changes" link to update your list of roles.').
+ '';
+ }
+ }
+ $output .= '
'; +} + 1; __END__