version 1.33, 2007/10/03 19:57:29
|
version 1.36, 2007/12/14 00:24:11
|
Line 33 use Apache::lonnet;
|
Line 33 use Apache::lonnet;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::londropadd; |
use Apache::lonuserutils; |
use Apache::lonpickcourse; |
use Apache::lonpickcourse; |
use LONCAPA::Enrollment; |
use LONCAPA::Enrollment; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
Line 369 all settings except course code, course
|
Line 369 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::lonuserutils::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 563 sub modify_course {
|
Line 563 sub modify_course {
|
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); |
my %courseid_entry = ( |
my %courseid_entry = ( |
$cdom.'_'.$cnum => { |
$cdom.'_'.$cnum => { |
description => &escape($description), |
description => $description, |
inst_code => &escape($env{'form.coursecode'}), |
inst_code => $env{'form.coursecode'}, |
owner => &escape($env{'form.courseowner'}), |
owner => $env{'form.courseowner'}, |
type => &escape($type), |
type => $type, |
}, |
}, |
); |
); |
&Apache::lonnet::courseidput($cdom,\%courseid_entry, |
&Apache::lonnet::courseidput($cdom,\%courseid_entry, |
&Apache::lonnet::homeserver($cnum,$cdom)); |
&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}) { |
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 { |