Here is a tiny program that can be used to edit facets. To use it you will first need a facet ID number, but you can get that from the script in the previous posting.
#!/usr/bin/perl
# require mylibrary & practice good programming
use MyLibrary::Core;
use strict;
# scope our variables
my ( $id, $facet, $name, $note, $results );
# get user […]
This little program simply lists all the facets in your MyLibrary instance. It does this through the use of the get_facets method:
#!/usr/bin/perl
# require mylibrary & practice good programming
use MyLibrary::Core;
use strict;
# loop through all the facets
foreach my $facet ( MyLibrary::Facet->get_facets ) {
# display this facet’s characteristics
print ‘ ID: ‘ […]