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

Diff for /loncom/interface/lonpopulate.pm between versions 1.52 and 1.53

version 1.52, 2008/01/02 07:53:47 version 1.53, 2008/03/06 21:42:51
Line 2505  sub print_photoupdate_response { Line 2505  sub print_photoupdate_response {
     my %LC_code;      my %LC_code;
     my %affiliates;      my %affiliates;
     my $outcome;      my $outcome;
     &get_institutional_codes(\%settings,,\@allcourses,\%LC_code);      &Apache::loncommon::get_institutional_codes(\%settings,\@allcourses,\%LC_code);
     if (@allcourses > 0) {      if (@allcourses > 0) {
         @{$affiliates{$crs}} = @allcourses;          @{$affiliates{$crs}} = @allcourses;
         $outcome = &Apache::lonnet::auto_photoupdate(\%affiliates,$dom,$crs,\%changes);          $outcome = &Apache::lonnet::auto_photoupdate(\%affiliates,$dom,$crs,\%changes);
Line 2609  sub print_update_result () { Line 2609  sub print_update_result () {
     } elsif ($coursecode eq '') {      } elsif ($coursecode eq '') {
  $response = "There was a problem retrieving the course code for this LON-CAPA course.  An update of the class roster has not been carried out, and enrollment remains unchanged";   $response = "There was a problem retrieving the course code for this LON-CAPA course.  An update of the class roster has not been carried out, and enrollment remains unchanged";
     } else {      } else {
         &get_institutional_codes(\%settings,\@allcourses,\%LC_code);          &Apache::loncommon::get_institutional_codes(\%settings,\@allcourses,\%LC_code);
  if (@allcourses > 0) {   if (@allcourses > 0) {
     @{$affiliates{$crs}} = @allcourses;      @{$affiliates{$crs}} = @allcourses;
     my $outcome = &Apache::lonnet::fetch_enrollment_query('updatenow',\%affiliates,\%reply,$dom,$crs);      my $outcome = &Apache::lonnet::fetch_enrollment_query('updatenow',\%affiliates,\%reply,$dom,$crs);
Line 2643  sub print_update_result () { Line 2643  sub print_update_result () {
     return;      return;
 }  }
   
 sub get_institutional_codes {  
     my ($settings,$allcourses,$LC_code) = @_;  
 # Get complete list of course sections to update  
     my @currsections = ();  
     my @currxlists = ();  
     my $coursecode = $$settings{'internal.coursecode'};  
       
     if ($$settings{'internal.sectionnums'} ne '') {  
         @currsections = split(/,/,$$settings{'internal.sectionnums'});  
     }  
       
     if ($$settings{'internal.crosslistings'} ne '') {  
         @currxlists = split(/,/,$$settings{'internal.crosslistings'});  
     }  
       
     if (@currxlists > 0) {  
         foreach (@currxlists) {  
             if (m/^([^:]+):(\w*)$/) {  
                 unless (grep/^$1$/,@{$allcourses}) {  
                     push @{$allcourses},$1;  
                     $$LC_code{$1} = $2;  
                 }  
             }  
         }  
     }  
                                                                                          
     if (@currsections > 0) {  
         foreach (@currsections) {  
             if (m/^(\w+):(\w*)$/) {  
                 my $sec = $coursecode.$1;  
                 my $lc_sec = $2;  
                 unless (grep/^$sec$/,@{$allcourses}) {  
                     push @{$allcourses},$sec;  
                     $$LC_code{$sec} = $lc_sec;  
                 }  
             }  
         }  
     }  
     return;   
 }  
   
   
 sub print_viewclass_response {  sub print_viewclass_response {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;      my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
     my $response;      my $response;
Removed from v.1.52  
changed lines
  Added in v.1.53

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