version 1.16, 2006/08/29 05:58:06
|
version 1.17, 2006/10/16 19:18:19
|
Line 438 sub check_section {
|
Line 438 sub check_section {
|
} |
} |
|
|
############################### |
############################### |
|
# sub instcode_defaults |
|
# |
|
# Incoming data: three arguments |
|
# (a) $dom - domain |
|
# (b) $defaults - reference to hash which will contain default regular |
|
# expression matches for different components of an |
|
# institutional course code |
|
# (c) $code_order - reference to array which will contain order of |
|
# component parts used in institutional code. |
|
# |
|
# returns 1 parameter - ('ok' or other value). |
|
# Used to construct a regular expression to be used when searching for |
|
# courses based on fragments of an institutional code. |
|
# $defaults contains defaults to use for each component, and code_order |
|
# contains keys of hash in order in which they are to be concatenated. |
|
# |
|
# e.g., INSTITUTIONALCODE = fs03nop590 |
|
# (MSU's course naming scheme - fs = semester, 03 = year, nop = |
|
# department name, 590 = course number) |
|
# |
|
# %{$defaults} = ( |
|
# 'Year' => '\d{2}', |
|
# 'Semester' => '^[sfu]s', |
|
# 'Department' => '\w{2,3}', |
|
# 'Number' => '\d{3,4}\w?', |
|
# ); |
|
# |
|
# @{$code_order} = ('Semester','Year','Department','Number'); |
|
# |
|
############################### |
|
|
|
sub instcode_defaults { |
|
my ($dom,$defaults,$code_order) = @_; |
|
return 'ok'; |
|
} |
|
|
|
|
|
############################### |
# sub AUTOLOAD |
# sub AUTOLOAD |
# |
# |
# Incoming data: none |
# Incoming data: none |