# Copyright 2002-2008 Josh Clark and Global Moxie, LLC. This code cannot be # redistributed without permission from globalmoxie.com. For more # information, consult your Big Medium license. # # $Id: DefaultTmpl.pm 3123 2008-06-17 14:23:33Z josh $ package BigMed::DefaultTmpl; ## BASIC DEFAULT HTML FOR WHEN MOXIEDATA LOCATION UNKNOWN my ( $COMMON_HEAD, $COMMON_FOOTER, $COMMON_FIELDSET, $COMMON_FIELD ); my %TEMPLATE_MAP = ( 'shell_message.tmpl' => \&shell_message, 'screen_start_generic.tmpl' => \&screen_start_generic, 'screen_web_crash.tmpl' => \&screen_web_crash, 'wi_prompt_input.tmpl' => \&wi_form_input, 'wi_prompt_textarea.tmpl' => \&wi_form_textarea, 'wi_prompt_radio_toggle.tmpl' => \&wi_form_radio_toggle, 'wi_prompt_select.tmpl' => \&wi_form_select, 'wi_ajax_status_ok.tmpl' => \&wi_ajax_status_ok, 'wi_ajax_status_err.tmpl' => \&wi_ajax_status_err, ); sub template { return $TEMPLATE_MAP{$_[0]} ? $TEMPLATE_MAP{$_[0]}->() : ""; } $COMMON_HEAD = <<'END_HEAD'; <BM_LANG text="BM_Big_Medium_appname"> :: <TMPL_VAR NAME=BMCP_TITLE> END_HEAD $COMMON_FOOTER = <<'END_FOOTER';
. Copyright © 2002-, Global Moxie, LLC.
END_FOOTER $COMMON_FIELD = <<'END_FIELD';
id="" style="display:none">
id="Status" class="fieldStatus" > style="display:none">

id="Label">

>
 
END_FIELD $COMMON_FIELDSET = <<"END_FIELDSET";
id="" class="" > accesskey="">
$COMMON_FIELD
END_FIELDSET sub shell_message { return <<"END_MESSAGE"; $COMMON_HEAD
$COMMON_FOOTER END_MESSAGE } sub screen_start_generic { return <<"END_CONFIG_BMSETUP"; $COMMON_HEAD
    class="SetupStatusActive">

    1

    class="SetupStatusActive">

    2

    class="SetupStatusActive">

    3

    class="SetupStatusActive">

    4

    class="SetupStatusActive">

    5

    class="SetupStatusActive">

    6

$COMMON_FIELDSET
$COMMON_FOOTER END_CONFIG_BMSETUP } sub screen_web_crash { return <<"END_WEB_CRASH"; $COMMON_HEAD

$COMMON_FIELDSET
$COMMON_FOOTER END_WEB_CRASH } sub wi_form_input { return <<'FORM_INPUT'; id="" name="" class="" value="" onfocus="BM.Behavior.inputOnFocus(this)" onblur="BM.Behavior.inputOnBlur(this)" /> FORM_INPUT } sub wi_form_textarea { return <<'END_TEXTAREA'; END_TEXTAREA } sub wi_form_radio_toggle { return <<"END_RADIOTOGGLE";
$COMMON_FIELD
END_RADIOTOGGLE } sub wi_form_select { return <<'END_SELECT'; END_SELECT } sub wi_ajax_status_ok { return <<'AJAX_OK'; AJAX_OK } sub wi_ajax_status_err { return <<'AJAX_OK'; AJAX_OK } 1;