--- loncom/interface/lonpopulate.pm	2006/02/07 05:08:32	1.34
+++ loncom/interface/lonpopulate.pm	2006/02/07 22:15:56	1.36
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.34 2006/02/07 05:08:32 raeburn Exp $
+# $Id: lonpopulate.pm,v 1.36 2006/02/07 22:15:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1022,8 +1022,8 @@ Note: Any students previously added manu
                      </td>
                     </tr><tr><td>");
       if ($enrollvar{'showphotos'}) {
-          my ($update,$commentary) = &Apache::lonnet::auto_photochoice(
-                                                                    $crs,$dom);
+          my ($update,$commentary) = &Apache::lonnet::auto_photochoice($crs,
+								       $dom);
           $r->print('<br />'.$commentary.'<br /><br />
 <form name="photoupdate" method="post">
 <input type ="button" name="retrieve" value="'.&mt('Update photo repository').'"
@@ -2111,8 +2111,11 @@ sub print_sections_response () {
 
 sub photo_permission {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
-    my %settings = &Apache::lonnet::get('environment',['internal.courseowner',
-                  'internal.photopermission','internal.showphotos'],$dom,$crs);
+    my %settings = &Apache::lonnet::get('environment',
+					['internal.courseowner',
+					 'internal.photopermission',
+					 'internal.showphotos'],
+					$dom,$crs);
     my ($showphotos,$response);
     if (exists($env{'form.cancel_agreement'})) {
         if ($env{'user.name'} eq $settings{'internal.courseowner'}) {
@@ -2143,25 +2146,27 @@ sub photo_permission {
                 $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.').'<br/>'."\n";
             } else {
                 &print_photos_response($r,$realm,$dom,$crs,$action,
-                $tasktitleref,$showphotos,$env{'form.photopermission'},\%cenv);
+				       $tasktitleref,$showphotos,
+				       $env{'form.photopermission'},\%cenv);
             }
         } else {
             my ($result,$perm_reqd,$conditions) = 
-                             &Apache::lonnet::auto_photo_permission($crs,$dom);
+		&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);
+					       $tasktitleref,$showphotos);
                     } else {
                         return(&print_photo_agreement($r,$realm,$dom,$crs,
-                                           $action,$tasktitleref,$conditions,
-                                           $settings{'internal.courseowner'}));
+						      $action,$tasktitleref,
+						      $conditions,
+						      $settings{'internal.courseowner'}));
                     }
                 } elsif ($perm_reqd eq 'no') {
                     &print_photos_response($r,$realm,$dom,$crs,$action,
-                                                    $tasktitleref,$showphotos);
+					   $tasktitleref,$showphotos);
                 } else {
                     $permcheck = 'fail';
                 }
@@ -2233,18 +2238,18 @@ function agreement_result(caller) {
 
 sub print_photos_response {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref,$showphotos,$photopermission,
-                                                            $permissionenv)=@_;
+	$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};
+		    $$permissionenv{$key};
             }
         }
     }
     my %settings = &Apache::lonnet::get('environment',['internal.showphotos'],
-                                                                    $dom,$crs);
+					$dom,$crs);
     my $currphotos = $settings{'internal.showphotos'};
     my $response = "";
     if (defined($photopermission)) {
@@ -2265,8 +2270,8 @@ sub print_photos_response {
 		$response .= "Retrieval of student photos is still <b>enabled</b>.<br/>";
 	    } else {
 		$response .= "Retrieval of student photos in now <b>enabled</b>.<br/>";
-                my ($update,$commentary) = &Apache::lonnet::auto_photochoice(
-                                                                    $crs,$dom);
+                my ($update,$commentary) = 
+		    &Apache::lonnet::auto_photochoice($crs,$dom);
                 if ($update) {
                     $response .= '<br />'.$commentary.'<br /><br />
 <form name="photoupdate" method="post">
@@ -2287,7 +2292,7 @@ onclick="javascript:document.photoupdate
         foreach my $key (keys(%cenv)) {
             if (exists($env{'request.course.id'})) {
                 $newenv{'course.'.$env{'request.course.id'}.'.'.$key} = 
-                                                                   $cenv{$key};
+		    $cenv{$key};
             }
         }
     }
@@ -2303,8 +2308,11 @@ sub print_photoupdate_response {
     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 %settings = &Apache::lonnet::get('environment',
+					['internal.coursecode',
+					 'internal.sectionnums',
+					 'internal.crosslistings'],
+					$dom,$crs);
     my @allcourses = ();
     my %LC_code;
     my %affiliates;
@@ -2315,10 +2323,10 @@ sub print_photoupdate_response {
         $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);
+				     "failed to update student photos".
+				     " for ".$crs."\@".$dom." by ".
+				     $env{'user.name'}." \@ ".$env{'user.domain'}.
+				     ": ".$outcome);
         }
         if ($outcome eq 'ok') {
             if (keys(%changes) > 0) {
@@ -2336,7 +2344,7 @@ function photowindow(photolink) {
                     my @usernames = sort(split(/\&/,$changes{$type})); 
                     my $count = @usernames; 
                     $response .= '<b>'.&mt('For [_1] students, photos ',
-                                            $count).$lt{$type}.'</b><ul>';
+					   $count).$lt{$type}.'</b><ul>';
                     foreach my $username (@usernames) {
                         $response .= '<li>'.$username;
                         if (($type eq 'new') || ($type eq 'same') || ($type eq 'update')) {
@@ -2364,8 +2372,8 @@ sub get_ownerinfo {
     my ($ownername,$owneremail);
     if ($owner) {
         $ownername=&Apache::loncommon::plainname($owner,$dom,'firstname');
-        my %ownerinfo = &Apache::lonnet::get('environment','permanentemail',
-                                                                  $dom,$owner);
+        my %ownerinfo = &Apache::lonnet::get('environment',['permanentemail'],
+					     $dom,$owner);
         $owneremail = $ownerinfo{'permanentemail'};
     }
     return ($ownername,$owneremail);