############################################################################### # ContextHelp.pm # # $Date: 12.02.14 $ # ############################################################################### # YaBB: Yet another Bulletin Board # # Open-Source Community Software for Webmasters # # Version: YaBB 2.6.11 # # Packaged: December 2, 2014 # # Distributed by: http://www.yabbforum.com # # =========================================================================== # # Copyright (c) 2000-2014 YaBB (www.yabbforum.com) - All Rights Reserved. # # Software by: The YaBB Development Team # # with assistance from the YaBB community. # ############################################################################### # Many thanks to Carsten Dalgaard (http://www.carsten-dalgaard.dk/) # # for his contribution to the YaBB community # ############################################################################### no warnings qw(uninitialized once redefine); use CGI::Carp qw(fatalsToBrowser); our $VERSION = '2.6.11'; $contexthelppmver = 'YaBB 2.6.11 $Revision$'; 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;