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

[raeburn]

raeburn		Sat Aug 22 20:17:03 2009 EDT

  Modified files:              
    /loncom/interface	lonrequestcourse.pm 
  Log:
  - Typo in call to &extract_instcode().
  - Store crosslist section separately from crosslist institutional code, so
      form elements can be set when modifying a request which includes crosslistings. 
  
  
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.21 loncom/interface/lonrequestcourse.pm:1.22
--- loncom/interface/lonrequestcourse.pm:1.21	Sat Aug 22 18:12:37 2009
+++ loncom/interface/lonrequestcourse.pm	Sat Aug 22 20:17:03 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.21 2009/08/22 18:12:37 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.22 2009/08/22 20:17:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1873,8 +1873,8 @@
                         }
                     }
                 }
-                $xlistinfo .= $env{'form.crosslist_'.$i.'_instsec'};
-                $crosslistings{$i}{'inst'} = $xlistinfo;
+                $crosslistings{$i}{'instcode'} = $xlistinfo;
+                $crosslistings{$i}{'instsec'} = $env{'form.crosslist_'.$i.'_instsec'}; 
                 $crosslistings{$i}{'loncapa'} = $env{'form.crosslist_'.$i.'_lcsec'};
             }
         }
@@ -2366,7 +2366,7 @@
                         my %crscode = (
                                         $i => $reqinfo{'crosslistings'}{$i}{'instcode'},
                                       );
-                        &extract_instcode($dom,'crosslist',\%crscode,$1,$xlistsec);
+                        &extract_instcode($dom,'crosslist',\%crscode,$i,$xlistsec);
                     }
                 }
             }