77 lines
3.8 KiB
Perl
77 lines
3.8 KiB
Perl
package WebGUI::Operation::Help;
|
|
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2002 Plain Black Software.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use Exporter;
|
|
use strict;
|
|
use Tie::CPHash;
|
|
use WebGUI::International;
|
|
use WebGUI::Session;
|
|
use WebGUI::SQL;
|
|
|
|
our @ISA = qw(Exporter);
|
|
our @EXPORT = qw(&www_viewHelp &www_viewHelpIndex);
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_viewHelp {
|
|
my ($output, %help, @data, $sth, %seeAlso, $namespace);
|
|
$namespace = $session{form}{namespace} || "WebGUI";
|
|
tie %help, 'Tie::CPHash';
|
|
%help = WebGUI::SQL->quickHash("select * from help where helpId=$session{form}{hid} and namespace='$namespace' and language='$session{user}{language}'");
|
|
$output = '<h1>'.WebGUI::International::get(93).': '.$help{action}.' '.$help{object}.'</h1>';
|
|
$help{body} =~ s/\n/\<br\>/g;
|
|
$output .= $help{body};
|
|
$output .= '<p><b>'.WebGUI::International::get(94).':';
|
|
$sth = WebGUI::SQL->read("select helpId, action, object, namespace from help where object='$help{object}' and action<>'$help{action}' and language='$session{user}{language}' order by action");
|
|
while (@data = $sth->array) {
|
|
$output .= ' <a href="'.$session{page}{url}.'?op=viewHelp&hid='.$data[0].'&namespace='.$data[3].'">'.$data[1].' '.$data[2].'</a>,';
|
|
}
|
|
$sth->finish;
|
|
$sth = WebGUI::SQL->read("select helpId, namespace from helpSeeAlso where seeAlsoId in ($help{seeAlso})");
|
|
while (@data = $sth->array) {
|
|
%seeAlso = WebGUI::SQL->quickHash("select helpId,namespace,action,object from help where helpId='$data[0]' and namespace='$data[1]' and language='$session{user}{language}'");
|
|
$output .= ' <a href="'.$session{page}{url}.'?op=viewHelp&hid='.$seeAlso{helpId}.'&namespace='.$seeAlso{namespace}.'">'.$seeAlso{action}.' '.$seeAlso{object}.'</a>,';
|
|
}
|
|
$sth->finish;
|
|
$output .= ' <a href="'.$session{page}{url}.'?op=viewHelpIndex">'.WebGUI::International::get(95).'</a>';
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_viewHelpIndex {
|
|
my ($sth, @data, $output, $previous);
|
|
$output = '<h1>'.WebGUI::International::get(95).'</h1>';
|
|
$output .= '<table width="100%"><tr><td valign="top"><b>'.WebGUI::International::get(96).'</b><p>';
|
|
$sth = WebGUI::SQL->read("select helpId, action, object, namespace from help where language='$session{user}{language}' order by action,object");
|
|
while (@data = $sth->array) {
|
|
if ($data[1] ne $previous) {
|
|
$output .= '<p><b>'.$data[1].'</b><br>';
|
|
$previous = $data[1];
|
|
}
|
|
$output .= '<li><a href="'.$session{page}{url}.'?op=viewHelp&hid='.$data[0].'&namespace='.$data[3].'">'.$data[2].'</a><br>';
|
|
}
|
|
$sth->finish;
|
|
$output .= '</td><td valign="top"><b>'.WebGUI::International::get(97).'</b><p>';
|
|
$sth = WebGUI::SQL->read("select helpId, object, action, namespace from help where language='$session{user}{language}' order by object,action");
|
|
while (@data = $sth->array) {
|
|
if ($data[1] ne $previous) {
|
|
$output .= '<p><b>'.$data[1].'</b><br>';
|
|
$previous = $data[1];
|
|
}
|
|
$output .= '<li><a href="'.$session{page}{url}.'?op=viewHelp&hid='.$data[0].'&namespace='.$data[3].'">'.$data[2].'</a><br>';
|
|
}
|
|
$sth->finish;
|
|
$output .= '</td></tr></table>';
|
|
return $output;
|
|
}
|
|
|
|
1;
|
|
|