[LON-CAPA-cvs] cvs: loncom /interface lonrequestcourse.pm

raeburn raeburn@source.lon-capa.org
Sat, 22 Aug 2009 21:08:39 -0000


raeburn		Sat Aug 22 21:08:39 2009 EDT

  Modified files:              
    /loncom/interface	lonrequestcourse.pm 
  Log:
  - Set $disposition for requests of process type 'validate'.
  - Check for LC_adv override only if occurs if setting is not ''.   
  
  
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.22 loncom/interface/lonrequestcourse.pm:1.23
--- loncom/interface/lonrequestcourse.pm:1.22	Sat Aug 22 20:17:03 2009
+++ loncom/interface/lonrequestcourse.pm	Sat Aug 22 21:08:39 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.22 2009/08/22 20:17:03 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.23 2009/08/22 21:08:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2044,6 +2044,8 @@
             if ($validation =~ /^error(.*)$/) {
                 $disposition = 'approval';
                 $validationerror = $1;
+            } else {
+                $disposition = $validation;
             }
         } else {
             $disposition = 'approval';
@@ -2207,7 +2209,7 @@
             if (ref($domconfig->{'requestcourses'}) eq 'HASH') {
                 %settings = %{$domconfig->{'requestcourses'}};
                 if (ref($settings{$crstype}) eq 'HASH') {
-                    if (($env{'user.adv'}) && (exists($settings{$crstype}{'_LC_adv'}))) {
+                    if (($env{'user.adv'}) && ($settings{$crstype}{'_LC_adv'} ne '')) {
                         $val = $settings{$crstype}{'_LC_adv'};
                         @{$inststatuses} = ('_LC_adv_');
                     } else {