Eric Lease Morgan




        # require the necessary module
        use MyLibrary::Stylesheet;

        # create an undefined Stylesheet object
        my $stylesheet = MyLibrary::Stylesheet->new();

        # get stylesheet id
        my $stylesheet_id = $stylesheet->stylesheet_id();

        # set the attributes for the stylesheet
        $stylesheet->stylesheet_description('Dark colors, gothic script.');
        $stylesheet->stylesheet('CSS code');

        # commit stylesheet to database

        # get a list of stylesheet objects
        my @stylesheets = MyLibrary::Stylesheet->get_stylesheets();
        my @stylesheets = MyLibrary::Stylesheet->get_stylesheets(sort => 'name');

        # delete a stylesheet from the database


This module simply allows for the creation and maniuplation of HTML CSS stylesheets. These stylesheets will be used to present data in various contexts throught the browser medium. It also allows for association of stylesheets with patron objects so that patrons can select various styles for the presentation of MyLibrary data. Stylesheets could also be used to syndicate content to other venues and can help to separate style and presentation from content.



This class method is the constructor for this package. The method is responsible for initializing all attributes associated with a given Stylesheet object. The method can also be used to create a Stylesheet object using stylesheet id or name. The stylesheet would thus need to already exist in the database for these parameters to have any effect.


This method is used exclusively to retrieve an exising stylesheet object id. This method will only return a valid id if the stylesheet has been commited to the database. This accessor method cannot set a stylesheet id.

        # get stylesheet id
        my $stylesheet_id = $stylesheet->stylesheet_id();


This accessor method simply sets and gets the name of the stylesheet.

        # set the stylesheet name
        # get the stylesheet name
        my $style_name = $stylesheet->stylesheet_name();


Set or get the stylesheet note. This text will be used to describe the stylesheet in question.

        # set the stylesheet note
        $stylesheet->stylesheet_note('This style is slightly gothic with medieval overtones.');

        # get the stylesheet note
        my $style_desc = $stylesheet->stylesheet_note();


Depending upon how you want your application to function, the content of this attribute can be either a pointer to a stylesheet located external to the database or it can be the text of a stylesheet itself.

        # set the stylesheet content

        # retrieve the stylesheet content
        my $stylesheet = $stylesheet->stylesheet();


This class method should be used to retrieve a list of all of the stylesheet object ids from the database. The list can be sorted according to stylesheet name. The sort parameter is optional. A default stylesheet should always be present in the database with a stylesheet id of '0'. This stylesheet is used if no other stylesheet has been created.

        # get a sorted list of stylesheets
        my @stylesheet_ids = MyLibrary::Stylesheet->get_stylesheets(sort => 'name');


Save the stylesheet to the database.

        # commit the stylesheet


Delete the stylesheet from the database.

        # delete the stlyesheet


For more information, see the MyLibrary home page:


Robert Fox <>