--- loncom/enrollment/localenroll.pm	2009/03/09 01:58:52	1.34
+++ loncom/enrollment/localenroll.pm	2009/06/11 20:09:25	1.35
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for 
 # automated enrollment
-# $Id: localenroll.pm,v 1.34 2009/03/09 01:58:52 weissno Exp $
+# $Id: localenroll.pm,v 1.35 2009/06/11 20:09:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,8 +41,6 @@ described at http://www.lon-capa.org.
 
 =over
 
-=back
-
 =cut
 
 package localenroll;
@@ -381,6 +379,43 @@ sub instcode_format () {
     return $outcome;
 }
 
+=pod
+
+=item possible_instcodes()
+
+Gather acceptable values for institutional categories to use in course creation request form for official courses.
+
+ requires four arguments:
+ domain ($dom)
+ reference to array of titles ($codetitles)
+ reference to hash of abbreviations used in categories ($cat_titles).
+ reference to hash of arrays specifying sort order used in category titles ($cat_order).
+
+ e.g., 
+ @{$codetitles} = ("Year","Semester","Department","Number");
+
+ %{$$cat_titles{'Semester'}} = (
+                   fs => 'Fall',
+                   ss => 'Spring',
+                   us => 'Summer');
+
+ @{$$cat_order{'Semester'}} = ('ss','us','fs');
+
+ returns 1 parameter: 'ok' if no processing errors.
+
+=cut
+
+sub possible_instcodes {
+    my ($dom,$codetitles,$cat_titles,$cat_order) = @_;
+    @{$codetitles} = ();
+    %{$$cat_titles{'Semester'}} = ();
+    @{$$cat_order{'Semester'}} = ('ss','us','fs');
+    ($$cat_titles{'Department'},$$cat_order{'Department'}) = &get_all_depts($dom);
+    ($$cat_titles{'Year'},$$cat_order{'Year'}) = &get_possible_years($dom);
+    return 'ok';
+}
+
+
 
 =pod