############################################################################### # ContextHelp.pm # # $Date: 01.09.2026 $ # ############################################################################### # YaBB: Yet another Bulletin Board # # Open-Source Community Software for Webmasters # # Version: YaBBForum 3.1 # # Packaged: 01 Sep, 2026 # # Distributed by: https://yabbforum.nz # # =========================================================================== # # Copyright (c) 2000-2026 YaBB (yabbforum.nz) - All Rights Reserved. # # Software by: The YaBB Development Team # # with assistance from the YaBB community. # ############################################################################### # Many thanks to Carsten Dalgaard (https://www.carsten-dalgaard.dk/) # # for his contribution to the YaBB community # ############################################################################### no warnings qw(uninitialized once redefine); use CGI::Carp qw(fatalsToBrowser); our $VERSION = '3.1'; $contexthelppmver = 'YaBBForum 3.1'; if ( $action eq 'detailedversion' ) { return 1; } sub ContextScript { my ($inp) = @_; LoadLanguage('ContextHelp'); $contextlst = q{}; while( ($key, $value) = each %contextxt ) { if ( $key eq 'clicktip' ) { $contextlst .= qq~'contexttip', '$contextxt{'clicktip'}',\n~; } else { $contextlst .= qq~'$key', '$value',\n~; } } $contextlst =~ s/\,\n\Z//xsm; my $contextmain = qq~ var contexthash = new Hash($contextlst); ~; $ctmain .= qq~ ~; return; } 1;