# COMMON HTML BLOCKS USED IN CONTROL PANEL # CP Menu Concept/Code by Daniel Khodaparast (dpk@nfscheats.com) # Thanks, DPK! sub CPMenu { if ($selscript ne '') { my $ran = &GeneratePassword; $CPMenu = qq~
|
$vars_config{BBName} » $vars_wordlets_cp{control_panel} » $CurrentTab | $LoginWording |
|
$InfopopCopyright © 2001 Infopop Corporation, All rights reserved. |
||
$CurrentTab
$CPMenu |
$CurrentTab |
$Descr: |
$Comment
THISFIELD
my $wasCheckedLastTime;
foreach $iota (@options) {
($val, $desc) = split (/\|/, $iota);
chomp($desc);
$Checked = '';
#if ($ThisValue eq "$val") { $Checked = 'CHECKED'; }
if (($ThisValue =~ /^$val/) && (($ThisValue =~ /^$val /) || ($ThisValue =~ /^$val$/)) && (!$wasCheckedLastTime)) {
$Checked = 'CHECKED';
$wasCheckedLastTime = "1";
}
print qq% $desc |
%; } print < |
$Descr $Comment |
THISFIELD } sub HeaderRow { my $HeaderTitle = shift; my $ThisColSpan = shift; my $RowColor = shift; my $TextColor = shift; my $Align = shift; my $TextSize = shift; my $NoBold = shift; my $ThisText; unless($NoBold) { $ThisText = qq~$HeaderTitle~; } else { $ThisText = qq~$HeaderTitle~; } print < | $ThisText | ThisHeader } sub DoTextArea { my $Desc = shift; my $FieldName = shift; my $Req = shift; my $Comments = shift; my $Value = shift; my $rows = shift; my $cols = shift; local $FC; if ($Req ne "yes") { $FC = "#5d7790"; } else { $FC = "#000000"; } $Value =~ s/^\s+//; $Value =~ s/\s+$//; print <$Desc:
$Comments |
ThisRow } sub Submit { my $Desc = shift; print < |
$Descr $Comments |
THISSELECT } sub ColorRow { my $FieldName = shift; my $Notes = shift; my $VarName = shift; my $RowColor = shift; my $VarNameChoice = "$VarName" . "Choice"; my $Req = shift; if ($Notes ne '') { $Notes = " | $FieldName $Notes | ColorRow2 } sub Colors { print < |