view release on metacpan or  search on metacpan

lib/mhdb.pl  view on Meta::CPAN

            unless $IsDefault{'SUBJECTBEG'};
        print_var($db, 'SUBJECTEND', \$SUBJECTEND)
            unless $IsDefault{'SUBJECTEND'};
        print_var($db, 'TITLE', \$TITLE);

# Thread index resources
        print_var($db, 'TNOSORT',  \$TNOSORT);
        print_var($db, 'TREVERSE', \$TREVERSE);
        print_var($db, 'TSUBSORT', \$TSUBSORT);

        print_var($db, 'TCONTBEG', \$TCONTBEG) unless $IsDefault{'TCONTBEG'};
        print_var($db, 'TCONTEND', \$TCONTEND) unless $IsDefault{'TCONTEND'};
        print_var($db, 'TFOOT',    \$TFOOT)    unless $IsDefault{'TFOOT'};
        print_var($db, 'THEAD',    \$THEAD)    unless $IsDefault{'THEAD'};
        print_var($db, 'TIDXLABEL', \$TIDXLABEL)
            unless $IsDefault{'TIDXLABEL'};
        print_var($db, 'TIDXNAME',  \$TIDXNAME);
        print_var($db, 'TIDXPGBEG', \$TIDXPGBEG)
            unless $IsDefault{'TIDXPGBEG'};
        print_var($db, 'TIDXPGEND', \$TIDXPGEND)
            unless $IsDefault{'TIDXPGEND'};
        print_var($db, 'TIDXPREFIX', \$TIDXPREFIX);
        print_var($db, 'TINDENTBEG', \$TINDENTBEG)
            unless $IsDefault{'TINDENTBEG'};
        print_var($db, 'TINDENTEND', \$TINDENTEND)
            unless $IsDefault{'TINDENTEND'};
        print_var($db, 'TLEVELS',    \$TLEVELS);
        print_var($db, 'TLIEND',     \$TLIEND) unless $IsDefault{'TLIEND'};
        print_var($db, 'TLINONE',    \$TLINONE) unless $IsDefault{'TLINONE'};
        print_var($db, 'TLINONEEND', \$TLINONEEND)
            unless $IsDefault{'TLINONEEND'};
        print_var($db, 'TLITXT', \$TLITXT) unless $IsDefault{'TLITXT'};
        print_var($db, 'TFIRSTPGLINK', \$TFIRSTPGLINK)
            unless $IsDefault{'TFIRSTPGLINK'};
        print_var($db, 'TLASTPGLINK', \$TLASTPGLINK)
            unless $IsDefault{'TLASTPGLINK'};
        print_var($db, 'TNEXTPGLINK', \$TNEXTPGLINK)
            unless $IsDefault{'TNEXTPGLINK'};
        print_var($db, 'TNEXTPGLINKIA', \$TNEXTPGLINKIA)
            unless $IsDefault{'TNEXTPGLINKIA'};
        print_var($db, 'TPREVPGLINK', \$TPREVPGLINK)
            unless $IsDefault{'TPREVPGLINK'};
        print_var($db, 'TPREVPGLINKIA', \$TPREVPGLINKIA)
            unless $IsDefault{'TPREVPGLINKIA'};
        print_var($db, 'TSINGLETXT', \$TSINGLETXT)
            unless $IsDefault{'TSINGLETXT'};
        print_var($db, 'TSUBJECTBEG', \$TSUBJECTBEG)
            unless $IsDefault{'TSUBJECTBEG'};
        print_var($db, 'TSUBJECTEND', \$TSUBJECTEND)
            unless $IsDefault{'TSUBJECTEND'};
        print_var($db, 'TSUBLISTBEG', \$TSUBLISTBEG)
            unless $IsDefault{'TSUBLISTBEG'};
        print_var($db, 'TSUBLISTEND', \$TSUBLISTEND)
            unless $IsDefault{'TSUBLISTEND'};
        print_var($db, 'TTITLE',  \$TTITLE);
        print_var($db, 'TTOPBEG', \$TTOPBEG) unless $IsDefault{'TTOPBEG'};
        print_var($db, 'TTOPEND', \$TTOPEND) unless $IsDefault{'TTOPEND'};

        print_var($db, 'TSLICESINGLETXT', \$TSLICESINGLETXT)
            unless $IsDefault{'TSLICESINGLETXT'};
        print_var($db, 'TSLICETOPBEG', \$TSLICETOPBEG)
            unless $IsDefault{'TSLICETOPBEG'};
        print_var($db, 'TSLICETOPEND', \$TSLICETOPEND)
            unless $IsDefault{'TSLICETOPEND'};
        print_var($db, 'TSLICESUBLISTBEG', \$TSLICESUBLISTBEG)
            unless $IsDefault{'TSLICESUBLISTBEG'};
        print_var($db, 'TSLICESUBLISTEND', \$TSLICESUBLISTEND)
            unless $IsDefault{'TSLICESUBLISTEND'};
        print_var($db, 'TSLICELEVELS', \$TSLICELEVELS)
            unless $IsDefault{'TSLICELEVELS'};
        print_var($db, 'TSLICELITXT', \$TSLICELITXT)
            unless $IsDefault{'TSLICELITXT'};
        print_var($db, 'TSLICELIEND', \$TSLICELIEND)
            unless $IsDefault{'TSLICELIEND'};
        print_var($db, 'TSLICELINONE', \$TSLICELINONE)
            unless $IsDefault{'TSLICELINONE'};
        print_var($db, 'TSLICELINONEEND', \$TSLICELINONEEND)
            unless $IsDefault{'TSLICELINONEEND'};
        print_var($db, 'TSLICESUBJECTBEG', \$TSLICESUBJECTBEG)
            unless $IsDefault{'TSLICESUBJECTBEG'};
        print_var($db, 'TSLICESUBJECTEND', \$TSLICESUBJECTEND)
            unless $IsDefault{'TSLICESUBJECTEND'};
        print_var($db, 'TSLICEINDENTBEG', \$TSLICEINDENTBEG)
            unless $IsDefault{'TSLICEINDENTBEG'};
        print_var($db, 'TSLICEINDENTEND', \$TSLICEINDENTEND)
            unless $IsDefault{'TSLICEINDENTEND'};
        print_var($db, 'TSLICECONTBEG', \$TSLICECONTBEG)
            unless $IsDefault{'TSLICECONTBEG'};
        print_var($db, 'TSLICECONTEND', \$TSLICECONTEND)
            unless $IsDefault{'TSLICECONTEND'};
        print_var($db, 'TSLICESINGLETXTCUR', \$TSLICESINGLETXTCUR)
            unless $IsDefault{'TSLICESINGLETXTCUR'};
        print_var($db, 'TSLICETOPBEGCUR', \$TSLICETOPBEGCUR)
            unless $IsDefault{'TSLICETOPBEGCUR'};
        print_var($db, 'TSLICETOPENDCUR', \$TSLICETOPENDCUR)
            unless $IsDefault{'TSLICETOPENDCUR'};
        print_var($db, 'TSLICELITXTCUR', \$TSLICELITXTCUR)
            unless $IsDefault{'TSLICELITXTCUR'};
        print_var($db, 'TSLICELIENDCUR', \$TSLICELIENDCUR)
            unless $IsDefault{'TSLICELIENDCUR'};

## Other resources
        print_var($db, 'BOTLINKS', \$BOTLINKS) unless $IsDefault{'BOTLINKS'};
        print_var($db, 'FIELDSBEG', \$FIELDSBEG)
            unless $IsDefault{'FIELDSBEG'};
        print_var($db, 'FIELDSEND', \$FIELDSEND)
            unless $IsDefault{'FIELDSEND'};
        print_var($db, 'FLDBEG', \$FLDBEG) unless $IsDefault{'FLDBEG'};
        print_var($db, 'FLDEND', \$FLDEND) unless $IsDefault{'FLDEND'};
        print_var($db, 'FOLUPBEGIN', \$FOLUPBEGIN)
            unless $IsDefault{'FOLUPBEGIN'};
        print_var($db, 'FOLUPEND', \$FOLUPEND) unless $IsDefault{'FOLUPEND'};
        print_var($db, 'FOLUPLITXT', \$FOLUPLITXT)
            unless $IsDefault{'FOLUPLITXT'};
        print_var($db, 'HEADBODYSEP', \$HEADBODYSEP)
            unless $IsDefault{'HEADBODYSEP'};
        print_var($db, 'LABELBEG', \$LABELBEG) unless $IsDefault{'LABELBEG'};
        print_var($db, 'LABELEND', \$LABELEND) unless $IsDefault{'LABELEND'};
        print_var($db, 'MSGBODYEND', \$MSGBODYEND)
            unless $IsDefault{'MSGBODYEND'};
        print_var($db, 'MSGIDLINK', \$MSGIDLINK)
            unless $IsDefault{'MSGIDLINK'};
        print_var($db, 'MSGPGBEG', \$MSGPGBEG) unless $IsDefault{'MSGPGBEG'};
        print_var($db, 'MSGPGEND', \$MSGPGEND) unless $IsDefault{'MSGPGEND'};
        print_var($db, 'NEXTBUTTON', \$NEXTBUTTON)
            unless $IsDefault{'NEXTBUTTON'};
        print_var($db, 'NEXTBUTTONIA', \$NEXTBUTTONIA)
            unless $IsDefault{'NEXTBUTTONIA'};
        print_var($db, 'NEXTLINK', \$NEXTLINK) unless $IsDefault{'NEXTLINK'};
        print_var($db, 'NEXTLINKIA', \$NEXTLINKIA)
            unless $IsDefault{'NEXTLINKIA'};
        print_var($db, 'NOTE',     \$NOTE)     unless $IsDefault{'NOTE'};
        print_var($db, 'NOTEIA',   \$NOTEIA)   unless $IsDefault{'NOTEIA'};
        print_var($db, 'NOTEICON', \$NOTEICON) unless $IsDefault{'NOTEICON'};
        print_var($db, 'NOTEICONIA', \$NOTEICONIA)
            unless $IsDefault{'NOTEICONIA'};
        print_var($db, 'PREVBUTTON', \$PREVBUTTON)
            unless $IsDefault{'PREVBUTTON'};
        print_var($db, 'PREVBUTTONIA', \$PREVBUTTONIA)
            unless $IsDefault{'PREVBUTTONIA'};
        print_var($db, 'PREVLINK', \$PREVLINK) unless $IsDefault{'PREVLINK'};
        print_var($db, 'PREVLINKIA', \$PREVLINKIA)
            unless $IsDefault{'PREVLINKIA'};
        print_var($db, 'REFSBEGIN', \$REFSBEGIN)
            unless $IsDefault{'REFSBEGIN'};
        print_var($db, 'REFSEND', \$REFSEND) unless $IsDefault{'REFSEND'};
        print_var($db, 'REFSLITXT', \$REFSLITXT)
            unless $IsDefault{'REFSLITXT'};
        print_var($db, 'SUBJECTHEADER', \$SUBJECTHEADER)
            unless $IsDefault{'SUBJECTHEADER'};
        print_var($db, 'TNEXTBUTTON', \$TNEXTBUTTON)
            unless $IsDefault{'TNEXTBUTTON'};
        print_var($db, 'TNEXTBUTTONIA', \$TNEXTBUTTONIA)
            unless $IsDefault{'TNEXTBUTTONIA'};
        print_var($db, 'TNEXTINBUTTON', \$TNEXTINBUTTON)
            unless $IsDefault{'TNEXTINBUTTON'};