[LON-CAPA-cvs] cvs: loncom /interface lonrequestcourse.pm
raeburn
raeburn@source.lon-capa.org
Sat, 22 Aug 2009 20:17:03 -0000
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);
}
}
}