Module Development Guide

index.php?m=<module>&d=<action>

Examples:
  ?m=polls&d=view           → calls pb_on_action('view', ...) in modules/polls.php
  ?m=polls-admin&d=admin    → admin panel
  ?m=polls-admin&d=install  → install action

httpdocs/
├── modules/
│   └── polls.php            ← Controller
└── themes/
    └── default/
        └── polls.tpl        ← Template

<?php
// modules/polls.php — Public-facing polls module

pb_on_action('view', function () {
    pb_title('Community Polls');
    pb_template('polls');

    // Pass data to the template via the $m array
    $polls = getsqlarray("
        SELECT id, title, total_votes
        FROM polls
        WHERE id_company = " . TCompany::CurrentCompany()->ID() . "
          AND active = 1
        ORDER BY id DESC
        LIMIT 20
    ");

    pb_set_tpl_var('polls', $polls);
    pb_set_tpl_var('total', count($polls));
});

pb_on_action('vote', function () {
    $pollId = PB::POST('poll_id')->AsAbsInt();
    $answer = PB::POST('answer_id')->AsAbsInt();

    if (!$pollId || !$answer) {
        pb_set_action('view');   // redirect to 'view' action
        return;
    }

    execsql("UPDATE poll_answers SET votes = votes + 1 WHERE id = $answer AND id_poll = $pollId");
    execsql("UPDATE polls SET total_votes = total_votes + 1 WHERE id = $pollId");

    pb_notify('Your vote has been recorded!');
    pb_set_action('view');
});

{* themes/default/polls.tpl *}

{if $m.action eq 'view'}
    {include file="block_begin.tpl"}

    <h2>Community Polls ({$m.total})</h2>

    {foreach from=$m.polls item=poll}
        <div class="poll-card">
            <h3>{$poll.title}</h3>
            <p>{$poll.total_votes} votes cast</p>
            <a href="index.php?m=polls&d=view&id={$poll.id}">View Poll</a>
        </div>
    {/foreach}

    {include file="block_end.tpl"}
{/if}

http://localhost:8090/index.php?m=polls&d=view

/* * Module Name: Polls Management */

<?php
/* * Module Name: Polls Management */

use PB\Access\PBAccess;
use PB\Common\Redirect;
use PB\Core\PBURL;
use PB\UI\UI;

// ── admin ───────────────────────────────────────────────────
// The main management page shown in the CRM dashboard
pb_on_action('admin', function () {
    PBAccess::AdminRequired();   // 403 if not super admin

    pb_title('Polls Management');
    pb_template('polls-admin');

    $list = new PollList();
    $list->SetFilterCompany(TCompany::CurrentCompany()->ID());
    pb_pagination_init_for_list($list);
    $list->Load();

    $ui = new UI();
    PB::BreadCrumbs()->Add('Polls', PBURL::CurrentModule('admin'));

    $buttons = new Buttons();
    $buttons->Button('Add Poll', PBURL::CurrentModule('add-poll'));
    $ui->Add($buttons);

    $grid = new Grid();
    $grid->AddCol('title', 'Poll Question');
    $grid->AddCol('votes', 'Votes');
    $grid->AddEdit();
    $grid->AddDelete();

    foreach ($list->EachItem() as $poll) {
        $grid->Label('title', $poll->Title());
        $grid->Label('votes', $poll->FieldIntValue('total_votes'));
        $grid->URL('title', PBURL::CurrentModule('edit-poll', ['id' => $poll->ID()]));
        $grid->NewRow();
    }

    if ($grid->RowCount() === 0) {
        $grid->SingleLineLabel('No polls yet. Click Add Poll to create one.');
    }

    $ui->Add($grid);
    $ui->AddPaginatorForList($list);
    $ui->Output(true);
});

// ── install ─────────────────────────────────────────────────
// Runs once when admin clicks "Install" in Module Management UI
pb_on_action('install', function () {
    PBAccess::AdminRequired();

    // Register the module so it appears in the nav
    pb_register_module('polls-admin', 'Polls Management');
    // Register the preload file so Poll/PollList classes are auto-loaded
    pb_register_autoload('polls-models');

    // Create the DB schema
    execsql("CREATE TABLE IF NOT EXISTS polls (
        id          INT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY,
        id_company  INT UNSIGNED NOT NULL DEFAULT 0,
        title       VARCHAR(255) NOT NULL DEFAULT '',
        total_votes INT UNSIGNED NOT NULL DEFAULT 0,
        active      TINYINT(1)   NOT NULL DEFAULT 1,
        timeadded   INT UNSIGNED NOT NULL DEFAULT 0,
        INDEX idx_company (id_company)
    ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4");

    execsql("CREATE TABLE IF NOT EXISTS poll_answers (
        id       INT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY,
        id_poll  INT UNSIGNED NOT NULL DEFAULT 0,
        title    VARCHAR(255) NOT NULL DEFAULT '',
        votes    INT UNSIGNED NOT NULL DEFAULT 0,
        INDEX idx_poll (id_poll)
    ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4");

    Redirect::Now(PBURL::AdminModulesManagement());
});

// ── uninstall ───────────────────────────────────────────────
pb_on_action('uninstall', function () {
    PBAccess::AdminRequired();

    pb_unregister_module('polls-admin');
    pb_unregister_autoload('polls-models');

    execsql("DROP TABLE IF EXISTS polls");
    execsql("DROP TABLE IF EXISTS poll_answers");

    Redirect::Now(PBURL::AdminModulesManagement());
});

// ── add-poll (show form) ─────────────────────────────────────
pb_on_action('add-poll', function () {
    PBAccess::AdminRequired();
    pb_title('Add Poll');
    pb_template('polls-admin');

    $ui = new UI();
    PB::BreadCrumbs()
        ->Add('Polls', PBURL::CurrentModule('admin'))
        ->AddCurrent('Add Poll');

    $f = new POSTForm(PBURL::CurrentModule('create-poll'));
    $f->AddText('question', 'Poll Question', true)->SetFocus();
    $f->AddText('answer1', 'Answer 1', true);
    $f->AddText('answer2', 'Answer 2', true);
    $f->AddText('answer3', 'Answer 3', false);
    $f->AddText('answer4', 'Answer 4', false);
    $f->AddSubmit('Create Poll');

    if (!PB::Requests()->POSTAsArray()) {
        $f->LoadValuesArray(PB::Requests()->POSTAsArray());
    }

    $ui->Add($f);
    $ui->Output(true);
});

// ── create-poll (POST handler) ────────────────────────────────
pb_on_action('create-poll', function () {
    PBAccess::AdminRequired();

    $question = PB::POST('question');
    $answers  = [
        PB::POST('answer1')->AsString(),
        PB::POST('answer2')->AsString(),
        PB::POST('answer3')->AsString(),
        PB::POST('answer4')->AsString(),
    ];

    if ($question->isEmpty()) {
        PB::Errors()->AddError('Poll question is required');
        PB::Errors()->SwitchActionOnError('add-poll');
        return;
    }

    // Create the poll
    $pollId = Poll::Create(
        $question->AsString(),
        TCompany::CurrentCompany()->ID()
    );

    // Create answers
    foreach ($answers as $answerText) {
        if ($answerText !== '') {
            PollAnswer::Create($pollId, $answerText);
        }
    }

    pb_notify('Poll created successfully!');
    Redirect::Now(PBURL::CurrentModule('admin'));
});

pb_on_action('create-poll', function () {
    PBAccess::AdminRequired();

    $question  = PB::POST('question');
    $answer1   = PB::POST('answer1');
    $answer2   = PB::POST('answer2');

    // Validate required fields
    if ($question->isEmpty()) {
        PB::Errors()->AddError('Poll question is required');
    }
    if ($answer1->isEmpty()) {
        PB::Errors()->AddError('At least one answer is required');
    }

    // If validation fails, re-show the form
    if (PB::Errors()->HasErrors()) {
        PB::Errors()->SwitchActionOnError('add-poll');
        return;
    }

    // All good — persist
    $id = insertsql('polls', [
        'title'      => dbescape($question->AsString()),
        'id_company' => TCompany::CurrentCompany()->ID(),
        'timeadded'  => time(),
        'active'     => 1,
    ]);

    pb_notify('Poll created!');
    Redirect::Now(PBURL::CurrentModule('admin'));
});

$ui = new UI();
$ui->NotificationInfo('Showing all polls for this company.');
$ui->Add($someComponent);
$ui->Add($anotherComponent);
$ui->Output(true);   // true = render immediately

// POSTForm sends data via HTTP POST
$f = new POSTForm(PBURL::CurrentModule('create-poll'));

$f->AddText('question', 'Poll Question', true)->SetFocus();    // required=true
$f->AddText('answer1',  'Answer 1',      true);
$f->AddText('answer2',  'Answer 2',      false);               // required=false
$f->AddTextarea('description', 'Description', false);
$f->AddSelect('category', 'Category', false, [
    'general'  => 'General',
    'product'  => 'Product',
    'service'  => 'Service',
]);
$f->AddCheckbox('active', 'Active', true);                     // checked by default
$f->AddSubmit('Create Poll');

// Repopulate form after a validation error
$f->LoadValuesArray(PB::Requests()->POSTAsArray());

$ui->Add($f);

$b = new Buttons();
$b->Button('Add Poll', PBURL::CurrentModule('add-poll'));
$b->Button('Export',   PBURL::CurrentModule('export'), 'secondary');
$ui->Add($b);

$grid = new Grid();
$grid->AddCol('title', 'Poll Question');
$grid->AddCol('votes', 'Total Votes');
$grid->AddEdit();       // adds an Edit column
$grid->AddDelete();     // adds a Delete column

foreach ($list->EachItem() as $poll) {
    $grid->Label('title', $poll->Title());
    $grid->Label('votes', $poll->FieldIntValue('total_votes'));

    // Make the title clickable
    $grid->URL('title', PBURL::CurrentModule('edit-poll', ['id' => $poll->ID()]));

    // Link edit/delete icons
    $grid->EditURL(PBURL::CurrentModule('edit-poll',   ['id' => $poll->ID()]));
    $grid->DeleteURL(PBURL::CurrentModule('delete-poll', ['id' => $poll->ID()]));

    $grid->NewRow();   // finalise this row and start the next
}

if ($grid->RowCount() === 0) {
    $grid->SingleLineLabel('No polls found.');
}

$ui->Add($grid);
$ui->AddPaginatorForList($list);   // render pagination links

// Adding errors
PB::Errors()->AddError('Field X is required');

// Checking errors
if (PB::Errors()->HasErrors()) {
    // Switch to the form action to re-display with errors
    PB::Errors()->SwitchActionOnError('add-poll');
    return;
}

// Displaying errors in a UI container
PB::Errors()->DisplayUIErrors($ui);

// Getting error string (for logging)
$msg = PB::Errors()->GetErrorsAsString();

PB::BreadCrumbs()
    ->Add('Polls', PBURL::CurrentModule('admin'))
    ->AddCurrent('Edit Poll');

protected function OnRemoveBeforeStart(): void {
    // Called before Remove() deletes the row.
    // Use to clean up child records:
    execsql("DELETE FROM poll_answers WHERE id_poll = " . $this->ID());
}

<?php
// modules/preload/polls-models.php

/**
 * @method static self initSingleton($id)
 * @method static self UsingCache($id)
 * @method static self initNotExistent()
 */
class Poll extends PBDBObject
{
    public function TableName(): string       { return 'polls'; }
    public function FieldNameForID(): string   { return 'id'; }
    public function FieldNameForTitle(): string { return 'title'; }

    // Convenience accessor
    public function TotalVotes(): int { return $this->FieldIntValue('total_votes'); }
    public function IsActive(): bool  { return $this->FieldBoolValue('active'); }

    /** Factory method */
    public static function Create(string $title, int $companyId): int {
        $poll = self::CreateWithParams([
            'title'      => $title,
            'id_company' => $companyId,
            'timeadded'  => time(),
            'active'     => 1,
        ]);
        return $poll->ID();
    }

    /** Clean up child records before deleting the poll */
    protected function OnRemoveBeforeStart(): void {
        execsql("DELETE FROM poll_answers WHERE id_poll = " . $this->ID());
    }
}

/**
 * @method static self initSingleton($id)
 * @method static self UsingCache($id)
 */
class PollAnswer extends PBDBObject
{
    public function TableName(): string        { return 'poll_answers'; }
    public function FieldNameForID(): string    { return 'id'; }
    public function FieldNameForTitle(): string { return 'title'; }

    public function Votes(): int { return $this->FieldIntValue('votes'); }

    public static function Create(int $pollId, string $title): int {
        $answer = self::CreateWithParams([
            'id_poll' => $pollId,
            'title'   => $title,
            'votes'   => 0,
        ]);
        return $answer->ID();
    }
}

class PollList extends PBDBList
{
    public function ObjectClassName(): string { return Poll::class; }
}

$list = new PollList();
$list->SetFilterCompany(TCompany::CurrentCompany()->ID());

// Manual pagination
$list->Limit(20);
$list->Offset(PB::GET('from')->AsAbsInt());   // ?from=0, ?from=20, etc.

// Or use the automatic paginator helper
pb_pagination_init_for_list($list);

$list->Load();   // execute the query

// Iterate all results
foreach ($list->EachItem() as $poll) {
    echo $poll->Title();
}

// Access by index
$first = $list->FirstItem();
$last  = $list->LastItem();
$nth   = $list->Item(2);

// Lookup by primary key
$specific = $list->GetItemWithID(42);

// Use Open()/Fetch() for large data sets to avoid loading all rows into memory
$list->Open();
while ($poll = $list->Fetch()) {
    // process $poll
}
$list->Close();

class PollList extends PBDBList
{
    public function ObjectClassName(): string { return Poll::class; }

    public function SetFilterByActive(bool $active): self {
        $this->SetFilterFieldIntValue('active', $active ? 1 : 0);
        return $this;
    }

    public function SetFilterByCompany(int $companyId): self {
        $this->SetFilterCompany($companyId);
        return $this;
    }
}

class PollAnswersList extends PBDBList
{
    public function ObjectClassName(): string { return PollAnswer::class; }

    public function SetFilterByPoll(int $pollId): self {
        $this->SetFilterFieldIntValue('id_poll', $pollId);
        return $this;
    }
}

// Usage in a controller
$list = new PollList();
$list->SetFilterByCompany(TCompany::CurrentCompany()->ID())
     ->SetFilterByActive(true);
$list->OrderByID(false);   // newest first
pb_pagination_init_for_list($list);
$list->Load();

// Current module URLs
PBURL::CurrentModule('admin')
// → index.php?m=polls-admin&d=admin

PBURL::CurrentModule('edit-poll', ['id' => 42])
// → index.php?m=polls-admin&d=edit-poll&id=42

PBURL::CurrentModule('create-poll', [], PBURL::CurrentModule('admin'))
// → index.php?m=polls-admin&d=create-poll&returnto=...

// Cross-module URL
PBURL::Module('customerdetails', 'view', ['id' => 1234])
// → index.php?m=customerdetails&d=view&id=1234

// Useful in breadcrumbs and buttons
$b = new Buttons();
$b->Button('Back to Polls', PBURL::CurrentModule('admin'));
$b->Button('Edit', PBURL::CurrentModule('edit-poll', ['id' => $poll->ID()]));

// After saving a form, go to the admin list
pb_notify('Poll saved!');
Redirect::Now(PBURL::CurrentModule('admin'));

// After install, go to module management
Redirect::Now(PBURL::AdminModulesManagement());

// Return to whatever page linked here, or fall back to admin
Redirect::NowReturnToOr(PBURL::CurrentModule('admin'));

// Require super admin for install/uninstall
pb_on_action('install', function () {
    PBAccess::AdminRequired();
    // ...
});

// Require any logged-in user for user-facing pages
pb_on_action('view', function () {
    PBAccess::EnforceLogin();
    // ...
});

// Load a model and 404 if not found
$poll = Poll::initSingleton(PB::GET('id')->AsAbsInt());
PB::Show404IfEmpty($poll);

// Conditional rendering based on role
if (PB::isAdministrator()) {
    // show admin controls
}

// Show user-specific data
$userId = PB::User()->ID();

{* Check which action is being rendered *}
{if $m.action eq 'view'}
    {include file="block_begin.tpl"}

    <h2>All Polls</h2>

    {* Loop over an array *}
    {foreach from=$m.polls item=poll}
        <div class="poll">
            <h3>{$poll.title}</h3>
            <span>{$poll.total_votes} votes</span>
        </div>
    {foreachelse}
        <p>No polls yet.</p>
    {/foreach}

    {* Pagination — standard include *}
    {include file="paginator.tpl"}

    {include file="block_end.tpl"}

{elseif $m.action eq 'add-poll'}
    {* Different layout for the add form *}
    {include file="block_begin.tpl"}
    {* Form is rendered by the UI component system — no HTML needed here *}
    {include file="block_end.tpl"}
{/if}

$m.action   → current action name (value of ?d=)
$m.mode     → current display mode
$m.panel    → active panel identifier

<?php
/* * Module Name: Polls Management */

use PB\Access\PBAccess;
use PB\Common\Redirect;
use PB\Core\PBURL;
use PB\UI\UI;

// ── admin ──────────────────────────────────────────────────────
pb_on_action('admin', function () {
    PBAccess::AdminRequired();
    pb_title('Polls Management');
    pb_template('polls-admin');

    $list = new PollList();
    $list->SetFilterCompany(TCompany::CurrentCompany()->ID());
    $list->OrderByID(false);
    pb_pagination_init_for_list($list);
    $list->Load();

    $ui = new UI();
    PB::BreadCrumbs()->Add('Polls', PBURL::CurrentModule('admin'));

    $b = new Buttons();
    $b->Button('Add Poll', PBURL::CurrentModule('add-poll'));
    $ui->Add($b);

    $grid = new Grid();
    $grid->AddCol('title', 'Question');
    $grid->AddCol('votes', 'Votes');
    $grid->AddCol('status', 'Status');
    $grid->AddEdit();
    $grid->AddDelete();

    foreach ($list->EachItem() as $poll) {
        $grid->Label('title', $poll->Title());
        $grid->Label('votes', $poll->TotalVotes());
        $grid->Label('status', $poll->IsActive() ? 'Active' : 'Inactive');
        $grid->URL('title', PBURL::CurrentModule('edit-poll', ['id' => $poll->ID()]));
        $grid->EditURL(PBURL::CurrentModule('edit-poll', ['id' => $poll->ID()]));
        $grid->DeleteURL(PBURL::CurrentModule('delete-poll', ['id' => $poll->ID()]));
        $grid->NewRow();
    }

    if ($grid->RowCount() === 0) {
        $grid->SingleLineLabel('No polls yet. Click Add Poll to create one.');
    }

    $ui->Add($grid);
    $ui->AddPaginatorForList($list);
    $ui->Output(true);
});

// ── install ─────────────────────────────────────────────────────
pb_on_action('install', function () {
    PBAccess::AdminRequired();

    pb_register_module('polls-admin', 'Polls Management');
    pb_register_autoload('polls-models');

    execsql("CREATE TABLE IF NOT EXISTS polls (
        id          INT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY,
        id_company  INT UNSIGNED NOT NULL DEFAULT 0,
        title       VARCHAR(255) NOT NULL DEFAULT '',
        total_votes INT UNSIGNED NOT NULL DEFAULT 0,
        active      TINYINT(1)   NOT NULL DEFAULT 1,
        timeadded   INT UNSIGNED NOT NULL DEFAULT 0,
        INDEX idx_company (id_company)
    ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4");

    execsql("CREATE TABLE IF NOT EXISTS poll_answers (
        id       INT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY,
        id_poll  INT UNSIGNED NOT NULL DEFAULT 0,
        title    VARCHAR(255) NOT NULL DEFAULT '',
        votes    INT UNSIGNED NOT NULL DEFAULT 0,
        INDEX idx_poll (id_poll)
    ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4");

    Redirect::Now(PBURL::AdminModulesManagement());
});

// ── uninstall ───────────────────────────────────────────────────
pb_on_action('uninstall', function () {
    PBAccess::AdminRequired();

    pb_unregister_module('polls-admin');
    pb_unregister_autoload('polls-models');
    execsql("DROP TABLE IF EXISTS polls");
    execsql("DROP TABLE IF EXISTS poll_answers");

    Redirect::Now(PBURL::AdminModulesManagement());
});

// ── add-poll ────────────────────────────────────────────────────
pb_on_action('add-poll', function () {
    PBAccess::AdminRequired();
    pb_title('Add Poll');
    pb_template('polls-admin');

    $ui = new UI();
    PB::BreadCrumbs()
        ->Add('Polls', PBURL::CurrentModule('admin'))
        ->AddCurrent('Add Poll');

    // Show any validation errors from a previous POST attempt
    PB::Errors()->DisplayUIErrors($ui);

    $f = new POSTForm(PBURL::CurrentModule('create-poll'));
    $f->AddText('question', 'Poll Question', true)->SetFocus();
    $f->AddText('answer1',  'Answer 1',      true);
    $f->AddText('answer2',  'Answer 2',      true);
    $f->AddText('answer3',  'Answer 3',      false);
    $f->AddText('answer4',  'Answer 4',      false);
    $f->AddCheckbox('active', 'Active', true);
    $f->AddSubmit('Create Poll');
    $f->LoadValuesArray(PB::Requests()->POSTAsArray());

    $ui->Add($f);
    $ui->Output(true);
});

// ── create-poll ─────────────────────────────────────────────────
pb_on_action('create-poll', function () {
    PBAccess::AdminRequired();

    $question = PB::POST('question');
    $answer1  = PB::POST('answer1');
    $answer2  = PB::POST('answer2');

    if ($question->isEmpty()) {
        PB::Errors()->AddError('Poll question is required');
    }
    if ($answer1->isEmpty() || $answer2->isEmpty()) {
        PB::Errors()->AddError('At least two answers are required');
    }

    if (PB::Errors()->HasErrors()) {
        PB::Errors()->SwitchActionOnError('add-poll');
        return;
    }

    $pollId = Poll::Create(
        $question->AsString(),
        TCompany::CurrentCompany()->ID(),
        PB::POST('active')->AsBool()
    );

    foreach (['answer1','answer2','answer3','answer4'] as $key) {
        $val = PB::POST($key)->AsString();
        if ($val !== '') {
            PollAnswer::Create($pollId, $val);
        }
    }

    pb_notify('Poll created successfully!');
    Redirect::Now(PBURL::CurrentModule('admin'));
});

// ── edit-poll ───────────────────────────────────────────────────
pb_on_action('edit-poll', function () {
    PBAccess::AdminRequired();

    $poll = Poll::initSingleton(PB::GET('id')->AsAbsInt());
    PB::Show404IfEmpty($poll);

    pb_title('Edit Poll');
    pb_template('polls-admin');

    $ui = new UI();
    PB::BreadCrumbs()
        ->Add('Polls', PBURL::CurrentModule('admin'))
        ->AddCurrent('Edit Poll');

    PB::Errors()->DisplayUIErrors($ui);

    $f = new POSTForm(PBURL::CurrentModule('update-poll', ['id' => $poll->ID()]));
    $f->AddText('question', 'Poll Question', true);
    $f->AddCheckbox('active', 'Active', false);
    $f->AddSubmit('Save Changes');

    // Populate from DB (or from POST data on error)
    if (!PB::Errors()->HasErrors()) {
        $f->LoadValuesArray(['question' => $poll->Title(), 'active' => $poll->IsActive()]);
    } else {
        $f->LoadValuesArray(PB::Requests()->POSTAsArray());
    }

    $ui->Add($f);
    $ui->Output(true);
});

// ── update-poll ─────────────────────────────────────────────────
pb_on_action('update-poll', function () {
    PBAccess::AdminRequired();

    $poll = Poll::initSingleton(PB::GET('id')->AsAbsInt());
    PB::Show404IfEmpty($poll);

    $question = PB::POST('question');
    if ($question->isEmpty()) {
        PB::Errors()->AddError('Question is required');
        PB::Errors()->SwitchActionOnError('edit-poll');
        return;
    }

    $poll->UpdateValues([
        'title'  => $question->AsString(),
        'active' => PB::POST('active')->AsBool() ? 1 : 0,
    ]);

    pb_notify('Poll updated!');
    Redirect::Now(PBURL::CurrentModule('admin'));
});

// ── delete-poll ─────────────────────────────────────────────────
pb_on_action('delete-poll', function () {
    PBAccess::AdminRequired();

    $poll = Poll::initSingleton(PB::GET('id')->AsAbsInt());
    if (!empty($poll)) {
        $poll->Remove();   // triggers OnRemoveBeforeStart() which deletes answers
        pb_notify('Poll deleted.');
    }

    Redirect::Now(PBURL::CurrentModule('admin'));
});

<?php
// modules/preload/polls-models.php
// Auto-loaded by the framework after pb_register_autoload('polls-models')

/**
 * Single poll (one question + multiple answers)
 *
 * @method static self initSingleton($id)
 * @method static self UsingCache($id)
 * @method static self initNotExistent()
 */
class Poll extends PBDBObject
{
    public function TableName(): string        { return 'polls'; }
    public function FieldNameForID(): string    { return 'id'; }
    public function FieldNameForTitle(): string { return 'title'; }

    public function TotalVotes(): int { return $this->FieldIntValue('total_votes'); }
    public function IsActive(): bool  { return $this->FieldBoolValue('active'); }

    /**
     * Create a new poll and return its ID.
     */
    public static function Create(string $title, int $companyId, bool $active = true): int {
        $poll = self::CreateWithParams([
            'title'      => $title,
            'id_company' => $companyId,
            'active'     => $active ? 1 : 0,
            'timeadded'  => time(),
        ]);
        return $poll->ID();
    }

    /** Delete all answers before removing the poll row */
    protected function OnRemoveBeforeStart(): void {
        execsql("DELETE FROM poll_answers WHERE id_poll = " . $this->ID());
    }
}

/**
 * Single answer option for a poll
 *
 * @method static self initSingleton($id)
 * @method static self UsingCache($id)
 */
class PollAnswer extends PBDBObject
{
    public function TableName(): string        { return 'poll_answers'; }
    public function FieldNameForID(): string    { return 'id'; }
    public function FieldNameForTitle(): string { return 'title'; }

    public function Votes(): int   { return $this->FieldIntValue('votes'); }
    public function PollID(): int  { return $this->FieldIntValue('id_poll'); }

    public static function Create(int $pollId, string $title): int {
        $ans = self::CreateWithParams(['id_poll' => $pollId, 'title' => $title, 'votes' => 0]);
        return $ans->ID();
    }

    public function RecordVote(): void {
        $this->Increment('votes');
        execsql("UPDATE polls SET total_votes = total_votes + 1 WHERE id = " . $this->PollID());
    }
}

/** Fetch a list of Poll objects */
class PollList extends PBDBList
{
    public function ObjectClassName(): string { return Poll::class; }

    public function SetFilterCompany(int $id): self {
        $this->SetFilterFieldIntValue('id_company', $id);
        return $this;
    }

    public function SetFilterActive(bool $active): self {
        $this->SetFilterFieldIntValue('active', $active ? 1 : 0);
        return $this;
    }
}

/** Fetch answers for a specific poll */
class PollAnswersList extends PBDBList
{
    public function ObjectClassName(): string { return PollAnswer::class; }

    public function SetFilterByPoll(int $pollId): self {
        $this->SetFilterFieldIntValue('id_poll', $pollId);
        return $this;
    }
}

{* themes/default/polls.tpl — Public-facing voting page *}

{if $m.action eq 'list'}
    {include file="block_begin.tpl"}
    <h2>Community Polls</h2>

    {foreach from=$m.polls item=poll}
        <div class="poll-card" style="margin-bottom:1.5rem;">
            <h3><a href="index.php?m=polls&d=view&id={$poll.id}">{$poll.title}</a></h3>
            <small>{$poll.total_votes} votes</small>
        </div>
    {foreachelse}
        <p>No active polls at this time.</p>
    {/foreach}

    {include file="paginator.tpl"}
    {include file="block_end.tpl"}

{elseif $m.action eq 'view'}
    {include file="block_begin.tpl"}
    <h2>{$m.poll.title}</h2>
    <p>{$m.poll.total_votes} votes cast so far</p>

    <form method="post" action="index.php?m=polls&d=vote">
        <input type="hidden" name="poll_id" value="{$m.poll.id}" />

        {foreach from=$m.answers item=answer}
            <label style="display:block;margin:0.5rem 0;">
                <input type="radio" name="answer_id" value="{$answer.id}" />
                {$answer.title} ({$answer.votes} votes)
            </label>
        {/foreach}

        <button type="submit" class="btn btn-primary" style="margin-top:1rem;">Cast Vote</button>
    </form>

    {include file="block_end.tpl"}

{elseif $m.action eq 'results'}
    {include file="block_begin.tpl"}
    <h2>Results: {$m.poll.title}</h2>

    {foreach from=$m.answers item=answer}
        <div style="margin:0.75rem 0;">
            <strong>{$answer.title}</strong>: {$answer.votes} votes
            {if $m.poll.total_votes gt 0}
                ({math equation="round(votes/total*100)" votes=$answer.votes total=$m.poll.total_votes}%)
            {/if}
        </div>
    {/foreach}

    <p><a href="index.php?m=polls&d=list">&larr; All Polls</a></p>
    {include file="block_end.tpl"}
{/if}