Liz::TTS - Total Texts System ( NL: Totaal Tekst Systeem )
use Liz::TTS;
$file = new Liz::TTS;
#!/usr/local/bin/perl
use Liz::TTS;
The Liz::TTS package allows
Create a new Liz::TTS object. Creates connection or re-establishes connection with the MySQL database. Usually not called by itself, but rather incorporated inside a Client Module.
1 Liz::SQL compatible handle or reference to routine that performs connect (default: &Connect from caller's namespace) 2 identification name of the tts (default: default file set for database)
1 instantiated object 2 flag whether TTS was just created
$client = new Client; $tts = $client->TTS( 'environment' );
In A_Client.pm:
sub TTS { Liz::TTS->new( @_ ) }
Delete all tables of the TTS object. Please use this with caution, as it will destroy any information that is stored for this TTS. If called in a void context, no tables exist for this TTS anymore, and any references in the NextID table are also removed. Otherwise, the tables will be re-created automatically and a new object will be returned, just as if the new method was called.
1 newly created TTS object, current object will not work anymore
$tts->reset;
$tts = $tts->reset;
The following methods allow for the instantiation of TTS related objects
Create a new Liz::TTS::Article object, either from existing information or for a new entry. For more documentation, see the Liz::TTS::Article object itself.
1 ID to create Article object with (default: none = new record)
1 instantiated Article object
$client = new A_Client; $tts = $client->TTS( 'environment' );
$article = $tts->Article; $article = $tts->Article( $ID );
Create a new Liz::TTS::Picture object, either from existing information or for a new entry. For more documentation, see the Liz::PictureSet::Picture object itself.
1 instantiated Liz::TTS::Picture object
Return the PictureSet object that belongs to this TTSet
1 PictureSet object
$client = new Client; $pictureset = $client->PictureSet;
Create a new Liz::TTS::Text object, either from existing information or for a new entry. For more documentation, see the Liz::TTS::Text object itself.
1 ID to create Text object with (default: none = new record)
1 instantiated Text object
$client = new A_Client; $tts = $client->TTS( 'environment' );
$text = $tts->Text; $text = $tts->Text( $ID );
The following methods allow listing of information in the TTS.
Return an SQL statement handle for a list of Articles.
1 ordinal number or ID of article from which to commence listing
2 fields to return (comma delimited)
(default:
'ID,name,intro,sortname,created,updated,published,status,pictureID')
3 fieldname on which to order the result
(default: 'sortname')
4 extra condition to be applied
(default: none)
5 limit for the number of results returned
1 SQL statement handle (on which method "fetchrow" can be applied)
Return an SQL statement handle for a list of Texts.
1 ordinal number or ID of article from which to commence listing
2 fields to return (comma delimited)
(default:
'ID,name,body,sortname,created,updated,published,status,articleID,pictureID')
3 fieldname on which to order the result
(default: 'sortname')
4 extra condition to be applied
(default: none)
5 limit for the number of results returned
1 SQL statement handle (on which method "fetchrow" can be applied)
The following methods allow changes to information that is associated with an entire tts.
Specify or return the current name of the tts object. The name can be anything to further identify the goal of the tts.
1 new name of tts (default: no change)
1 current/old name of tts
$xxlink = new xxLINK; $tts = $xxlink->TTS( 'environment' ); $tts->Name( 'The Environment Newsroom' );
Sjoerd Lawende ( sjoerd@xxlink.nl )
(C) 1998-1999 xxLINK Internet Services
Put module name between quotes to fix obscure bug in Perl 5.005x under ModPerl in method PictureSet.
Put module name between quotes to fix obscure bug in Perl 5.005x under ModPerl in methods Article, Picture and Text.
Added create for Article tables.
First version of this module.