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

Diff for /loncom/interface/lonpopulate.pm between versions 1.12 and 1.13

version 1.12, 2004/06/08 22:09:44 version 1.13, 2004/06/09 17:01:56
Line 207  ENDONE Line 207  ENDONE
 ###############################################################  ###############################################################
   
 sub print_main_frame {  sub print_main_frame {
   my ($r,$realm,$dom,$crs,$tasktitleref,$homeserver,$server) = @_;    my ($r,$realm,$dom,$crs,$tasktitleref) = @_;
   my $action = "information";    my $action = "information";
   if (exists($ENV{'form.action'}) ) {    if (exists($ENV{'form.action'}) ) {
       $action = $ENV{'form.action'};        $action = $ENV{'form.action'};
Line 642  ENDTWO Line 642  ENDTWO
       ");        ");
   } elsif ($action eq "sections") {    } elsif ($action eq "sections") {
       my @sections = ();        my @sections = ();
       @sections = &Apache::lonnet::auto_get_sections($homeserver,$enrollvar{coursecode});        @sections = &Apache::lonnet::auto_get_sections($crs,$dom,$enrollvar{coursecode});
       my @storedsections = ();        my @storedsections = ();
       my @currsections = ();        my @currsections = ();
       my %sec_id = ();        my %sec_id = ();
Line 1157  sub print_notify_response { Line 1157  sub print_notify_response {
 }  }
   
 sub print_crosslistings_menu () {  sub print_crosslistings_menu () {
   my ($r,$realm,$dom,$crs,$action,$tasktitleref,$homeserver,$server) = @_;    my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
   my %settings = &Apache::lonnet::get('environment',['internal.crosslistings','internal.coursecode'],$dom,$crs);    my %settings = &Apache::lonnet::get('environment',['internal.crosslistings','internal.coursecode'],$dom,$crs);
   my @currxlists = ();    my @currxlists = ();
   my @xlists = ();    my @xlists = ();
Line 1260  sub print_crosslistings_menu () { Line 1260  sub print_crosslistings_menu () {
 }  }
   
 sub print_crosslistings_response () {  sub print_crosslistings_response () {
   my ($r,$realm,$dom,$crs,$action,$tasktitleref,$homeserver,$server) = @_;    my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
   my %settings = &Apache::lonnet::get('environment',['internal.crosslistings','internal.coursecode','internal.courseowner'],$dom,$crs);    my %settings = &Apache::lonnet::get('environment',['internal.crosslistings','internal.coursecode','internal.courseowner'],$dom,$crs);
   my @currxlists = ();    my @currxlists = ();
   my @xlists = ();    my @xlists = ();
Line 1291  sub print_crosslistings_response () { Line 1291  sub print_crosslistings_response () {
           my $gp = "newgroupid_".$i;            my $gp = "newgroupid_".$i;
           if ( exists($ENV{"form.$xl"}) ) {            if ( exists($ENV{"form.$xl"}) ) {
               my $coursecheck = '';                my $coursecheck = '';
 #              if ($homeserver eq $server) {                $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$ENV{"form.$xl"});
 #                  $coursecheck = &localenroll::validate_courseID($ENV{"form.$xl"});  
 #              } else {  
                   $coursecheck = &Apache::lonnet::auto_validate_courseID($homeserver,$ENV{"form.$xl"});  
 #              }  
               if ($coursecheck eq 'ok') {                if ($coursecheck eq 'ok') {
                   my $addcheck = '';                    my $addcheck = '';
 #                  if ($homeserver eq $server) {                    $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$ENV{"form.$xl"},$owner);
 #                      $addcheck = &localenroll::new_course($ENV{"form.$xl"},$owner);  
 #                  } else {  
                       $addcheck = &Apache::lonnet::auto_new_course($homeserver,$ENV{"form.$xl"},$owner);  
 #                  }  
                   if ($addcheck eq 'ok') {                    if ($addcheck eq 'ok') {
                      push @xlists,$ENV{"form.$xl"}.":".$ENV{"form.$gp"};                       push @xlists,$ENV{"form.$xl"}.":".$ENV{"form.$gp"};
                   } else {                    } else {
Line 1382  sub print_crosslistings_response () { Line 1374  sub print_crosslistings_response () {
 }  }
   
 sub print_sections_menu () {  sub print_sections_menu () {
   my ($r,$realm,$dom,$crs,$action,$tasktitleref,$homeserver,$server) = @_;    my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
   my %settings = &Apache::lonnet::get('environment',['internal.sectionnums','internal.coursecode','internal.courseowner'],$dom,$crs);    my %settings = &Apache::lonnet::get('environment',['internal.sectionnums','internal.coursecode','internal.courseowner'],$dom,$crs);
   my @currsections = ();    my @currsections = ();
   my @sections = ();    my @sections = ();
Line 1421  sub print_sections_menu () { Line 1413  sub print_sections_menu () {
                   $seccount ++;                    $seccount ++;
               } else {                } else {
                   my $newsec = $coursecode.$ENV{"form.$secnum"};                    my $newsec = $coursecode.$ENV{"form.$secnum"};
                   my $coursecheck = '';                    my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);
 #                  if ($homeserver eq $server) {  
 #                      $coursecheck = &localenroll::validate_courseID($newsec);  
 #                  } else  {  
                       $coursecheck = &Apache::lonnet::auto_validate_courseID($homeserver,$newsec);  
 #                  }  
                   if ($coursecheck eq 'ok') {                    if ($coursecheck eq 'ok') {
                       my $addcheck = '';                        my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner);
 #                      if ($homeserver eq $server) {  
 #                          $addcheck = &localenroll::new_course($newsec,$owner);  
 #                      } else {  
                           $addcheck = &Apache::lonnet::auto_new_course($homeserver,$newsec,$owner);  
 #                      }  
                       if ($addcheck eq 'ok') {                        if ($addcheck eq 'ok') {
                           push @sections,$ENV{"form.$secnum"}.":".$ENV{"form.$gp"};                            push @sections,$ENV{"form.$secnum"}.":".$ENV{"form.$gp"};
                           $seccount ++;                            $seccount ++;
Line 1576  sections which contribute to enrollment Line 1558  sections which contribute to enrollment
 }  }
   
 sub print_sections_response () {  sub print_sections_response () {
   my ($r,$realm,$dom,$crs,$action,$tasktitleref,$homeserver,$server) = @_;    my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
   my %settings = &Apache::lonnet::get('environment',['internal.sectionnums','internal.coursecode','internal.courseowner'],$dom,$crs);    my %settings = &Apache::lonnet::get('environment',['internal.sectionnums','internal.coursecode','internal.courseowner'],$dom,$crs);
   my @currsections = ();    my @currsections = ();
   my @sections = ();    my @sections = ();
Line 1608  sub print_sections_response () { Line 1590  sub print_sections_response () {
           if ( exists($ENV{"form.$sec"}) ) {            if ( exists($ENV{"form.$sec"}) ) {
               unless ( (grep/^$ENV{"form.$sec"}:/,@allsections) || (grep/^$ENV{"form.$sec"}:/,@sections) ) {                unless ( (grep/^$ENV{"form.$sec"}:/,@allsections) || (grep/^$ENV{"form.$sec"}:/,@sections) ) {
                   my $newsec = $coursecode.$ENV{"form.$sec"};                    my $newsec = $coursecode.$ENV{"form.$sec"};
                   my $coursecheck = '';                    my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);
 #                  if ($homeserver eq $server) {  
 #                      $coursecheck = &localenroll::validate_courseID($newsec);  
 #                  } else {  
                       $coursecheck = &Apache::lonnet::auto_validate_courseID($homeserver,$newsec);  
 #                  }  
                   if ($coursecheck eq 'ok') {                    if ($coursecheck eq 'ok') {
                       my $addcheck = '';                        my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner);
 #                      if ($homeserver eq $server) {  
 #                          $addcheck = &localenroll::new_course($newsec,$owner);  
 #                      } else {  
                           $addcheck = &Apache::lonnet::auto_new_course($homeserver,$newsec,$owner);  
 #                      }  
                       if ($addcheck eq 'ok') {                        if ($addcheck eq 'ok') {
                           push @sections,$ENV{"form.$sec"}.":".$ENV{"form.$gp"};                            push @sections,$ENV{"form.$sec"}.":".$ENV{"form.$gp"};
                       } else {                        } else {
Line 1722  sub print_photos_response () { Line 1694  sub print_photos_response () {
 }  }
   
 sub print_update_result () {  sub print_update_result () {
   my ($r,$realm,$dom,$crs,$action,$tasktitleref,$homeserver,$server) = @_;    my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
   my $response = '';    my $response = '';
   my $updateadds = 0;    my $updateadds = 0;
   my $updatedrops = 0;    my $updatedrops = 0;
Line 1794  sub print_update_result () { Line 1766  sub print_update_result () {
   
       if (@allcourses > 0) {        if (@allcourses > 0) {
           @{$affiliates{$crs}} = @allcourses;            @{$affiliates{$crs}} = @allcourses;
 #          if ($homeserver eq $server) {            my $outcome = &Apache::lonnet::fetch_enrollment_query('updatenow',\%affiliates,\%reply,$crs,$dom);
 #              &localenroll::fetch_enrollment($dom,\%affiliates,\%reply);  
 #          } else {  
               &Apache::lonnet::fetch_enrollment_query($homeserver,$dom,\%affiliates,\%reply);  
 #          }  
           if ($reply{$crs} > 0) {            if ($reply{$crs} > 0) {
               ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$updateadds,$updatedrops,$autostart,$autoend,$authtype,$autharg,\@allcourses,\%LC_code,\$logmsg,\$newusermsg,"updatenow");                ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$updateadds,$updatedrops,$autostart,$autoend,$authtype,$autharg,\@allcourses,\%LC_code,\$logmsg,\$newusermsg,"updatenow");
           } else {            } else {
Line 2040  sub handler { Line 2008  sub handler {
         }          }
     }      }
   
 # Determine course home server and current server  
     my $homeserver = &Apache::lonnet::homeserver($crs,$dom);  
     my $server = $Apache::lonnet::perlvar{'lonHostID'};  
     
     my $reply = 0;      my $reply = 0;
     unless ($state eq "choose") { $reply = 1; }      unless ($state eq "choose") { $reply = 1; }
   
Line 2051  sub handler { Line 2015  sub handler {
     &print_navmenu($r,\@tasks,\%tasklong);      &print_navmenu($r,\@tasks,\%tasklong);
           
     if (($state eq "choose") || ($action eq "information")) {      if (($state eq "choose") || ($action eq "information")) {
         &print_main_frame($r,$realm,$dom,$crs,\%tasktitle,$homeserver,$server);          &print_main_frame($r,$realm,$dom,$crs,\%tasktitle);
     } elsif ($action eq "chgsettings") {      } elsif ($action eq "chgsettings") {
         &print_chgsettings_response($r,$realm,$dom,$crs,$action,\%tasktitle);          &print_chgsettings_response($r,$realm,$dom,$crs,$action,\%tasktitle);
     } elsif ($action eq "setdates") {      } elsif ($action eq "setdates") {
Line 2059  sub handler { Line 2023  sub handler {
     } elsif ($action eq "notify") {      } elsif ($action eq "notify") {
         &print_notify_response($r,$realm,$dom,$crs,$action,\%tasktitle);          &print_notify_response($r,$realm,$dom,$crs,$action,\%tasktitle);
     } elsif ($action eq "sections") {      } elsif ($action eq "sections") {
         &print_sections_menu($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server);          &print_sections_menu($r,$realm,$dom,$crs,$action,\%tasktitle);
     } elsif ($action eq "crosslist") {      } elsif ($action eq "crosslist") {
         &print_crosslistings_menu($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server);          &print_crosslistings_menu($r,$realm,$dom,$crs,$action,\%tasktitle);
     } elsif ($action eq "updatenow") {      } elsif ($action eq "updatenow") {
         &print_update_result($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server);          &print_update_result($r,$realm,$dom,$crs,$action,\%tasktitle);
     } elsif ($action eq "photos") {      } elsif ($action eq "photos") {
         &print_photos_response($r,$realm,$dom,$crs,$action,\%tasktitle);          &print_photos_response($r,$realm,$dom,$crs,$action,\%tasktitle);
     } elsif ($action eq "newcross") {      } elsif ($action eq "newcross") {
         &print_crosslistings_response($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server);              &print_crosslistings_response($r,$realm,$dom,$crs,$action,\%tasktitle);    
     } elsif ($action eq "newsections") {      } elsif ($action eq "newsections") {
         &print_sections_response($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server);          &print_sections_response($r,$realm,$dom,$crs,$action,\%tasktitle);
     }      }
     &print_doc_base($r);        &print_doc_base($r);  
     return OK;      return OK;
Removed from v.1.12  
changed lines
  Added in v.1.13

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