|
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 |
} |