--- loncom/interface/lonpopulate.pm 2005/10/04 18:27:32 1.27 +++ loncom/interface/lonpopulate.pm 2006/03/15 22:11:04 1.41 @@ -1,5 +1,5 @@ # automated enrollment configuration handler -# $Id: lonpopulate.pm,v 1.27 2005/10/04 18:27:32 albertel Exp $ +# $Id: lonpopulate.pm,v 1.41 2006/03/15 22:11:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,22 +38,14 @@ use LONCAPA::Enrollment; ############################################################### sub header { - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag('Classlist Manager'); - return(< -LON-CAPA Classlist Manager - -$bodytag -ENDHEAD + return &Apache::loncommon::start_page('Classlist Manager'); } ############################################################### sub choose_header { - my $action = shift; - my $bodytag=&Apache::loncommon::bodytag('Classlist Manager'); + my ($action) = @_; + my $scripttag = qq| |; - my $html=&Apache::lonxml::xmlbegin(); - return(< -LON-CAPA Classlist Manager -$scripttag -$bodytag -ENDHEAD + + return &Apache::loncommon::start_page('Classlist Manager', + $scripttag); } sub print_mainbox { @@ -312,7 +299,7 @@ sub print_main_frame { Use "Section settings" to make changes to the choice of sections included for enrollment in your LON-CAPA course.   - Use "Student photos" to enable or disable automatic upload of student photos to your course. + Use "Student photos settings" to enable or disable automatic import of photos for registered students in your course.   @@ -320,6 +307,10 @@ sub print_main_frame {   + Use "Update student photos" to import your institution's most current digital photos for registered students in your course. + + +   Use "View students and change type" to display the current course roster, and (optionally) change enrollment type for selected students from 'auto' to 'manual' and vice versa. @@ -349,13 +340,13 @@ ENDONE ENDTWO if ($enrollvar{autoadds}) { $r->print(" -  Enable    -  Disable + + "); } else { $r->print(" -  Enable    -  Disable + + "); } $r->print(" @@ -366,12 +357,12 @@ ENDTWO Removals based on classlist changes:  "); if ($enrollvar{autodrops}) { $r->print(" -  Enable    -  Disable"); + + "); } else { $r->print(" -  Enable    -  Disable"); + + "); } $r->print(" @@ -385,12 +376,12 @@ Note: Any students added manually by cou - + - - + + "); } elsif ($action eq "setdates") { @@ -462,12 +453,12 @@ Note: Any students added manually by cou
- +
- - + + ENDTWO } elsif ($action eq "setaccess") { @@ -476,24 +467,19 @@ ENDTWO
- +
- - + + ENDTWO } elsif ($action eq "notify") { - my @notified = (); - if ($enrollvar{notifylist} =~ m/,/) { - @notified = split/,/,$enrollvar{notifylist}; - } else { - @notified = $enrollvar{notifylist}; - } my $notifycount = 0; + my @notified = split(/,/,$enrollvar{notifylist}); foreach (@notified) { - unless ($_ eq '') { $notifycount ++; } + unless ($_ eq '') { $notifycount ++; } } my $noteset = ''; if ($notifycount) { @@ -518,13 +504,13 @@ ENDTWO "); if ($notifycount) { $r->print(" -  Yes    -  No + + "); } else { $r->print(" -  Yes    -  No + + "); } $r->print(" @@ -615,7 +601,7 @@ ENDTWO
- +
@@ -632,17 +618,15 @@ ENDTWO } $r->print(" - - - + + + "); } elsif ($action eq "crosslist") { - my @xlists = (); - if ($enrollvar{crosslistings} =~ m/,/) { - @xlists = split/,/,$enrollvar{crosslistings}; - } elsif ($enrollvar{crosslistings} ne '') { - $xlists[0] = $enrollvar{crosslistings}; + my @xlists; + if ($enrollvar{crosslistings} ne '') { + @xlists = split(/,/,$enrollvar{crosslistings}); } my $cross_str = @xlists; $r->print(" @@ -671,16 +655,16 @@ ENDTWO for (my $i=0; $i<@xlists; $i++) { my $xl = ' '; my $gp = ' '; - if ($xlists[$i] =~ /(\w+):?(.*)$/) { + if ($xlists[$i] =~ /^([^:]+):?(.*)$/) { $xl = $1; $gp = $2; } my $colflag = $i%2; $r->print(" - + $xl - + "); } @@ -712,25 +696,20 @@ ENDTWO
- +
- - + + "); } elsif ($action eq "sections") { my @sections = (); @sections = &Apache::lonnet::auto_get_sections($crs,$dom,$enrollvar{coursecode}); - my @storedsections = (); + my @storedsections = split(/,/,$enrollvar{sectionnums}); my @currsections = (); my %sec_id = (); - if ($enrollvar{sectionnums} =~ m/,/) { - @storedsections = split/,/,$enrollvar{sectionnums}; - } else { - $storedsections[0] = $enrollvar{sectionnums}; - } foreach (@storedsections) { if ($_ =~ m/^(\w+):(\w*)$/) { push @currsections, $1; @@ -778,7 +757,7 @@ your changes. if ($shrflag) { $r->print(""); } else { - $r->print(""); + $r->print(""); } } $r->print(" @@ -788,12 +767,12 @@ your changes. - + - - + + "); } else { @@ -825,9 +804,9 @@ your changes. my $colflag = $j%2; $r->print(" - + $currsections[$j] - + "); } @@ -858,12 +837,12 @@ your changes.
- +
- - + + "); } @@ -874,7 +853,7 @@ your changes.
$$tasktitleref{$action}
- Currently: Student photo import: $photosets[$enrollvar{showphotos}] + Currently: Student photo import: $photosets[$enrollvar{showphoto}]
@@ -884,40 +863,102 @@ your changes. Automatic import of student photos from institutional data repository:   "); - if ($enrollvar{showphotos}) { + if ($enrollvar{showphoto}) { $r->print(" -  Yes    -  No + + "); } else { $r->print(" -  Yes    -  No + + "); } - $r->print(" + $r->print(' + '); + my ($result,$perm_reqd)=&Apache::lonnet::auto_photo_permission($crs,$dom); + my $can_enable = 1; + my $institution = $Apache::lonnet::domaindescription{$dom}; + if ($result eq 'ok') { + if ($perm_reqd eq 'yes') { + if (!($enrollvar{'photopermission'} eq 'yes')) { + $can_enable = 0; + } else { + if ($env{'user.name'} eq $enrollvar{'courseowner'}) { + $r->print(' + + '. +&mt('Previously the owner of this course agreed to the conditions of use of digital student photos required by [_1].', $institution).'
'.&mt('As a result Course Coordinators can choose to automatically import student photos into this course.').'
+ + + '); + } + } + } + } else { + $r->print(' + + '. +&mt('There was a problem determining whether course owner permission is required in order for a course coordinator to have access to student photos in this domain.').' '.&mt('As a result you will not be able to configure access to student photos at this time').'

+ + + + '); + return; + } + if ($can_enable) { + $r->print(' - -Note: if you enable automatic import of student photos, your course will automatically have access to photos stored by your institution for all officially registered students, via a conduit established by your LON-CAPA domain coordinator. + '. +&mt('Note: if you enable automatic import of student photos, your course will automatically have access to photos stored by your institution for officially registered students, via a conduit established by your LON-CAPA domain coordinator.').' +'); + } else { + if ($env{'user.name'} eq $enrollvar{'courseowner'}) { + $r->print(' + + '. +&mt('[_1] requires a course owner to indicate acceptance of conditions of use of digital student photos before enabling automatic import into a course. If you choose to enable import of photos you will be prompted for your agreement on the next page.',$institution).' + + + '); + } else { + my ($ownername,$owneremail) = &get_ownerinfo($dom, + $enrollvar{'courseowner'}); + my $emailstr; + if ($owneremail) { + $emailstr = "(e-mail: $owneremail)"; + } + $r->print(' + + '. +&mt('The policies of your institution [_1] require that the course owner [_2] must indicate acceptance of the conditions of use of digital photos of registered students, before they may be made available for use in a course.',$institution,$ownername).'

'.&mt('Please direct the course owner [_1] to visit the "Student photos" page in the Automated Enrollment Manager to indicate acceptance of these conditions of use.',$emailstr).'

+ + + + '); + return; + } + } + $r->print('   - - + + - - + + - "); + '); } elsif ($action eq "updatenow") { $r->print("

@@ -931,14 +972,15 @@ Note: if you enable automatic import of Add any students currently included in institutional classlist(s) but not enrolled in your LON-CAPA course.
-  Yes  No  + + Expire students previously added by nightly enrollment process, but no longer listed in institutional classlist(s).
-  Yes  -  No 
+ +
@@ -956,7 +998,7 @@ Note: Any students previously added manu - + @@ -964,6 +1006,33 @@ Note: Any students previously added manu
"); + } elsif ($action eq 'updatephotos') { + $r->print(" + + + + + +
$$tasktitleref{$action} +
"); + if ($enrollvar{'showphoto'}) { + my ($update,$commentary) = &Apache::lonnet::auto_photochoice($crs, + $dom); + if ($update) { + $r->print('
'.$commentary.'

+
+ + + +
'); + } else { + $r->print(&mt('Update of photos via the Automated Enrollment Manager is unavailable in this domain.').'

'); + } + } else { + $r->print('Update of photos is unavailable, as import of student photos is currently disabled.
Enable this first via: '.$$tasktitleref{'photos'}.''); + } + $r->print('
 
'); } elsif ($action eq 'viewclass') { $r->print("

@@ -1049,7 +1118,7 @@ END - + "); @@ -1185,15 +1254,14 @@ ENDFOUR ############################################################### sub print_doc_base { - my $r = shift; + my ($r) = @_; $r->print(< -
- - +
ENDBASE + $r->print(&Apache::loncommon::end_page()); } ################################################################### @@ -1260,13 +1328,13 @@ sub print_chgsettings_response { } if ($autodrops) { if ($currdrops) { - $response .= "Nightly removals based on classlist changes still enabled
"; + $response .= "Nightly removals based on classlist changes still enabled
"; } else { $response .= "Nightly removals based on classlist changes now enabled
"; } } else { if ($currdrops) { - $response .= "Nightly removals based on classlist changes now disabled
"; + $response .= "Nightly removals based on classlist changes now disabled
"; } else { $response .= "Nightly removals based on classlist changes still disabled"; } @@ -1367,7 +1435,7 @@ sub print_setdates_response { $firstaccess = "a date prior to today"; } if (($nowstamp >= $autostart) && ($rosterupdated == 0)) { - $response .= qq|
Although you have now set the first enrollment date to $firstaccess, automatic enrollment will not occur until the next automatic enrollment update occurs for all LON-CAPA courses at 1.30 am $nextupdate. If you wish to immediately enroll registered students included in the institutional classlist for this class, please visit the roster update page.
|; + $response .= qq|
Although you have now set the first enrollment date to $firstaccess, automatic enrollment will not occur until the next automatic enrollment update occurs for all LON-CAPA courses at 1.30 am $nextupdate. If you wish to immediately enroll registered students included in the institutional classlist for this class, please visit the roster update page.
|; } } $warning = &warning_message($dom,$crs,$action); @@ -1467,7 +1535,7 @@ $showend.
"; $firstaccess = "a date prior to today"; } if (($nowstamp >= $startaccess) && ($accessgiven == 0)) { - $response .= qq|
Although you have now set the first access date to $firstaccess, automatic enrollment will not occur until the next automatic enrollment update occurs for all LON-CAPA courses $nextupdate. If you wish to grant immediate course access for registered students included in the institutional classlist for this class, please visit the roster update page.
|; + $response .= qq|
Although you have now set the first access date to $firstaccess, automatic enrollment will not occur until the next automatic enrollment update occurs for all LON-CAPA courses $nextupdate. If you wish to grant immediate course access for registered students included in the institutional classlist for this class, please visit the roster update page.
|; } } $warning = &warning_message($dom,$crs,$action); @@ -1488,18 +1556,13 @@ sub print_notify_response { my %settings = &Apache::lonnet::get('environment',['internal.notifylist','internal.coursecode'],$dom,$crs); my $notifylist = $settings{'internal.notifylist'}; my $coursecode = $settings{'internal.coursecode'}; - my @currpeople = (); + my @currpeople = split(/,/,$notifylist); my $notify = 0; my @people = (); my $peoplestr = ""; my $response = ""; my $noprocess = 0; - if ($notifylist =~ m/,/) { - @currpeople = split/,/,$notifylist; - } else { - $currpeople[0] = $notifylist; - } my $currcount = 0; foreach (@currpeople) { unless ($_ eq '') { $currcount ++; } @@ -1574,10 +1637,8 @@ sub print_crosslistings_menu () { my $xliststr = ''; my $response = ''; my $coursecode = $settings{'internal.coursecode'}; - if ($settings{'internal.crosslistings'} =~ m/,/) { - @currxlists = split/,/,$settings{'internal.crosslistings'}; - } elsif ($settings{'internal.crosslistings'} ne '') { - $currxlists[0] = $settings{'internal.crosslistings'}; + if ($settings{'internal.crosslistings'} ne '') { + @currxlists = split(/,/,$settings{'internal.crosslistings'}); } if (@currxlists > 0) { @@ -1600,11 +1661,8 @@ sub print_crosslistings_menu () { } } - if ($crosscount > 1) { - $xliststr = join(",",@xlists); - } else { - $xliststr = $xlists[0]; - } + $xliststr = join(",",@xlists); + my %cenv = ('internal.crosslistings' => $xliststr); my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); if ($reply !~ /^ok$/) { @@ -1651,13 +1709,13 @@ sub print_crosslistings_menu () { - + - - - + + + ); } @@ -1682,10 +1740,8 @@ sub print_crosslistings_response () { my $warning = ''; my $warn_prefix = ''; - if ($xliststr =~ m/,/) { - @allxlists = split/,/,$xliststr; - } else { - unless ($xliststr eq '') { $allxlists[0] = $xliststr; } + if ($xliststr ne '') { + @allxlists = split(/,/,$xliststr); } if ( exists($env{'form.numcross'}) ) { @@ -1717,11 +1773,8 @@ sub print_crosslistings_response () { if (@xlists > 0 ) { unless ($xliststr eq '') { $xliststr .= ","; } - if (@xlists > 1) { - $xliststr .= join(",",@xlists); - } else { - $xliststr .= $xlists[0]; - } + $xliststr .= join(",",@xlists); + my %cenv = ('internal.crosslistings' => $xliststr); my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); if ($reply !~ /^ok$/) { @@ -1736,12 +1789,7 @@ sub print_crosslistings_response () { } } else { if ($xliststr =~ m/:/) { - my @oldxlists = (); - if ($xliststr =~ m/,/) { - @oldxlists = split/,/,$xliststr; - } else { - $oldxlists[0] = $xliststr; - } + my @oldxlists = (split/,/,$xliststr); $response .= "Although no new crosslistings were added, the courses listed below continue to be crosslisted with your LON-CAPA course.
    \n"; foreach (@oldxlists) { my ($xlist,$gp) = split/:/,$_; @@ -1796,10 +1844,8 @@ sub print_sections_menu () { my $warn_prefix = ""; my $coursecode = $settings{'internal.coursecode'}; my $owner = $settings{'internal.courseowner'}; - if ($settings{'internal.sectionnums'} =~ m/,/) { - @currsections = split/,/,$settings{'internal.sectionnums'}; - } elsif ($settings{'internal.sectionnums'} ne '') { - $currsections[0] = $settings{'internal.sectionnums'}; + if ($settings{'internal.sectionnums'} ne '') { + @currsections = split(/,/,$settings{'internal.sectionnums'}); } if ( exists($env{'form.secshow'}) ) { @@ -1866,11 +1912,8 @@ sub print_sections_menu () { } } - if ($seccount > 1) { - $secstr = join(",",@sections); - } else { - $secstr = $sections[0]; - } + $secstr = join(",",@sections); + my %cenv = ('internal.sectionnums' => $secstr); my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); if ($reply !~ /^ok$/) { @@ -1949,13 +1992,13 @@ sections which contribute to enrollment - + - - - + + + ); } @@ -1980,10 +2023,8 @@ sub print_sections_response () { my $putreply = ''; my $warning = ''; my $warn_prefix = ''; - if ($secstr =~ m/,/) { - @allsections = split/,/,$secstr; - } else { - unless ($secstr eq '') { $allsections[0] = $secstr; } + if ($secstr ne '') { + @allsections = split(/,/,$secstr); } if ( exists($env{'form.numsec'}) ) { @@ -2016,11 +2057,7 @@ sub print_sections_response () { if (@sections > 0 ) { unless ($secstr eq '') { $secstr .= ","; } - if (@sections > 1) { - $secstr .= join(",",@sections); - } else { - $secstr .= $sections[0]; - } + $secstr .= join(",",@sections); my %cenv = ('internal.sectionnums' => $secstr); $putreply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); if ($putreply !~ /^ok$/) { @@ -2067,39 +2104,276 @@ sub print_sections_response () { return; } -sub print_photos_response () { +sub photo_permission { my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_; - my %settings = &Apache::lonnet::get('environment',['internal.showphotos'],$dom,$crs); - my $currphotos = $settings{'internal.showphotos'}; - my $showphotos = ''; - if ( exists($env{'form.showphotos'}) ) { - $showphotos=$env{'form.showphotos'}; + my %settings = &Apache::lonnet::get('environment', + ['internal.courseowner', + 'internal.photopermission', + 'internal.showphoto'], + $dom,$crs); + my ($showphotos,$response); + if (exists($env{'form.cancel_agreement'})) { + if ($env{'user.name'} eq $settings{'internal.courseowner'}) { + my %cenv = ( + 'internal.photopermission' => 'no', + ); + my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); + if ($reply !~ /^ok$/) { + $response = &mt('There was a problem processing the record of your agreement to the conditions of use. Settings for this course have been left unchanged.').'
    '."\n"; + &print_reply($r,$response,$$tasktitleref{$action}); + } else { + &print_photos_response($r,$realm,$dom,$crs,$action, + $tasktitleref,$showphotos,'no',\%cenv); + } + return; + } + } + if (exists($env{'form.showphotos'})) { + $showphotos=$env{'form.showphotos'}; + } + if ($showphotos) { + if ($env{'form.photopermission'}) { + my %cenv = ( + 'internal.photopermission' => $env{'form.photopermission'}, + ); + my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); + if ($reply !~ /^ok$/) { + $response = &mt('There was a problem processing the record of your agreement to the conditions of use. Settings for this course have been left unchanged.').'
    '."\n"; + } else { + &print_photos_response($r,$realm,$dom,$crs,$action, + $tasktitleref,$showphotos, + $env{'form.photopermission'},\%cenv); + } + } else { + my ($result,$perm_reqd,$conditions) = + &Apache::lonnet::auto_photo_permission($crs,$dom); + my $permcheck; + if ($result eq 'ok') { + if ($perm_reqd eq 'yes') { + if ($settings{'internal.photopermission'} eq 'yes') { + &print_photos_response($r,$realm,$dom,$crs,$action, + $tasktitleref,$showphotos); + } else { + return(&print_photo_agreement($r,$realm,$dom,$crs, + $action,$tasktitleref, + $conditions, + $settings{'internal.courseowner'})); + } + } elsif ($perm_reqd eq 'no') { + &print_photos_response($r,$realm,$dom,$crs,$action, + $tasktitleref,$showphotos); + } else { + $permcheck = 'fail'; + } + } else { + $permcheck = 'fail'; + } + if ($permcheck eq 'fail') { + my $response = &mt('There was a problem processing your requested change, because it could not be determined whether course owner permission is required in order for a course coordinator to have access to student photos in this domain.').' '.&mt('The student photo import setting for this course has been left unchanged.').'
    '; + &print_reply($r,$response,$$tasktitleref{$action}); + } + } + } else { + &print_photos_response($r,$realm,$dom,$crs,$action,$tasktitleref); } - + return; +} + +sub print_photo_agreement { + my ($r,$realm,$dom,$crs,$action,$tasktitleref,$conditions,$courseowner)=@_; + my $response; + my $institution = $Apache::lonnet::domaindescription{$dom}; + if ($env{'user.name'} eq $courseowner) { + $response = ' + +
    + + + + +
    Use of student photos
    '."\n". + &mt('Acceptance by the course owner of the conditions of use of photos is currently [_1] set.','not').'
    '.&mt('Please indicate your acceptance of the conditions of use of digital photos of registered students in courses at [_1].',$institution).' +
    + + + + + + + +
    + +
    + + + +
    + + + + +
    +'; + } else { + my ($ownername,$owneremail) = &get_oenerinfo($dom,$courseowner); + $response = &mt('The policies of your institution [_1] require that the course owner [_2] must indicate acceptance of the conditions of use of digital photos of registered students, before they may be made available for use in a course.',$institution,$ownername).'

    '.&mt('Please direct the course owner (e-mail: [_1]) to visit the "Student photos" page in the Automated Enrollment Manager to indicate acceptance of these conditions of use',$owneremail); + } + &print_reply($r,$response,$$tasktitleref{$action}); +} + +sub print_photos_response { + my ($r,$realm,$dom,$crs,$action,$tasktitleref,$showphotos,$photopermission, + $permissionenv)=@_; + my %newenv; + if (defined($permissionenv)) { + foreach my $key (keys(%{$permissionenv})) { + if (exists($env{'request.course.id'})) { + $newenv{$env{'request.course.id'}.'.'.$key} = + $$permissionenv{$key}; + } + } + } + my %settings = &Apache::lonnet::get('environment',['internal.showphoto'], + $dom,$crs); + my $currphotos = $settings{'internal.showphoto'}; my $response = ""; - my %cenv = ('internal.showphotos' => $showphotos); + if (defined($photopermission)) { + if ($photopermission eq 'yes') { + $response = &mt('Acceptance of photo use policy recorded.').'
    '."\n"; + } else { + $response = &mt('Non-acceptance of photo use policy recorded.').'
    '."\n"; + $showphotos = 0; + } + } + my %cenv = ('internal.showphoto' => $showphotos); my $reply = &Apache::lonnet::put('environment',\%cenv,$dom,$crs); if ($reply !~ /^ok$/) { - $response = "There was a problem processing your requested change. The student photo import setting for this course has been left unchanged.
    "; + $response .= "There was a problem processing your requested change. The student photo retrieval setting for this course has been left unchanged.
    "; } else { if ($showphotos) { if ($currphotos) { - $response = "Retrieval of student photos is still enabled
    "; + $response .= "Retrieval of student photos is still enabled.
    "; } else { - $response = "Retrieval of student photos in now enabled
    "; + $response .= "Retrieval of student photos in now enabled.
    "; + my ($update,$commentary) = + &Apache::lonnet::auto_photochoice($crs,$dom); + if ($update) { + $response .= '
    '.$commentary.'

    +
    + + + +
    '; + } } } else { if ($currphotos) { - $response = "Retrieval of student photos is now disabled
    "; + $response .= "Retrieval of student photos is now disabled.
    "; } else { - $response = "Retrieval of student photos is still disabled
    "; + $response .= "Retrieval of student photos is still disabled.
    "; } } + foreach my $key (keys(%cenv)) { + if (exists($env{'request.course.id'})) { + $newenv{'course.'.$env{'request.course.id'}.'.'.$key} = + $cenv{$key}; + } + } + } + if (keys(%newenv) > 0) { + &Apache::lonnet::appenv(%newenv); + } + &print_reply($r,$response,$$tasktitleref{$action}); + return; +} + +sub print_photoupdate_response { + my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_; + my $response; + my %changes; + my %lt = &LONCAPA::Enrollment::photo_response_types(); + my %settings = &Apache::lonnet::get('environment', + ['internal.coursecode', + 'internal.sectionnums', + 'internal.crosslistings'], + $dom,$crs); + my @allcourses = (); + my %LC_code; + my %affiliates; + my $outcome; + &get_institutional_codes(\%settings,,\@allcourses,\%LC_code); + if (@allcourses > 0) { + @{$affiliates{$crs}} = @allcourses; + $outcome = &Apache::lonnet::auto_photoupdate(\%affiliates,$dom,$crs,\%changes); + unless ($outcome eq 'ok') { + &Apache::lonnet::logthis("lonpopulate::print_photoupdate_response". + "failed to update student photos". + " for ".$crs."\@".$dom." by ". + $env{'user.name'}." \@ ".$env{'user.domain'}. + ": ".$outcome); + } + if ($outcome eq 'ok') { + if (keys(%changes) > 0) { + $response = &mt('Update of photos for registered students resulted in the following ').':
    +'; + foreach my $type (sort(keys(%changes))) { + my @usernames = sort(split(/\&/,$changes{$type})); + my $count = @usernames; + $response .= ''.&mt('For [_1] students, photos ', + $count).$lt{$type}.'
      '; + foreach my $username (@usernames) { + $response .= '
    • '.$username; + if (($type eq 'new') || ($type eq 'same') || ($type eq 'update')) { + $response .= ' View
      • '; + } + } + $response .= '

    '; + } + } else { + $response = &mt('No updates of photos of registered students occurred'). + '
    '; + } + } else { + $response = "There was a problem updating student photos for registered students in this course.
    "; + } + } else { + $response = "No institutional course sections are currently associated with this course so there are no registered students for whom photos can be imported/updated"; } &print_reply($r,$response,$$tasktitleref{$action}); return; } +sub get_ownerinfo { + my ($dom,$owner) = @_; + my ($ownername,$owneremail); + if ($owner) { + $ownername=&Apache::loncommon::plainname($owner,$dom,'firstname'); + my %ownerinfo = &Apache::lonnet::get('environment',['permanentemail'], + $dom,$owner); + $owneremail = $ownerinfo{'permanentemail'}; + } + return ($ownername,$owneremail); +} + sub print_update_result () { my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_; my $response = ''; @@ -2112,11 +2386,12 @@ sub print_update_result () { my %LC_code = (); my $logmsg = ''; my $newusermsg = ''; - - my %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.sectionnums','internal.crosslistings','internal.authtype','internal.autharg'],$dom,$crs); + my %phototypes = (); + my %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.sectionnums','internal.crosslistings','internal.authtype','internal.autharg','internal.showphoto'],$dom,$crs); my $coursecode = $settings{'internal.coursecode'}; my $authtype = $settings{'internal.authtype'}; my $autharg = $settings{'internal.autharg'}; + my $showphotos = $settings{'internal.showphoto'}; my ($startaccess,$endaccess) = &get_dates_from_form(); if ( exists($env{'form.updateadds'}) ) { $updateadds = $env{'form.updateadds'}; @@ -2133,46 +2408,7 @@ sub print_update_result () { } elsif ($coursecode eq '') { $response = "There was a problem retrieving the course code for this LON-CAPA course. An update of the class roster has not been carried out, and enrollment remains unchanged"; } else { -# Get complete list of course sections to update - my @currsections = (); - my @currxlists = (); - - if ($settings{'internal.sectionnums'} =~ m/,/) { - @currsections = split/,/,$settings{'internal.sectionnums'}; - } elsif ($settings{'internal.sectionnums'} ne '') { - $currsections[0] = $settings{'internal.sectionnums'}; - } - - if ($settings{'internal.crosslistings'} =~ m/,/) { - @currxlists = split/,/,$settings{'internal.crosslistings'}; - } elsif ($settings{'internal.crosslistings'} ne '') { - $currxlists[0] = $settings{'internal.crosslistings'}; - } - - if (@currxlists > 0) { - foreach (@currxlists) { - if (m/^(\w+):(\w*)$/) { - unless (grep/^$1$/,@allcourses) { - push @allcourses,$1; - $LC_code{$1} = $2; - } - } - } - } - - if (@currsections > 0) { - foreach (@currsections) { - if (m/^(\w+):(\w*)$/) { - my $sec = $coursecode.$1; - my $gp = $2; - unless (grep/^$sec$/,@allcourses) { - push @allcourses,$sec; - $LC_code{$sec} = $gp; - } - } - } - } - + &get_institutional_codes(\%settings,\@allcourses,\%LC_code); if (@allcourses > 0) { @{$affiliates{$crs}} = @allcourses; my $outcome = &Apache::lonnet::fetch_enrollment_query('updatenow',\%affiliates,\%reply,$dom,$crs); @@ -2184,7 +2420,7 @@ sub print_update_result () { ": ".$outcome); } if ($reply{$crs} > 0) { - ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$updateadds,$updatedrops,$startaccess,$endaccess,$authtype,$autharg,\@allcourses,\%LC_code,\$logmsg,\$newusermsg,"updatenow"); + ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$updateadds,$updatedrops,$startaccess,$endaccess,$authtype,$autharg,\@allcourses,\%LC_code,\$logmsg,\$newusermsg,"updatenow",\%phototypes); } else { $response = "There was a problem retrieving institutional class list data for the course sections and crosslisted courses which contribute enrollment to this course. No updates have been carried out, and the roster remains unchanged."; } @@ -2206,6 +2442,48 @@ sub print_update_result () { return; } +sub get_institutional_codes { + my ($settings,$allcourses,$LC_code) = @_; +# Get complete list of course sections to update + my @currsections = (); + my @currxlists = (); + my $coursecode = $$settings{'internal.coursecode'}; + + if ($$settings{'internal.sectionnums'} ne '') { + @currsections = split(/,/,$$settings{'internal.sectionnums'}); + } + + if ($$settings{'internal.crosslistings'} ne '') { + @currxlists = split(/,/,$$settings{'internal.crosslistings'}); + } + + if (@currxlists > 0) { + foreach (@currxlists) { + if (m/^([^:]+):(\w*)$/) { + unless (grep/^$1$/,@{$allcourses}) { + push @{$allcourses},$1; + $$LC_code{$1} = $2; + } + } + } + } + + if (@currsections > 0) { + foreach (@currsections) { + if (m/^(\w+):(\w*)$/) { + my $sec = $coursecode.$1; + my $gp = $2; + unless (grep/^$sec$/,@{$allcourses}) { + push @{$allcourses},$sec; + $$LC_code{$sec} = $gp; + } + } + } + } + return; +} + + sub print_viewclass_response { my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_; my $response; @@ -2492,11 +2770,11 @@ sub get_dates_from_form { sub date_setting_table { my ($starttime,$endtime,$action) = @_; my ($startform,$endform) = &setup_date_selectors($starttime,$endtime,$action); - my $perpetual = ''; + $perpetual.= ' />'.' no ending date'; my $start_table = ''; $start_table .= "\n"; $start_table .= ''. @@ -2525,13 +2803,13 @@ sub handler { if (! (($env{'request.course.fn'}) && (&Apache::lonnet::allowed('cst',$env{'request.course.id'})))) { # Not in a course, or not allowed to modify parms $env{'user.error.msg'}="/adm/populate:cst:0:0:Cannot drop or add students"; - return HTTP_NOT_ACCEPTABLE; + return HTTP_NOT_ACCEPTABLE; } # Start page &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; - my @tasks = ("information","chgsettings","setdates","setaccess","notify","crosslist","sections","photos","updatenow","viewclass"); + my @tasks = ("information","chgsettings","setdates","setaccess","notify","crosslist","sections","photos","updatenow","updatephotos","viewclass"); my %tasklong = ( information => "Task information", @@ -2541,7 +2819,8 @@ sub handler { notify => "Notification of changes", crosslist => "Change crosslistings", sections => "Section settings", - photos => "Student photos", + photos => "Student photo settings", + updatephotos => "Update student photos", updatenow => "Update roster now", newcross => "Add crosslistings", newsections => "Add sections", @@ -2555,7 +2834,8 @@ sub handler { notify => "Notification of enrollment changes", crosslist => "Changes to crosslistings", sections => "Changes to section settings", - photos => "Automatic import of student photos", + photos => "Student photo settings", + updatephotos => "Update student photos", updatenow => "Immediate course roster update", newcross => "Adding new crosslisted courses", newsections => "Adding new course sections", @@ -2639,7 +2919,13 @@ sub handler { } elsif ($action eq "updatenow") { &print_update_result($r,$realm,$dom,$crs,$action,\%tasktitle); } elsif ($action eq "photos") { - &print_photos_response($r,$realm,$dom,$crs,$action,\%tasktitle); + if ($state eq "photoupdate") { + &print_photoupdate_response($r,$realm,$dom,$crs,$action,\%tasktitle); + } else { + &photo_permission($r,$realm,$dom,$crs,$action,\%tasktitle); + } + } elsif ($action eq "updatephotos") { + &print_photoupdate_response($r,$realm,$dom,$crs,$action,\%tasktitle); } elsif ($action eq "newcross") { &print_crosslistings_response($r,$realm,$dom,$crs,$action,\%tasktitle); } elsif ($action eq "newsections") {
    Starting Date