version 1.11, 2004/04/16 13:26:44
|
version 1.12, 2004/06/08 22:09:44
|
Line 207 ENDONE
|
Line 207 ENDONE
|
############################################################### |
############################################################### |
|
|
sub print_main_frame { |
sub print_main_frame { |
my ($r,$realm,$dom,$crs,$tasktitleref) = @_; |
my ($r,$realm,$dom,$crs,$tasktitleref,$homeserver,$server) = @_; |
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 641 ENDTWO
|
Line 641 ENDTWO
|
</form> |
</form> |
"); |
"); |
} elsif ($action eq "sections") { |
} elsif ($action eq "sections") { |
my @sections = &localenroll::get_sections($enrollvar{coursecode}); |
my @sections = (); |
|
@sections = &Apache::lonnet::auto_get_sections($homeserver,$enrollvar{coursecode}); |
my @storedsections = (); |
my @storedsections = (); |
my @currsections = (); |
my @currsections = (); |
my %sec_id = (); |
my %sec_id = (); |
Line 1156 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) = @_; |
my ($r,$realm,$dom,$crs,$action,$tasktitleref,$homeserver,$server) = @_; |
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 1259 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) = @_; |
my ($r,$realm,$dom,$crs,$action,$tasktitleref,$homeserver,$server) = @_; |
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 1289 sub print_crosslistings_response () {
|
Line 1290 sub print_crosslistings_response () {
|
my $xl = "newcross_".$i; |
my $xl = "newcross_".$i; |
my $gp = "newgroupid_".$i; |
my $gp = "newgroupid_".$i; |
if ( exists($ENV{"form.$xl"}) ) { |
if ( exists($ENV{"form.$xl"}) ) { |
my $coursecheck = &localenroll::validate_courseID($ENV{"form.$xl"}); |
my $coursecheck = ''; |
|
# if ($homeserver eq $server) { |
|
# $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 = &localenroll::new_course($ENV{"form.$xl"},$owner); |
my $addcheck = ''; |
|
# if ($homeserver eq $server) { |
|
# $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 { |
push @badowner,$ENV{"form.$xl"}.":".$ENV{"form.$gp"}; |
push @badowner,$ENV{"form.$xl"}.":".$ENV{"form.$gp"}; |
} |
} |
} else { |
} else { |
push @badxlists, $ENV{"form.$xl"}.":".$ENV{"form.$gp"}.":".$coursecheck; |
push @badxlists, $ENV{"form.$xl"}.":".$ENV{"form.$gp"}.":".$coursecheck; |
} |
} |
Line 1371 sub print_crosslistings_response () {
|
Line 1382 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,$homeserver,$server) = @_; |
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 1410 sub print_sections_menu () {
|
Line 1421 sub print_sections_menu () {
|
$seccount ++; |
$seccount ++; |
} else { |
} else { |
my $newsec = $coursecode.$ENV{"form.$secnum"}; |
my $newsec = $coursecode.$ENV{"form.$secnum"}; |
my $coursecheck = &localenroll::validate_courseID($newsec); |
my $coursecheck = ''; |
|
# 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 = &localenroll::new_course($newsec,$owner); |
my $addcheck = ''; |
|
# 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 1555 sections which contribute to enrollment
|
Line 1576 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,$homeserver,$server) = @_; |
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 1587 sub print_sections_response () {
|
Line 1608 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 = &localenroll::validate_courseID($newsec); |
my $coursecheck = ''; |
|
# 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 = &localenroll::new_course($newsec,$owner); |
my $addcheck = ''; |
|
# 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 1691 sub print_photos_response () {
|
Line 1722 sub print_photos_response () {
|
} |
} |
|
|
sub print_update_result () { |
sub print_update_result () { |
my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_; |
my ($r,$realm,$dom,$crs,$action,$tasktitleref,$homeserver,$server) = @_; |
my $response = ''; |
my $response = ''; |
my $updateadds = 0; |
my $updateadds = 0; |
my $updatedrops = 0; |
my $updatedrops = 0; |
Line 1763 sub print_update_result () {
|
Line 1794 sub print_update_result () {
|
|
|
if (@allcourses > 0) { |
if (@allcourses > 0) { |
@{$affiliates{$crs}} = @allcourses; |
@{$affiliates{$crs}} = @allcourses; |
&localenroll::fetch_enrollment($dom,\%affiliates,\%reply); |
# if ($homeserver eq $server) { |
|
# &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 2004 sub handler {
|
Line 2039 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 2012 sub handler {
|
Line 2051 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); |
&print_main_frame($r,$realm,$dom,$crs,\%tasktitle,$homeserver,$server); |
} 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 2020 sub handler {
|
Line 2059 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); |
&print_sections_menu($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server); |
} elsif ($action eq "crosslist") { |
} elsif ($action eq "crosslist") { |
&print_crosslistings_menu($r,$realm,$dom,$crs,$action,\%tasktitle); |
&print_crosslistings_menu($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server); |
} elsif ($action eq "updatenow") { |
} elsif ($action eq "updatenow") { |
&print_update_result($r,$realm,$dom,$crs,$action,\%tasktitle); |
&print_update_result($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server); |
} 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); |
&print_crosslistings_response($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server); |
} elsif ($action eq "newsections") { |
} elsif ($action eq "newsections") { |
&print_sections_response($r,$realm,$dom,$crs,$action,\%tasktitle); |
&print_sections_response($r,$realm,$dom,$crs,$action,\%tasktitle,$homeserver,$server); |
} |
} |
&print_doc_base($r); |
&print_doc_base($r); |
return OK; |
return OK; |