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

Diff for /loncom/interface/lonpopulate.pm between versions 1.23 and 1.24

version 1.23, 2005/04/07 06:56:23 version 1.24, 2005/04/07 07:34:52
Line 2248  sub print_viewclass_response { Line 2248  sub print_viewclass_response {
     my $secidx=&Apache::loncoursedata::CL_SECTION;      my $secidx=&Apache::loncoursedata::CL_SECTION;
     my $typeidx=&Apache::loncoursedata::CL_TYPE;      my $typeidx=&Apache::loncoursedata::CL_TYPE;
     my $lockedidx=&Apache::loncoursedata::CL_LOCKEDTYPE;      my $lockedidx=&Apache::loncoursedata::CL_LOCKEDTYPE;
     my @typechglist = ();  
     my @lockchglist = ();  
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['chgauto','chgmanual','lockchg','unlockchg']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['chgauto','chgmanual','lockchg','unlockchg']);
     if ($env{'form.chgauto'}) {      my @typechglist = (&Apache::loncommon::get_env_multiple('form.chgauto'),
         if (ref($env{'form.chgauto'}) eq 'ARRAY') {         &Apache::loncommon::get_env_multiple('form.chgmanual'));
             push @typechglist, @{$env{'form.chgauto'}};      my @lockchglist = (&Apache::loncommon::get_env_multiple('form.lockchg'),
         } else {         &Apache::loncommon::get_env_multiple('form.unlockchg'));
             push @typechglist, $env{'form.chgauto'};  
         }  
     }  
     if ($env{'form.chgmanual'}) {  
         if (ref($env{'form.chgmanual'}) eq 'ARRAY') {  
             push @typechglist, @{$env{'form.chgmanual'}};  
         } else {  
             push @typechglist, $env{'form.chgmanual'};  
         }  
     }  
     if ($env{'form.lockchg'}) {  
         if (ref($env{'form.lockchg'}) eq 'ARRAY') {  
             push @lockchglist, @{$env{'form.lockchg'}};  
         } else {  
             push @lockchglist, $env{'form.lockchg'};  
         }  
     }  
     if ($env{'form.unlockchg'}) {  
         if (ref($env{'form.unlockchg'}) eq 'ARRAY') {  
             push @lockchglist, @{$env{'form.unlockchg'}};  
         } else {  
             push @lockchglist, $env{'form.unlockchg'};  
         }  
     }  
     foreach my $student (sort @typechglist) {      foreach my $student (sort @typechglist) {
         my ($uname,$udom) = split/:/,$student;          my ($uname,$udom) = split/:/,$student;
         my $sdata    = $classlist->{$student};          my $sdata    = $classlist->{$student};
Removed from v.1.23  
changed lines
  Added in v.1.24

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