Lines 175-181
sub marc_framework_sql_list {
Link Here
|
175 |
sort { $a->{'fwkname'} cmp $b->{'fwkname'} } @frameworklist; |
175 |
sort { $a->{'fwkname'} cmp $b->{'fwkname'} } @frameworklist; |
176 |
|
176 |
|
177 |
$cell{"frameworks"} = \@fwks; |
177 |
$cell{"frameworks"} = \@fwks; |
178 |
$cell{"label"} = ucfirst($requirelevel); |
178 |
$cell{"label"} = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i)?'mandatory':'optional'; |
179 |
$cell{"code"} = lc($requirelevel); |
179 |
$cell{"code"} = lc($requirelevel); |
180 |
push @fwklist, \%cell; |
180 |
push @fwklist, \%cell; |
181 |
} |
181 |
} |
Lines 257-263
sub sample_data_sql_list {
Link Here
|
257 |
my @fwks = sort { $a->{'fwkname'} cmp $b->{'fwkname'} } @frameworklist; |
257 |
my @fwks = sort { $a->{'fwkname'} cmp $b->{'fwkname'} } @frameworklist; |
258 |
|
258 |
|
259 |
$cell{"frameworks"} = \@fwks; |
259 |
$cell{"frameworks"} = \@fwks; |
260 |
$cell{"label"} = ucfirst($requirelevel); |
260 |
$cell{"label"} = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i)?'mandatory':'optional'; |
261 |
$cell{"code"} = lc($requirelevel); |
261 |
$cell{"code"} = lc($requirelevel); |
262 |
push @levellist, \%cell; |
262 |
push @levellist, \%cell; |
263 |
} |
263 |
} |