'opac_display' => '1',
'staff_searchable' => '1',
'description' => 'Grade level',
- 'password_allowed' => '0',
'authorised_value_category' => '',
'repeatable' => '0',
'code' => 'grade',
'opac_display' => '0',
'staff_searchable' => '1',
'description' => 'Deans List (annual)',
- 'password_allowed' => '0',
'authorised_value_category' => '',
'repeatable' => '1',
'code' => 'deanslist',
'opac_display' => '0',
'staff_searchable' => '0',
'description' => 'Some Ext. Attribute',
- 'password_allowed' => '0',
'authorised_value_category' => '',
'repeatable' => '0',
'code' => 'somedata',
'opac_display' => '0',
'staff_searchable' => '0',
'description' => 'Another Ext. Attribute',
- 'password_allowed' => '0',
'authorised_value_category' => '',
'repeatable' => '0',
'code' => 'extradata',
'opac_display' => '1',
'staff_searchable' => '1',
'description' => 'School ID Number',
- 'password_allowed' => '0',
'authorised_value_category' => '',
'repeatable' => '0',
'code' => 'school_id',
'opac_display' => '1',
'staff_searchable' => '1',
'description' => 'Homeroom',
- 'password_allowed' => '0',
'authorised_value_category' => '',
'repeatable' => '0',
'code' => 'homeroom',
ok(ref($C4::Members::Attributes::AttributeTypes) eq 'HASH', '$C4::Members::Attributes::AttributeTypes is a hashref');
-diag scalar(@merge_tests) . " tests for extended_attributes_merge";
-
foreach my $test (@merge_tests) {
my ($old, $new, $merged);
ok($old = extended_attributes_code_value_arrayref($test->{line1}), "extended_attributes_code_value_arrayref('$test->{line1}')");
- foreach (@$old) { diag "old attribute: $_->{code} = $_->{value}"; }
ok($new = extended_attributes_code_value_arrayref($test->{line2}), "extended_attributes_code_value_arrayref('$test->{line2}')");
- foreach (@$new) { diag "new attribute: $_->{code} = $_->{value}"; }
ok($merged = extended_attributes_merge($old, $new), "extended_attributes_merge(\$old, \$new)");
- foreach (@$merged) { diag "merge (overwrite) attribute: $_->{code} = $_->{value}"; }
ok($merged = extended_attributes_merge($old, $new, 1), "extended_attributes_merge(\$old, \$new, 1)");
- foreach (@$merged) { diag "merge (preserve) attribute: $_->{code} = $_->{value}"; }
}