[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.706 and 1.707

version 1.706, 2006/02/07 05:08:29 version 1.707, 2006/02/07 16:21:05
Line 953  sub studentphoto { Line 953  sub studentphoto {
                 return(&retrievestudentphoto($udom,$unam,$ext));                   return(&retrievestudentphoto($udom,$unam,$ext)); 
             } else {              } else {
                 my ($result,$perm_reqd)=                  my ($result,$perm_reqd)=
                         &Apache::lonnet::auto_photo_permission($unam,$udom);      &Apache::lonnet::auto_photo_permission($unam,$udom);
                 if ($result eq 'ok') {                  if ($result eq 'ok') {
                     if (!($perm_reqd eq 'yes')) {                      if (!($perm_reqd eq 'yes')) {
                         return(&retrievestudentphoto($udom,$unam,$ext));                          return(&retrievestudentphoto($udom,$unam,$ext));
Line 963  sub studentphoto { Line 963  sub studentphoto {
         }          }
     } else {      } else {
         my ($result,$perm_reqd) =           my ($result,$perm_reqd) = 
                            &Apache::lonnet::auto_photo_permission($unam,$udom);      &Apache::lonnet::auto_photo_permission($unam,$udom);
         if ($result eq 'ok') {          if ($result eq 'ok') {
             if (!($perm_reqd eq 'yes')) {              if (!($perm_reqd eq 'yes')) {
                 return(&retrievestudentphoto($udom,$unam,$ext));                  return(&retrievestudentphoto($udom,$unam,$ext));
Line 3735  sub auto_create_password { Line 3735  sub auto_create_password {
 sub auto_photo_permission {  sub auto_photo_permission {
     my ($cnum,$cdom,$students) = @_;      my ($cnum,$cdom,$students) = @_;
     my $homeserver = &homeserver($cnum,$cdom);      my $homeserver = &homeserver($cnum,$cdom);
     my ($outcome,$perm_reqd,$conditions) = split(/:/,&unescape(      my ($outcome,$perm_reqd,$conditions) = 
                           &reply('autophotopermission:'.$cdom,$homeserver)),3);   split(/:/,&unescape(&reply('autophotopermission:'.$cdom,$homeserver)),3);
     return ($outcome,$perm_reqd,$conditions);      return ($outcome,$perm_reqd,$conditions);
 }  }
   
Line 3745  sub auto_checkphotos { Line 3745  sub auto_checkphotos {
     my $homeserver = &homeserver($uname,$udom);      my $homeserver = &homeserver($uname,$udom);
     my ($result,$resulttype);      my ($result,$resulttype);
     my $outcome = &unescape(&reply('autophotocheck:'.&escape($udom).':'.      my $outcome = &unescape(&reply('autophotocheck:'.&escape($udom).':'.
                                &escape($uname).':'.&escape($pid),$homeserver));     &escape($uname).':'.&escape($pid),
      $homeserver));
     if ($outcome) {      if ($outcome) {
         ($result,$resulttype) = split(/:/,$outcome);          ($result,$resulttype) = split(/:/,$outcome);
     }       } 
Line 3756  sub auto_photochoice { Line 3757  sub auto_photochoice {
     my ($cnum,$cdom) = @_;      my ($cnum,$cdom) = @_;
     my $homeserver = &homeserver($cnum,$cdom);      my $homeserver = &homeserver($cnum,$cdom);
     my ($update,$comment) = split(/:/,&unescape(&reply('autophotochoice:'.      my ($update,$comment) = split(/:/,&unescape(&reply('autophotochoice:'.
                                                 &escape($cdom),$homeserver)));         &escape($cdom),
          $homeserver)));
     return ($update,$comment);      return ($update,$comment);
 }  }
   
Removed from v.1.706  
changed lines
  Added in v.1.707

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>