cgi-files/Modules/Presentation/HTML4S.pm

   1 #################################################################################
   2 # Kiriwrite Presentation Module - HTML 4.0 Strict (HTML4S.pm)                   #
   3 # Output Module for writing pages to the HTML 4.0 Strict Standard               #
   4 #                                                                               #
   5 # Copyright (C) 2007 Steve Brokenshire <sbrokenshire@xestia.co.uk>              #
   6 #                                                                               #
   7 # This module is licensed under the same license as Kiriwrite which is the GPL. #
   8 #                                                                               #
   9 # This program is free software; you can redistribute it and/or modify it under #
  10 # the terms of the GNU General Public License as published by the Free          #
  11 # Software Foundation; as version 2 of the License.                             #
  12 #                                                                               #
  13 # This program is distributed in the hope that it will be useful, but WITHOUT   #
  14 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS #
  15 # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.#
  16 #                                                                               #
  17 # You should have received a copy of the GNU General Public License along with  #
  18 # this program; if not, write to the Free Software Foundation, Inc., 51         #
  19 # Franklin St, Fifth Floor, Boston, MA 02110-1301 USA                           #
  20 #################################################################################
  21
  22 # Define the package (perl module) name.
  23
  24 package Kiriwrite::Presentation::HTML4S;
  25
  26 # Enable strict and use warnings.
  27
  28 use strict;
  29 use warnings;
  30
  31 # Set the following values.
  32
  33 our $VERSION = "0.1.0";
  34 my $pagedata = "";
  35 my $tablevel = 0;
  36
  37 #################################################################################
  38 # Generic Subroutines.                                                          #
  39 #################################################################################
  40
  41 sub new{
  42 #################################################################################
  43 # new: Create an instance of Kiriwrite::Presentation::HTML4S                    #
  44 #                                                                               #
  45 # Usage:                                                                        #
  46 #                                                                               #
  47 # $presmodule = Modules::Output::HTML4S->new();                                 #
  48 #################################################################################
  49
  50         # Get the perl module name.
  51
  52         my $class = shift;
  53         my $self = {};
  54
  55         return bless($self, $class);
  56
  57 }
  58
  59 sub clear{
  60 #################################################################################
  61 # clear: Clear the current layout created by this module.                       #
  62 #                                                                               #
  63 # Usage:                                                                        #
  64 #                                                                               #
  65 # $presmodule->clear();                                                         #
  66 #################################################################################
  67
  68         $pagedata = "";
  69         return;
  70
  71 }
  72
  73 sub grab{
  74 #################################################################################
  75 # grab: Grab the current layout created by this module.                         #
  76 #                                                                               #
  77 # Usage:                                                                        #
  78 #                                                                               #
  79 # $presmodule->grab();                                                          #
  80 #################################################################################
  81
  82         return $pagedata;
  83
  84 }
  85
  86 sub convert{
  87 #################################################################################
  88 # convert: Converts the data passed into data that is compliant with the output #
  89 # format.                                                                       #
  90 #                                                                               #
  91 # Usage:                                                                        #
  92 #                                                                               #
  93 # $presmodule->convert(data, type);                                             #
  94 #                                                                               #
  95 # data          Specifies the data to be converted.                             #
  96 # type          Specifies the type the data should be converted to.             #
  97 #################################################################################
  98
  99         # Get the data and type passed.
 100
 101         my $class = shift;
 102         my ($data, $type) = @_;
 103
 104         # Check if certain values are undefined and if they are
 105         # then set them blank or return an error.
 106
 107         if (!$data){
 108                 $data = "";
 109         }
 110
 111         if (!$type){
 112                 die("No type was specified");
 113         }
 114
 115         # Check what type is being used and process the data
 116         # according the type being used.
 117
 118         if ($type eq "content"){
 119
 120                 $data =~ s/&/&amp;/g;
 121                 $data =~ s/#/&#35;/g;
 122                 $data =~ s/\"/&#34;/g;
 123                 $data =~ s/'/'/g;
 124                 $data =~ s/>/&gt;/g;
 125                 $data =~ s/</&lt;/g;
 126                 $data =~ s/\+/&#43;/g;
 127                 $data =~ s/-/&#45;/g;
 128                 $data =~ s/_/&#95;/g;
 129                 $data =~ s/\@/&#64;/g;
 130                 $data =~ s/~/&#126;/g;
 131                 $data =~ s/\?/&#63;/g;
 132                 $data =~ s/'/&#39;/g;
 133                 $data =~ s/\0//g;
 134                 $data =~ s/\b//g;
 135
 136         } elsif ($type eq "link"){
 137
 138                 $data =~ s/&/&amp;/g;
 139                 $data =~ s/\+/\%2B/g;
 140                 $data =~ s/\?/\%3F/g;
 141                 $data =~ s/%3F/\?/;
 142                 $data =~ s/-/\%2D/g;
 143                 $data =~ s/_/\%5F/g;
 144                 $data =~ s/\@/\%40/g;
 145                 $data =~ s/#/\%23/g;
 146                 $data =~ s/>/\%3E/g;
 147                 $data =~ s/</\%3C/g;
 148                 $data =~ s/~/\%7E/g;
 149                 $data =~ s/'/\%27/;
 150                 $data =~ s/!/\%21/g;
 151
 152         } else {
 153
 154                 die("An invalid type was specified.");
 155
 156         }
 157
 158         return $data;
 159
 160 }
 161
 162 #################################################################################
 163 # Tags for creating tables.                                                     #
 164 #################################################################################
 165
 166 sub starttable{
 167 #################################################################################
 168 # starttable: Start a table.                                                    #
 169 #                                                                               #
 170 # Usage:                                                                        #
 171 #                                                                               #
 172 # $presmodule->starttable(cssstyle, {options});                                 #
 173 #                                                                               #
 174 # cssstyle      Specifies the CSS style name to use.                            #
 175 # options       Specifies the following options (in any order):                 #
 176 #                                                                               #
 177 # CellPadding   The cell padding to be used for each table.                     #
 178 # CellSpacing   The cell spacing to be used for each table.                     #
 179 #################################################################################
 180
 181         # Get the CSS style and options.
 182
 183         my $class = shift;
 184         my ($cssstyle, $options) = @_;
 185
 186         my $tagdata = "";
 187         my $tabcount = $tablevel;
 188
 189         my $cellpadding = $options->{'CellPadding'};
 190         my $cellspacing = $options->{'CellSpacing'};
 191
 192         # Check if the cell padding and cell spacing and
 193         # CSS style values are blank and if they are then
 194         # set them blank.
 195
 196         if (!$cellpadding){
 197                 $cellpadding = 0;
 198         }
 199
 200         if (!$cellspacing){
 201                 $cellspacing = 0;
 202         }
 203
 204         if (!$cssstyle){
 205                 $cssstyle = "";
 206         }
 207
 208         # Check if the cell padding and cell spacing values
 209         # are valid and die if it isn't.
 210
 211         my $cellpadding_validated = $cellpadding;
 212         my $cellspacing_validated = $cellspacing;
 213
 214         $cellpadding_validated =~ tr/0-9//d;
 215         $cellspacing_validated =~ tr/0-9//d;
 216
 217         if ($cellpadding_validated ne ""){
 218                 die("Cell padding value given is invalid.");
 219         }
 220
 221         if ($cellspacing_validated ne ""){
 222                 die("Cell spacing value given is invalid.");
 223         }
 224
 225         while ($tabcount > 0){
 226                 $tagdata = $tagdata . "\t";
 227                 $tabcount = $tabcount - 1;
 228         }
 229
 230         # Start a table.
 231
 232         $tagdata = $tagdata . "<table";
 233
 234         # Check if the cell spacing and cell padding has values
 235         # more than 0.
 236
 237         if ($cellspacing >= 0){
 238                 $tagdata = $tagdata . " cellspacing=\"" . $cellspacing . "\"";
 239         }
 240
 241         if ($cellpadding > 0){
 242                 $tagdata = $tagdata . " cellpadding=\"" . $cellpadding . "\"";
 243         }
 244
 245         if ($cssstyle ne ""){
 246                 $tagdata = $tagdata . " class=\"" . $class->convert($cssstyle, "content") . "\"";
 247         }
 248
 249         $tagdata = $tagdata . ">" . "\r\n";
 250
 251         # Append the tag data to the page data.
 252
 253         $pagedata = $pagedata . $tagdata;
 254         $tablevel++;
 255
 256 }
 257
 258 sub startheader{
 259 #################################################################################
 260 # startheader: Start a table header.                                            #
 261 #                                                                               #
 262 # Usage:                                                                        #
 263 #                                                                               #
 264 # $presmodule->startheader();                                                   #
 265 #################################################################################
 266
 267         # Start a table header row.
 268
 269         my $tagdata = "";
 270         my $tabcount = $tablevel;
 271
 272         while ($tabcount > 0){
 273                 $tagdata = $tagdata . "\t";
 274                 $tabcount = $tabcount - 1;
 275         }
 276
 277         $tagdata = $tagdata . "<tr>" . "\r\n";
 278
 279         # Append the tag data to the page data.
 280
 281         $pagedata = $pagedata . $tagdata;
 282         $tablevel++;
 283
 284 }
 285
 286 sub addheader{
 287 #################################################################################
 288 # addheader: Add a table header.                                                #
 289 #                                                                               #
 290 # Usage:                                                                        #
 291 #                                                                               #
 292 # $presmodule->addheader(headername, {options});                                #
 293 #                                                                               #
 294 # headername    Specifies the name of the table header to use.                  #
 295 # options       Specifies the following options below (in any order):           #
 296 #                                                                               #
 297 # Style         Specifies the CSS Style to use for the table header.            #
 298 #################################################################################
 299
 300         # Get the header name and options.
 301
 302         my $class       = shift;
 303         my ($headername, $options)      = @_;
 304
 305         my $cssstyle    = $options->{'Style'};
 306
 307         # Check if the CSS Style or header name is undefined and
 308         # if they are then set them blank.
 309
 310         if (!$headername){
 311                 $headername = "";
 312         }
 313
 314         if (!$cssstyle){
 315                 $cssstyle = "";
 316         }
 317
 318         my $tagdata = "";
 319         my $tabcount = $tablevel;
 320
 321         while ($tabcount > 0){
 322                 $tagdata = $tagdata . "\t";
 323                 $tabcount = $tabcount - 1;
 324         }
 325
 326         $tagdata = $tagdata . "<th";
 327
 328         if ($cssstyle ne ""){
 329                 $tagdata = $tagdata . " class=\"" . $class->convert($cssstyle, "content") . "\"";
 330         }
 331
 332         $tagdata = $tagdata . ">" . $class->convert($headername, "content") . "</th>" . "\r\n";
 333
 334         # Append the tag data to the page data.
 335
 336         $pagedata = $pagedata . $tagdata;
 337
 338 }
 339
 340 sub endheader{
 341 #################################################################################
 342 # endheader: End a table header row                                             #
 343 #                                                                               #
 344 # Usage:                                                                        #
 345 #                                                                               #
 346 # $presmodule->endheader();                                                     #
 347 #################################################################################
 348
 349         # End a table header row.
 350
 351         my $tagdata = "";
 352         $tablevel = ($tablevel - 1);
 353         my $tabcount = $tablevel;
 354
 355         while ($tabcount > 0){
 356                 $tagdata = $tagdata . "\t";
 357                 $tabcount = $tabcount - 1;
 358         }
 359
 360         $tagdata = $tagdata . "</tr>" . "\r\n";
 361
 362         # Append the tag data to the page data.
 363
 364         $pagedata = $pagedata . $tagdata;
 365
 366 }
 367
 368 sub startrow{
 369 #################################################################################
 370 # startrow: Start a table row.                                                  #
 371 #                                                                               #
 372 # Usage:                                                                        #
 373 #                                                                               #
 374 # $presmodule->startrow();                                                      #
 375 #################################################################################
 376
 377         # Start a table row.
 378
 379         my $tagdata = "";
 380         my $tabcount = $tablevel;
 381
 382         while ($tabcount > 0){
 383                 $tagdata = $tagdata . "\t";
 384                 $tabcount = $tabcount - 1;
 385         }
 386
 387         $tagdata = $tagdata . "<tr>" . "\r\n";
 388
 389         # Append the tag data to the page data.
 390
 391         $pagedata = $pagedata . $tagdata;
 392         $tablevel++;
 393
 394 }
 395
 396 sub addcell{
 397 #################################################################################
 398 # addcell: Add a table cell.                                                    #
 399 #                                                                               #
 400 # Usage:                                                                        #
 401 #                                                                               #
 402 # $presmodule->addcell(style);                                                  #
 403 #                                                                               #
 404 # style         Specifies which CSS Style to use.                               #
 405 #################################################################################
 406
 407         # Get the cell information and options.
 408
 409         my $class       = shift;
 410         my ($cssstyle)  = @_;
 411         my $tabcount    = $tablevel;
 412         my $tagdata     = "";
 413
 414         # Check if the cell data and CSS style are undefined
 415         # and if they are then set them blank.
 416
 417         if (!$cssstyle){
 418                 $cssstyle = "";
 419         }
 420
 421         while ($tabcount > 0){
 422                 $tagdata = $tagdata . "\t";
 423                 $tabcount = $tabcount - 1;
 424         }
 425
 426         $tagdata = $tagdata . "<td";
 427
 428         if ($cssstyle ne ""){
 429                 $tagdata = $tagdata . " class=\"" . $class->convert($cssstyle, "content") . "\"";
 430         }
 431
 432         $tagdata = $tagdata . ">";
 433
 434         # Append the tag data to the page data.
 435
 436         $pagedata = $pagedata . $tagdata;
 437
 438 }
 439
 440 sub endcell{
 441 #################################################################################
 442 # endcell: End a table cell.                                                    #
 443 #                                                                               #
 444 # Usage:                                                                        #
 445 #                                                                               #
 446 # $presmodule->endcell();                                                       #
 447 #################################################################################
 448
 449         # End a table cell.
 450
 451         my $tagdata = "";
 452
 453         $tagdata = $tagdata . "</td>" . "\r\n";
 454
 455         # Append the tag data to the page data.
 456
 457         $pagedata = $pagedata . $tagdata;
 458
 459 }
 460
 461 sub endrow{
 462 #################################################################################
 463 # endrow: Ends a table row.                                                     #
 464 #                                                                               #
 465 # Usage:                                                                        #
 466 #                                                                               #
 467 # $presmodule->endrow();                                                        #
 468 #################################################################################
 469
 470         # End a table row.
 471
 472         my $tagdata = "";
 473         $tablevel = ($tablevel - 1);
 474         my $tabcount = $tablevel;
 475
 476         while ($tabcount > 0){
 477                 $tagdata = $tagdata . "\t";
 478                 $tabcount = $tabcount - 1;
 479         }
 480
 481         $tagdata = $tagdata . "</tr>" . "\r\n";
 482
 483         # Append the tag data to the page data.
 484
 485         $pagedata = $pagedata . $tagdata;
 486
 487 }
 488
 489 sub endtable{
 490 #################################################################################
 491 # endtable: Ends a table.                                                       #
 492 #                                                                               #
 493 # Usage:                                                                        #
 494 #                                                                               #
 495 # $presmodule->endtable();                                                      #
 496 #################################################################################
 497
 498         # End a table.
 499
 500         my $tagdata = "";
 501         $tablevel = ($tablevel - 1);
 502         my $tabcount = $tablevel;
 503
 504         while ($tabcount > 0){
 505                 $tagdata = $tagdata . "\t";
 506                 $tabcount = $tabcount - 1;
 507         }
 508
 509         $tagdata = $tagdata . "</table>" . "\r\n";
 510
 511         # Append the tag data to the page data.
 512
 513         $pagedata = $pagedata . $tagdata;
 514
 515 }
 516
 517 #################################################################################
 518 # Information box.                                                              #
 519 #################################################################################
 520
 521 sub startbox{
 522 #################################################################################
 523 # startbox: Start an information box.                                           #
 524 #                                                                               #
 525 # Usage:                                                                        #
 526 #                                                                               #
 527 # $presmodule->startbox(cssstyle);                                              #
 528 #                                                                               #
 529 # cssstyle      Specifies the CSS Style to use.                                 #
 530 #################################################################################
 531
 532         # Get the CSS Style name.
 533
 534         my $class       = shift;
 535         my $cssstyle    = shift;
 536
 537         # Check if the CSS style given is undefined and
 538         # if it is then set it blank.
 539
 540         if (!$cssstyle){
 541                 $cssstyle = "";
 542         }
 543
 544         my $tagdata = "";
 545         my $tabcount = $tablevel;
 546
 547         while ($tabcount > 0){
 548                 $tagdata = $tagdata . "\t";
 549                 $tabcount = $tabcount - 1;
 550         }
 551
 552         # Start an information box.
 553
 554         $tagdata = $tagdata . "<div";
 555
 556         if ($cssstyle ne ""){
 557                 $tagdata = $tagdata . " class=\"" . $class->convert($cssstyle, "content") . "\"";
 558         }
 559
 560         $tagdata = $tagdata . ">";
 561
 562         # Append the tag data to the page data.
 563
 564         $pagedata = $pagedata . $tagdata;
 565
 566 }
 567
 568 sub enterdata{
 569 #################################################################################
 570 # enterdata: Enter data into a information box.                                 #
 571 #                                                                               #
 572 # Usage:                                                                        #
 573 #                                                                               #
 574 # $presmodule->enterdata(data);                                                 #
 575 #                                                                               #
 576 # data          Specifies what data should be entered into the information box. #
 577 #################################################################################
 578
 579         # Get the data for the information box.
 580
 581         my $class       = shift;
 582         my $data        = shift;
 583
 584         # Append the data to the page data.
 585
 586         $pagedata = $pagedata . $class->convert($data, "content");
 587
 588 }
 589
 590 sub endbox{
 591 #################################################################################
 592 # endbox: End an information box.                                               #
 593 #                                                                               #
 594 # Usage:                                                                        #
 595 #                                                                               #
 596 # $presmodule->endbox();                                                        #
 597 #################################################################################
 598
 599         # End an information box.
 600
 601         my $tagdata = "";
 602         $tagdata = $tagdata . "</div>" . "\r\n";
 603
 604         # Append the tag data to the page data.
 605
 606         $pagedata = $pagedata . $tagdata;
 607
 608 }
 609
 610 #################################################################################
 611 # Form boxes.                                                                   #
 612 #################################################################################
 613
 614 sub startform{
 615 #################################################################################
 616 # startform: Start a form.                                                      #
 617 #                                                                               #
 618 # Usage:                                                                        #
 619 #                                                                               #
 620 # $presmodule->startform(action, method);                                       #
 621 #                                                                               #
 622 # action        Specifies the action (address) the data should be sent to.      #
 623 # method        Specifies the method to use (POST, GET)                         #
 624 #################################################################################
 625
 626         my $class       = shift;
 627         my $action      = shift;
 628         my $method      = shift;
 629
 630         my $tagdata     = "";
 631         my $tabcount    = $tablevel;
 632
 633         # Check if the action and method values given
 634         # are undefined and if they are set default
 635         # values.
 636
 637         if (!$action){
 638                 $action = "";
 639         }
 640
 641         if (!$method){
 642                 # The method is blank so set it to POST.
 643                 $method = "POST";
 644         }
 645
 646         while ($tabcount > 0){
 647                 $tagdata = $tagdata . "\t";
 648                 $tabcount = $tabcount - 1;
 649         }
 650
 651         $tagdata = $tagdata . "<form action=\"" . $class->convert($action, "content") . "\" method=\"" . $class->convert($method, "content") . "\">" . "\r\n";
 652
 653         # Append the tag data to the page data.
 654
 655         $pagedata = $pagedata . $tagdata;
 656         $tablevel++;
 657
 658 }
 659
 660 sub addcheckbox{
 661 #################################################################################
 662 # addcheckbox: Add a check box.                                                 #
 663 #                                                                               #
 664 # Usage:                                                                        #
 665 #                                                                               #
 666 # $presmodule->addcheckbox(checkboxname, {options});                            #
 667 #                                                                               #
 668 # checkboxname  Specifies the check box name.                                   #
 669 # options       Specifies the following options below (in any order).           #
 670 #                                                                               #
 671 # OptionDescription     Specifies a description for the checkbox value.         #
 672 # Style                 Specifies the CSS style to use.                         #
 673 # Checked               Specifies if the checkbox is checked.                   #
 674 # LineBreak             Specifies if a line break should be added.              #
 675 #################################################################################
 676
 677         # Get the options recieved.
 678
 679         my $class       = shift;
 680         my ($checkboxname, $options) = @_;
 681
 682         my $tagdata     = "";
 683         my $tabcount    = $tablevel;
 684
 685         # Get certain values from the hash.
 686
 687         my $optiondescription   = $options->{'OptionDescription'};
 688         my $style               = $options->{'Style'};
 689         my $checked             = $options->{'Checked'};
 690         my $linebreak           = $options->{'LineBreak'};
 691
 692         # Check if certain values are undefined and if they
 693         # are then set them blank or to a default value.
 694
 695         if (!$checkboxname){
 696                 die("The checkbox name is blank.");
 697         }
 698
 699         if (!$optiondescription){
 700                 $optiondescription = "";
 701         }
 702
 703         if (!$style){
 704                 $style = "";
 705         }
 706
 707         if (!$checked){
 708                 $checked = 0;
 709         }
 710
 711         if (!$linebreak){
 712                 $linebreak = 0;
 713         }
 714
 715         while ($tabcount > 0){
 716                 $tagdata = $tagdata . "\t";
 717                 $tabcount = $tabcount - 1;
 718         }
 719
 720         # Add a check box.
 721
 722         $tagdata = $tagdata . "<input type=\"checkbox\" name=\"" . $class->convert($checkboxname, "content") . "\"";
 723
 724         if ($style ne ""){
 725                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
 726         }
 727
 728         if ($checked eq 1){
 729                 $tagdata = $tagdata . " checked";
 730         }
 731
 732         $tagdata = $tagdata . ">";
 733
 734         if ($optiondescription ne ""){
 735                 $tagdata = $tagdata . "&nbsp;" . $class->convert($optiondescription, "content");
 736         }
 737
 738         if ($linebreak eq 1){
 739                 $tagdata = $tagdata . "<br>";
 740         }
 741
 742         $tagdata = $tagdata . "\r\n";
 743
 744         # Append the tag data to the page data.
 745
 746         $pagedata = $pagedata . $tagdata;
 747
 748 }
 749
 750 sub addradiobox{
 751 #################################################################################
 752 # addradiobox: Add a radio box.                                                 #
 753 #                                                                               #
 754 # Usage:                                                                        #
 755 #                                                                               #
 756 # $presmodule->addradiobox(radioboxname, {options});                            #
 757 #                                                                               #
 758 # radioboxname  The name of the radio box.                                      #
 759 # options       Specifies the following options below (in any order).           #
 760 #                                                                               #
 761 # Description           Specifies a description for the checkbox value.         #
 762 # Style                 Specifies the CSS style to use.                         #
 763 # Selected              Specifies if the radio box is selected.                 #
 764 # LineBreak             Specifies if a line break should be used.               #
 765 # Value                 Specifies the value of the radio box.                   #
 766 #################################################################################
 767
 768         # Get the options recieved.
 769
 770         my $class       = shift;
 771         my ($radioboxname, $options) = @_;
 772
 773         my $tagdata     = "";
 774         my $tabcount    = $tablevel;
 775
 776         # Get certain values from the hash.
 777
 778         my $optiondescription   = $options->{'Description'};
 779         my $style               = $options->{'Style'};
 780         my $selected            = $options->{'Selected'};
 781         my $linebreak           = $options->{'LineBreak'};
 782         my $value               = $options->{'Value'};
 783
 784         # Check if certain values are undefined and if they
 785         # are then set them blank or to a default value.
 786
 787         if (!$radioboxname){
 788                 die("The radio box name is blank.");
 789         }
 790
 791         if (!$value){
 792                 $value = "";
 793         }
 794
 795         if (!$optiondescription){
 796                 $optiondescription = "";
 797         }
 798
 799         if (!$style){
 800                 $style = "";
 801         }
 802
 803         if (!$selected){
 804                 $selected = 0;
 805         }
 806
 807         if (!$linebreak){
 808                 $linebreak = 0;
 809         }
 810
 811         while ($tabcount > 0){
 812                 $tagdata = $tagdata . "\t";
 813                 $tabcount = $tabcount - 1;
 814         }
 815
 816         # Add a radio box.
 817
 818         $tagdata = $tagdata . "<input type=\"radio\" name=\"" . $class->convert($radioboxname, "content") . "\"";
 819
 820         if ($style ne ""){
 821                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
 822         }
 823
 824         if ($selected eq 1){
 825                 $tagdata = $tagdata . " checked";
 826         }
 827
 828         if ($value ne ""){
 829                 $tagdata = $tagdata . " value=\"" . $class->convert($value, "content") . "\"";
 830         } else {
 831                 $tagdata = $tagdata . " value=\"0\"";
 832         }
 833
 834         $tagdata = $tagdata . ">";
 835
 836         if ($optiondescription ne ""){
 837                 $tagdata = $tagdata . "&nbsp;" . $class->convert($optiondescription, "content");
 838         }
 839
 840         if ($linebreak eq 1){
 841                 $tagdata = $tagdata . "<br>";
 842         }
 843
 844         $tagdata = $tagdata . "\r\n";
 845
 846         # Append the tag data to the page data.
 847
 848         $pagedata = $pagedata . $tagdata;
 849 }
 850
 851 sub addselectbox{
 852 #################################################################################
 853 # addselectbox: Add a select box.                                               #
 854 #                                                                               #
 855 # Usage:                                                                        #
 856 #                                                                               #
 857 # $presmodule->addselectbox(selectname, {options});                             #
 858 #                                                                               #
 859 # selectboxname Specifies the name of the select box.                           #
 860 # options       Specifies the following options (in any order).                 #
 861 #                                                                               #
 862 # Style         Specifies the CSS style to use.                                 #
 863 #################################################################################
 864
 865         # Get the options recieved.
 866
 867         my $class       = shift;
 868         my ($selectboxname, $options) = @_;
 869
 870         my $tagdata     = "";
 871         my $tabcount    = $tablevel;
 872
 873         # Get certain values from the hash.
 874
 875         my $style       = $options->{'Style'};
 876
 877         # Check if certain values are undefined and if they
 878         # are then set them blank or to a default value.
 879
 880         if (!$selectboxname){
 881                 die("The select box name is blank.")
 882         }
 883
 884         if (!$style){
 885                 $style = "";
 886         }
 887
 888         while ($tabcount > 0){
 889                 $tagdata = $tagdata . "\t";
 890                 $tabcount = $tabcount - 1;
 891         }
 892
 893         # Add a select box.
 894
 895         $tagdata = $tagdata . "<select name=\"" . $class->convert($selectboxname, "content") . "\"";
 896
 897         if ($style ne ""){
 898                 $tagdata = $tagdata = " class=\"" . $class->convert($style, "content") . "\"";
 899         }
 900
 901         $tagdata = $tagdata . ">";
 902
 903         # Append the tag data to the page data.
 904
 905         $pagedata = $pagedata . $tagdata;
 906         $tablevel++;
 907
 908 }
 909
 910 sub addoption{
 911 #################################################################################
 912 # addoption: Add an option for a select box.                                    #
 913 #                                                                               #
 914 # Usage:                                                                        #
 915 #                                                                               #
 916 # $presmodule->addoption(optionname, options);                                  #
 917 #                                                                               #
 918 # optionname    Specifies the name (description) of the option.                 #
 919 # options       Specifies the following options (in any order).                 #
 920 #                                                                               #
 921 # Style         Specifies the CSS style to be used.                             #
 922 # Value         Specifies the value of the option.                              #
 923 # Selected      This option is selected as default when the page is displayed.  #
 924 #################################################################################
 925
 926         # Get the options recieved.
 927
 928         my $class       = shift;
 929         my ($optionname, $options) = @_;
 930
 931         my $tagdata     = "";
 932         my $tabcount    = $tablevel;
 933
 934         # Get certain values from the hash.
 935
 936         my $style       = $options->{'Style'};
 937         my $value       = $options->{'Value'};
 938         my $selected    = $options->{'Selected'};
 939
 940         # Check if certain values are undefined and if they
 941         # are then set them blank or to a default value.
 942
 943         if (!$optionname){
 944                 die("The option name given is blank.");
 945         }
 946
 947         if (!$value){
 948                 die("No value for the option was given.");
 949         }
 950
 951         if (!$style){
 952                 $style = "";
 953         }
 954
 955         if (!$selected){
 956                 $selected = 0;
 957         }
 958
 959         # Check if certain values are valid and return
 960         # an error if they aren't.
 961
 962         my $selected_validated = $selected;
 963
 964         $selected_validated =~ tr/0-9//d;
 965
 966         if ($selected_validated ne ""){
 967                 die("The selection option is invalid.");
 968         }
 969
 970         while ($tabcount > 0){
 971                 $tagdata = $tagdata . "\t";
 972                 $tabcount = $tabcount - 1;
 973         }
 974
 975         # Add an option for a select box.
 976
 977         $tagdata = $tagdata . "<option value=\"" . $class->convert($value, "content") . "\"";
 978
 979         if ($style ne ""){
 980                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
 981         }
 982
 983         if ($selected eq 1){
 984                 $tagdata = $tagdata . " selected";
 985         }
 986
 987         $tagdata = $tagdata . ">" . $class->convert($optionname, "content") .  "</option>\r\n";
 988
 989         # Append the tag data to the page data.
 990
 991         $pagedata = $pagedata . $tagdata;
 992
 993 }
 994
 995 sub endselectbox{
 996 #################################################################################
 997 # endselectbox: Ends a select box.                                              #
 998 #                                                                               #
 999 # Usage:                                                                        #
1000 #                                                                               #
1001 # $presmodule->endselectbox();                                                  #
1002 #################################################################################
1003
1004         # End a select box.
1005
1006         my $tagdata = "";
1007         $tablevel = ($tablevel - 1);
1008         my $tabcount = $tablevel;
1009
1010         while ($tabcount > 0){
1011                 $tagdata = $tagdata . "\t";
1012                 $tabcount = $tabcount - 1;
1013         }
1014
1015         $tagdata = $tagdata . "</select>" . "\r\n";
1016
1017         # Append the tag data to the page data.
1018
1019         $pagedata = $pagedata . $tagdata;
1020
1021 }
1022
1023 sub addinputbox{
1024 #################################################################################
1025 # addinputbox: Add a input text box.                                            #
1026 #                                                                               #
1027 # Usage:                                                                        #
1028 #                                                                               #
1029 # $presmodule->addinputbox(inputboxname, options);                              #
1030 #                                                                               #
1031 # inputboxname  Specifies the name of the input text box.                       #
1032 # options       Specifies the following options (in any order).                 #
1033 #                                                                               #
1034 # Size          Specifies the size of the input text box.                       #
1035 # MaxLength     Specifies the maximum length of the input text box.             #
1036 # Style         Specifies the CSS style to use.                                 #
1037 # Value         Specifies a value for the input box.                            #
1038 #################################################################################
1039
1040         # Get the options recieved.
1041
1042         my $class       = shift;
1043         my ($inputboxname, $options) = @_;
1044
1045         my $tagdata     = "";
1046         my $tabcount    = $tablevel;
1047
1048         # Get certain values from the hash.
1049
1050         my $size        = $options->{'Size'};
1051         my $maxlength   = $options->{'MaxLength'};
1052         my $style       = $options->{'Style'};
1053         my $value       = $options->{'Value'};
1054         my $password    = $options->{'Password'};
1055
1056         # Check if certain values are undefined and if they
1057         # are then set them blank or to a default value.
1058
1059         if (!$inputboxname){
1060                 die("The input box name given is blank.");
1061         }
1062
1063         if (!$size){
1064                 $size = 0;
1065         }
1066
1067         if (!$maxlength){
1068                 $maxlength = 0;
1069         }
1070
1071         if (!$style){
1072                 $style = "";
1073         }
1074
1075         if (!$value){
1076                 $value = "";
1077         }
1078
1079         if (!$password){
1080                 $password = 0;
1081         }
1082
1083         # Check if certain values are valid and return
1084         # an error if they aren't.
1085
1086         my $size_validated = $size;
1087         my $maxlength_validated = $maxlength;
1088
1089         $size_validated         =~ tr/0-9//d;
1090         $maxlength_validated    =~ tr/0-9//d;
1091
1092         if ($size_validated ne ""){
1093                 die("The size given is invalid.");
1094         }
1095
1096         if ($maxlength_validated ne ""){
1097                 die("The maximum length given is invalid.");
1098         }
1099
1100         while ($tabcount > 0){
1101                 $tagdata = $tagdata . "\t";
1102                 $tabcount = $tabcount - 1;
1103         }
1104
1105         # Add an input text box.
1106
1107         $tagdata = "<input ";
1108
1109         # Check if it should be a password field.
1110
1111         if ($password eq 1){
1112
1113                 # The field should be a password field.
1114
1115                 $tagdata = $tagdata . "type=\"password\" ";
1116
1117         } else {
1118
1119                 # The field should be a text field.
1120
1121                 $tagdata = $tagdata . "type=\"text\" ";
1122
1123         }
1124
1125         $tagdata = $tagdata . "name=\"" . $class->convert($inputboxname, "content") . "\"";
1126
1127         if ($size > 0){
1128                 $tagdata = $tagdata . " size=\"" . $class->convert($size, "content") . "\"";
1129         }
1130
1131         if ($maxlength > 0){
1132                 $tagdata = $tagdata . " maxlength=\"" . $class->convert($maxlength, "content") . "\"";
1133         }
1134
1135         if ($style ne ""){
1136                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
1137         }
1138
1139         if ($value ne ""){
1140                 $tagdata = $tagdata . " value=\"" . $class->convert($value, "content") . "\"";
1141         }
1142
1143         $tagdata = $tagdata . ">" . "\r\n";
1144
1145         # Append the tag data to the page data.
1146
1147         $pagedata = $pagedata . $tagdata;
1148
1149 }
1150
1151 sub addtextbox{
1152 #################################################################################
1153 # addtextbox: Add a multiple line text box.                                     #
1154 #                                                                               #
1155 # Usage:                                                                        #
1156 #                                                                               #
1157 # $presmodule->addtextbox(textboxname, options);                                #
1158 #                                                                               #
1159 # textboxname   Specifies the name of the multiple line text box.               #
1160 # options       Specifies the following options (in any order).                 #
1161 #                                                                               #
1162 # Columns       Specifies the width of the multiple line text box.              #
1163 # Rows          Specifies the height of the multiple line text box.             #
1164 # Style         Specifies the CSS style to use.                                 #
1165 # Value         Specifies a value for the multiple line text box.               #
1166 #################################################################################
1167
1168         # Get the options recieved.
1169
1170         my $class       = shift;
1171         my ($textboxname, $options) = @_;
1172
1173         my $tagdata     = "";
1174         my $tabcount    = $tablevel;
1175
1176         # Get certain values from the hash.
1177
1178         my $columns     = $options->{'Columns'};
1179         my $rows        = $options->{'Rows'};
1180         my $style       = $options->{'Style'};
1181         my $value       = $options->{'Value'};
1182
1183         # Check if certain values are undefined and if they
1184         # are then set them blank or to a default value.
1185
1186         if (!$textboxname){
1187                 die("The multiple line text box name is blank.");
1188         }
1189
1190         if (!$columns){
1191                 $columns = 0;
1192         }
1193
1194         if (!$rows){
1195                 $rows = 0;
1196         }
1197
1198         if (!$style){
1199                 $style = "";
1200         }
1201
1202         if (!$value){
1203                 $value = "";
1204         }
1205
1206         # Check if certain values are valid and return
1207         # an error if they aren't.
1208
1209         my $columns_validated   = $columns;
1210         my $rows_validated      = $rows;
1211
1212         $columns_validated      =~ tr/0-9//d;
1213         $rows_validated         =~ tr/0-9//d;
1214
1215         if ($columns_validated ne ""){
1216                 die("The columns value given is invalid.");
1217         }
1218
1219         if ($rows_validated ne ""){
1220                 die("The rows value given is invalid.");
1221         }
1222
1223         while ($tabcount > 0){
1224                 $tagdata = $tagdata . "\t";
1225                 $tabcount = $tabcount - 1;
1226         }
1227
1228         # Add a multiple line text box.
1229
1230         $tagdata = $tagdata . "<textarea name=\"" . $class->convert($textboxname, "content") . "\"";
1231
1232         if ($columns > 0){
1233                 $tagdata = $tagdata . " cols=\"" . $class->convert($columns, "content") . "\"";
1234         }
1235
1236         if ($rows > 0){
1237                 $tagdata = $tagdata . " rows=\"" . $class->convert($rows, "content") . "\"";
1238         }
1239
1240         if ($style ne ""){
1241                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
1242         }
1243
1244         $tagdata = $tagdata . ">";
1245         $tagdata = $tagdata . $value;
1246         $tagdata = $tagdata . "</textarea>" . "\r\n";
1247
1248         # Append the tag data to the page data.
1249
1250         $pagedata = $pagedata . $tagdata;
1251
1252 }
1253
1254 sub addsubmit{
1255 #################################################################################
1256 # addsubmit: Add a submit button.                                               #
1257 #                                                                               #
1258 # Usage:                                                                        #
1259 #                                                                               #
1260 # $pagemodule->addsubmit(submitname, options);                                  #
1261 #                                                                               #
1262 # submitname    Specifies the name (label) of the submit button.                #
1263 # options       Specifies the following options (in any order).                 #
1264 #                                                                               #
1265 # Style         Specifies the CSS style to use.                                 #
1266 #################################################################################
1267
1268         # Get the options recieved.
1269
1270         my $class       = shift;
1271         my ($submitname, $options) = @_;
1272
1273         my $tagdata     = "";
1274         my $tabcount    = $tablevel;
1275
1276         # Get certain values from the hash.
1277
1278         my $style       = $options->{'Style'};
1279
1280         # Check if certain values are undefined and if they
1281         # are then set them blank or to a default value.
1282
1283         if (!$submitname){
1284                 die("The submit name is blank.");
1285         }
1286
1287         if (!$style){
1288                 $style = "";
1289         }
1290
1291         while ($tabcount > 0){
1292                 $tagdata = $tagdata . "\t";
1293                 $tabcount = $tabcount - 1;
1294         }
1295
1296         # Add a submit button.
1297
1298         $tagdata = $tagdata . "<input type=\"submit\" value=\"" . $class->convert($submitname, "content") . "\"";
1299
1300         if ($style ne ""){
1301                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
1302         }
1303
1304         $tagdata = $tagdata . ">" . "\r\n";
1305
1306         # Append the tag data to the page data.
1307
1308         $pagedata = $pagedata . $tagdata;
1309
1310 }
1311
1312 sub addreset{
1313 #################################################################################
1314 # addreset: Add a reset button.                                                 #
1315 #                                                                               #
1316 # Usage:                                                                        #
1317 #                                                                               #
1318 # $pagemodule->addreset(resetname, options);                                    #
1319 #                                                                               #
1320 # resetname     Specifies the name (label) of the reset button.                 #
1321 # options       Specifies the following options (in any order).                 #
1322 #                                                                               #
1323 # Style         Specifies the CSS style to use.                                 #
1324 #################################################################################
1325
1326         # Get the options recieved.
1327
1328         my $class       = shift;
1329         my ($resetname, $options) = @_;
1330
1331         my $tagdata     = "";
1332         my $tabcount    = $tablevel;
1333
1334         # Get certain values from the hash.
1335
1336         my $style       = $options->{'Style'};
1337
1338         # Check if certain values are undefined and if they
1339         # are then set them blank or to a default value.
1340
1341         if (!$resetname){
1342                 die("The reset name is blank.");
1343         }
1344
1345         if (!$style){
1346                 $style = "";
1347         }
1348
1349         while ($tabcount > 0){
1350                 $tagdata = $tagdata . "\t";
1351                 $tabcount = $tabcount - 1;
1352         }
1353
1354         # Add a reset button.
1355
1356         $tagdata = $tagdata . "<input type=\"reset\" value=\"" . $class->convert($resetname, "content") . "\"";
1357
1358         if ($style ne ""){
1359                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
1360         }
1361
1362         $tagdata = $tagdata . ">" . "\r\n";
1363
1364         # Append the tag data to the page data.
1365
1366         $pagedata = $pagedata . $tagdata;
1367
1368 }
1369
1370 sub addhiddendata{
1371 #################################################################################
1372 # addhiddendata: Adds hidden data to the form.                                  #
1373 #                                                                               #
1374 # Usage:                                                                        #
1375 #                                                                               #
1376 # $presmodule->addhiddendata(name, value);                                      #
1377 #                                                                               #
1378 # name          Specifies the name of the hidden data.                          #
1379 # value         Specifies the value of the hidden data.                         #
1380 #################################################################################
1381
1382         # Get the name and value.
1383
1384         my $class       = shift;
1385         my ($name, $value) = @_;
1386
1387         my $tagdata     = "";
1388         my $tabcount    = $tablevel;
1389
1390         # Check if certain values are undefined and if they
1391         # are then set them blank or to a default value.
1392
1393         if (!$name){
1394                 die("The name for the hidden data is blank.");
1395         }
1396
1397         if (!$value){
1398                 $value = "";
1399         }
1400
1401         while ($tabcount > 0){
1402                 $tagdata = $tagdata . "\t";
1403                 $tabcount = $tabcount - 1;
1404         }
1405
1406         # Add hidden data.
1407
1408         $tagdata = $tagdata . "<input type=\"hidden\" name=\"" . $class->convert($name, "content") . "\"";
1409
1410         if ($value ne ""){
1411                 $tagdata = $tagdata . " value=\"" . $class->convert($value, "content") . "\"";
1412         }
1413
1414         $tagdata = $tagdata . ">" . "\r\n";
1415
1416         # Add the tag data to the page data.
1417
1418         $pagedata = $pagedata . $tagdata;
1419
1420 }
1421
1422 sub addbutton{
1423 #################################################################################
1424 # addbutton: Add a button.                                                      #
1425 #                                                                               #
1426 # Usage:                                                                        #
1427 #                                                                               #
1428 # $presmodule->addbutton(buttonname, options);                                  #
1429 #                                                                               #
1430 # buttonname    Specifies the name of button.                                   #
1431 # options       Specifies the following options below (in any order).           #
1432 #                                                                               #
1433 # Value         Specifies the value of the button.                              #
1434 # Description   Specifies the description (label) of the button.                #
1435 # Style         Specifies the CSS style to use.                                 #
1436 #################################################################################
1437
1438         # Get the options recieved.
1439
1440         my $class       = shift;
1441         my ($buttonname, $options) = @_;
1442
1443         my $tagdata     = "";
1444         my $tabcount    = $tablevel;
1445
1446         # Get certain values from the hash.
1447
1448         my $value       = $options->{'Value'};
1449         my $description = $options->{'Description'};
1450         my $style       = $options->{'Style'};
1451
1452         # Check if certain values are undefined and if they
1453         # are then set them blank or to a default value.
1454
1455         if (!$buttonname){
1456                 die("The name for button is blank.");
1457         }
1458
1459         if (!$value){
1460                 $value = "";
1461         }
1462
1463         if (!$description){
1464                 die("The description for the button is blank.");
1465         }
1466
1467         if (!$style){
1468                 $style = "";
1469         }
1470
1471         while ($tabcount > 0){
1472                 $tagdata = $tagdata . "\t";
1473                 $tabcount = $tabcount - 1;
1474         }
1475
1476         # Add a button.
1477
1478         $tagdata = $tagdata . "<button name=\"" . $class->convert($buttonname, "content") . "\"";
1479
1480         if ($value ne ""){
1481                 $tagdata = $tagdata . " value=\"" . $class->convert($value, "content") . "\"";
1482         }
1483
1484         if ($style ne ""){
1485                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
1486         }
1487
1488         $tagdata = $tagdata . ">" . $class->convert($description, "content") . "</button>\r\n";
1489
1490         # Add the tag data to the page data.
1491
1492         $pagedata = $pagedata . $tagdata;
1493
1494 }
1495
1496 sub endform{
1497 #################################################################################
1498 # endform: Ends a form.                                                         #
1499 #                                                                               #
1500 # Usage:                                                                        #
1501 #                                                                               #
1502 # $presmodule->endform();                                                       #
1503 #################################################################################
1504
1505         # End a form.
1506
1507         my $tagdata = "";
1508         $tablevel = ($tablevel - 1);
1509         my $tabcount = $tablevel;
1510
1511         while ($tabcount > 0){
1512                 $tagdata = $tagdata . "\t";
1513                 $tabcount = $tabcount - 1;
1514         }
1515
1516         $tagdata = $tagdata . "</form>" . "\r\n";
1517
1518         # Append the tag data to the page data.
1519
1520         $pagedata = $pagedata . $tagdata;
1521
1522 }
1523
1524 #################################################################################
1525 # Page Link.                                                                    #
1526 #################################################################################
1527
1528 sub addlink{
1529 #################################################################################
1530 # addlink: Adds a link.                                                         #
1531 #                                                                               #
1532 # Usage:                                                                        #
1533 #                                                                               #
1534 # $presmodule->addlink(link, options);                                          #
1535 #                                                                               #
1536 # Link          Specifies the location of the link.                             #
1537 # options       Specifies the following options below (in any order).           #
1538 #                                                                               #
1539 # Target        Specifies the target window for the link.                       #
1540 # Text          Specifies the text to use.                                      #
1541 #################################################################################
1542
1543         # Get the options recieved.
1544
1545         my $class       = shift;
1546         my ($link, $options) = @_;
1547
1548         my $tagdata     = "";
1549         my $tabcount    = $tablevel;
1550
1551         # Get certain values from the hash.
1552
1553         my $target      = $options->{'Target'};
1554         my $name        = $options->{'Text'};
1555         my $embed       = $options->{'Embed'};
1556
1557         # Check if certain values are undefined and if they
1558         # are then set them blank or to a default value.
1559
1560         if (!$link){
1561                 die("The link specified was blank.");
1562         }
1563
1564         if (!$target){
1565                 $target = "";
1566         }
1567
1568         if (!$embed){
1569                 $embed = 0;
1570         }
1571
1572         while ($tabcount > 0){
1573                 $tagdata = $tagdata . "\t";
1574                 $tabcount = $tabcount - 1;
1575         }
1576
1577         # Add a link.
1578
1579         $tagdata = "<a href=\"" . $class->convert($link, "link") . "\"";
1580
1581         if ($target ne ""){
1582                 $tagdata = $tagdata . " target=\"" . $class->convert($target, "content") . "\"";
1583         }
1584
1585         $tagdata = $tagdata . ">" . $class->convert($name, "content")  . "</a>" . "\r\n";
1586
1587         # Append the tag data to the page data.
1588
1589         $pagedata = $pagedata . $tagdata;
1590
1591 }
1592
1593 #################################################################################
1594 # Image.                                                                        #
1595 #################################################################################
1596
1597 sub addimage{
1598 #################################################################################
1599 # addimage: Adds an image.                                                      #
1600 #                                                                               #
1601 # Usage:                                                                        #
1602 #                                                                               #
1603 # $presmodule->addimage(image, options);                                        #
1604 #                                                                               #
1605 # image         Specifies the location of the image.                            #
1606 # options       Specifies the following options below (in any order).           #
1607 #                                                                               #
1608 # Style         Specifies the CSS style to use.                                 #
1609 # Description   Specifies the description of the image.                         #
1610 # Width         Specifies the width of the image.                               #
1611 # Height        Specifies the height of the image.                              #
1612 #################################################################################
1613
1614         # Get the options recieved.
1615
1616         my $class       = shift;
1617         my ($image, $options) = @_;
1618
1619         my $tagdata     = "";
1620         my $tabcount    = $tablevel;
1621
1622         # Get certain values from the hash.
1623
1624         my $style       = $options->{'Style'};
1625         my $width       = $options->{'Width'};
1626         my $height      = $options->{'Height'};
1627
1628         # Check if certain values are undefined and if they
1629         # are then set them blank or to a default value.
1630
1631         if (!$image){
1632                 die("The link to the image given is blank");
1633         }
1634
1635         if (!$style){
1636                 $style = "";
1637         }
1638
1639         if (!$width){
1640                 $width = 0;
1641         }
1642
1643         if (!$height){
1644                 $height = 0;
1645         }
1646
1647         # Check if certain values are valid and return
1648         # an error if they aren't.
1649
1650         my $width_validated     = $width;
1651         my $height_validated    = $height;
1652
1653         $width_validated        =~ tr/0-9//d;
1654         $height_validated       =~ tr/0-9//d;
1655
1656         if (!$width_validated){
1657                 die("The width value given is invalid.");
1658         }
1659
1660         if (!$height_validated){
1661                 die("The height value given is invalid.");
1662         }
1663
1664         while ($tabcount > 0){
1665                 $tagdata = $tagdata . "\t";
1666                 $tabcount = $tabcount - 1;
1667         }
1668
1669         # Add an image.
1670
1671         $tagdata = $tagdata . "<img src=\"" . $class->convert($image, "content") . "\"";
1672
1673         if ($style ne ""){
1674                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
1675         }
1676
1677         if ($width ne 0){
1678                 $tagdata = $tagdata . " width=\"" . $class->convert($width, "content") . "\"";
1679         }
1680
1681         if ($height ne 0){
1682                 $tagdata = $tagdata . " height=\"" . $class->convert($height, "content") . "\"";
1683         }
1684
1685         $tagdata = $tagdata . ">" . "\r\n";
1686
1687         # Append the tag data to the page data.
1688
1689         $pagedata = $pagedata . $tagdata;
1690
1691 }
1692
1693 #################################################################################
1694 # Text.                                                                         #
1695 #################################################################################
1696
1697 sub addtext{
1698 #################################################################################
1699 # addtext: Adds some text.                                                      #
1700 #                                                                               #
1701 # Usage:                                                                        #
1702 #                                                                               #
1703 # $presmodule->addtext(text, options);                                          #
1704 #                                                                               #
1705 # text          Specifies the text to add.                                      #
1706 # options       Specifies the following options below (in any order).           #
1707 #                                                                               #
1708 # Style         Specifies the CSS style to use.                                 #
1709 #################################################################################
1710
1711         # Get the options recieved.
1712
1713         my $class       = shift;
1714         my ($text, $options) = @_;
1715
1716         my $tagdata     = "";
1717         my $tabcount    = $tablevel;
1718
1719         # Get certain values from the hash.
1720
1721         my $style       = $options->{'Style'};
1722
1723         # Check if certain values are undefined and if they
1724         # are then set them blank or to a default value.
1725
1726         if (!$style){
1727                 $style = "";
1728         }
1729
1730         if (!$text){
1731                 $text = "";
1732         }
1733
1734         # Add some text.
1735
1736         if ($style ne ""){
1737                 $tagdata = $tagdata . "<span class=\"" . $class->convert($style, "content") . "\">" . $class->convert($text, "content") . "</span>";
1738         } else {
1739                 $tagdata = $tagdata . $class->convert($text, "content");
1740         }
1741
1742         # Append the tagdata to the pagedata.
1743
1744         $pagedata = $pagedata . $tagdata;
1745
1746 }
1747
1748 sub addboldtext{
1749 #################################################################################
1750 # addboldtext: Adds some bold text.                                             #
1751 #                                                                               #
1752 # Usage:                                                                        #
1753 #                                                                               #
1754 # $presmodule->addboldtext(text, options);                                      #
1755 #                                                                               #
1756 # text          Specifies the text to add.                                      #
1757 # options       Specifies the following options below (in any order).           #
1758 #                                                                               #
1759 # Style         Specifies the CSS style to use.                                 #
1760 #################################################################################
1761
1762         # Get the options recieved.
1763
1764         my $class       = shift;
1765         my ($text, $options) = @_;
1766
1767         my $tagdata     = "";
1768         my $tabcount    = $tablevel;
1769
1770         # Get certain values from the hash.
1771
1772         my $style       = $options->{'Style'};
1773
1774         # Check if certain values are undefined and if they
1775         # are then set them blank or to a default value.
1776
1777         if (!$text){
1778                 die("The text given was blank.");
1779         }
1780
1781         if (!$style){
1782                 $style = "";
1783         }
1784
1785         # Add some bold text.
1786
1787         if ($style ne ""){
1788                 $tagdata = $tagdata . "<span class=\"\">" . $class->convert($text, "content") . "</span>";
1789         } else {
1790                 $tagdata = $tagdata . "<b>" . $class->convert($text, "content") . "</b>";
1791         }
1792
1793         # Append the tagdata to the pagedata.
1794
1795         $pagedata = $pagedata . $tagdata;
1796
1797 }
1798
1799 sub additalictext{
1800 #################################################################################
1801 # addboldtext: Adds some italic text.                                           #
1802 #                                                                               #
1803 # Usage:                                                                        #
1804 #                                                                               #
1805 # $presmodule->additalictext(text, options);                                    #
1806 #                                                                               #
1807 # text          Specifies the text to add.                                      #
1808 # options       Specifies the following options below (in any order).           #
1809 #                                                                               #
1810 # Style         Specifies the CSS style to use.                                 #
1811 #################################################################################
1812
1813         # Get the options recieved.
1814
1815         my $class       = shift;
1816         my ($text, $options) = @_;
1817
1818         my $tagdata     = "";
1819         my $tabcount    = $tablevel;
1820
1821         # Get certain values from the hash.
1822
1823         my $style       = $options->{'Style'};
1824
1825         # Check if certain values are undefined and if they
1826         # are then set them blank or to a default value.
1827
1828         if (!$text){
1829                 die("The text given was blank.");
1830         }
1831
1832         if (!$style){
1833                 $style = "";
1834         }
1835
1836         # Add some italic text.
1837
1838         if ($style ne ""){
1839                 $tagdata = $tagdata . "<span class=\"\">" . $class->convert($text, "content") . "</span>";
1840         } else {
1841                 $tagdata = $tagdata . "<i>" . $class->convert($text, "content") . "</i>";
1842         }
1843
1844         # Append the tagdata to the pagedata.
1845
1846         $pagedata = $pagedata . $tagdata;
1847
1848 }
1849
1850 sub addlinebreak{
1851 #################################################################################
1852 # addlinebreak: Adds a line break specific to the output format.                #
1853 #                                                                               #
1854 # Usage:                                                                        #
1855 #                                                                               #
1856 # $presmodule->addlinebreak();                                                  #
1857 #################################################################################
1858
1859         # Add a line break.
1860
1861         my $tagdata = "";
1862
1863         $tagdata = "<br>" . "\r\n";
1864
1865         # Append the tagdata to the pagedata.
1866
1867         $pagedata = $pagedata . $tagdata;
1868
1869 }
1870
1871 sub addhorizontalline{
1872 #################################################################################
1873 # addhorizontalline: Adds a horizontal line.                                    #
1874 #                                                                               #
1875 # Usage:                                                                        #
1876 #                                                                               #
1877 # $presmodule->addhorizontalline();                                             #
1878 #################################################################################
1879
1880         # Add a horizontal line.
1881
1882         my $tagdata = "";
1883
1884         $tagdata = "<hr>" . "\r\n";
1885
1886         # Append the tagdata to the pagedata.
1887
1888         $pagedata = $pagedata . $tagdata;
1889
1890 }
1891
1892 #################################################################################
1893 # Other.                                                                        #
1894 #################################################################################
1895
1896 sub startlist{
1897 #################################################################################
1898 # startlist: Start a list.                                                      #
1899 #                                                                               #
1900 # Usage:                                                                        #
1901 #                                                                               #
1902 # $presmodule->startlist();                                                     #
1903 #################################################################################
1904
1905         # Start a list.
1906
1907         my $tagdata = "";
1908         my $tabcount = $tablevel;
1909
1910         while ($tabcount > 0){
1911                 $tagdata = $tagdata . "\t";
1912                 $tabcount = $tabcount - 1;
1913         }
1914
1915         $tagdata = $tagdata . "<ul>" . "\r\n";
1916
1917         # Append the tag data to the page data.
1918
1919         $pagedata = $pagedata . $tagdata;
1920         $tablevel++;
1921
1922 }
1923
1924 sub additem{
1925 #################################################################################
1926 # additem: Adds an item to the list.                                            #
1927 #                                                                               #
1928 # Usage:                                                                        #
1929 #                                                                               #
1930 # $presmodule->additem(text, options);                                          #
1931 #                                                                               #
1932 # text          Specifies the text to use for the item.                         #
1933 # options       Specifies the following options (in any order).                 #
1934 #                                                                               #
1935 # Style         Specifies the CSS style to use.                                 #
1936 #################################################################################
1937
1938          # Get the options recieved.
1939
1940         my $class       = shift;
1941         my ($text, $options) = @_;
1942
1943         my $tagdata     = "";
1944         my $tabcount    = $tablevel;
1945
1946         # Get certain values from the hash.
1947
1948         my $style       = $options->{'Style'};
1949
1950         # Check if certain values are undefined and if they
1951         # are then set them blank or to a default value.
1952
1953         if (!$text){
1954                 die("The text given was blank.");
1955         }
1956
1957         if (!$style){
1958                 $style = "";
1959         }
1960
1961         # Add an item to the list.
1962
1963         $tagdata = $tagdata . "<li ";
1964
1965         if ($style ne ""){
1966                 $tagdata = $tagdata . " class=\"" . $class->convert($style, "content") . "\"";
1967         }
1968
1969         $tagdata = $tagdata . ">" . $class->convert($text, "content");
1970
1971         # Append the tag data to the page data.
1972
1973         $pagedata = $pagedata . $tagdata;
1974
1975 }
1976
1977 sub endlist{
1978 #################################################################################
1979 # endlist: End a list.                                                          #
1980 #                                                                               #
1981 # Usage:                                                                        #
1982 #                                                                               #
1983 # $presmodule-endlist();                                                        #
1984 #################################################################################
1985
1986         # End a list.
1987
1988         my $tagdata = "";
1989         $tablevel = ($tablevel - 1);
1990         my $tabcount = $tablevel;
1991
1992         while ($tabcount > 0){
1993                 $tagdata = $tagdata . "\t";
1994                 $tabcount = $tabcount - 1;
1995         }
1996
1997         $tagdata = $tagdata . "</ul>" . "\r\n";
1998
1999         # Append the tag data to the page data.
2000
2001         $pagedata = $pagedata . $tagdata;
2002
2003 }
2004
2005 1;