version 1.34, 2007/10/06 04:32:49
|
version 1.35, 2007/12/05 02:55:40
|
Line 370 all settings except course code, course
|
Line 370 all settings except course code, course
|
$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.'.$env{'form.phase'}, |
kerb_def_dom => $krbdefdom, |
kerb_def_dom => $krbdefdom, |
kerb_def_auth => $krbdef, |
kerb_def_auth => $krbdef, |
mode => 'modifycourse', |
mode => 'modifycourse', |
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="cmod"> |
<form action="/adm/modifycourse" method="post" name="$env{'form.phase'}"> |
<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 807 sub print_footer {
|
Line 807 sub print_footer {
|
sub check_course { |
sub check_course { |
my ($r,$dom,$domdesc) = @_; |
my ($r,$dom,$domdesc) = @_; |
my ($ok_course,$description,$instcode,$owner); |
my ($ok_course,$description,$instcode,$owner); |
if (defined($env{'form.pickedcourse'})) { |
my %args = ( |
my ($cdom,$cnum) = split(/_/,$env{'form.pickedcourse'}); |
one_time => 1, |
if ($cdom eq $dom) { |
); |
my %courseIDs = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.', |
my %coursehash = |
$cnum,undef,undef,'.'); |
&Apache::lonnet::coursedescription($env{'form.pickedcourse'},\%args); |
if (keys(%courseIDs) > 0) { |
my $cnum = $coursehash{'num'}; |
$ok_course = 'ok'; |
my $cdom = $coursehash{'domain'}; |
my ($description,$instcode,$owner); |
if ($cdom eq $dom) { |
if (ref($courseIDs{$cdom.'_'.$cnum}) eq 'HASH') { |
my $description; |
$description = $courseIDs{$cdom.'_'.$cnum}{'description'}; |
my %courseIDs = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.', |
$instcode = $courseIDs{$cdom.'_'.$cnum}{'inst_code'}; |
$cnum,undef,undef,'.'); |
$owner = $courseIDs{$cdom.'_'.$cnum}{'owner'}; |
if (keys(%courseIDs) > 0) { |
} else { |
$ok_course = 'ok'; |
($description,$instcode,$owner) = |
my ($instcode,$owner); |
split(/:/,$courseIDs{$cdom.'_'.$cnum}); |
if (ref($courseIDs{$cdom.'_'.$cnum}) eq 'HASH') { |
} |
$description = $courseIDs{$cdom.'_'.$cnum}{'description'}; |
$description = &unescape($description); |
$instcode = $courseIDs{$cdom.'_'.$cnum}{'inst_code'}; |
$instcode = &unescape($instcode); |
$owner = $courseIDs{$cdom.'_'.$cnum}{'owner'}; |
if ($instcode) { |
} else { |
$description .= " ($instcode)"; |
($description,$instcode,$owner) = |
} |
split(/:/,$courseIDs{$cdom.'_'.$cnum}); |
|
} |
|
$description = &unescape($description); |
|
$instcode = &unescape($instcode); |
|
if ($instcode) { |
|
$description .= " ($instcode)"; |
} |
} |
|
return ($ok_course,$description); |
} |
} |
} |
} |
return ($ok_course,$description); |
|
} |
} |
|
|
sub course_settings_descrip { |
sub course_settings_descrip { |