'.&Apache::lonhtmlcommon::start_pick_box().
- &Apache::lonhtmlcommon::row_title('Course Description').
+ my ($dom,$formname,$crstype,$next) = @_;
+ my $nodescr = &mt('You must provide a (brief) course description.');
+ my $js_validate = <<"ENDJS";
+
+
+ENDJS
+
+ my $output .= $js_validate."\n".'
'.&Apache::lonhtmlcommon::start_pick_box().
+ &Apache::lonhtmlcommon::row_title('Course Description').
'
';
my ($home_server_pick,$numlib) =
&Apache::loncommon::home_server_form_item($dom,'chome',
'default','hide');
if ($numlib > 1) {
$output .= &Apache::lonhtmlcommon::row_closure().
- &Apache::lonhtmlcommon::row_title(
- &mt('Home Server for Course'));
+ &Apache::lonhtmlcommon::row_title(&mt('Home Server for Course'));
}
$output .= $home_server_pick.
&Apache::lonhtmlcommon::row_closure(1).
@@ -1351,7 +1649,7 @@ sub clone_form {
return $output;
}
-sub clone_text {
+sub clone_text {
return &Apache::lonlocal::texthash(
'cid' => 'Course ID',
'dmn' => 'Domain',
@@ -1466,23 +1764,28 @@ sub get_course_dom {
}
sub display_navbuttons {
- my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_;
+ my ($r,$formname,$prev,$prevtext,$next,$nexttext,$state,$other,$othertext) = @_;
$r->print('
');
if ($prev) {
- $r->print('
-
- ');
+ $r->print(''.
+ (' 'x3));
} elsif ($prevtext) {
- $r->print('
-
- ');
+ $r->print(''.(' 'x3));
}
- if ($next) {
+ if ($state eq 'details') {
+ $r->print(' ');
+ }
+ if ($state eq 'courseinfo') {
+ $r->print('');
+ } elsif ($next) {
$r->print('
- ');
+ ');
}
$r->print('
');
}
@@ -1532,11 +1835,13 @@ sub print_request_outcome {
$crosslistings{$i}{'loncapa'} = $env{'form.crosslist_'.$i.'_lcsec'};
}
}
+ } else {
+ $enrollstart = '';
+ $enrollend = '';
}
-
for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
my $uname = $env{'form.person_'.$i.'_uname'};
- my $udom = $env{'form.person_'.$i.'_uname'};
+ my $udom = $env{'form.person_'.$i.'_dom'};
if (($uname =~ /^$match_username$/) && ($udom =~ /^$match_domain$/)) {
if (&Apache::lonnet::domain($udom) ne '') {
unless (ref($personnel{$uname.':'.$udom}) eq 'HASH') {
@@ -1548,7 +1853,7 @@ sub print_request_outcome {
}
my $role = $env{'form.person_'.$i.'_role'};
unless ($role eq '') {
- if (ref(@{$personnel{$uname.':'.$udom}{'roles'}}) eq 'ARRAY') {
+ if (ref($personnel{$uname.':'.$udom}{'roles'}) eq 'ARRAY') {
my @curr_roles = @{$personnel{$uname.':'.$udom}{'roles'}};
unless (grep(/^\Q$role\E$/,@curr_roles)) {
push(@{$personnel{$uname.':'.$udom}{'roles'}},$role);
@@ -1559,15 +1864,17 @@ sub print_request_outcome {
if ($role eq 'cc') {
@{$personnel{$uname.':'.$udom}{$role}{'usec'}} = ();
} else {
- my @currsec;
- if ($env{'form.person_'.$i.'_sections'} ne '') {
- my @sections = split(',',$env{'form.person_'.$i.'_sections'});
- foreach my $sec (@sections) {
- next if ($sec eq '');
- if (@currsec > 0) {
- unless(grep(/^\Q$sec\E$/,@currsec)) {
- push(@currsec,$sec);
- }
+ my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');
+ my $newsec = $env{'form.person_'.$i.'_newsec'};
+ $newsec =~ s/^\s+//;
+ $newsec =~s/\s+$//;
+ my @newsecs = split(/[\s,;]+/,$newsec);
+ foreach my $sec (@newsecs) {
+ next if ($sec =~ /\W/);
+ next if ($newsec eq 'none');
+ if ($sec ne '') {
+ unless (grep(/^\Q$sec\E$/,@currsec)) {
+ push(@currsec,$sec);
}
}
}
@@ -1582,6 +1889,45 @@ sub print_request_outcome {
}
}
my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');
+ my $autodrops = 0;
+ if ($env{'form.autodrops'}) {
+ $autodrops = $env{'form.autodrops'};
+ }
+ my $autoadds = 0;
+ if ($env{'form.autoadds'}) {
+ $autodrops = $env{'form.autoadds'};
+ }
+ my $sectotal = 0;
+ if ($env{'form.sectotal'}) {
+ $sectotal = $env{'form.sectotal'};
+ }
+ if ($env{'form.autoadds'}) {
+ $autodrops = $env{'form.autoadds'};
+ }
+ my $crosslisttotal = 0;
+ if ($env{'form.crosslisttotal'}) {
+ $crosslisttotal = $env{'form.crosslisttotal'};
+ }
+ my $instcode = '';
+ if (exists($env{'form.instcode'})) {
+ $instcode = $env{'form.instcode'};
+ }
+ my $clonecrs = '';
+ my $clonedom = '';
+ if (($env{'form.clonecrs'} =~ /^($match_courseid)$/) &&
+ ($env{'form.clonedom'} =~ /^($match_domain)$/)) {
+ my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'},
+ $env{'form.clonedom'});
+ if ($clonehome ne 'no_host') {
+ my $canclone =
+ &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
+ $env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'});
+ if ($canclone) {
+ $clonecrs = $env{'form.clonecrs'};
+ $clonedom = $env{'form.clonedom'};
+ }
+ }
+ }
my $details = {
owner => $env{'user.name'},
domain => $env{'user.domain'},
@@ -1590,17 +1936,17 @@ sub print_request_outcome {
coursehome => $env{'form.chome'},
cdescr => $env{'form.cdescr'},
crstype => $env{'form.crstype'},
- instcode => $env{'form.instcode'},
- clonedom => $env{'form.clonedom'},
- clonecrs => $env{'form.clonecrs'},
+ instcode => $instcode,
+ clonedom => $clonedom,
+ clonecrs => $clonecrs,
datemode => $env{'form.datemode'},
- dateshift => $env{'form.datshift'},
- sectotal => $env{'form.sectotal'},
+ dateshift => $env{'form.dateshift'},
+ sectotal => $sectotal,
sections => \%sections,
- crosslisttotal => $env{'form.crosslisttotal'},
+ crosslisttotal => $crosslisttotal,
crosslists => \%crosslistings,
- autoadds => $env{'form.autoadds'},
- autodrops => $env{'form.autodrops'},
+ autoadds => $autoadds,
+ autodrops => $autodrops,
enrollstart => $enrollstart,
enrollend => $enrollend,
accessstart => $accessstart,
@@ -1620,9 +1966,9 @@ sub print_request_outcome {
$output = &mt('Unrecognized course type: [_1]',$crstype);
}
} else {
- my ($disposition,$message);
+ my ($disposition,$message,$reqstatus);
my %reqhash = (
- timestamp => $now,
+ reqtime => $now,
crstype => $crstype,
details => $details,
);
@@ -1640,37 +1986,40 @@ sub print_request_outcome {
} else {
$disposition = 'approval';
}
- $reqhash{'status'} = $disposition;
+ $reqhash{'disposition'} = $disposition;
+ $reqstatus = $disposition;
+ my ($modified,$queued);
if ($disposition eq 'rejected') {
$output = &mt('Your course request was rejected.');
if ($message) {
$output .= '
'.$message.'
';
}
} elsif ($disposition eq 'process') {
+ my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
+ my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles);
+ my @roles = &Apache::lonuserutils::roles_by_context('course');
my $type = 'Course';
if ($crstype eq 'community') {
$type = 'Community';
}
- my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
- my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles);
- my @roles = &Apache::lonuserutils::roles_by_context('course');
foreach my $role (@roles) {
$longroles{$role}=&Apache::lonnet::plaintext($role,$type);
}
- my $owneremail;
- my %emails = &Apache::loncommon::getemails();
- foreach my $email ('permanentemail','critnotification','notification') {
- $owneremail = $emails{$email};
- last if ($owneremail ne '');
- }
- my %reqdetails = &build_batchcreatehash($dom,$details,$owneremail,\%domdefs);
- my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',\%reqdetails,\%longroles,\$logmsg,\$newusermsg,\$addresult,\$enrollcount,\$output,\$keysmsg,$env{'user.domain'},$env{'user.name'},$cnum,$crstype);
- $disposition = 'created';
- if ($cid eq "/$dom/$cnum") {
+ my $result = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,
+ 'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,
+ \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles);
+ if ($result eq 'created') {
$disposition = 'created';
- $output = &mt('Your course request has been processed and the course has been created.').'
'.&mt('You will need to logout and log-in again to be able to select a role in the course.');
+ $reqstatus = 'created';
+ $output = &mt('Your course request has been processed and the course has been created.').
+ '
'.
+ &mt('You will need to logout and log-in again to be able to select a role in the course.');
} else {
- $output = &mt('An error occurred when processing your course request.').'
'.&mt('You may want to review the request details and submit the request again.');
+ $output = '
'.
+ &mt('An error occurred when processing your course request.').
+ '
'.
+ &mt('You may want to review the request details and submit the request again.').
+ '';
}
} else {
my $requestid = $cnum.'_'.$disposition;
@@ -1683,60 +2032,95 @@ sub print_request_outcome {
description => $env{'form.cdescr'},
},
};
- my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request,
- $dom);
- if ($putresult eq 'ok') {
- my %emails = &Apache::loncommon::getemails();
- my $address;
- if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {
- $address = $emails{'permanentemail'};
- if ($address eq '') {
- $address = $emails{'notification'};
- }
- }
- $output = &mt('Your course request has been recorded.').'
';
- if ($disposition eq 'approval') {
- $output .= &mt('Your course request has been recorded.').'
'.
- &mt('A message will be sent to your LON-CAPA account when a domain coordinator takes action on your request.').'
'.
- &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".').'
';
- if ($address ne '') {
- $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'
';
- }
- if ($req_notifylist) {
- my $fullname = &Apache::loncommon::plainname($env{'user.name'},
- $env{'user.domain'});
- &Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,$fullname,$now,$dom,$details);
- }
+ my $statuskey = 'status:'.$dom.':'.$cnum;
+ my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey],
+ $env{'user.domain'},$env{'user.name'});
+ if (exists($userreqhash{$statuskey})) {
+ $modified = 1;
+ my %queuehash = &Apache::lonnet::get_dom('courserequestqueue',
+ [$cnum.'_approval',
+ $cnum.'_pending'],$dom);
+ if ((exists($queuehash{$cnum.'_approval'})) ||
+ (exists($queuehash{$cnum.'_pending'}))) {
+ $queued = 1;
+ }
+ }
+ unless ($queued) {
+ my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request,
+ $dom);
+ if ($putresult eq 'ok') {
+ $output = &mt('Your course request has been recorded.').'
'.
+ ¬ification_information($disposition,$req_notifylist,
+ $cnum,$now);
} else {
- $output .= '
'.
-&mt('Your request has been placed in a queue pending administrative action.').'
'.
-&mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'
'.
-&mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.').
- '
';
+ $reqstatus = 'domainerror';
+ $reqhash{'disposition'} = $disposition;
+ my $warning = &mt('An error occurred saving your request in the pending requests queue.');
+ $output = '
'.$warning.'';
}
- } else {
- $reqhash{'status'} = 'domainerror';
- $reqhash{'disposition'} = $disposition;
- my $warning = &mt('An error occurred saving your request in the pending requests queue.');
- $output = '
'.$warning.'';
-
}
}
- my $storeresult;
+ my ($storeresult,$statusresult);
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
$storeresult = &Apache::lonnet::store_userdata(\%reqhash,$requestkey,
'courserequests');
+ if ($storeresult eq 'ok') {
+ my %status = (
+ 'status:'.$dom.':'.$cnum => $reqstatus,
+ );
+ $statusresult = &Apache::lonnet::put('courserequests',\%status);
+ }
} else {
$storeresult = 'error: invalid requestkey format';
}
if ($storeresult ne 'ok') {
$output .= '
'.&mt('An error occurred saving a record of the details of your request: [_1].',$storeresult).'';
&Apache::lonnet::logthis("Error saving course request - $requestkey for $env{'user.name'}:$env{'user.domain'} - $storeresult");
+ } elsif ($statusresult ne 'ok') {
+ $output .= '
'.&mt('An error occurred saving a record of the status of your request: [_1].',$statusresult).'';
+ &Apache::lonnet::logthis("Error saving course request status for $requestkey (for $env{'user.name'}:$env{'user.domain'}) - $statusresult");
+ }
+ if ($modified && $queued && $storeresult eq 'ok') {
+ $output .= '
'.&mt('Your course request has been updated').'
'.
+ ¬ification_information($disposition,$req_notifylist,$cnum,$now);
}
}
return $output;
}
+sub notification_information {
+ my ($disposition,$req_notifylist,$cnum,$now) = @_;
+ my %emails = &Apache::loncommon::getemails();
+ my $address;
+ if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {
+ $address = $emails{'permanentemail'};
+ if ($address eq '') {
+ $address = $emails{'notification'};
+ }
+ }
+ my $output;
+ if ($disposition eq 'approval') {
+ $output .= &mt('A message will be sent to your LON-CAPA account when a domain coordinator takes action on your request.').'
'.
+ &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".').'
';
+ if ($address ne '') {
+ $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'
';
+ }
+ if ($req_notifylist) {
+ my $fullname = &Apache::loncommon::plainname($env{'user.name'},
+ $env{'user.domain'});
+ my $sender = $env{'user.name'}.':'.$env{'user.domain'};
+ &Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,"$fullname ($env{'user.name'}:$env{'user.domain'})",$cnum,$env{'form.cdescr'},$now,'coursereq',$sender);
+ }
+ } else {
+ $output .= '
'.
+&mt('Your request has been placed in a queue pending administrative action.').'
'.
+&mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'
'.
+&mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.').
+ '
';
+ }
+ return $output;
+}
+
sub get_processtype {
my ($dom,$crstype,$inststatuses,$domconfig) = @_;
return unless ((ref($inststatuses) eq 'ARRAY') && (ref($domconfig) eq 'HASH'));
@@ -1853,61 +2237,169 @@ sub check_autolimit {
return;
}
-sub build_batchcreatehash {
- my ($dom,$details,$owneremail,$domdefs) = @_;
- my %batchhash;
- my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users};
- if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {
- my $emailenc = &Apache::lonnet::escape($owneremail);
- my $owner = $details->{'owner'}.':'.$details->{'domain'};
- foreach my $item (@items) {
- $batchhash{$item} = $details->{$item};
+sub retrieve_settings {
+ my ($dom,$cnum) = @_;
+ my ($result,%reqinfo) = &get_request_settings($dom,$cnum);
+ if ($result eq 'ok') {
+ if (($env{'user.name'} eq $reqinfo{'owner'}) &&
+ ($env{'user.domain'} eq $reqinfo{'domain'})) {
+ $env{'form.chome'} = $reqinfo{'coursehome'};
+ $env{'form.cdescr'} = $reqinfo{'cdescr'};
+ $env{'form.crstype'} = $reqinfo{'crstype'};
+ &generate_date_items($reqinfo{'accessstart'},'accessstart');
+ &generate_date_items($reqinfo{'accessend'},'accessend');
+ if ($reqinfo{'accessend'} == 0) {
+ $env{'form.no_end_date'} = 1;
+ }
+ if (($reqinfo{'crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) {
+ &generate_date_items($reqinfo{'enrollstart'},'enrollstart');
+ &generate_date_items($reqinfo{'enrollend'},'enrollend');
+ }
+ $env{'form.clonecrs'} = $reqinfo{'clonecrs'};
+ $env{'form.clonedom'} = $reqinfo{'clonedom'};
+ $env{'form.datemode'} = $reqinfo{'datemode'};
+ $env{'form.dateshift'} = $reqinfo{'dateshift'};
+ if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) {
+ $env{'form.sectotal'} = $reqinfo{'sectotal'};
+ $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};
+ $env{'form.autoadds'} = $reqinfo{'autoadds'};
+ $env{'form.autdrops'} = $reqinfo{'autodrops'};
+ $env{'form.instcode'} = $reqinfo{'instcode'};
+ my %crscode = (
+ instcode => $reqinfo{'instcode'},
+ );
+ &extract_instcode($dom,'instcode',\%crscode);
+ }
+ my @currsec;
+ if (ref($reqinfo{'sections'}) eq 'HASH') {
+ foreach my $i (sort(keys(%{$reqinfo{'sections'}}))) {
+ if (ref($reqinfo{'sections'}{$i}) eq 'HASH') {
+ my $sec = $reqinfo{'sections'}{$i}{'inst'};;
+ $env{'form.secnum_'.$i} = $sec;
+ if (!grep(/^\Q$sec\E$/,@currsec)) {
+ push(@currsec,$sec);
+ }
+ $env{'form.loncapasec_'.$i} = $reqinfo{'sections'}{$i}{'loncapa'};
+ }
+ }
+ }
+ if (ref($reqinfo{'crosslistings'}) eq 'HASH') {
+ foreach my $i (sort(keys(%{$reqinfo{'crosslistings'}}))) {
+ if (ref($reqinfo{'crosslistings'}{$i}) eq 'HASH') {
+ $env{'form.crosslist_'.$i.'_lcsec'} = $reqinfo{'crosslistings'}{$i}{'loncapa'};
+ my $xlistsec = $reqinfo{'crosslistings'}{$i}{'instsec'};
+ my %crscode = (
+ $i => $reqinfo{'crosslistings'}{$i}{'instcode'},
+ );
+ &extract_instcode($dom,'crosslist',\%crscode,$1,$xlistsec);
+ }
+ }
+ }
+ if (ref($reqinfo{'personnel'}) eq 'HASH') {
+ my $i = 0;
+ foreach my $user (sort(keys(%{$reqinfo{'personnel'}}))) {
+ my ($uname,$udom) = split(':',$user);
+ if (ref($reqinfo{'personnel'}{$user}) eq 'HASH') {
+ if (ref($reqinfo{'personnel'}{$user}{'roles'}) eq 'ARRAY') {
+ foreach my $role (sort(@{$reqinfo{'personnel'}{$user}{'roles'}})) {
+ $env{'form.person_'.$i.'_role'} = $role;
+ $env{'form.person_'.$i.'_firstname'} = $reqinfo{'personnel'}{$user}{'firstname'};
+ $env{'form.person_'.$i.'_lastname'} = $reqinfo{'personnel'}{$user}{'lastname'}; ;
+ $env{'form.person_'.$i.'_emailaddr'} = $reqinfo{'personnel'}{$user}{'emailaddr'};
+ $env{'form.person_'.$i.'_uname'} = $uname;
+ $env{'form.person_'.$i.'_dom'} = $udom;
+ if (ref($reqinfo{'personnel'}{$user}{$role}) eq 'HASH') {
+ if (ref($reqinfo{'personnel'}{$user}{$role}{'usec'}) eq 'ARRAY') {
+ my @usecs = @{$reqinfo{'personnel'}{$user}{$role}{'usec'}};
+ my @newsecs;
+ if (@usecs > 0) {
+ foreach my $sec (@usecs) {
+ if (grep(/^\Q$sec\E/,@currsec)) {
+ $env{'form.person_'.$i.'_sec'} = $sec;
+ } else {
+ push (@newsecs,$sec);
+ }
+ }
+ }
+ if (@newsecs > 0) {
+ $env{'form.person_'.$i.'_newsec'} = join(',',@newsecs);
+ }
+ }
+ }
+ $i ++;
+ }
+ }
+ }
+ }
+ $env{'form.persontotal'} = $i;
+ }
}
- $batchhash{'title'} = $details->{'cdescr'};
- $batchhash{'coursecode'} = $details->{'instcode'};
- $batchhash{'emailenc'} = $emailenc;
- $batchhash{'adds'} = $details->{'autoadds'};
- $batchhash{'drops'} = $details->{'autodrops'};
- $batchhash{'authtype'} = $domdefs->{'auth_def'};
- $batchhash{'authparam'} = $domdefs->{'auth_arg_def'};
- if ($details->{'crstype'} eq 'community') {
- $batchhash{'crstype'} = 'Community';
+ }
+ return $result;
+}
+
+sub get_request_settings {
+ my ($dom,$cnum) = @_;
+ my $requestkey = $dom.'_'.$cnum;
+ my ($result,%reqinfo);
+ if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
+ my %history = &Apache::lonnet::restore($requestkey,'courserequests',
+ $env{'user.domain'},$env{'user.name'});
+ my $disposition = $history{'disposition'};
+ if (($disposition eq 'approval') || ($disposition eq 'pending')) {
+ if (ref($history{'details'}) eq 'HASH') {
+ %reqinfo = %{$history{'details'}};
+ $result = 'ok';
+ } else {
+ $result = 'nothash';
+ }
} else {
- $batchhash{'crstype'} = 'Course';
+ $result = 'notqueued';
}
- $batchhash{'users'}{$details->{$owner}} = {
- firstname => $env{'environment.first'},
- lastname => $env{'environment.last'},
- emailenc => $emailenc,
- email => $owneremail,
- };
+ } else {
+ $result = 'invalid';
}
- return %batchhash;
+ return ($result,%reqinfo);
}
-sub retrieve_settings {
- my ($dom,$request_id) = @_;
- my %reqinfo = &get_request_settings($request_id,$dom);
- my %stored;
- $stored{'cdescr'} = &unescape($reqinfo{'description'});
- $stored{'accessstart'} = $reqinfo{'accessstart'};
- $stored{'accessend'} = $reqinfo{'accessend'};
- if ($stored{'accessend'} == 0) {
- $stored{'no_end_date'} = 1;
- }
- $stored{'enrollstart'} = $reqinfo{'enrollstart'};
- $stored{'enrollend'} = $reqinfo{'enrollend'};
- $stored{'crosslist'} = $reqinfo{'crosslist'};
- $stored{'clonecrs'} = $reqinfo{'clonecrs'};
- $stored{'clonedom'} = $reqinfo{'clonedom'};
- $stored{'sections'} = $reqinfo{'sections'};
- $stored{'personnel'} = $reqinfo{'personnel'};
-
- return %stored;
+sub extract_instcode {
+ my ($cdom,$element,$crscodehashref,$counter,$xlistsec) = @_;
+ my (%codes,@codetitles,%cat_titles,%cat_order);
+ if (ref($crscodehashref) eq 'HASH') {
+ if (&Apache::lonnet::auto_instcode_format('requests',$cdom,$crscodehashref,
+ \%codes,\@codetitles,\%cat_titles,\%cat_order) eq 'ok') {
+ if (@codetitles > 0) {
+ my $sel = $element;
+ if ($element eq 'crosslist') {
+ $sel .= '_'.$counter;
+ }
+ my $lastitem = pop(@codetitles);
+ foreach my $title (@codetitles) {
+ if (ref($cat_order{$title}) eq 'ARRAY') {
+ if (@{$cat_order{$title}} > 0) {
+ $env{'form.'.$sel.'_'.$title} = $cat_order{$title}[0];
+ }
+ }
+ }
+ if ($element eq 'crosslist') {
+ $env{'form.'.$sel.'_'.$lastitem} = $xlistsec;
+ }
+ }
+ }
+ }
+ return;
}
-sub get_request_settings {
- my ($request_id,$dom);
+sub generate_date_items {
+ my ($currentval,$item) = @_;
+ if ($currentval =~ /\d+/) {
+ my ($tzname,$sec,$min,$hour,$mday,$month,$year) =
+ &Apache::lonhtmlcommon::get_timedates($currentval);
+ $env{'form.'.$item.'_day'} = $mday;
+ $env{'form.'.$item.'_month'} = $month+1;
+ $env{'form.'.$item.'_year'} = $year;
+ }
+ return;
}
1;