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

Diff for /loncom/interface/lonpopulate.pm between versions 1.67 and 1.68

version 1.67, 2009/11/24 14:26:15 version 1.68, 2011/01/11 22:09:50
Line 1894  sub print_crosslistings_menu () { Line 1894  sub print_crosslistings_menu () {
   
 sub print_crosslistings_response () {  sub print_crosslistings_response () {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;      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','internal.co-owners'],$dom,$crs);
     my @currxlists = ();      my @currxlists = ();
     my @xlists = ();      my @xlists = ();
     my @allxlists = ();      my @allxlists = ();
Line 1906  sub print_crosslistings_response () { Line 1906  sub print_crosslistings_response () {
     my $xliststr =  $settings{'internal.crosslistings'};      my $xliststr =  $settings{'internal.crosslistings'};
     my $coursecode = $settings{'internal.coursecode'};      my $coursecode = $settings{'internal.coursecode'};
     my $owner = $settings{'internal.courseowner'};      my $owner = $settings{'internal.courseowner'};
       my $coowners = $settings{'internal.co-owners'};
     my $response = '';      my $response = '';
     my $warning = '';      my $warning = '';
     my $warn_prefix = '';      my $warn_prefix = '';
Line 1939  sub print_crosslistings_response () { Line 1940  sub print_crosslistings_response () {
  $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$env{"form.$xl"});   $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$env{"form.$xl"});
  if ($coursecheck eq 'ok') {   if ($coursecheck eq 'ok') {
     my $addcheck = '';      my $addcheck = '';
     $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$env{"form.$xl"},$owner);      $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$env{"form.$xl"},$owner,$coowners);
     if ($addcheck eq 'ok') {      if ($addcheck eq 'ok') {
  push @xlists,$env{"form.$xl"}.":".$env{"form.$lc_sec"};   push @xlists,$env{"form.$xl"}.":".$env{"form.$lc_sec"};
     } else {      } else {
Line 2029  sub print_crosslistings_response () { Line 2030  sub print_crosslistings_response () {
   
 sub print_sections_menu () {  sub print_sections_menu () {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;      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','internal.co-owners'],$dom,$crs);
     my @currsections = ();      my @currsections = ();
     my @sections = ();      my @sections = ();
     my @badowner = ();      my @badowner = ();
Line 2043  sub print_sections_menu () { Line 2044  sub print_sections_menu () {
     my $warn_prefix = "";      my $warn_prefix = "";
     my $coursecode = $settings{'internal.coursecode'};      my $coursecode = $settings{'internal.coursecode'};
     my $owner = $settings{'internal.courseowner'};      my $owner = $settings{'internal.courseowner'};
       my $coowners = $settings{'internal.co-owners'};
     if ($settings{'internal.sectionnums'} ne '') {      if ($settings{'internal.sectionnums'} ne '') {
  @currsections = split(/,/,$settings{'internal.sectionnums'});   @currsections = split(/,/,$settings{'internal.sectionnums'});
     }      }
Line 2067  sub print_sections_menu () { Line 2069  sub print_sections_menu () {
     my $newsec = $coursecode.$env{"form.$secnum"};      my $newsec = $coursecode.$env{"form.$secnum"};
     my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);      my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);
     if ($coursecheck eq 'ok') {      if ($coursecheck eq 'ok') {
  my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner);   my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);
  if ($addcheck eq 'ok') {   if ($addcheck eq 'ok') {
     push @sections,$env{"form.$secnum"}.":".$env{"form.$lc_sec"};      push @sections,$env{"form.$secnum"}.":".$env{"form.$lc_sec"};
     $seccount ++;      $seccount ++;
Line 2211  sections which contribute to enrollment Line 2213  sections which contribute to enrollment
   
 sub print_sections_response () {  sub print_sections_response () {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;      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','internal.co-owners'],$dom,$crs);
     my @currsections = ();      my @currsections = ();
     my @sections = ();      my @sections = ();
     my @allsections = ();      my @allsections = ();
Line 2223  sub print_sections_response () { Line 2225  sub print_sections_response () {
     my $secstr =  $settings{'internal.sectionnums'};      my $secstr =  $settings{'internal.sectionnums'};
     my $coursecode = $settings{'internal.coursecode'};      my $coursecode = $settings{'internal.coursecode'};
     my $owner = $settings{'internal.courseowner'};      my $owner = $settings{'internal.courseowner'};
       my $coowners = $settings{'internal.co-owners'};
     my $response = '';      my $response = '';
     my $putreply = '';      my $putreply = '';
     my $warning = '';      my $warning = '';
Line 2253  sub print_sections_response () { Line 2256  sub print_sections_response () {
     my $newsec = $coursecode.$env{"form.$sec"};      my $newsec = $coursecode.$env{"form.$sec"};
     my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);      my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);
     if ($coursecheck eq 'ok') {      if ($coursecheck eq 'ok') {
  my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner);   my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);
  if ($addcheck eq 'ok') {   if ($addcheck eq 'ok') {
     push @sections,$env{"form.$sec"}.":".$env{"form.$lc_sec"};      push @sections,$env{"form.$sec"}.":".$env{"form.$lc_sec"};
  } else {   } else {
Removed from v.1.67  
changed lines
  Added in v.1.68

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