version 1.32, 2007/09/24 23:29:53
|
version 1.34, 2007/10/06 04:32:49
|
Line 368 all settings except course code, course
|
Line 368 all settings except course code, course
|
} |
} |
unless ($curr_authtype eq '') { |
unless ($curr_authtype eq '') { |
$curr_authfield = $curr_authtype.'arg'; |
$curr_authfield = $curr_authtype.'arg'; |
} |
} |
my $javascript_validations=&Apache::londropadd::javascript_validations('modifycourse',$krbdefdom,$curr_authtype,$curr_authfield); |
my $javascript_validations=&Apache::londropadd::javascript_validations('modifycourse',$krbdefdom,$curr_authtype,$curr_authfield); |
my %param = ( formname => 'document.cmod', |
my %param = ( formname => 'document.cmod', |
kerb_def_dom => $krbdefdom, |
kerb_def_dom => $krbdefdom, |
Line 437 all settings except course code, course
|
Line 437 all settings except course code, course
|
my $mainheader = &mt('Course settings modifiable by [_1] only.',$dctitle); |
my $mainheader = &mt('Course settings modifiable by [_1] only.',$dctitle); |
my $hidden_elements = &hidden_form_elements(); |
my $hidden_elements = &hidden_form_elements(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<form action="/adm/modifycourse" method="post" name="setparms"> |
<form action="/adm/modifycourse" method="post" name="cmod"> |
<h3>$mainheader</h3> |
<h3>$mainheader</h3> |
</p><p> |
</p><p> |
<table width="100%" cellspacing="6" cellpadding="6"> |
<table width="100%" cellspacing="6" cellpadding="6"> |
Line 561 sub modify_course {
|
Line 561 sub modify_course {
|
} |
} |
if ($changeowner == 1 || $changecode == 1) { |
if ($changeowner == 1 || $changecode == 1) { |
my $courseid_entry = &escape($cdom.'_'.$cnum).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'}).':'.&escape($type); |
my $courseid_entry = &escape($cdom.'_'.$cnum).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'}).':'.&escape($type); |
&Apache::lonnet::courseidput($cdom,$courseid_entry,&Apache::lonnet::homeserver($cnum,$cdom)); |
my %courseid_entry = ( |
|
$cdom.'_'.$cnum => { |
|
description => $description, |
|
inst_code => $env{'form.coursecode'}, |
|
owner => $env{'form.courseowner'}, |
|
type => $type, |
|
}, |
|
); |
|
&Apache::lonnet::courseidput($cdom,\%courseid_entry, |
|
&Apache::lonnet::homeserver($cnum,$cdom),'notime'); |
} |
} |
|
|
foreach my $param (@modifiable_params) { |
foreach my $param (@modifiable_params) { |
if ($currattr{$param} eq $newattr{$param}) { |
if ($currattr{$param} eq $newattr{$param}) { |
push(@nochanges,$param); |
push(@nochanges,$param); |
Line 573 sub modify_course {
|
Line 581 sub modify_course {
|
push(@changes,$param); |
push(@changes,$param); |
} |
} |
} |
} |
|
|
if (@changes > 0) { |
if (@changes > 0) { |
$chgresponse = &mt("The following automated enrollment parameters have been changed:<br/><ul>"); |
$chgresponse = &mt("The following automated enrollment parameters have been changed:<br/><ul>"); |
} |
} |
if (@nochanges > 0) { |
if (@nochanges > 0) { |
$nochgresponse = &mt("The following automated enrollment parameters remain unchanged:<br/><ul>"); |
$nochgresponse = &mt("The following automated enrollment parameters remain unchanged:<br/><ul>"); |
} |
} |
if (@changes > 0) { |
if (@changes > 0) { |
my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum); |
my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum); |
if ($putreply !~ /^ok$/) { |
if ($putreply !~ /^ok$/) { |
$response = &mt("There was a problem processing your requested changes. The automated enrollment settings for this course have been left unchanged.<br/>"); |
$response = &mt("There was a problem processing your requested changes. The automated enrollment settings for this course have been left unchanged.<br/>").&mt('Error: ').$putreply; |
} else { |
} else { |
foreach my $attr (@modifiable_params) { |
foreach my $attr (@modifiable_params) { |
if (grep/^$attr$/,@changes) { |
if (grep/^$attr$/,@changes) { |
Line 804 sub check_course {
|
Line 811 sub check_course {
|
my ($cdom,$cnum) = split(/_/,$env{'form.pickedcourse'}); |
my ($cdom,$cnum) = split(/_/,$env{'form.pickedcourse'}); |
if ($cdom eq $dom) { |
if ($cdom eq $dom) { |
my %courseIDs = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.', |
my %courseIDs = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.', |
$cnum,undef,undef,'.'); |
$cnum,undef,undef,'.'); |
if (keys(%courseIDs) > 0) { |
if (keys(%courseIDs) > 0) { |
$ok_course = 'ok'; |
$ok_course = 'ok'; |
($description,$instcode,$owner) = |
my ($description,$instcode,$owner); |
|
if (ref($courseIDs{$cdom.'_'.$cnum}) eq 'HASH') { |
|
$description = $courseIDs{$cdom.'_'.$cnum}{'description'}; |
|
$instcode = $courseIDs{$cdom.'_'.$cnum}{'inst_code'}; |
|
$owner = $courseIDs{$cdom.'_'.$cnum}{'owner'}; |
|
} else { |
|
($description,$instcode,$owner) = |
split(/:/,$courseIDs{$cdom.'_'.$cnum}); |
split(/:/,$courseIDs{$cdom.'_'.$cnum}); |
|
} |
$description = &unescape($description); |
$description = &unescape($description); |
$instcode = &unescape($instcode); |
$instcode = &unescape($instcode); |
if ($instcode) { |
if ($instcode) { |
Line 817 sub check_course {
|
Line 831 sub check_course {
|
} |
} |
} |
} |
} |
} |
|
|
if ($ok_course ne 'ok') { |
|
$r->print('<br/>'.&mt('The LON-CAPA course selected was not a valid course for the [_1] domain',$domdesc)); |
|
} |
|
return ($ok_course,$description); |
return ($ok_course,$description); |
} |
} |
|
|
Line 926 sub handler {
|
Line 936 sub handler {
|
} |
} |
} |
} |
} else { |
} else { |
$r->print(&mt('The course you selected is not a valid course in this domain')." ($domdesc)"); |
$r->print('<span class="LC_error">'.&mt('The course you selected is not a valid course in this domain')." ($domdesc)".'</span>'); |
} |
} |
} |
} |
} |
} |