--- loncom/lonnet/perl/lonnet.pm	2006/02/07 05:08:29	1.706
+++ loncom/lonnet/perl/lonnet.pm	2006/02/07 16:21:05	1.707
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.706 2006/02/07 05:08:29 raeburn Exp $
+# $Id: lonnet.pm,v 1.707 2006/02/07 16:21:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -953,7 +953,7 @@ sub studentphoto {
                 return(&retrievestudentphoto($udom,$unam,$ext)); 
             } else {
                 my ($result,$perm_reqd)=
-                        &Apache::lonnet::auto_photo_permission($unam,$udom);
+		    &Apache::lonnet::auto_photo_permission($unam,$udom);
                 if ($result eq 'ok') {
                     if (!($perm_reqd eq 'yes')) {
                         return(&retrievestudentphoto($udom,$unam,$ext));
@@ -963,7 +963,7 @@ sub studentphoto {
         }
     } else {
         my ($result,$perm_reqd) = 
-                           &Apache::lonnet::auto_photo_permission($unam,$udom);
+	    &Apache::lonnet::auto_photo_permission($unam,$udom);
         if ($result eq 'ok') {
             if (!($perm_reqd eq 'yes')) {
                 return(&retrievestudentphoto($udom,$unam,$ext));
@@ -3735,8 +3735,8 @@ sub auto_create_password {
 sub auto_photo_permission {
     my ($cnum,$cdom,$students) = @_;
     my $homeserver = &homeserver($cnum,$cdom);
-    my ($outcome,$perm_reqd,$conditions) = split(/:/,&unescape(
-                          &reply('autophotopermission:'.$cdom,$homeserver)),3);
+    my ($outcome,$perm_reqd,$conditions) = 
+	split(/:/,&unescape(&reply('autophotopermission:'.$cdom,$homeserver)),3);
     return ($outcome,$perm_reqd,$conditions);
 }
 
@@ -3745,7 +3745,8 @@ sub auto_checkphotos {
     my $homeserver = &homeserver($uname,$udom);
     my ($result,$resulttype);
     my $outcome = &unescape(&reply('autophotocheck:'.&escape($udom).':'.
-                               &escape($uname).':'.&escape($pid),$homeserver));
+				   &escape($uname).':'.&escape($pid),
+				   $homeserver));
     if ($outcome) {
         ($result,$resulttype) = split(/:/,$outcome);
     } 
@@ -3756,7 +3757,8 @@ sub auto_photochoice {
     my ($cnum,$cdom) = @_;
     my $homeserver = &homeserver($cnum,$cdom);
     my ($update,$comment) = split(/:/,&unescape(&reply('autophotochoice:'.
-                                                &escape($cdom),$homeserver)));
+						       &escape($cdom),
+						       $homeserver)));
     return ($update,$comment);
 }