|
version 1.41.2.2, 2009/12/20 01:58:48
|
version 1.41.2.5, 2010/02/25 05:01:25
|
|
Line 3003 sub print_request_outcome {
|
Line 3003 sub print_request_outcome {
|
| my %parmresult = |
my %parmresult = |
| &store_crsparms($dom,$cnum,$now,$accessstart,$accessend); |
&store_crsparms($dom,$cnum,$now,$accessstart,$accessend); |
| &Apache::londocsgci::setdefaults(); |
&Apache::londocsgci::setdefaults(); |
| |
my %crsenvhash = ( |
| |
suppress_tries => 'yes', |
| |
); |
| |
my $putresult = &Apache::lonnet::put('environment',\%crsenvhash,$dom,$cnum); |
| if ($env{'form.concepttest'} eq 'defchosen') { |
if ($env{'form.concepttest'} eq 'defchosen') { |
| $output .= '<br />'; |
$output .= '<br />'; |
| my $error = &Apache::londocsgci::store($caller,$dom,$cnum); |
my $error = &Apache::londocsgci::store($caller,$dom,$cnum); |
|
Line 3156 sub update_requestors_roles {
|
Line 3160 sub update_requestors_roles {
|
| @roles = ($ccrole); |
@roles = ($ccrole); |
| } |
} |
| foreach my $role (@roles) { |
foreach my $role (@roles) { |
| my $start = $now; |
my $refresh=$env{'user.refresh.time'}; |
| |
if ($refresh eq '') { |
| |
$refresh = $env{'user.login.time'}; |
| |
} |
| |
if ($refresh eq '') { |
| |
$refresh = $now; |
| |
} |
| |
my $start = $refresh-1; |
| my $end = '0'; |
my $end = '0'; |
| if ($role eq 'st') { |
if ($role eq 'st') { |
| if ($details->{'accessstart'} ne '') { |
if ($details->{'accessstart'} ne '') { |
|
Line 3311 sub store_crsparms {
|
Line 3322 sub store_crsparms {
|
| type => 'date_end', |
type => 'date_end', |
| }, |
}, |
| problemstatus => { |
problemstatus => { |
| value => 'no_feedback_ever', |
value => 'no', |
| type => 'string_problemstatus', |
type => 'string_problemstatus', |
| }, |
}, |
| maxtries => { |
maxtries => { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonrequestcourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface