--- loncom/interface/lonuserutils.pm 2007/10/22 22:16:38 1.1 +++ loncom/interface/lonuserutils.pm 2007/12/21 14:05:40 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility functions for managing LON-CAPA user accounts # -# $Id: lonuserutils.pm,v 1.1 2007/10/22 22:16:38 raeburn Exp $ +# $Id: lonuserutils.pm,v 1.18 2007/12/21 14:05:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -35,7 +35,8 @@ use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon; use Apache::lonlocal; -use LONCAPA(); +use Apache::longroup; +use LONCAPA qw(:DEFAULT :match); ############################################################### ############################################################### @@ -45,8 +46,7 @@ sub modifystudent { # if $csec is undefined, drop the student from all the courses matching # this one. If $csec is defined, drop them from all other sections of # this course and add them to section $csec - my $cdom = $env{'course.'.$courseid.'.domain'}; - my $cnum = $env{'course.'.$courseid.'.num'}; + my ($cnum,$cdom) = &get_course_identity($courseid); my %roles = &Apache::lonnet::dump('roles',$udom,$unam); my ($tmp) = keys(%roles); # Bail out if we were unable to get the students roles @@ -85,28 +85,39 @@ sub modifystudent { sub modifyuserrole { my ($context,$setting,$changeauth,$cid,$udom,$uname,$uid,$umode,$upass, $first,$middle,$last,$gene,$sec,$forceid,$desiredhome,$email,$role, - $end,$start) = @_; - my ($scope,$userresult,$authresult,$roleresult); + $end,$start,$checkid) = @_; + my ($scope,$userresult,$authresult,$roleresult,$idresult); if ($setting eq 'course' || $context eq 'course') { $scope = '/'.$cid; $scope =~ s/\_/\//g; if ($role ne 'cc' && $sec ne '') { $scope .='/'.$sec; } - } elsif ($setting eq 'domain') { + } elsif ($context eq 'domain') { $scope = '/'.$env{'request.role.domain'}.'/'; - } elsif ($setting eq 'construction_space') { + } elsif ($context eq 'author') { $scope = '/'.$env{'user.domain'}.'/'.$env{'user.name'}; } if ($context eq 'domain') { my $uhome = &Apache::lonnet::homeserver($uname,$udom); if ($uhome ne 'no_host') { - if (($changeauth) && (&Apache::lonnet::allowed('mau',$udom))) { + if (($changeauth eq 'Yes') && (&Apache::lonnet::allowed('mau',$udom))) { if ((($umode =~ /^krb4|krb5|internal$/) && $upass ne '') || ($umode eq 'localauth')) { $authresult = &Apache::lonnet::modifyuserauth($udom,$uname,$umode,$upass); } } + if (($forceid) && (&Apache::lonnet::allowed('mau',$udom)) && + ($env{'form.recurseid'}) && ($checkid)) { + my %userupdate = ( + lastname => $last, + middlename => $middle, + firstname => $first, + generation => $gene, + id => $uid, + ); + $idresult = &propagate_id_change($uname,$udom,\%userupdate); + } } } $userresult = @@ -114,42 +125,135 @@ sub modifyuserrole { $middle,$last,$gene,$forceid,$desiredhome, $email,$role,$start,$end); if ($userresult eq 'ok') { - if ($role ne '') { + if ($role ne '') { $roleresult = &Apache::lonnet::assignrole($udom,$uname,$scope, $role,$end,$start); } } - return ($userresult,$authresult,$roleresult); + return ($userresult,$authresult,$roleresult,$idresult); +} + +sub propagate_id_change { + my ($uname,$udom,$user) = @_; + my (@types,@roles); + @types = ('active','future'); + @roles = ('st'); + my $idresult; + my %roleshash = &Apache::lonnet::get_my_roles($uname, + $udom,'userroles',\@types,\@roles); + my %args = ( + one_time => 1, + ); + foreach my $item (keys(%roleshash)) { + my ($cnum,$cdom,$role) = split(/:/,$item); + my ($start,$end) = split(/:/,$roleshash{$item}); + if (&Apache::lonnet::is_course($cdom,$cnum)) { + my $result = &update_classlist($cdom,$cnum,$udom,$uname,$user); + my %coursehash = + &Apache::lonnet::coursedescription($cdom.'_'.$cnum,\%args); + my $cdesc = $coursehash{'description'}; + if ($cdesc eq '') { + $cdesc = $cdom.'_'.$cnum; + } + if ($result eq 'ok') { + $idresult .= &mt('Classlist update for "[_1]" in "[_2]".',$uname.':'.$udom,$cdesc).'
'."\n"; + } else { + $idresult .= &mt('Error: "[_1]" during classlist update for "[_2]" in "[_3]".',$result,$uname.':'.$udom,$cdesc).'
'."\n"; + } + } + } + return $idresult; +} + +sub update_classlist { + my ($cdom,$cnum,$udom,$uname,$user) = @_; + my ($uid,$classlistentry); + my $fullname = + &Apache::lonnet::format_name($user->{'firstname'},$user->{'middlename'}, + $user->{'lastname'},$user->{'generation'}, + 'lastname'); + my %classhash = &Apache::lonnet::get('classlist',[$uname.':'.$udom], + $cdom,$cnum); + my @classinfo = split(/:/,$classhash{$uname.':'.$udom}); + my $ididx=&Apache::loncoursedata::CL_ID() - 2; + my $nameidx=&Apache::loncoursedata::CL_FULLNAME() - 2; + for (my $i=0; $i<@classinfo; $i++) { + if ($i == $ididx) { + if (defined($user->{'id'})) { + $classlistentry .= $user->{'id'}.':'; + } else { + $classlistentry .= $classinfo[$i].':'; + } + } elsif ($i == $nameidx) { + $classlistentry .= $fullname.':'; + } else { + $classlistentry .= $classinfo[$i].':'; + } + } + $classlistentry =~ s/:$//; + my $reply=&Apache::lonnet::cput('classlist', + {"$uname:$udom" => $classlistentry}, + $cdom,$cnum); + if (($reply eq 'ok') || ($reply eq 'delayed')) { + return 'ok'; + } else { + return 'error: '.$reply; + } } + ############################################################### ############################################################### -# build a domain and server selection form -sub domain_form { - my ($defdom) = @_; - # Set up domain and server selection forms +# build a role type and role selection form +sub domain_roles_select { + # Set up the role type and role selection boxes when in + # domain context + # + # Role types + my @roletypes = ('domain','author','course'); + my %lt = &role_type_names(); # - # Get the domains - my @domains = &Apache::lonnet::all_domains(); # build up the menu information to be passed to # &Apache::loncommon::linked_select_forms my %select_menus; - foreach my $dom (@domains) { + if ($env{'form.roletype'} eq '') { + $env{'form.roletype'} = 'domain'; + } + foreach my $roletype (@roletypes) { # set up the text for this domain - $select_menus{$dom}->{'text'}= $dom; + $select_menus{$roletype}->{'text'}= $lt{$roletype}; # we want a choice of 'default' as the default in the second menu - $select_menus{$dom}->{'default'}= 'default'; - $select_menus{$dom}->{'select2'}->{'default'} = 'default'; + if ($env{'form.roletype'} ne '') { + $select_menus{$roletype}->{'default'} = $env{'form.showrole'}; + } else { + $select_menus{$roletype}->{'default'} = 'Any'; + } # Now build up the other items in the second menu - my %servers = &Apache::lonnet::get_servers($dom,'library'); - foreach my $server (keys(%servers)) { - $select_menus{$dom}->{'select2'}->{$server} - = "$server $servers{$server}"; + my @roles; + if ($roletype eq 'domain') { + @roles = &domain_roles(); + } elsif ($roletype eq 'author') { + @roles = &construction_space_roles(); + } else { + my $custom = 1; + @roles = &course_roles('domain',undef,$custom); + } + my $order = ['Any',@roles]; + $select_menus{$roletype}->{'order'} = $order; + foreach my $role (@roles) { + if ($role eq 'cr') { + $select_menus{$roletype}->{'select2'}->{$role} = + &mt('Custom role'); + } else { + $select_menus{$roletype}->{'select2'}->{$role} = + &Apache::lonnet::plaintext($role); + } } + $select_menus{$roletype}->{'select2'}->{'Any'} = &mt('Any'); } - my $result = &Apache::loncommon::linked_select_forms - ('studentform',' with home server ',$defdom, - 'lcdomain','lcserver',\%select_menus); + my $result = &Apache::loncommon::linked_select_forms + ('studentform',(' 'x3).&mt('Role: '),$env{'form.roletype'}, + 'roletype','showrole',\%select_menus,['domain','author','course']); return $result; } @@ -554,7 +658,7 @@ sub print_upload_manager_footer { my $formname; if ($context eq 'course') { $formname = 'document.studentform'; - } elsif ($context eq 'construction_space') { + } elsif ($context eq 'author') { $formname = 'document.studentform'; } elsif ($context eq 'domain') { $formname = 'document.studentform'; @@ -605,7 +709,7 @@ sub print_upload_manager_footer { $Str .= '

'.&mt('Settings for assigning roles:').'

'."\n". &mt('Pick the action to take on roles for these users:').'
      '; } - if ($context eq 'construction_space') { + if ($context eq 'author') { $Str .= '

'.&mt('Default role')."

\n". &mt('Choose the role to assign to users without one specified in the uploaded file'); } elsif ($context eq 'course') { @@ -616,11 +720,15 @@ sub print_upload_manager_footer { &mt('Role and/or section for users without one in the uploaded file.'); } $Str .= '

'; - my ($options,$cb_script,$coursepick) = &default_role_selector($context); + my ($options,$cb_script,$coursepick) = &default_role_selector($context,'defaultrole',1); if ($context eq 'domain') { $Str .= ''.&mt('Domain Level').'
'.$options.'

'.&mt('Course Level').'
'.$cb_script.$coursepick; - } else { + } elsif ($context eq 'author') { $Str .= $options; + } else { + $Str .= '
'.&mt('role').': '. + $options.' '. + ''.&mt('section').': 
'; } if ($context eq 'course') { $Str .= "

".&mt('Full Update')."

\n". @@ -628,12 +736,9 @@ sub print_upload_manager_footer { ' '.&mt('Full update (also print list of users not enrolled anymore)'). "

\n"; } - $Str .= "

".&mt('ID/Student Number')."

\n"; - $Str .= "

\n".'
'."\n". - &mt('(only do if you know what you are doing.)')."

\n"; + if ($context eq 'course' || $context eq 'domain') { + $Str .= &forceid_change($context); + } $Str .= '


'."
\n"; @@ -646,6 +751,23 @@ sub print_upload_manager_footer { return; } +sub forceid_change { + my ($context) = @_; + my $output = + "

".&mt('ID/Student Number')."

\n". + "

\n".'
'."\n". + &mt('(only do if you know what you are doing.)')."

\n"; + if ($context eq 'domain') { + $output .= '

'."\n"; + } + return $output; +} + ############################################################### ############################################################### sub print_upload_manager_form { @@ -731,7 +853,7 @@ sub print_upload_manager_form { } sub setup_date_selectors { - my ($starttime,$endtime,$mode) = @_; + my ($starttime,$endtime,$mode,$nolink) = @_; if (! defined($starttime)) { $starttime = time; unless ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') { @@ -752,12 +874,15 @@ sub setup_date_selectors { } } } - my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform', - 'startdate', - $starttime); - my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform', - 'enddate', - $endtime); + + my $startdateform = + &Apache::lonhtmlcommon::date_setter('studentform','startdate',$starttime, + undef,undef,undef,undef,undef,undef,undef,$nolink); + + my $enddateform = + &Apache::lonhtmlcommon::date_setter('studentform','enddate',$endtime, + undef,undef,undef,undef,undef,undef,undef,$nolink); + if ($mode eq 'create_enrolldates') { $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs', 'startenroll', @@ -788,35 +913,44 @@ sub get_dates_from_form { } sub date_setting_table { - my ($starttime,$endtime,$mode) = @_; - my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode); + my ($starttime,$endtime,$mode,$bulkaction) = @_; + my $nolink; + if ($bulkaction) { + $nolink = 1; + } + my ($startform,$endform) = + &setup_date_selectors($starttime,$endtime,$mode,$nolink); my $dateDefault; if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') { $dateDefault = ' '; - } elsif ($mode ne 'construction_space' && $mode ne 'domain') { - $dateDefault = ''. - ''; + } elsif ($mode ne 'author' && $mode ne 'domain') { + if (($bulkaction eq 'reenable') || + ($bulkaction eq 'activate') || + ($bulkaction eq 'chgdates')) { + $dateDefault = ''. + ''; + } } - my $perpetual = ''; + $perpetual.= ' /> '.&mt('no ending date').''; if ($mode eq 'create_enrolldates') { $perpetual = ' '; } - my $result = &Apache::lonhtmlcommon::start_pick_box()."\n". - &Apache::lonhtmlcommon::row_title(&mt('Starting Date'), - 'LC_oddrow_value')."\n". - $startform."\n". - &Apache::lonhtmlcommon::row_closure(1). - &Apache::lonhtmlcommon::row_title(&mt('Ending Date'), - 'LC_oddrow_value')."\n". - $endform.' '.$perpetual. - &Apache::lonhtmlcommon::row_closure(1). - &Apache::lonhtmlcommon::end_pick_box().'
'; + my $result = &Apache::lonhtmlcommon::start_pick_box()."\n"; + $result .= &Apache::lonhtmlcommon::row_title(&mt('Starting Date'), + 'LC_oddrow_value')."\n". + $startform."\n". + &Apache::lonhtmlcommon::row_closure(1). + &Apache::lonhtmlcommon::row_title(&mt('Ending Date'), + 'LC_oddrow_value')."\n". + $endform.' '.$perpetual. + &Apache::lonhtmlcommon::row_closure(1). + &Apache::lonhtmlcommon::end_pick_box().'
'; if ($dateDefault) { $result .= $dateDefault.'
'."\n"; } @@ -827,13 +961,13 @@ sub make_dates_default { my ($startdate,$enddate,$context) = @_; my $result = ''; if ($context eq 'course') { - my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; - my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; + my ($cnum,$cdom) = &get_course_identity(); my $put_result = &Apache::lonnet::put('environment', {'default_enrollment_start_date'=>$startdate, - 'default_enrollment_end_date' =>$enddate},$dom,$crs); + 'default_enrollment_end_date' =>$enddate},$cdom,$cnum); if ($put_result eq 'ok') { - $result .= "Set default start and end dates for course
"; + $result .= &mt('Set default start and end dates for course'). + '
'."\n"; # # Refresh the course environment &Apache::lonnet::coursedescription($env{'request.course.id'}, @@ -847,10 +981,10 @@ sub make_dates_default { } sub default_role_selector { - my ($context) = @_; + my ($context,$checkpriv) = @_; my %customroles; my ($options,$coursepick,$cb_jscript); - if ($context ne 'construction_space') { + if ($context ne 'author') { %customroles = &my_custom_roles(); } @@ -863,15 +997,15 @@ sub default_role_selector { $options = ''."\n". ''. ''. ''.&Apache::loncommon::end_data_table_row()); - } - $r->print(&Apache::loncommon::end_data_table()); + my @statuses; + if ($env{'form.Status'} eq 'Any') { + @statuses = ('previous','active','future'); + } elsif ($env{'form.Status'} eq 'Expired') { + @statuses = ('previous'); + } elsif ($env{'form.Status'} eq 'Active') { + @statuses = ('active'); + } elsif ($env{'form.Status'} eq 'Future') { + @statuses = ('future'); } + +# if ($context eq 'course') { +# $r->print(&display_adv_courseroles()); +# } # # Interface output - $r->print(''."\n". + ''); $r->print("

\n"); if ($env{'form.action'} ne 'modifystudent') { @@ -1066,71 +1217,526 @@ sub print_html_classlist { $output_selector .= ''; $r->print(''.(' 'x3)); } - $r->print('\n"); - $r->print(''. - "\n

\n"); - + $r->print(''.(' 'x3)."\n"); + my $roleselected = ''; + if ($env{'form.showrole'} eq 'Any') { + $roleselected = ' selected="selected" '; + } + my $role_select; + if ($context eq 'domain') { + $role_select = &domain_roles_select(); + $r->print(''); + } else { + $role_select = ''; + $r->print(''); + } + if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) { + $r->print(&list_submit_button(&mt('Update Display'))."\n

\n"); + } + my ($indexhash,$keylist) = &make_keylist_array(); + my (%userlist,%userinfo); + if ($context eq 'domain' && $env{'form.roletype'} eq 'course') { + my $courseform = + &Apache::lonhtmlcommon::course_selection($formname,$totcodes, + $codetitles,$idlist,$idlist_titles); + $r->print('

'.&Apache::lonhtmlcommon::start_pick_box()."\n". + &Apache::lonhtmlcommon::start_pick_box()."\n". + &Apache::lonhtmlcommon::row_title(&mt('Select Course(s)'), + 'LC_oddrow_value')."\n". + $courseform."\n". + &Apache::lonhtmlcommon::row_closure(1). + &Apache::lonhtmlcommon::end_pick_box().'

'. + '

'.&list_submit_button(&mt('Update Display')). + "\n

\n"); + if ($env{'form.coursepick'}) { + $r->print('
'.&mt('Searching').' ...
 
'); + } + } else { + $r->print('
'.&mt('Searching').' ...
 
'); + } + $r->rflush(); if ($context eq 'course') { - # - # Print the classlist - $r->print('

'.&mt('Current Class List').'

'); - my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist(); - - if (exists($permission->{'view_section'})) { - my $sec = &Apache::loncoursedata::CL_SECTION(); - foreach my $student (keys(%{$classlist})) { - if ($classlist->{$student}[$sec] ne $permission->{'view_section'}) { - delete($classlist->{$student}); + my $classlist = &Apache::loncoursedata::get_classlist(); + my $secidx = &Apache::loncoursedata::CL_SECTION(); + foreach my $student (keys(%{$classlist})) { + if (exists($permission->{'view_section'})) { + if ($classlist->{$student}[$secidx] ne $permission->{'view_section'}) { + next; + } else { + $userlist{$student} = $classlist->{$student}; } + } else { + $userlist{$student} = $classlist->{$student}; } } - - if (! defined($classlist)) { - $r->print(&mt('There are no students currently enrolled.')."\n"); + my $cid =$env{'request.course.id'}; + my ($cnum,$cdom) = &get_course_identity($cid); + my $showroles; + if ($env{'form.showrole'} ne 'Any') { + $showroles = [$env{'form.showrole'}]; } else { - # Print out the available choices - if ($env{'form.action'} eq 'modifystudent') { - &show_users_list($r,$context,'view','modify', - $env{'form.Status'},$classlist,$keylist); - } else { - &show_users_list($r,$context,$env{'form.output'},'aboutme', - $env{'form.Status'},$classlist,$keylist); + $showroles = undef; + } + my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef, + \@statuses,$showroles); + &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo, + \%advrolehash,$permission); + } else { + my (%cstr_roles,%dom_roles); + if ($context eq 'author') { + # List co-authors and assistant co-authors + my @possroles = &roles_by_context($context); + %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef, + \@statuses,\@possroles); + &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo, + \%cstr_roles,$permission); + } elsif ($context eq 'domain') { + if ($env{'form.roletype'} eq 'domain') { + %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'}); + foreach my $key (keys(%dom_roles)) { + if (ref($dom_roles{$key}) eq 'HASH') { + &gather_userinfo($context,$format,\%userlist,$indexhash, + \%userinfo,$dom_roles{$key},$permission); + } + } + } elsif ($env{'form.roletype'} eq 'author') { + my %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'},['au']); + my %coauthors; + foreach my $key (keys(%dom_roles)) { + if (ref($dom_roles{$key}) eq 'HASH') { + if ($env{'form.showrole'} eq 'au') { + &gather_userinfo($context,$format,\%userlist,$indexhash, + \%userinfo,$dom_roles{$key},$permission); + } else { + my @possroles; + if ($env{'form.showrole'} eq 'Any') { + my @possroles = &roles_by_context($context); + } else { + @possroles = ($env{'form.showrole'}); + } + foreach my $author (sort(keys(%{$dom_roles{$key}}))) { + my ($role,$authorname,$authordom) = split(/:/,$author); + my $extent = '/'.$authordom.'/'.$authorname; + %{$coauthors{$extent}} = + &Apache::lonnet::get_my_roles($authorname, + $authordom,undef,\@statuses,\@possroles); + } + &gather_userinfo($context,$format,\%userlist, + $indexhash,\%userinfo,\%coauthors,$permission); + } + } + } + } elsif ($env{'form.roletype'} eq 'course') { + if ($env{'form.coursepick'}) { + my %courses = &process_coursepick(); + my %allusers; + foreach my $cid (keys(%courses)) { + my %coursehash = + &Apache::lonnet::coursedescription($cid,{'one_time' => 1}); + my ($cnum,$cdom,$cdesc) = &get_course_identity($cid); + next if ($cnum eq '' || $cdom eq ''); + my $custom = 1; + my (@roles,@sections,%access,%users,%userdata, + %statushash); + if ($env{'form.showrole'} eq 'Any') { + @roles = &course_roles($context,undef,$custom); + unshift(@roles,'cr'); + } else { + @roles = ($env{'form.showrole'}); + } + foreach my $role (@roles) { + %{$users{$role}} = (); + } + foreach my $type (@statuses) { + $access{$type} = $type; + } + &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users,\%userdata,\%statushash); + foreach my $user (keys(%userdata)) { + next if (ref($userinfo{$user}) eq 'HASH'); + foreach my $item ('fullname','id') { + $userinfo{$user}{$item} = $userdata{$user}[$indexhash->{$item}]; + } + } + foreach my $role (keys(%users)) { + foreach my $user (keys(%{$users{$role}})) { + my $uniqid = $user.':'.$role; + $allusers{$uniqid}{$cid} = { desc => $cdesc, + secs => $statushash{$user}{$role}, + }; + } + } + } + &gather_userinfo($context,$format,\%userlist,$indexhash, + \%userinfo,\%allusers,$permission); + } else { + $r->print(''); + return; + } } } - } elsif ($context eq 'construction_space') { - # List co-authors and assistant co-authors - my @statuses; - if ($env{'form.status'} eq 'Any') { - @statuses = ('previous','active','future'); - } elsif ($env{'form.status'} eq 'Expired') { - @statuses = ('previous'); - } elsif ($env{'form.status'} eq 'Active') { - @statuses = ('active'); - } elsif ($env{'form.status'} eq 'Future') { - @statuses = ('future'); - } - my @possroles = ('ca','aa'); - my %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef, - \@statuses,\@possroles); - if (keys(%cstr_roles) == 0) { - $r->print(&mt('There are no authors or co-authors.')."\n"); - } else { - # Print out the available choices - if ($env{'form.action'} eq 'modifystudent') { - &show_users_list($r,$context,'view','modify', - $env{'form.Status'},\%cstr_roles); - } else { - &show_users_list($r,$context,$env{'form.output'},'aboutme', - $env{'form.Status'},\%cstr_roles); + } + if (keys(%userlist) == 0) { + if ($context eq 'author') { + $r->print(&mt('There are no co-authors to display.')."\n"); + } elsif ($context eq 'domain') { + if ($env{'form.roletype'} eq 'domain') { + $r->print(&mt('There are no users with domain roles to display.')."\n"); + } elsif ($env{'form.roletype'} eq 'author') { + $r->print(&mt('There are no authors or co-authors to display.')."\n"); + } elsif ($env{'form.roletype'} eq 'course') { + $r->print(&mt('There are no course users to display')."\n"); } + } elsif ($context eq 'course') { + $r->print(&mt('There are no course users to display.')."\n"); + } + } else { + # Print out the available choices + my $usercount; + if ($env{'form.action'} eq 'modifystudent') { + ($usercount) = &show_users_list($r,$context,'view',$permission, + $env{'form.Status'},\%userlist,$keylist); + } else { + ($usercount) = &show_users_list($r,$context,$env{'form.output'}, + $permission,$env{'form.Status'},\%userlist,$keylist); + } + if (!$usercount) { + $r->print('
'.&mt('There are no users matching the search criteria.')); } + } + $r->print(''); +} + +sub list_submit_button { + my ($text) = @_; + return ''; +} + +sub gather_userinfo { + my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_; + foreach my $item (keys(%{$rolehash})) { + @{$userlist->{$item}} = (); + my %userdata; + if ($context eq 'author' || $context eq 'course') { + ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) = + split(/:/,$item); + ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item}); + &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist); + } elsif ($context eq 'domain') { + if ($env{'form.roletype'} eq 'domain') { + ($userdata{'role'},$userdata{'username'},$userdata{'domain'}) = + split(/:/,$item); + ($userdata{'end'},$userdata{'start'})=split(/:/,$rolehash->{$item}); + &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist); + } elsif ($env{'form.roletype'} eq 'author') { + if (ref($rolehash->{$item}) eq 'HASH') { + $userdata{'extent'} = $item; + foreach my $key (keys(%{$rolehash->{$item}})) { + ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) = split(/:/,$key); + ($userdata{'start'},$userdata{'end'}) = + split(/:/,$rolehash->{$item}{$key}); + my $uniqid = $key.':'.$item; + &build_user_record(\%userdata,$userinfo,$indexhash,$uniqid,$userlist); + } + } + } elsif ($env{'form.roletype'} eq 'course') { + ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) = + split(/:/,$item); + if (ref($rolehash->{$item}) eq 'HASH') { + my $numcids = keys(%{$rolehash->{$item}}); + foreach my $cid (sort(keys(%{$rolehash->{$item}}))) { + if (ref($rolehash->{$item}{$cid}) eq 'HASH') { + my $spanstart = ''; + my $spanend = '; '; + my $space = ', '; + if ($format eq 'html' || $format eq 'view') { + $spanstart = ''; + if ($permission->{'cusr'}) { + if ($numcids > 1) { + $spanstart .= ''; + } else { + $spanstart .= ''; + } + } + $spanend = '
'; + $space = ', '; + } + $userdata{'extent'} .= $spanstart. + $rolehash->{$item}{$cid}{'desc'}.$space; + if (ref($rolehash->{$item}{$cid}{'secs'}) eq 'HASH') { + foreach my $sec (sort(keys(%{$rolehash->{$item}{$cid}{'secs'}}))) { + $userdata{'extent'} .= $sec.$space.$rolehash->{$item}{$cid}{'secs'}{$sec}.$spanend; + } + } + } + } + } + &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist); + } + } + } + return; +} + +sub build_user_record { + my ($userdata,$userinfo,$indexhash,$record_key,$userlist) = @_; + next if ($userdata->{'start'} eq '-1' && $userdata->{'end'} eq '-1'); + &process_date_info($userdata); + my $username = $userdata->{'username'}; + my $domain = $userdata->{'domain'}; + if (ref($userinfo->{$username.':'.$domain}) eq 'HASH') { + $userdata->{'fullname'} = + $userinfo->{$username.':'.$domain}{'fullname'}; + $userdata->{'id'} = $userinfo->{$username.':'.$domain}{'id'}; + } else { + &aggregate_user_info($domain,$username,$userinfo); + $userdata->{'fullname'} = $userinfo->{$username.':'.$domain}{'fullname'}; + $userdata->{'id'} = $userinfo->{$username.':'.$domain}{'id'}; + } + foreach my $key (keys(%{$indexhash})) { + if (defined($userdata->{$key})) { + $userlist->{$record_key}[$indexhash->{$key}] = $userdata->{$key}; + } + } + return; +} + +sub courses_selector { + my ($cdom,$formname) = @_; + my %coursecodes = (); + my %codes = (); + my @codetitles = (); + my %cat_titles = (); + my %cat_order = (); + my %idlist = (); + my %idnums = (); + my %idlist_titles = (); + my $caller = 'global'; + my $format_reply; + my $jscript = ''; + + my $totcodes = 0; + $totcodes = + &Apache::courseclassifier::retrieve_instcodes(\%coursecodes, + $cdom,$totcodes); + if ($totcodes > 0) { + $format_reply = + &Apache::lonnet::auto_instcode_format($caller,$cdom,\%coursecodes, + \%codes,\@codetitles,\%cat_titles,\%cat_order); + if ($format_reply eq 'ok') { + my $numtypes = @codetitles; + &Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); + my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles); + my $longtitles_str = join('","',@{$longtitles}); + my $allidlist = $idlist{$codetitles[0]}; + $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist); + $jscript .= $scripttext; + $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,@codetitles); + } + } + my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom); + + my %elements = ( + Year => 'selectbox', + coursepick => 'radio', + coursetotal => 'text', + courselist => 'text', + ); + $jscript .= &Apache::lonhtmlcommon::set_form_elements(\%elements); + if ($env{'form.coursepick'} eq 'category') { + $jscript .= qq| +function setCourseCat(formname) { + if (formname.Year.options[formname.Year.selectedIndex].value == -1) { + return; + } + courseSet('Year'); + for (var j=0; j 1) { + my @course_ids = split(/&&/,$env{'form.courselist'}); + foreach my $cid (@course_ids) { + $courses{$cid} = ''; + } + } else { + $courses{$env{'form.courselist'}} = ''; + } + } + return %courses; +} + +sub instcode_from_coursefilter { + my $instcode = ''; + my @cats = ('Semester','Year','Department','Number'); + foreach my $category (@cats) { + if (defined($env{'form.'.$category})) { + unless ($env{'form.'.$category} eq '-1') { + $instcode .= $env{'form.'.$category}; + } + } + } + if ($instcode eq '') { + $instcode = '.'; + } + return $instcode; +} + +sub display_adv_courseroles { + my $output; + # + # List course personnel + my %coursepersonnel = + &Apache::lonnet::get_course_adv_roles($env{'request.course.id'}); + # + $output = '
'.&Apache::loncommon::start_data_table(); + foreach my $role (sort(keys(%coursepersonnel))) { + next if ($role =~ /^\s*$/); + $output .= &Apache::loncommon::start_data_table_row(). + ''.&Apache::loncommon::end_data_table_row(); + } + $output .= &Apache::loncommon::end_data_table(); +} + +sub make_keylist_array { + my ($index,$keylist); + $index->{'domain'} = &Apache::loncoursedata::CL_SDOM(); + $index->{'username'} = &Apache::loncoursedata::CL_SNAME(); + $index->{'end'} = &Apache::loncoursedata::CL_END(); + $index->{'start'} = &Apache::loncoursedata::CL_START(); + $index->{'id'} = &Apache::loncoursedata::CL_ID(); + $index->{'section'} = &Apache::loncoursedata::CL_SECTION(); + $index->{'fullname'} = &Apache::loncoursedata::CL_FULLNAME(); + $index->{'status'} = &Apache::loncoursedata::CL_STATUS(); + $index->{'type'} = &Apache::loncoursedata::CL_TYPE(); + $index->{'lockedtype'} = &Apache::loncoursedata::CL_LOCKEDTYPE(); + $index->{'groups'} = &Apache::loncoursedata::CL_GROUP(); + $index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL(); + $index->{'role'} = &Apache::loncoursedata::CL_ROLE(); + $index->{'extent'} = &Apache::loncoursedata::CL_EXTENT(); + foreach my $key (keys(%{$index})) { + $keylist->[$index->{$key}] = $key; + } + return ($index,$keylist); +} + +sub aggregate_user_info { + my ($udom,$uname,$userinfo) = @_; + my %info=&Apache::lonnet::get('environment', + ['firstname','middlename', + 'lastname','generation','id'], + $udom,$uname); + my ($tmp) = keys(%info); + my ($fullname,$id); + if ($tmp =~/^(con_lost|error|no_such_host)/i) { + $fullname = 'not available'; + $id = 'not available'; + &Apache::lonnet::logthis('unable to retrieve environment '. + 'for '.$uname.':'.$udom); } else { + $fullname = &Apache::lonnet::format_name(@info{qw/firstname middlename lastname generation/},'lastname'); + $id = $info{'id'}; + } + $userinfo->{$uname.':'.$udom} = { + fullname => $fullname, + id => $id, + }; + return; +} +sub process_date_info { + my ($userdata) = @_; + my $now = time; + $userdata->{'status'} = 'Active'; + if ($userdata->{'start'} > 0) { + if ($now < $userdata->{'start'}) { + $userdata->{'status'} = 'Future'; + } } + if ($userdata->{'end'} > 0) { + if ($now > $userdata->{'end'}) { + $userdata->{'status'} = 'Expired'; + } + } + return; } sub show_users_list { - my ($r,$context,$mode,$linkto,$statusmode,$classlist,$keylist)=@_; + my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist)=@_; # # Variables for excel output my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format); @@ -1139,26 +1745,35 @@ sub show_users_list { my ($CSVfile,$CSVfilename); # my $sortby = $env{'form.sortby'}; - if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end|type)$/) { + my @sortable = ('username','domain','id','fullname','start','end','email','role'); + if ($context eq 'course') { + push(@sortable,('section','groups','type')); + } else { + push(@sortable,'extent'); + } + if (!grep(/^\Q$sortby\E$/,@sortable)) { $sortby = 'username'; } - my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers)=@_; + my $setting = $env{'form.roleaction'}; + my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers); if ($context eq 'course') { $cid=$env{'request.course.id'}; - $cdom = $env{'course.'.$cid.'.domain'}; - $cnum = $env{'course.'.$cid.'.num'}; - $classgroups = &Apache::loncoursedata::get_group_memberships( - $classlist,$keylist,$cdom,$cnum); - if (! exists($env{'form.displayphotos'})) { - $env{'form.displayphotos'} = 'off'; - } - $displayphotos = $env{'form.displayphotos'}; - if (! exists($env{'form.displayclickers'})) { - $env{'form.displayclickers'} = 'off'; - } - $displayclickers = $env{'form.displayclickers'}; - if ($env{'course.'.$cid.'.internal.showphoto'}) { - $r->print(' + ($cnum,$cdom) = &get_course_identity($cid); + ($classgroups) = &Apache::loncoursedata::get_group_memberships( + $userlist,$keylist,$cdom,$cnum); + if ($mode eq 'autoenroll') { + $env{'form.showrole'} = 'st'; + } else { + if (! exists($env{'form.displayphotos'})) { + $env{'form.displayphotos'} = 'off'; + } + $displayphotos = $env{'form.displayphotos'}; + if (! exists($env{'form.displayclickers'})) { + $env{'form.displayclickers'} = 'off'; + } + $displayclickers = $env{'form.displayclickers'}; + if ($env{'course.'.$cid.'.internal.showphoto'}) { + $r->print(' - '); - } - $r->print(<print(< END + } } - unless ($mode eq 'autoenroll') { + if ($mode ne 'autoenroll') { + my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript(); + my $alert = &mt("You must select at least one user by checking a user's 'Select' checkbox"); + my $singconfirm = &mt(' for a single user'); + my $multconfirm = &mt(' for multiple users'); + my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode); $r->print(< +$check_uncheck_js + +function verify_action (field) { + var numchecked = 0; + var singconf = '$singconfirm'; + var multconf = '$multconfirm'; + if (field.length > 0) { + for (i = 0; i < field.length; i++) { + if (field[i].checked == true) { + numchecked ++; + } + } + } else { + if (field.checked == true) { + numchecked ++; + } + } + if (numchecked == 0) { + alert("$alert"); + } + else { + var message = document.studentform.bulkaction[document.studentform.bulkaction.selectedIndex].text; + if (numchecked == 1) { + message += singconf; + } + else { + message += multconf; + } + if (confirm(message)) { + document.studentform.phase.value = 'bulkchange'; + document.studentform.submit(); + } + } +} + +function username_display_launch(username,domain) { + var target; + for (var i=0; i +$date_sec_selector END } @@ -1194,17 +1872,41 @@ END 'start' => "start date", 'end' => "end date", 'status' => "status", + 'role' => "role", 'type' => "enroll type/action", 'email' => "email address", 'clicker' => "clicker id", 'photo' => "photo", + 'extent' => "extent", + 'pr' => "Proceed", + 'ca' => "check all", + 'ua' => "uncheck all", + 'ac' => "Action to take for selected users", + 'link' => "Behavior of username links", + 'aboutme' => "Display a user's personal page", + 'modify' => "Modify a user's information", ); + if ($context eq 'domain' && $env{'form.roletype'} eq 'course') { + $lt{'extent'} = &mt('Course(s): description, section(s), status'); + } elsif ($context eq 'author') { + $lt{'extent'} = &mt('Author'); + } my @cols = ('username','domain','id','fullname'); if ($context eq 'course') { push(@cols,'section'); } - push(@cols,('start','end')); - if ($statusmode eq 'Any') { + if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) { + push(@cols,('start','end')); + } + if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') { + push(@cols,'role'); + } + if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' || + $env{'form.roletype'} eq 'course')) { + push (@cols,'extent'); + } + if (($statusmode eq 'Any') && + (!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) { push(@cols,'status'); } if ($context eq 'course') { @@ -1212,74 +1914,119 @@ END } push(@cols,'email'); - if ($mode eq 'html' || $mode eq 'view') { - if ($linkto eq 'aboutme') { - $r->print(&mt("Select a user name to view the user's personal page.")); - } elsif ($linkto eq 'modify') { - $r->print(&mt("Select a user name to modify the user's information")); - } - $r->print(< - + my $rolefilter = $env{'form.showrole'}; + if ($env{'form.showrole'} eq 'cr') { + $rolefilter = &mt('custom'); + } elsif ($env{'form.showrole'} ne 'Any') { + $rolefilter = &Apache::lonnet::plaintext($env{'form.showrole'}); + } + my $results_description; + if ($mode ne 'autoenroll') { + $results_description = &results_header_row($rolefilter,$statusmode, + $context,$permission); + $r->print(''.$results_description.'
'); + } + my ($output,$actionselect); + if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll') { + if ($mode ne 'autoenroll') { + if ($permission->{'cusr'}) { + $actionselect = &select_actions($context,$setting,$statusmode); + } + $r->print(< + + + + END - - $r->print("\n

\n". + $output = '

'; + my @linkdests = ('aboutme'); + if ($permission->{'cusr'}) { + push (@linkdests,'modify'); + $output .= ''.$lt{'link'}.': '; + my $usernamelink = $env{'form.usernamelink'}; + if ($usernamelink eq '') { + $usernamelink = 'aboutme'; + } + foreach my $item (@linkdests) { + my $checkedstr = ''; + if ($item eq $usernamelink) { + $checkedstr = ' checked="checked" '; + } + $output .= '  '; + } + $output .= '
'; + } else { + $output .= &mt("Click on a username to view the user's personal page.").'
'; + } + if ($actionselect) { + $output .= <<"END"; +$lt{'ac'}: $actionselect

+

  + +END + } + } + $output .= "\n

\n". &Apache::loncommon::start_data_table(). - &Apache::loncommon::start_data_table_header_row()); + &Apache::loncommon::start_data_table_header_row(); if ($mode eq 'autoenroll') { - $r->print(" + $output .= "

- "); + "; } else { - $r->print(" - - "); + $output .= "\n".''."\n"; + if ($actionselect) { + $output .= ''."\n"; + } } foreach my $item (@cols) { - $r->print(''."\n"); + $output .= "\n"; } - if ($context eq 'course') { - # Clicker display on or off? - my %clicker_options = &Apache::lonlocal::texthash( - 'on' => 'Show', - 'off' => 'Hide', - ); - my $clickerchg = 'on'; - if ($displayclickers eq 'on') { - $clickerchg = 'off'; - } - $r->print(' '."\n"); + ' '."\n"; - # Photo display on or off? - if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) { - my %photo_options = &Apache::lonlocal::texthash( - 'on' => 'Show', - 'off' => 'Hide', - ); - my $photochg = 'on'; - if ($displayphotos eq 'on') { - $photochg = 'off'; - } - $r->print(' '."\n"); + ' '."\n"; + } } - $r->print(&Apache::end_data_table_header_row()); - } + } + $output .= &Apache::loncommon::end_data_table_header_row(); # Done with the HTML header line - } elsif ($mode eq 'csv') { # # Open a file $CSVfilename = '/prtspool/'. - $env{'user.name'}.'_'.$env{'user.domain'}.'_'. - time.'_'.rand(1000000000).'.csv'; + $env{'user.name'}.'_'.$env{'user.domain'}.'_'. + time.'_'.rand(1000000000).'.csv'; unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) { $r->log_error("Couldn't open $CSVfilename for output $!"); $r->print("Problems occured in writing the csv file. ". @@ -1289,11 +2036,7 @@ END } # # Write headers and data to file - if($statusmode eq 'Expired') { - print $CSVfile '"'.&mt('Users with expired roles').'"'."\n"; } - if($statusmode eq 'Future') { - print $CSVfile '"'.&mt('Users with future roles').'"'."\n"; - } + print $CSVfile '"'.$results_description.'"'."\n"; print $CSVfile '"'.join('","',map { &Apache::loncommon::csv_translate($lt{$_}) } (@cols)).'"'."\n"; @@ -1303,18 +2046,7 @@ END &Apache::loncommon::create_workbook($r); return if (! defined($excel_workbook)); $excel_sheet = $excel_workbook->addworksheet('userlist'); - # - my $description; - if ($context eq 'course') { - $description = &mt('Class List for '). - $env{'course.'.$env{'request.course.id'}.'.description'}; - } elsif ($context eq 'construction_space') { - $description = &mt('List of co-authors for construction space for [_1]', - &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})); - } else { - $description = &mt('List of users for domain: [_1]',&Apache::lonnet::domain($env{'request.role.domain'},'description')); - } - $excel_sheet->write($row++,0,$description,$format->{'h1'}); + $excel_sheet->write($row++,0,$results_description,$format->{'h2'}); # my @colnames = map {$lt{$_}} (@cols); $excel_sheet->write($row++,0,\@colnames,$format->{'bold'}); @@ -1322,89 +2054,652 @@ END # Done with header lines in all formats - # - # Sort the users my %index; my $i; - foreach (@$keylist) { - $index{$_} = $i++; + foreach my $idx (@$keylist) { + $index{$idx} = $i++; + } + my $usercount = 0; + # Get groups, role, permanent e-mail so we can sort on them if + # necessary. + foreach my $user (keys(%{$userlist})) { + if ($context eq 'domain' && $user eq $env{'request.role.domain'}.'-domainconfig:'.$env{'request.role.domain'}) { + delete($userlist->{$user}); + next; + } + my ($uname,$udom,$role,$groups,$email); + if (($statusmode ne 'Any') && + ($userlist->{$user}->[$index{'status'}] ne $statusmode)) { + delete($userlist->{$user}); + next; + } + if ($context eq 'domain') { + if ($env{'form.roletype'} eq 'domain') { + ($role,$uname,$udom) = split(/:/,$user); + if (($uname eq $env{'request.role.domain'}.'-domainconfig') && + ($udom eq $env{'request.role.domain'})) { + delete($userlist->{$user}); + next; + } + } elsif ($env{'form.roletype'} eq 'author') { + ($uname,$udom,$role) = split(/:/,$user,-1); + } elsif ($env{'form.roletype'} eq 'course') { + ($uname,$udom,$role) = split(/:/,$user); + } + } else { + ($uname,$udom,$role) = split(/:/,$user,-1); + if (($context eq 'course') && $role eq '') { + $role = 'st'; + } + } + $userlist->{$user}->[$index{'role'}] = $role; + if (($env{'form.showrole'} ne 'Any') && (!($env{'form.showrole'} eq 'cr' && $role =~ /^cr\//)) && ($role ne $env{'form.showrole'})) { + delete($userlist->{$user}); + next; + } + if (ref($classgroups) eq 'HASH') { + $groups = $classgroups->{$user}; + } + if (ref($groups->{active}) eq 'HASH') { + $userlist->{$user}->[$index{'groups'}] = join(', ',keys(%{$groups->{'active'}})); + } + my %emails = &Apache::loncommon::getemails($uname,$udom); + if ($emails{'permanentemail'} =~ /\S/) { + $userlist->{$user}->[$index{'email'}] = $emails{'permanentemail'}; + } + $usercount ++; } - $index{'groups'} = scalar(@$keylist); - my $index = $index{$sortby}; - my $second = $index{'username'}; - my $third = $index{'domain'}; - my @Sorted_Students = sort { - lc($classlist->{$a}->[$index]) cmp lc($classlist->{$b}->[$index]) - || - lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second]) || - lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third]) - } (keys(%$classlist)); - my $studentcount = 0; my $autocount = 0; my $manualcount = 0; - my $unlockcount = 0; my $lockcount = 0; - foreach my $student (@Sorted_Students) { - my $sdata = $classlist->{$student}; - my $groups = $classgroups->{$student}; - my $username = $sdata->[$index{'username'}]; - my $domain = $sdata->[$index{'domain'}]; - my $section = $sdata->[$index{'section'}]; - my $active_groups; - if (ref($groups->{active}) eq 'HASH') { - $active_groups = join(', ',keys(%{$groups->{'active'}})); + my $unlockcount = 0; + if ($usercount) { + $r->print($output); + } else { + if ($mode eq 'autoenroll') { + return ($usercount,$autocount,$manualcount,$lockcount,$unlockcount); + } else { + return; } - my $name = $sdata->[$index{'fullname'}]; - my $id = $sdata->[$index{'id'}]; - my $status = $sdata->[$index{'status'}]; - next if (($statusmode ne 'Any') && ($status ne $statusmode)); - my $start = $sdata->[$index{'start'}]; - my $end = $sdata->[$index{'end'}]; - if (! defined($start) || $start == 0) { - $start = &mt('none'); + } + # + # Sort the users + my $index = $index{$sortby}; + my $second = $index{'username'}; + my $third = $index{'domain'}; + my @sorted_users = sort { + lc($userlist->{$a}->[$index]) cmp lc($userlist->{$b}->[$index]) + || + lc($userlist->{$a}->[$second]) cmp lc($userlist->{$b}->[$second]) || + lc($userlist->{$a}->[$third]) cmp lc($userlist->{$b}->[$third]) + } (keys(%$userlist)); + my $rowcount = 0; + foreach my $user (@sorted_users) { + my %in; + my $sdata = $userlist->{$user}; + $rowcount ++; + foreach my $item (@{$keylist}) { + $in{$item} = $sdata->[$index{$item}]; + } + my $role = $in{'role'}; + $in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}]); + if (! defined($in{'start'}) || $in{'start'} == 0) { + $in{'start'} = &mt('none'); } else { - $start = &Apache::lonlocal::locallocaltime($start); + $in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'}); } - if (! defined($end) || $end == 0) { - $end = &mt('none'); + if (! defined($in{'end'}) || $in{'end'} == 0) { + $in{'end'} = &mt('none'); } else { - $end = &Apache::lonlocal::locallocaltime($end); + $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'}); + } + if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') { + $r->print(&Apache::loncommon::start_data_table_row()); + my $checkval; + if ($mode eq 'autoenroll') { + my $cellentry; + if ($in{'type'} eq 'auto') { + $cellentry = ''.&mt('auto').' '; + $autocount ++; + } else { + $cellentry = '
'. @@ -910,14 +1044,16 @@ sub default_role_selector { } sub default_course_roles { - my ($context,%customroles) = @_; + my ($context,$checkpriv,%customroles) = @_; my $output; - my @roles = &course_roles($context); + my $custom = 1; + my @roles = &course_roles($context,$checkpriv,$custom); foreach my $role (@roles) { my $plrole=&Apache::lonnet::plaintext($role); $output .= ' '; } if (keys(%customroles) > 0) { + my %customroles = &my_custom_roles(); foreach my $cust (sort(keys(%customroles))) { my $custrole='cr_cr_'.$env{'user.domain'}. '_'.$env{'user.name'}.'_'.$cust; @@ -928,47 +1064,61 @@ sub default_course_roles { } sub construction_space_roles { - my @allroles = ('ca','aa'); + my ($checkpriv) = @_; + my @allroles = &roles_by_context('author'); my @roles; - foreach my $role (@allroles) { - if (&Apache::lonnet::allowed('c'.$role,$env{'user.domain'}.'/'.$env{'user.name'})) { - push(@roles,$role); + if ($checkpriv) { + foreach my $role (@allroles) { + if (&Apache::lonnet::allowed('c'.$role,$env{'user.domain'}.'/'.$env{'user.name'})) { + push(@roles,$role); + } } + return @roles; + } else { + return @allroles; } - return @roles; } sub domain_roles { - my @allroles = ('dc','li','dg','au','sc'); + my ($checkpriv) = @_; + my @allroles = &roles_by_context('domain'); my @roles; - foreach my $role (@allroles) { - if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) { - push(@roles,$role); + if ($checkpriv) { + foreach my $role (@allroles) { + if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) { + push(@roles,$role); + } } + return @roles; + } else { + return @allroles; } - return @roles; } sub course_roles { - my ($context) = @_; - my @allroles = ('st','ta','ep','in','cc'); + my ($context,$checkpriv,$custom) = @_; + my @allroles = &roles_by_context('course',$custom); my @roles; if ($context eq 'domain') { @roles = @allroles; } elsif ($context eq 'course') { if ($env{'request.course.id'}) { - foreach my $role (@allroles) { - if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) { - push(@roles,$role); - } else { - if ($role ne 'cc' && $env{'request.course.section'} ne '') { - if (!&Apache::lonnet::allowed('c'.$role, - $env{'request.course.id'}.'/'. - $env{'request.course.section'})) { - push(@roles,$role); + if ($checkpriv) { + foreach my $role (@allroles) { + if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) { + push(@roles,$role); + } else { + if ($role ne 'cc' && $env{'request.course.section'} ne '') { + if (!&Apache::lonnet::allowed('c'.$role, + $env{'request.course.id'}.'/'. + $env{'request.course.section'})) { + push(@roles,$role); + } } } } + } else { + @roles = @allroles; } } } @@ -976,18 +1126,19 @@ sub course_roles { } sub curr_role_permissions { - my ($context,$setting) = @_; + my ($context,$setting,$checkpriv) = @_; + my $custom = 1; my @roles; - if ($context eq 'construction_space') { - @roles = &construction_space_roles(); + if ($context eq 'author') { + @roles = &construction_space_roles($checkpriv); } elsif ($context eq 'domain') { if ($setting eq 'course') { - @roles = &course_roles($context); + @roles = &course_roles($context,$checkpriv,$custom); } else { - @roles = &domain_roles(); + @roles = &domain_roles($checkpriv); } } elsif ($context eq 'course') { - @roles = &course_roles($context); + @roles = &course_roles($context,$checkpriv,$custom); } return @roles; } @@ -1005,49 +1156,49 @@ sub my_custom_roles { return %returnhash; } -sub print_html_classlist { - my ($r,$mode,$permission,$context) = @_; +sub print_userlist { + my ($r,$mode,$permission,$context,$formname,$totcodes,$codetitles, + $idlist,$idlist_titles) = @_; + my $format = $env{'form.output'}; if (! exists($env{'form.sortby'})) { $env{'form.sortby'} = 'username'; } - if ($env{'form.status'} !~ /^(Any|Expired|Active|Future)$/) { - $env{'form.status'} = 'Active'; + if ($env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) { + $env{'form.Status'} = 'Active'; } my $status_select = &Apache::lonhtmlcommon::StatusOptions - ($env{'form.status'}); + ($env{'form.Status'}); + if ($env{'form.showrole'} eq '') { + if ($context eq 'course') { + $env{'form.showrole'} = 'st'; + } else { + $env{'form.showrole'} = 'Any'; + } + } if (! defined($env{'form.output'}) || $env{'form.output'} !~ /^(csv|excel|html)$/ ) { $env{'form.output'} = 'html'; } - if ($context eq 'course') { - my $cid =$env{'request.course.id'}; - my $cdom=$env{'course.'.$cid.'.domain'}; - my $cnum=$env{'course.'.$cid.'.num'}; - # - # List course personnel - my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); - # - - $r->print('
'.&Apache::loncommon::start_data_table()); - foreach my $role (sort keys %coursepersonnel) { - next if ($role =~ /^\s*$/); - $r->print(&Apache::loncommon::start_data_table_row(). - '		'.$role.''); - foreach my $user (split(',',$coursepersonnel{$role})) { - my ($puname,$pudom)=split(':',$user); - $r->print(' '.&Apache::loncommon::aboutmewrapper( - &Apache::loncommon::plainname($puname,$pudom), - $puname,$pudom)); - } - $r->print(''.$role.''; + foreach my $user (split(',',$coursepersonnel{$role})) { + my ($puname,$pudom)=split(':',$user); + $output .= ' '.&Apache::loncommon::aboutmewrapper( + &Apache::loncommon::plainname($puname,$pudom), + $puname,$pudom); + } + $output .= '$lt{'type'}Count'.&mt('Count').''.&mt('Select').''.$lt{$item}.'$lt{$item}'."\n".' '. - ''. $clicker_options{$clickerchg}.' '.$lt{'clicker'}."\n". - ' '."\n".' '. - ''. $photo_options{$photochg}.' '.$lt{'photo'}."\n". - '
'.&mt('manual').'
'; + $manualcount ++; + if ($in{'lockedtype'}) { + $cellentry .= ''; + $unlockcount ++; + } else { + $cellentry .= ''; + $lockcount ++; + } + $cellentry .= '
'; + } + $r->print("$cellentry\n"); + } else { + $r->print("$rowcount\n"); + $checkval; + if ($actionselect) { + $checkval = $user; + if ($context eq 'course') { + if ($role eq 'st') { + $checkval .= ':st'; + } + $checkval .= ':'.$in{'section'}; + if ($role eq 'st') { + $checkval .= ':'.$in{'type'}.':'.$in{'lockedtype'}; + } + } + $r->print(''); + } + } + foreach my $item (@cols) { + if ($item eq 'username') { + $r->print(''.&print_username_link($mode,$permission, + \%in).''); + } elsif (($item eq 'start' || $item eq 'end') && ($actionselect)) { + $r->print(''.$in{$item}.''."\n"); + } else { + $r->print(''.$in{$item}.''."\n"); + } + } + if (($context eq 'course') && ($mode ne 'autoenroll')) { + if ($env{'form.showrole'} eq 'st' || $env{'form.showrole'} eq 'Any') { + if ($displayclickers eq 'on') { + my $clickers = + (&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1]; + if ($clickers!~/\w/) { $clickers='-'; } + $r->print(''.$clickers.''); + } else { + $r->print('   '); + } + if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) { + if ($displayphotos eq 'on' && $sdata->[$index{'role'}] eq 'st') { + my $imgurl = + &Apache::lonnet::retrievestudentphoto($in{'domain'},$in{'username'}, + 'gif','thumbnail'); + $r->print(' '); + } else { + $r->print('   '); + } + } + } + } + $r->print(&Apache::loncommon::end_data_table_row()); + } elsif ($mode eq 'csv') { + next if (! defined($CSVfile)); + # no need to bother with $linkto + if (! defined($in{'start'}) || $in{'start'} == 0) { + $in{'start'} = &mt('none'); + } else { + $in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'}); + } + if (! defined($in{'end'}) || $in{'end'} == 0) { + $in{'end'} = &mt('none'); + } else { + $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'}); + } + my @line = (); + foreach my $item (@cols) { + push @line,&Apache::loncommon::csv_translate($in{$item}); + } + print $CSVfile '"'.join('","',@line).'"'."\n"; + } elsif ($mode eq 'excel') { + my $col = 0; + foreach my $item (@cols) { + if ($item eq 'start' || $item eq 'end') { + if (defined($item) && $item != 0) { + $excel_sheet->write($row,$col++, + &Apache::lonstathelpers::calc_serial($in{item}), + $format->{'date'}); + } else { + $excel_sheet->write($row,$col++,'none'); + } + } else { + $excel_sheet->write($row,$col++,$in{$item}); + } + } + $row++; } - my $status = $sdata->[$index{'status'}]; - next if ($status ne 'Active'); - # - $r->print(&Apache::loncommon::start_data_table_row()); - $r->print(<<"END"); - - $username - $domain - $id - $name - $start - $end -END - $r->print(&Apache::loncommon::end_data_table_row()); } - $r->print(&Apache::loncommon::end_data_table().'
'); - %lt=&Apache::lonlocal::texthash( - 'dp' => "Expire User Roles", - 'ca' => "check all", - 'ua' => "uncheck all", - ); - $r->print(<<"END"); -

-   - -

+ if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') { + $r->print(&Apache::loncommon::end_data_table().'
'); + } elsif ($mode eq 'excel') { + $excel_workbook->close(); + $r->print('

'. + &mt('Your Excel spreadsheet').' '.&mt('is ready for download').'.

'."\n"); + } elsif ($mode eq 'csv') { + close($CSVfile); + $r->print(''. + &mt('Your CSV file').' is ready for download.'. + "\n"); + $r->rflush(); + } + if ($mode eq 'autoenroll') { + return ($usercount,$autocount,$manualcount,$lockcount,$unlockcount); + } else { + return ($usercount); + } +} + +sub print_username_link { + my ($mode,$permission,$in) = @_; + my $output; + if ($mode eq 'autoenroll') { + $output = $in->{'username'}; + } elsif (!$permission->{'cusr'}) { + $output = &Apache::loncommon::aboutmewrapper($in->{'username'}, + $in->{'username'}, + $in->{'domain'}); + } else { + $output = '{'username'}','$in->{'domain'}'".')" />'. + $in->{'username'}.''; + } + return $output; +} + +sub role_type_names { + my %lt = &Apache::lonlocal::texthash ( + 'domain' => 'Domain Roles', + 'author' => 'Co-Author Roles', + 'course' => 'Course Roles', + ); + return %lt; +} + +sub select_actions { + my ($context,$setting,$statusmode) = @_; + my %lt = &Apache::lonlocal::texthash( + revoke => "Revoke user roles", + delete => "Delete user roles", + reenable => "Re-enable expired user roles", + activate => "Make future user roles active now", + chgdates => "Change starting/ending dates", + chgsec => "Change section associated with user roles", + ); + my ($output,$options,%choices); + if ($statusmode eq 'Any') { + $options .= ' +'; + $choices{'dates'} = 1; + } else { + if ($statusmode eq 'Future') { + $options .= ' +'; + $choices{'dates'} = 1; + } elsif ($statusmode eq 'Expired') { + $options .= ' +'; + $choices{'dates'} = 1; + } + if ($statusmode eq 'Active' || $statusmode eq 'Future') { + $options .= ' + +'; + $choices{'dates'} = 1; + } + } + if ($context eq 'domain') { + $options .= ' +'; + } + if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course')) { + if ($statusmode ne 'Expired') { + $options .= ' +'; + $choices{'sections'} = 1; + } + } + if ($options) { + $output = ''; + if ($choices{'dates'}) { + $output .= + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n". + ''."\n"; + if ($context eq 'course') { + $output .= ''."\n"; + } + } + if ($choices{'sections'}) { + $output .= ''."\n". + ''."\n"; + } + } + return $output; +} + +sub date_section_javascript { + my ($context,$setting) = @_; + my $title; + if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course')) { + $title = &mt('Date and Section selector'); + } else { + $title = &mt('Date selector'); + } + my $output = ' + +ENDTWO + return $output; +} + +sub date_section_selector { + my ($context) = @_; + my $callingform = $env{'form.callingform'}; + my $formname = 'dateselect'; + my $groupslist = &get_groupslist(); + my $sec_js = &setsections_javascript($formname,$groupslist); + my $output = <<"END"; + +'; + my %lt = &Apache::lonlocal::texthash ( + chac => 'Access dates to apply for selected users', + chse => 'Changes in section affiliation to apply to selected users', + fors => 'For student roles changing the section, will result in a section switch as students may only be in one section of a course at a time.', + forn => 'For a role in a course that is not a student role, a user may have roles in more than one section of a course at a time.', + reta => "Retain each user's current section affiliations?", + dnap => '(Does not apply to student roles).', + ); + my ($date_items,$headertext); + if ($env{'form.bulkaction'} eq 'chgsec') { + $headertext = $lt{'chse'}; + } else { + $headertext = $lt{'chac'}; + my $starttime; + if (($env{'form.bulkaction'} eq 'activate') || + ($env{'form.bulkaction'} eq 'reenable')) { + $starttime = time; + } + $date_items = &date_setting_table($starttime,undef,$context, + $env{'form.bulkaction'}); + } + $output .= '

'.$headertext.'

'. + '
'."\n". + $date_items; + if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') { + my ($cnum,$cdom) = &get_course_identity(); + my %sections_count = + &Apache::loncommon::get_sections($cdom,$cnum); + my $info; + if ($env{'form.showrole'} eq 'st') { + $output .= '

'.$lt{'fors'}.'

'; + } elsif ($env{'form.shorole'} eq 'Any') { + $output .= '

'.$lt{'fors'}.'

'. + '

'.$lt{'forn'}.' '; + $info = $lt{'reta'}; + } else { + $output .= '

'.$lt{'forn'}.' '; + $info = $lt{'reta'}; + } + if ($info) { + $info .= ''. + '  '. + ''; + if ($env{'form.showrole'} eq 'Any') { + $info .= '
'.$lt{'dnap'}; + } + $info .= '

'; + } else { + $info = ''; + } + my $sections_select .= &course_sections(\%sections_count,$env{'form.showrole'}); + my $secbox = '

'.&Apache::lonhtmlcommon::start_pick_box()."\n". + &Apache::lonhtmlcommon::row_title(&mt('New section to assign'),'LC_oddrow_value')."\n". + ''."\n". + '
'.&mt('Existing sections')."\n". + '
'.$sections_select.'		'. + &mt('New section').'
'."\n". + ''."\n". + ''."\n". + '
'."\n". + &Apache::lonhtmlcommon::row_closure(1)."\n". + &Apache::lonhtmlcommon::end_pick_box().'

'; + $output .= $info.$secbox; + } + $output .= '

'. +&mt('Use "Save" to update the main window with your selections.').'

'. +'

'."\n". +'
'; + return $output; } +sub section_picker { + my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode) = @_; + my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum); + my $sections_select .= &course_sections(\%sections_count,$role); + my $secbox = '

'.&Apache::lonhtmlcommon::start_pick_box()."\n"; + if ($mode eq 'upload') { + my ($options,$cb_script,$coursepick) = + &default_role_selector($context,1); + $secbox .= &Apache::lonhtmlcommon::row_title('role','LC_oddrow_value'). + $options. &Apache::lonhtmlcommon::row_closure(1)."\n"; + } + $secbox .= &Apache::lonhtmlcommon::row_title($rowtitle,'LC_oddrow_value')."\n"; + if ($env{'request.course.sec'} eq '') { + $secbox .= ''."\n". + '
'.&mt('Existing sections')."\n". + '
'.$sections_select.'		'. + &mt('New section').'
'."\n". + ''."\n". + ''."\n". + '
'."\n"; + } else { + $secbox .= ''. + $env{'request.course.sec'}; + } + $secbox .= &Apache::lonhtmlcommon::row_closure(1)."\n". + &Apache::lonhtmlcommon::end_pick_box().'

'; + return $secbox; +} + +sub results_header_row { + my ($rolefilter,$statusmode,$context,$permission) = @_; + my ($description,$showfilter); + if ($rolefilter ne 'Any') { + $showfilter = $rolefilter; + } + if ($context eq 'course') { + $description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': '; + if ($statusmode eq 'Expired') { + $description .= &mt('Users in course with expired [_1] roles',$showfilter); + } elsif ($statusmode eq 'Future') { + $description .= &mt('Users in course with future [_1] roles',$showfilter); + } elsif ($statusmode eq 'Active') { + $description .= &mt('Users in course with active [_1] roles',$showfilter); + } else { + if ($rolefilter eq 'Any') { + $description .= &mt('All users in course'); + } else { + $description .= &mt('All users in course with [_1] roles',$rolefilter); + } + } + if (exists($permission->{'view_section'})) { + if ($env{'form.showrole'} eq 'st') { + $description .= ' '.&mt('(section [_1] only)',$permission->{'view_section'}); + } elsif ($env{'form.showrole'} eq 'any') { + $description .= ' '.&mt('(section [_1] only)',$permission->{'view_section'}); + } + } + } elsif ($context eq 'author') { + $description = + &mt('Author space for [_1]', + &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})).':  '; + if ($statusmode eq 'Expired') { + $description .= &mt('Co-authors with expired [_1] roles',$showfilter); + } elsif ($statusmode eq 'Future') { + $description .= &mt('Co-authors with future [_1] roles',$showfilter); + } elsif ($statusmode eq 'Active') { + $description .= &mt('Co-authors with active [_1] roles',$showfilter); + } else { + if ($rolefilter eq 'Any') { + $description .= &mt('All co-authors'); + } else { + $description .= &mt('All co-authors with [_1] roles',$rolefilter); + } + } + } elsif ($context eq 'domain') { + my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description'); + $description = &mt('Domain - ').$domdesc.': '; + if ($env{'form.roletype'} eq 'domain') { + if ($statusmode eq 'Expired') { + $description .= &mt('Users in domain with expired [_1] roles',$showfilter); + } elsif ($statusmode eq 'Future') { + $description .= &mt('Users in domain with future [_1] roles',$showfilter); + } elsif ($statusmode eq 'Active') { + $description .= &mt('Users in domain with active [_1] roles',$showfilter); + } else { + if ($rolefilter eq 'Any') { + $description .= &mt('All users in domain'); + } else { + $description .= &mt('All users in domain with [_1] roles',$rolefilter); + } + } + } elsif ($env{'form.roletype'} eq 'author') { + if ($statusmode eq 'Expired') { + $description .= &mt('Co-authors in domain with expired [_1] roles',$showfilter); + } elsif ($statusmode eq 'Future') { + $description .= &mt('Co-authors in domain with future [_1] roles',$showfilter); + } elsif ($statusmode eq 'Active') { + $description .= &mt('Co-authors in domain with active [_1] roles',$showfilter); + } else { + if ($rolefilter eq 'Any') { + $description .= &mt('All users with co-author roles in domain',$showfilter); + } else { + $description .= &mt('All co-authors in domain with [_1] roles',$rolefilter); + } + } + } elsif ($env{'form.roletype'} eq 'course') { + my $coursefilter = $env{'form.coursepick'}; + if ($coursefilter eq 'category') { + my $instcode = &instcode_from_coursefilter(); + if ($instcode eq '.') { + $description .= &mt('All courses in domain').' - '; + } else { + $description .= &mt('Courses in domain with institutional code: [_1]',$instcode).' - '; + } + } elsif ($coursefilter eq 'selected') { + $description .= &mt('Selected courses in domain').' - '; + } elsif ($coursefilter eq 'all') { + $description .= &mt('All courses in domain').' - '; + } + if ($statusmode eq 'Expired') { + $description .= &mt('users with expired [_1] roles',$showfilter); + } elsif ($statusmode eq 'Future') { + $description .= &mt('users with future [_1] roles',$showfilter); + } elsif ($statusmode eq 'Active') { + $description .= &mt('users with active [_1] roles',$showfilter); + } else { + if ($rolefilter eq 'Any') { + $description .= &mt('all users'); + } else { + $description .= &mt('users with [_1] roles',$rolefilter); + } + } + } + } + return $description; +} + ################################################# ################################################# sub show_drop_list { - my ($r,$classlist,$keylist,$nosort)=@_; + my ($r,$classlist,$keylist,$nosort,$permission)=@_; my $cid=$env{'request.course.id'}; + my ($cnum,$cdom) = &get_course_identity($cid); if (! exists($env{'form.sortby'})) { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['sortby']); @@ -1413,26 +2708,17 @@ sub show_drop_list { if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) { $sortby = 'username'; } - my $cdom = $env{'course.'.$cid.'.domain'}; - my $cnum = $env{'course.'.$cid,'.num'}; my ($classgroups) = &Apache::loncoursedata::get_group_memberships( $classlist,$keylist,$cdom,$cnum); # my $action = "drop"; + my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript(); $r->print(< -

@@ -1447,9 +2733,9 @@ my %lt=&Apache::lonlocal::texthash('usrn 'groups' => "active groups", ); if ($nosort) { - $r->print(&Apache::loncommon::start_data_table()); + $r->print(&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row()); $r->print(<   $lt{'usrn'} $lt{'dom'} @@ -1459,32 +2745,32 @@ my %lt=&Apache::lonlocal::texthash('usrn $lt{'start'} $lt{'end'} $lt{'groups'} - END - + $r->print(&Apache::loncommon::end_data_table_header_row()); } else { - $r->print(&Apache::loncommon::start_data_table()); + $r->print(&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row()); $r->print(<  +   - $lt{'usrn'} + $lt{'usrn'} - $lt{'dom'} + $lt{'dom'} - ID + ID - $lt{'sn'} + $lt{'sn'} - $lt{'sec'} + $lt{'sec'} - $lt{'start'} + $lt{'start'} - $lt{'end'} + $lt{'end'} - $lt{'groups'} + $lt{'groups'} - END + $r->print(&Apache::loncommon::end_data_table_header_row()); } # # Sort the students @@ -1531,6 +2817,13 @@ END } my $status = $sdata->[$index{'status'}]; next if ($status ne 'Active'); + if ($env{'request.course.sec'} ne '') { + if ($section ne $env{'request.course.sec'}) { + next; + } + } + my $studentkey = $student.':'.$section; + my $startitem = ''; # $r->print(&Apache::loncommon::start_data_table_row()); $r->print(<<"END"); @@ -1561,8 +2854,6 @@ END return; } - - # # Print out the initial form to get the file containing a list of users # @@ -1572,11 +2863,11 @@ sub print_first_users_upload_form { $str = ''; $str .= ''; $str .= ''; - $str .= "

".&mt('Upload a list of users')."

\n"; + $str .= "

".&mt('Upload a file containing information about users')."

\n"; $str .= &Apache::loncommon::upfile_select_html(); $str .= "

\n"; $str .= ''."\n"; + &mt('Upload file of users').'">'."\n"; $str .= '

\n"; $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List", @@ -1682,7 +2973,7 @@ sub upfile_drop_add { } elsif ($setting eq 'course') { $defaultrole = $env{'form.courserole'}; } - } elsif ($context eq 'construction_space') { + } elsif ($context eq 'author') { $defaultrole = $env{'form.defaultrole'}; } if ($context eq 'domain' && $setting eq 'course') { @@ -1705,7 +2996,7 @@ sub upfile_drop_add { ####################################### if ($context eq 'course') { $r->print('

'.&mt('Enrolling Users')."

\n

\n"); - } elsif ($context eq 'construction_space') { + } elsif ($context eq 'author') { $r->print('

'.&mt('Updating Co-authors')."

\n

\n"); } else { $r->print('

'.&mt('Adding/Modifying Users')."

\n

\n"); @@ -1723,6 +3014,7 @@ sub upfile_drop_add { # Get information about course groups %curr_groups = &Apache::longroup::coursegroups(); } + my (%curr_rules,%got_rules,%alerts); # Get new users list foreach (@userdata) { my %entries=&Apache::loncommon::record_sep($_); @@ -1754,7 +3046,7 @@ sub upfile_drop_add { $entries{$fields{'username'}},$fname,$mname,$lname,$gen). ''); } else { - my $username = $entries{$fields{'username'}}; + my $username = $entries{$fields{'username'}}; my $sec; if ($context eq 'course' || $setting eq 'course') { # determine section number @@ -1805,9 +3097,9 @@ sub upfile_drop_add { my $role = ''; if (defined($fields{'role'})) { if ($entries{$fields{'role'}}) { - my @poss_roles = + my @poss_roles = &curr_role_permissions($context,$setting); - if (grep(/^\Q$entries{$fields{'role'}}\E/,@poss_roles)) { + if (grep(/^\Q$entries{$fields{'role'}}\E/,@poss_roles)) { $role=$entries{$fields{'role'}}; } else { my $rolestr = join(', ',@poss_roles); @@ -1825,6 +3117,50 @@ sub upfile_drop_add { \$lname,\$gen,\$sec,\$role) { $$_ =~ s/(\s+$|^\s+)//g; } + # check against rules + my $checkid = 0; + my $newuser = 0; + my (%rulematch,%inst_results,%idinst_results); + my $uhome=&Apache::lonnet::homeserver($username,$domain); + if ($uhome eq 'no_host') { + $checkid = 1; + $newuser = 1; + my $checkhash; + my $checks = { 'username' => 1 }; + $checkhash->{$username.':'.$domain} = { 'newuser' => 1, }; + &Apache::loncommon::user_rule_check($checkhash,$checks, + \%alerts,\%rulematch,\%inst_results,\%curr_rules, + \%got_rules); + if (ref($alerts{'username'}) eq 'HASH') { + if (ref($alerts{'username'}{$domain}) eq 'HASH') { + next if ($alerts{'username'}{$domain}{$username}); + } + } + } else { +# FIXME check if user info can be updated. + } + if ($id ne '') { + if (!$newuser) { + my %idhash = &Apache::lonnet::idrget($domain,($username)); + if ($idhash{$username} ne $id) { + $checkid = 1; + } + } + if ($checkid) { + my $checkhash; + my $checks = { 'id' => 1 }; + $checkhash->{$username.':'.$domain} = { 'newuser' => $newuser, + 'id' => $id }; + &Apache::loncommon::user_rule_check($checkhash,$checks, + \%alerts,\%rulematch,\%idinst_results,\%curr_rules, + \%got_rules); + if (ref($alerts{'id'}) eq 'HASH') { + if (ref($alerts{'id'}{$domain}) eq 'HASH') { + next if ($alerts{'id'}{$domain}{$id}); + } + } + } + } if ($password || $env{'form.login'} eq 'loc') { my ($userresult,$authresult,$roleresult); if ($role eq 'st') { @@ -1843,7 +3179,7 @@ sub upfile_drop_add { $id,$amode,$password,$fname, $mname,$lname,$gen,$sec, $env{'form.forceid'},$desiredhost, - $email,$role,$enddate,$startdate); + $email,$role,$enddate,$startdate,$checkid); } $flushc = &user_change_result($r,$userresult,$authresult, @@ -1854,7 +3190,7 @@ sub upfile_drop_add { $r->print('
'. &mt('[_1]: Unable to enroll. No password specified.',$username) ); - } elsif ($context eq 'construction_space') { + } elsif ($context eq 'author') { $r->print('
'. &mt('[_1]: Unable to add co-author. No password specified.',$username) ); @@ -1868,9 +3204,7 @@ sub upfile_drop_add { } } # end of foreach (@userdata) # Flush the course logs so reverse user roles immediately updated - if ($context eq 'course' || ($context eq 'domain' && $setting eq 'course')) { - &Apache::lonnet::flushcourselogs(); - } + &Apache::lonnet::flushcourselogs(); $r->print("

\n

\n".&mt('Processed [_1] user(s).',$counts{'user'}). "

\n"); if ($counts{'role'} > 0) { @@ -1882,6 +3216,7 @@ sub upfile_drop_add { &mt('Authentication changed for [_1] existing users.', $counts{'auth'})."

\n"); } + $r->print(&print_namespacing_alerts($domain,\%alerts,\%curr_rules)); $r->print('
'); $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','prevphase','currstate'])); $r->print('
'); @@ -1912,6 +3247,46 @@ sub upfile_drop_add { } # end of unless } +sub print_namespacing_alerts { + my ($domain,$alerts,$curr_rules) = @_; + my $output; + if (ref($alerts) eq 'HASH') { + if (keys(%{$alerts}) > 0) { + if (ref($alerts->{'username'}) eq 'HASH') { + foreach my $dom (sort(keys(%{$alerts->{'username'}}))) { + my $count; + if (ref($alerts->{'username'}{$dom}) eq 'HASH') { + $count = keys(%{$alerts->{'username'}{$dom}}); + } + my $domdesc = &Apache::lonnet::domain($domain,'description'); + if (ref($curr_rules->{$dom}) eq 'HASH') { + $output .= &Apache::loncommon::instrule_disallow_msg( + 'username',$domdesc,$count,'upload'); + } + $output .= &Apache::loncommon::user_rule_formats($dom, + $domdesc,$curr_rules->{$dom}{'username'}, + 'username'); + } + } + if (ref($alerts->{'id'}) eq 'HASH') { + foreach my $dom (sort(keys(%{$alerts->{'id'}}))) { + my $count; + if (ref($alerts->{'id'}{$dom}) eq 'HASH') { + $count = keys(%{$alerts->{'id'}{$dom}}); + } + my $domdesc = &Apache::lonnet::domain($domain,'description'); + if (ref($curr_rules->{$dom}) eq 'HASH') { + $output .= &Apache::loncommon::instrule_disallow_msg( + 'id',$domdesc,$count,'upload'); + } + $output .= &Apache::loncommon::user_rule_formats($dom, + $domdesc,$curr_rules->{$dom}{'id'},'id'); + } + } + } + } +} + sub user_change_result { my ($r,$userresult,$authresult,$roleresult,$counts,$flushc,$username, $userchg) = @_; @@ -1959,9 +3334,10 @@ sub user_change_result { } # ========================================================= Menu Phase Two Drop -sub print_expire_menu { - my ($r,$context) = @_; - $r->print("

".&mt("Expire Users' Roles")."

"); +sub print_drop_menu { + my ($r,$context,$permission) = @_; + $r->print('

'.&mt("Drop Students").'

'."\n". + '
'."\n"); my $cid=$env{'request.course.id'}; my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); if (! defined($classlist)) { @@ -1969,43 +3345,263 @@ sub print_expire_menu { return; } # Print out the available choices - &show_drop_list($r,$classlist,$keylist); + &show_drop_list($r,$classlist,$keylist,$permission); + $r->print('
'. &Apache::loncommon::end_page()); return; } - # ================================================================== Phase four -sub expire_user_list { - my ($r,$context) = @_; +sub update_user_list { + my ($r,$context,$setting,$choice) = @_; + my $now = time; my $count=0; - my @droplist = &Apache::loncommon::get_env_multiple('form.droplist'); - foreach (@droplist) { - my ($uname,$udom)=split(/\:/,$_); - # drop student - my $result = &modifystudent($udom,$uname,$env{'request.course.id'}); + my @changelist; + if ($choice ne '') { + @changelist = &Apache::loncommon::get_env_multiple('form.actionlist'); + } else { + @changelist = &Apache::loncommon::get_env_multiple('form.droplist'); + } + my %result_text = ( ok => { 'revoke' => 'Revoked', + 'delete' => 'Deleted', + 'reenable' => 'Re-enabled', + 'activate' => 'Activated', + 'chgdates' => 'Changed Access Dates for', + 'chgsec' => 'Changed section for', + 'drop' => 'Dropped', + }, + error => {'revoke' => 'revoking', + 'delete' => 'deleting', + 'reenable' => 're-enabling', + 'activate' => 'activating', + 'chgdates' => 'changing access dates for', + 'chgsec' => 'changing section for', + 'drop' => 'dropping', + }, + ); + my ($startdate,$enddate); + if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') { + ($startdate,$enddate) = &get_dates_from_form(); + } + foreach my $item (@changelist) { + my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,@sections, + $scopestem); + if ($choice eq 'drop') { + ($uname,$udom,$sec) = split(/:/,$item,-1); + $role = 'st'; + $cid = $env{'request.course.id'}; + $scopestem = '/'.$cid; + $scopestem =~s/\_/\//g; + if ($sec eq '') { + $scope = $scopestem; + } else { + $scope = $scopestem.'/'.$sec; + } + } elsif ($context eq 'course') { + ($uname,$udom,$role,$sec,$type,$locktype) = split(/\:/,$item,-1); + $cid = $env{'request.course.id'}; + $scopestem = '/'.$cid; + $scopestem =~s/\_/\//g; + if ($sec eq '') { + $scope = $scopestem; + } else { + $scope = $scopestem.'/'.$sec; + } + } elsif ($context eq 'author') { + ($uname,$udom,$role) = split(/\:/,$item,-1); + $scope = '/'.$env{'user.domain'}.'/'.$env{'user.name'}; + } elsif ($context eq 'domain') { + if ($setting eq 'domain') { + ($role,$uname,$udom) = split(/\:/,$item,-1); + $scope = '/'.$env{'request.role.domain'}.'/'; + } elsif ($setting eq 'author') { + ($uname,$udom,$role,$scope) = split(/\:/,$item); + } elsif ($setting eq 'course') { + ($uname,$udom,$role,$cid,$sec,$type,$locktype) = + split(/\:/,$item); + $scope = '/'.$cid; + $scope =~s/\_/\//g; + if ($sec ne '') { + $scope .= '/'.$sec; + } + } + } + my $plrole = &Apache::lonnet::plaintext($role); + my ($uid,$first,$middle,$last,$gene,$sec); + my $start = $env{'form.'.$item.'_start'}; + my $end = $env{'form.'.$item.'_end'}; + if ($choice eq 'drop') { + # drop students + $end = $now; + $type = 'manual'; + $result = + &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid); + } elsif ($choice eq 'revoke') { + # revoke or delete user role + $end = $now; + if ($role eq 'st') { + $result = + &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid); + } else { + $result = + &Apache::lonnet::revokerole($udom,$uname,$scope,$role); + } + } elsif ($choice eq 'delete') { + $start = -1; + $end = -1; + if ($role eq 'st') { +# FIXME - how does role deletion affect classlist? + &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid); + } else { + $result = + &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now, + 0,1); + } + } else { + #reenable, activate, change access dates or change section + if ($choice ne 'chgsec') { + $start = $startdate; + $end = $enddate; + } + if ($choice eq 'reenable') { + if ($role eq 'st') { + $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid); + } else { + $result = + &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, + $now); + } + } elsif ($choice eq 'activate') { + if ($role eq 'st') { + $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid); + } else { + $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, + $now); + } + } elsif ($choice eq 'chgdates') { + if ($role eq 'st') { + $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid); + } else { + $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end, + $start); + } + } elsif ($choice eq 'chgsec') { + my (@newsecs,$revresult,$nochg,@retained); + if ($role ne 'cc') { + @newsecs = split(/,/,$env{'form.newsecs'}); + } + # remove existing section if not to be retained. + if (!$env{'form.retainsec'}) { + if ($sec eq '') { + if (@newsecs == 0) { + $result = &mt('No change in section assignment (none)'); + $nochg = 1; + } + } else { + if (!grep(/^\Q$sec\E$/,@newsecs)) { + $revresult = + &Apache::lonnet::revokerole($udom,$uname,$scope,$role); + } else { + push(@retained,$sec); + } + } + } else { + push(@retained,$sec); + } + # add new sections + if (@newsecs == 0) { + if (!$nochg) { + if ($sec ne '') { + if ($role eq 'st') { + $result = + &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid); + } else { + my $newscope = $scopestem; + $result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start); + } + } + } + } else { + foreach my $newsec (@newsecs) { + if (!grep(/^\Q$newsec\E$/,@retained)) { + if ($role eq 'st') { + $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid); + } else { + my $newscope = $scopestem; + if ($newsec ne '') { + $newscope .= '/'.$newsec; + } + $result = &Apache::lonnet::assignrole($udom,$uname, + $newscope,$role,$end,$start); + } + } + } + } + } + } + my $extent = $scope; + if ($choice eq 'drop' || $context eq 'course') { + my ($cnum,$cdom,$cdesc) = &get_course_identity($cid); + if ($cdesc) { + $extent = $cdesc; + } + } if ($result eq 'ok' || $result eq 'ok:') { - $r->print(&mt('Dropped [_1]',$uname.'@'.$udom).'
'); + $r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for [_3]", + $plrole,$extent,$uname.':'.$udom).'
'); $count++; } else { $r->print( - &mt('Error dropping [_1]:[_2]',$uname.'@'.$udom,$result). - '
'); + &mt("Error $result_text{'error'}{$choice} [_1] in [_2] for [_3]:[_4]", + $plrole,$extent,$uname.':'.$udom,$result).'
'); + } + } + $r->print('

'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,users].",$count).'

'); + if ($count > 0) { + if ($choice eq 'revoke' || $choice eq 'drop') { + $r->print('

'.&mt('Re-enabling will re-activate data for the role.

')); + } + # Flush the course logs so reverse user roles immediately updated + &Apache::lonnet::flushcourselogs(); + } + if ($env{'form.makedatesdefault'}) { + if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') { + $r->print(&make_dates_default($startdate,$enddate)); } } - $r->print('

'.&mt('Dropped [_1] user(s).',$count).'

'); - $r->print('

'.&mt('Re-enrollment will re-activate data.')) if ($count); } -sub section_check_js { - my $groupslist; - my %curr_groups = &Apache::longroup::coursegroups(); - if (%curr_groups) { - $groupslist = join('","',sort(keys(%curr_groups))); +sub classlist_drop { + my ($scope,$uname,$udom,$now,$action) = @_; + my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)}); + my $cid=$cdom.'_'.$cnum; + my $user = $uname.':'.$udom; + if ($action eq 'drop') { + if (!&active_student_roles($cnum,$cdom,$uname,$udom)) { + my $result = + &Apache::lonnet::cput('classlist', + { $user => $now }, + $env{'course.'.$cid.'.domain'}, + $env{'course.'.$cid.'.num'}); + return &mt('Drop from classlist: [_1]', + ''.$result.'').'
'; + } } +} + +sub active_student_roles { + my ($cnum,$cdom,$uname,$udom) = @_; + my %roles = + &Apache::lonnet::get_my_roles($uname,$udom,'userroles', + ['future','active'],['st']); + return exists($roles{"$cnum:$cdom:st"}); +} + +sub section_check_js { + my $groupslist= &get_groupslist(); return <<"END"; function validate(caller) { - var groups = new Array("$groupslist"); + var groups = new Array($groupslist); var secname = caller.value; if ((secname == 'all') || (secname == 'none')) { alert("'"+secname+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name."); @@ -2052,5 +3648,299 @@ sub set_login { return $response; } +sub course_sections { + my ($sections_count,$role) = @_; + my $output = ''; + my @sections = (sort {$a <=> $b} keys %{$sections_count}); + if (scalar(@sections) == 1) { + $output = ''."\n"; + foreach my $sec (@sections) { + $output .= '\n"; + } + } + $output .= ''; + return $output; +} + +sub get_groupslist { + my $groupslist; + my %curr_groups = &Apache::longroup::coursegroups(); + if (%curr_groups) { + $groupslist = join('","',sort(keys(%curr_groups))); + $groupslist = '"'.$groupslist.'"'; + } + return $groupslist; +} + +sub setsections_javascript { + my ($form,$groupslist) = @_; + my ($checkincluded,$finish,$roleplace,$setsection_js); + if ($form eq 'cu') { + $checkincluded = 'formname.elements[i-1].checked == true'; + $finish = 'formname.submit()'; + $roleplace = 3; + } else { + $checkincluded = 'formname.name == "'.$form.'"'; + $finish = "seccheck = 'ok';"; + $roleplace = 1; + $setsection_js = "var seccheck = 'alert';"; + } + my %alerts = &Apache::lonlocal::texthash( + secd => 'Section designations do not apply to Course Coordinator roles.', + accr => 'A course coordinator role will be added with access to all sections.', + inea => 'In each course, each user may only have one student role at a time.', + youh => 'You had selected ', + secs => 'sections.', + plmo => 'Please modify your selections so they include no more than one section.', + mayn => 'may not be used as the name for a section, as it is a reserved word.', + plch => 'Please choose a different section name.', + mnot => 'may not be used as a section name, as it is the name of a course group.', + secn => 'Section names and group names must be distinct. Please choose a different section name.', + ); + $setsection_js .= <<"ENDSECCODE"; + +function setSections(formname) { + var re1 = /^currsec_/; + var groups = new Array($groupslist); + for (var i=0;i 0) { + if (formname.elements[i+1].value != "" && formname.elements[i+1].value != null) { + sections = sections + "," + formname.elements[i+1].value; + } + } + else { + sections = formname.elements[i+1].value; + } + var newsecs = formname.elements[i+1].value; + var numsplit; + if (newsecs != null && newsecs != "") { + numsplit = newsecs.split(/,/g); + numsec = numsec + numsplit.length; + } + + if ((role == 'st') && (numsec > 1)) { + alert("$alerts{'inea'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}") + return; + } + else { + if (numsplit != null) { + for (var j=0; j 0) { + my %rule_check = &Apache::lonnet::inst_rulecheck($dom,$uname,undef,'username',\@user_rules); + if (keys(%rule_check) > 0) { + $usertype = 'unofficial'; + foreach my $item (keys(%rule_check)) { + if ($rule_check{$item}) { + $usertype = 'official'; + last; + } + } + } + } + } + return $usertype; +} + +sub roles_by_context { + my ($context,$custom) = @_; + my @allroles; + if ($context eq 'course') { + @allroles = ('st','ad','ta','ep','in','cc'); + if ($custom) { + push(@allroles,'cr'); + } + } elsif ($context eq 'author') { + @allroles = ('ca','aa'); + } elsif ($context eq 'domain') { + @allroles = ('li','dg','sc','au','dc'); + } + return @allroles; +} + +sub get_permission { + my ($context,$roles) = @_; + my %permission; + if ($context eq 'course') { + my $custom = 1; + my @allroles = &roles_by_context($context,$custom); + foreach my $role (@allroles) { + if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) { + $permission{'cusr'} = 1; + last; + } + } + if (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) { + $permission{'custom'} = 1; + } + if (&Apache::lonnet::allowed('vcl',$env{'request.course.id'})) { + $permission{'view'} = 1; + } + if (!$permission{'view'}) { + my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'}; + $permission{'view'} = &Apache::lonnet::allowed('vcl',$scope); + if ($permission{'view'}) { + $permission{'view_section'} = $env{'request.course.sec'}; + } + } + if (!$permission{'cusr'}) { + if ($env{'request.course.sec'} ne '') { + my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'}; + $permission{'cusr'} = (&Apache::lonnet::allowed('cst',$scope)); + if ($permission{'cusr'}) { + $permission{'cusr_section'} = $env{'request.course.sec'}; + } + } + } + if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) { + $permission{'grp_manage'} = 1; + } + } elsif ($context eq 'author') { + $permission{'cusr'} = &authorpriv($env{'user.name'},$env{'request.role.domain'}); + $permission{'view'} = $permission{'cusr'}; + } else { + my @allroles = &roles_by_context($context); + foreach my $role (@allroles) { + if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) { $permission{'cusr'} = 1; + last; + } + } + if (!$permission{'cusr'}) { + if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) { + $permission{'cusr'} = 1; + } + } + if (&Apache::lonnet::allowed('ccr',$env{'request.role.domain'})) { + $permission{'custom'} = 1; + } + $permission{'view'} = $permission{'cusr'}; + } + my $allowed = 0; + foreach my $perm (values(%permission)) { + if ($perm) { $allowed=1; last; } + } + return (\%permission,$allowed); +} + +# ==================================================== Figure out author access + +sub authorpriv { + my ($auname,$audom)=@_; + unless ((&Apache::lonnet::allowed('cca',$audom.'/'.$auname)) + || (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; } return 1; +} + +sub get_course_identity { + my ($cid) = @_; + my ($cnum,$cdom,$cdesc); + if ($cid eq '') { + $cid = $env{'request.course.id'} + } + if ($cid ne '') { + $cnum = $env{'course.'.$cid.'.num'}; + $cdom = $env{'course.'.$cid.'.domain'}; + $cdesc = $env{'course.'.$cid.'.description'}; + if ($cnum eq '' || $cdom eq '') { + my %coursehash = + &Apache::lonnet::coursedescription($cid,{'one_time' => 1}); + $cdom = $coursehash{'domain'}; + $cnum = $coursehash{'num'}; + $cdesc = $coursehash{'description'}; + } + } + return ($cnum,$cdom,$cdesc); +} + + + 1;