version 1.20, 2009/08/21 13:18:46
|
version 1.21, 2009/08/22 18:12:37
|
Line 792 sub print_request_form {
|
Line 792 sub print_request_form {
|
$message = '<div class="LC_warning">'. |
$message = '<div class="LC_warning">'. |
&mt('No course was found matching your choice of institutional course category.'); |
&mt('No course was found matching your choice of institutional course category.'); |
} |
} |
unless ($code_chk eq 'ok') { |
unless ($code_chk eq 'valid') { |
$prev = 'crstype'; |
$prev = 'crstype'; |
} |
} |
$r->print($message); |
$r->print($message); |
Line 2024 sub print_request_outcome {
|
Line 2024 sub print_request_outcome {
|
$disposition = &check_autolimit($env{'user.name'},$env{'user.domain'}, |
$disposition = &check_autolimit($env{'user.name'},$env{'user.domain'}, |
$dom,$crstype,$limit,\$message); |
$dom,$crstype,$limit,\$message); |
} elsif ($val eq 'validate') { |
} elsif ($val eq 'validate') { |
my $inststatuslist; |
my ($inststatuslist,$validationchk,$validation); |
if (@inststatuses > 0) { |
if (@inststatuses > 0) { |
$inststatuslist = join(',',@inststatuses); |
$inststatuslist = join(',',@inststatuses); |
} |
} |
Line 2032 sub print_request_outcome {
|
Line 2032 sub print_request_outcome {
|
if (@instsections > 0) { |
if (@instsections > 0) { |
$instseclist = join(',',@instsections); |
$instseclist = join(',',@instsections); |
} |
} |
my $validation = |
$validationchk = |
&Apache::lonnet::auto_validate_instcode('',$dom,$instcode, |
&Apache::lonnet::auto_courserequest_validation($dom, |
$env{'user.name'}.':'.$env{'user.domain'},$inststatuslist, |
$env{'user.name'}.':'.$env{'user.domain'},$crstype, |
$instseclist); |
$inststatuslist,$instcode,$instseclist); |
if ($validation eq 'valid') { |
if ($validationchk =~ /:/) { |
$disposition = 'process'; |
($validation,$message) = split(':',$validationchk); |
} elsif ($validation eq 'rejected') { |
} else { |
$disposition = 'rejected'; |
$validation = $validationchk; |
} elsif ($validation eq 'pending') { |
} |
$disposition = 'pending'; |
if ($validation =~ /^error(.*)$/) { |
} elsif ($disposition eq 'approval') { |
|
$disposition = 'approval'; |
|
} elsif ($disposition =~ /^error(.*)$/) { |
|
$disposition = 'approval'; |
$disposition = 'approval'; |
$validationerror = $1; |
$validationerror = $1; |
} else { |
|
$disposition = 'approval'; |
|
} |
} |
} else { |
} else { |
$disposition = 'approval'; |
$disposition = 'approval'; |