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

Diff for /loncom/enrollment/localenroll.pm between versions 1.61 and 1.63

version 1.61, 2021/06/15 20:52:27 version 1.63, 2022/01/14 16:27:20
Line 731  sub check_instclasses { Line 731  sub check_instclasses {
 =cut  =cut
   
 sub instsec_reformat {  sub instsec_reformat {
     my ($dom,$action,$instsecref) = @;      my ($dom,$action,$instsecref) = @_;
     if ((ref($instsecref) eq 'HASH') &&      if ((ref($instsecref) eq 'HASH') &&
         (($action eq 'clutter') || ($action eq 'declutter'))) {          (($action eq 'clutter') || ($action eq 'declutter'))) {
         foreach my $key (keys(%{$instsecref})) {          foreach my $key (keys(%{$instsecref})) {
Line 1072  sub instcode_defaults { Line 1072  sub instcode_defaults {
  (d) $lc_users - reference to hash containing LON-CAPA usernames in    (d) $lc_users - reference to hash containing LON-CAPA usernames in 
                  in domain $dom, as keys. Needed if institutional                   in domain $dom, as keys. Needed if institutional
                  data source only allows query by username.                   data source only allows query by username.
    (e) $counts - reference to hash (optional), for use when called 
                  from Autoupdate.pl which can contain counts for
                  user-specified items retrieved in allusers_info()
                  or in custom subroutines which it calls. Key in
                  hashref, and count value will be printed to 
                  autoupdate.log by Autoupdate.pl.  
                    
  returns 1 parameter - 'ok' if no processing error, or other value    returns 1 parameter - 'ok' if no processing error, or other value 
                        if an error occurred.                         if an error occurred.
  side effects - populates the $instusers and $instids refs to hashes.   side effects - populates the $instusers and $instids refs to hashes.
Line 1082  sub instcode_defaults { Line 1089  sub instcode_defaults {
 =cut  =cut
   
 sub allusers_info {  sub allusers_info {
     my ($dom,$instusers,$instids,$lc_users) = @_;      my ($dom,$instusers,$instids,$lc_users,$counts) = @_;
     my $outcome = 'ok';      my $outcome = 'ok';
     return $outcome;       return $outcome; 
 }  }
Removed from v.1.61  
changed lines
  Added in v.1.63

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