Commit 4357276a47971491fb60335290027d0ed2951af7

Authored by Rodrigo Goncalves
1 parent fd1df4ce
Exists in master

Refactoring para OTRS 6

.gitignore 0 → 100644
... ... @@ -0,0 +1 @@
  1 +dist/*
... ...
CreateOpm.sh 0 → 100755
... ... @@ -0,0 +1,4 @@
  1 +#!/bin/bash
  2 +LOCAL="$PWD"
  3 +cd /opt/otrs
  4 +bin/otrs.Console.pl Dev::Package::Build "$LOCAL"/src/FAQTag.sopm "$LOCAL"/dist
... ...
FAQTag.sopm
... ... @@ -1,42 +0,0 @@
1   -<?xml version="1.0" encoding="utf-8" ?>
2   -<otrs_package version="1.0">
3   - <Name>FAQTag</Name>
4   - <Version>1.4.0</Version>
5   - <Vendor>SeTIC</Vendor>
6   - <URL>http://setic.ufsc.br</URL>
7   - <License>GNU GENERAL PUBLIC LICENSE Version 2, June 1991</License>
8   - <ChangeLog Date="2013-03-19 9:17:53" Version="1.0">First version</ChangeLog>
9   - <ChangeLog Date="2013-03-19 9:17:53" Version="1.2">Adjustments for OTRS 4.0.4.</ChangeLog>
10   - <ChangeLog Date="2015-03-05" Version="1.3">Missing file.</ChangeLog>
11   - <ChangeLog Date="2016-01-19" Version="1.4.0">Adjustments for OTRS 5.0.x.</ChangeLog>
12   - <Description>Tags for FAQ sections.</Description>
13   - <Framework>5.0.x</Framework>
14   - <IntroInstall Title="Installed!" Type="post">Módulo installed successfully.</IntroInstall>
15   - <BuildDate>?</BuildDate>
16   - <BuildHost>?</BuildHost>
17   - <Filelist>
18   - <File Location="Kernel/Modules/AgentFAQTagOverview.pm" Permission="644"/>
19   - <File Location="Kernel/Modules/RedirectFAQ.pm" Permission="644"/>
20   - <File Location="Kernel/Modules/PublicRedirectFAQ.pm" Permission="644"/>
21   - <File Location="Kernel/Output/HTML/Templates/Standard/AgentFAQTagOverview.tt" Permission="644"/>
22   - <File Location="Kernel/Output/HTML/Templates/Standard/AgentFAQTagAdd.tt" Permission="644"/>
23   - <File Location="Kernel/Config/Files/FAQTag.xml" Permission="644"/>
24   - <File Location="Kernel/System/FAQTag.pm" Permission="644"/>
25   - </Filelist>
26   - <DatabaseInstall>
27   - <TableCreate Name="faq_tag">
28   - <Column AutoIncrement="true" Name="id" PrimaryKey="true" Required="true" Size="10" Type="INT"></Column>
29   - <Column Name="category_id" Required="true" Size="10" Type="INT"></Column>
30   - <Column Name="tag" Required="true" Size="20" Type="VARCHAR"></Column>
31   - <Unique>
32   - <UniqueColumn Name="category_id"></UniqueColumn>
33   - </Unique>
34   - <Unique>
35   - <UniqueColumn Name="tag"></UniqueColumn>
36   - </Unique>
37   - <ForeignKey ForeignTable="faq_category">
38   - <Reference Foreign="id" Local="category_id"/>
39   - </ForeignKey>
40   - </TableCreate>
41   - </DatabaseInstall>
42   -</otrs_package>
GeraOpm.sh
... ... @@ -1,4 +0,0 @@
1   -#!/bin/bash
2   -LOCAL="$PWD"
3   -cd /opt/otrs
4   -bin/otrs.Console.pl Dev::Package::Build "$LOCAL"/FAQTag.sopm "$LOCAL"/
Kernel/Config/Files/FAQTag.xml
... ... @@ -1,66 +0,0 @@
1   -<?xml version="1.0" encoding="iso-8859-1"?>
2   -<otrs_config version="1.0" init="Application">
3   - <ConfigItem Name="Frontend::Module###AgentFAQTagOverview" Required="0" Valid="1">
4   - <Description Translatable="1">Frontend module registration for the agent interface.</Description>
5   - <Group>FAQ</Group>
6   - <SubGroup>Frontend::Agent::ModuleRegistration</SubGroup>
7   - <Setting>
8   - <FrontendModuleReg>
9   - <Group>faq</Group>
10   - <GroupRo>faq</GroupRo>
11   - <Title>FAQTag Overview</Title>
12   - <NavBarName>FAQ</NavBarName>
13   - <NavBar>
14   - <GroupRo>faq</GroupRo>
15   - <Description Translatable="1">Cadastro de tags para categorias</Description>
16   - <Name Translatable="1">Tag</Name>
17   - <Link>Action=AgentFAQTagOverview;Subaction=overview</Link>
18   - <Type></Type>
19   - <Block></Block>
20   - <NavBar>FAQ</NavBar>
21   - <Prio>970</Prio>
22   - </NavBar>
23   - <Loader>
24   - </Loader>
25   - </FrontendModuleReg>
26   - </Setting>
27   - </ConfigItem>
28   - <ConfigItem Name="Frontend::Module###AgentFAQTagAdd" Required="1" Valid="1">
29   - <Description Translatable="1">Frontend module registration for the agent interface.</Description>
30   - <Group>FAQ</Group>
31   - <SubGroup>Frontend::Agent::ModuleRegistration</SubGroup>
32   - <Setting>
33   - <FrontendModuleReg>
34   - <Title>FAQTag add</Title>
35   - <Group>faq</Group>
36   - <Description>Adicionar e atualizar tags</Description>
37   - <NavBarName>FAQ</NavBarName>
38   - </FrontendModuleReg>
39   - </Setting>
40   - </ConfigItem>
41   - <ConfigItem Name="Frontend::Module###RedirectFAQ" Required="1" Valid="1">
42   - <Description Translatable="1">Redirecionamento da p&#xe1;gina de categoria da FAQ.</Description>
43   - <Group>FAQ</Group>
44   - <SubGroup>Frontend::Agent::ModuleRegistration</SubGroup>
45   - <Setting>
46   - <FrontendModuleReg>
47   - <Title>Redirecionar FAQ</Title>
48   - <Group>faq</Group>
49   - <Description>Redirecionamento da p&#xe1;gina de categoria da FAQ.</Description>
50   - <NavBarName>FAQ</NavBarName>
51   - </FrontendModuleReg>
52   - </Setting>
53   - </ConfigItem>
54   - <ConfigItem Name="PublicFrontend::Module###PublicRedirectFAQ" Required="1" Valid="1">
55   - <Description Translatable="1">Redirecionamento da p&#xe1;gina de categoria da FAQ.</Description>
56   - <Group>FAQ</Group>
57   - <SubGroup>Frontend::Public::ModuleRegistration</SubGroup>
58   - <Setting>
59   - <FrontendModuleReg>
60   - <Title>Redirecionar FAQ</Title>
61   - <Description>Redirecionamento da p&#xe1;gina de categoria da FAQ.</Description>
62   - <NavBarName>FAQ</NavBarName>
63   - </FrontendModuleReg>
64   - </Setting>
65   - </ConfigItem>
66   -</otrs_config>
Kernel/Modules/AgentFAQTagOverview.pm
... ... @@ -1,151 +0,0 @@
1   -# --
2   -# Kernel/Modules/AgentFAQTagOverview.pm - frontend module editing FAQ tags
3   -# Copyright (C) 2014 (Rodrigo Goncalves) (rodrigo.g@ufsc.br)
4   -# --
5   -#
6   -# (C) 2014,2015 - SeTIC - UFSC - http://setic.ufsc.br/
7   -#
8   -# Version 29/01/2015 - RG - Adjustments for OTRS 4.0.4
9   -#
10   -# This software comes with ABSOLUTELY NO WARRANTY. For details, see
11   -# the enclosed file COPYING for license information (AGPL). If you
12   -# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
13   -# --
14   -package Kernel::Modules::AgentFAQTagOverview;
15   -
16   -use strict;
17   -require warnings;
18   -
19   -our @ObjectDependencies = (
20   -"Kernel::System::Web::Request", # OLD ParamObject
21   -"Kernel::Output::HTML::Layout",
22   -"Kernel::System::FAQ",
23   -"Kernel::System::FAQTag"
24   -);
25   -
26   -sub new {
27   - my ( $Type, %Param ) = @_;
28   -
29   - # allocate new hash for object
30   - my $Self = {%Param};
31   - bless( $Self, $Type );
32   -
33   - return $Self;
34   -}
35   -
36   -sub Run {
37   - my ( $Self, %Param ) = @_;
38   - my %Data = ();
39   -
40   - my $paramObject = $Kernel::OM->Get("Kernel::System::Web::Request");
41   - my $faqObject = $Kernel::OM->Get("Kernel::System::FAQ");
42   - my $faqTagObject = $Kernel::OM->Get("Kernel::System::FAQTag");
43   - my $layoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout");
44   -
45   - my $SubAction = $paramObject->GetParam( Param => 'Subaction' );
46   -
47   - if ( $SubAction eq "overview" ) {
48   -
49   - # get all categories with their long names
50   - my $CategoryTree = $faqObject->CategoryTreeList(
51   - Valid => 1,
52   - UserID => $Self->{UserID},
53   - );
54   -
55   - # get all categories tags
56   - my $Tags = $faqTagObject->TagList();
57   -
58   - # if there are any categories, they are shown
59   - if ( $CategoryTree && ref $CategoryTree eq 'HASH' && %{$CategoryTree} ) {
60   -
61   - my @CategoryIDsSorted = sort { $CategoryTree->{$a} cmp $CategoryTree->{$b} } keys %{$CategoryTree};
62   -
63   - # show all categories
64   - for my $CategoryID (@CategoryIDsSorted) {
65   -
66   - # get category data
67   - my %CategoryData = ();
68   -
69   - # overwrite the name with the long name
70   - $CategoryData{Name} = $CategoryTree->{$CategoryID};
71   - $CategoryData{Tag} = $Tags->{$CategoryID};
72   - $CategoryData{CategoryID} = $CategoryID;
73   -
74   - if ($CategoryData{Tag}) {
75   - $CategoryData{ShowDelete} = "visibility: visible"
76   - } else {
77   - $CategoryData{ShowDelete} = "visibility: hidden"
78   - }
79   -
80   - # output the category data
81   - $layoutObject->Block(
82   - Name => 'OverviewResultRow',
83   - Data => {%CategoryData},
84   - );
85   - }
86   - }
87   -
88   - my $Output = $layoutObject->Header( Title => "Tags Overview" );
89   - $Output .= $layoutObject->NavigationBar();
90   - $Output .= $layoutObject->Output(
91   - Data => \%Data,
92   - TemplateFile => 'AgentFAQTagOverview',
93   - );
94   - $Output .= $layoutObject->Footer();
95   - return $Output;
96   - }
97   - elsif ( $SubAction eq "CreateUpdate" ) {
98   - my $CategoryID = $paramObject->GetParam( Param => "CategoryID" );
99   -
100   - # get all categories with their long names
101   - my $CategoryTree = $faqObject->CategoryTreeList(
102   - Valid => 1,
103   - UserID => $Self->{UserID},
104   - );
105   -
106   - # get all categories tags
107   - my $Tags = $faqTagObject->TagList();
108   -
109   - $Data{Tag} = $Tags->{$CategoryID};
110   - $Data{CategoryID} = $CategoryID;
111   - $Data{CategoryName} = $CategoryTree->{$CategoryID};
112   -
113   - my $Output = $layoutObject->Header( Title => "Definir tag da categoria da FAQ" );
114   - $Output .= $layoutObject->NavigationBar();
115   - $Output .= $layoutObject->Output(
116   - Data => \%Data,
117   - TemplateFile => 'AgentFAQTagAdd',
118   - );
119   - $Output .= $layoutObject->Footer();
120   - return $Output;
121   - }
122   - elsif ( $SubAction eq "AddUpdate" ) {
123   - my $CategoryID = $paramObject->GetParam( Param => "CategoryID" );
124   - my $Tag = $paramObject->GetParam( Param => "Tag" );
125   -
126   - if ( !$faqTagObject->AddUpdate( CategoryID => $CategoryID, Tag => $Tag ) ) {
127   - $Data{MensagemErro} = "Tag já existente";
128   - $Data{Tag} = $Tag;
129   - $Data{CategoryID} = $CategoryID;
130   -
131   - my $Output = $layoutObject->Header( Title => "Definir tag da categoria da FAQ" );
132   - $Output .= $layoutObject->NavigationBar();
133   - $Output .= $layoutObject->Output(
134   - Data => \%Data,
135   - TemplateFile => 'AgentFAQTagAdd',
136   - );
137   - $Output .= $layoutObject->Footer();
138   - return $Output;
139   - }
140   - else {
141   - return $layoutObject->Redirect( OP => 'Action=AgentFAQTagOverview&Subaction=overview' )
142   - ;
143   - }
144   - }
145   - elsif ( $SubAction eq "delete" ) {
146   - $faqTagObject->DeleteTag(CategoryID => $paramObject->GetParam( Param => "CategoryID" ) );
147   - return $layoutObject->Redirect( OP => 'Action=AgentFAQTagOverview&Subaction=overview' );
148   - }
149   -}
150   -
151   -1;
Kernel/Modules/PublicRedirectFAQ.pm
... ... @@ -1,71 +0,0 @@
1   -# --
2   -# Kernel/Modules/PublicRedirectFAQ.pm - module to redirect FAQ
3   -#
4   -# Copyright (C) 2014 (Rodrigo Goncalves) (rodrigo.g@ufsc.br)
5   -# --
6   -#
7   -# (C) 2014,2015 - SeTIC - UFSC - http://setic.ufsc.br/
8   -#
9   -# Version 29/01/2015 - RG - Adjustments for OTRS 4.0.4
10   -#
11   -# This software comes with ABSOLUTELY NO WARRANTY. For details, see
12   -# the enclosed file COPYING for license information (AGPL). If you
13   -# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
14   -# --
15   -package Kernel::Modules::PublicRedirectFAQ;
16   -
17   -use strict;
18   -use warnings;
19   -
20   -our @ObjectDependencies = (
21   -"Kernel::System::Web::Request", # OLD ParamObject
22   -"Kernel::Output::HTML::Layout",
23   -"Kernel::System::DB");
24   -
25   -sub new {
26   - my ( $Type, %Param ) = @_;
27   -
28   - # allocate new hash for object
29   - my $Self = {%Param};
30   - bless ($Self, $Type);
31   -
32   - return $Self;
33   -}
34   -
35   -sub Run {
36   - my ( $Self, %Param ) = @_;
37   - my %Data = ();
38   -
39   - my $paramObject = $Kernel::OM->Get("Kernel::System::Web::Request");
40   - my $layoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout");
41   -
42   - my $Tag = $paramObject->GetParam( Param => 'id' );
43   - if(!$Tag){
44   - $layoutObject->FatalError( Message => "Especifique a tag" );
45   - }
46   -
47   - my $Id = $Self->_GetCategoryID(tag => "$Tag");
48   - if(!$Id){
49   - $layoutObject->FatalError( Message => "A tag $Tag n\x{e3}o existe!" );
50   - }
51   -
52   - return $layoutObject->Redirect( ExtURL => 'public.pl?Action=PublicFAQExplorer;CategoryID='.$Id, );
53   -
54   -}
55   -
56   -sub _GetCategoryID {
57   -
58   - my ( $Self, %Param ) = @_;
59   -
60   - my $dbObject = $Kernel::OM->Get("Kernel::System::DB");
61   -
62   - $dbObject->Prepare(
63   - SQL => "select category_id from faq_tag where tag = '$Param{tag}'",
64   - );
65   - my $ID;
66   - while (my @Row = $dbObject->FetchrowArray()) {
67   - $ID = $Row[0];
68   - }
69   - return $ID;
70   -}
71   -1;
Kernel/Modules/RedirectFAQ.pm
... ... @@ -1,73 +0,0 @@
1   -# --
2   -# Kernel/Modules/PublicRedirectFAQ.pm - module to redirect FAQ
3   -#
4   -# Copyright (C) 2014 (Rodrigo Goncalves) (rodrigo.g@ufsc.br)
5   -# --
6   -#
7   -# (C) 2014,2015 - SeTIC - UFSC - http://setic.ufsc.br/
8   -#
9   -# Version 29/01/2015 - RG - Adjustments for OTRS 4.0.4
10   -#
11   -# This software comes with ABSOLUTELY NO WARRANTY. For details, see
12   -# the enclosed file COPYING for license information (AGPL). If you
13   -# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
14   -# --
15   -package Kernel::Modules::RedirectFAQ;
16   -
17   -use strict;
18   -use warnings;
19   -
20   -our @ObjectDependencies = (
21   -"Kernel::System::Web::Request", # OLD ParamObject
22   -"Kernel::Output::HTML::Layout",
23   -"Kernel::System::DB");
24   -
25   -
26   -sub new {
27   - my ( $Type, %Param ) = @_;
28   -
29   - # allocate new hash for object
30   - my $Self = {%Param};
31   - bless ($Self, $Type);
32   -
33   - return $Self;
34   -}
35   -
36   -sub Run {
37   - my ( $Self, %Param ) = @_;
38   - my %Data = ();
39   -
40   - my $paramObject = $Kernel::OM->Get("Kernel::System::Web::Request");
41   - my $layoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout");
42   -
43   - my $Tag = $paramObject->GetParam( Param => 'id' );
44   - if(!$Tag){
45   - $layoutObject->FatalError( Message => "Especifique a tag" );
46   - }
47   -
48   - my $Id = $Self->_GetCategoryID(tag => "$Tag");
49   - if(!$Id){
50   - $layoutObject->FatalError( Message => "A tag $Tag n\x{e3}o existe!" );
51   - }
52   -
53   - return $layoutObject->Redirect( OP => 'Action=AgentFAQExplorer;CategoryID='.$Id, );
54   -
55   -}
56   -
57   -sub _GetCategoryID {
58   -
59   - my ( $Self, %Param ) = @_;
60   -
61   - my $dbObject = $Kernel::OM->Get("Kernel::System::DB");
62   -
63   - $dbObject->Prepare(
64   - SQL => "select category_id from faq_tag where tag = '$Param{tag}'",
65   - );
66   - my $ID;
67   - while (my @Row = $dbObject->FetchrowArray()) {
68   - $ID = $Row[0];
69   - }
70   - return $ID;
71   -
72   -}
73   -1;
Kernel/Output/HTML/Templates/Standard/AgentFAQTagAdd.tt
... ... @@ -1,71 +0,0 @@
1   -<style type="text/css">
2   - fieldset {
3   - background: none;
4   - border: none;
5   - }
6   -</style>
7   -
8   -<div class="Content">
9   - <form name="input" action="[% Env("CGIHandle") %]" method="post">
10   - <input type="hidden" name="Action" value="[% Env("Action") %]" />
11   - <input type="hidden" name="Subaction" value="AddUpdate" />
12   - <div class="MainBox ARIARoleMain LayoutFixedSidebar SidebarFirst">
13   - <h1>[% Translate("Gerenciamento de Tags") | html %]</h1>
14   - <div class="SidebarColumn">
15   - <div class="WidgetSimple">
16   - <div class="Header">
17   - <h2>[% Translate("Actions") | html %]</h2>
18   - </div>
19   - <div class="Content">
20   - <ul class="ActionList">
21   - <li>
22   - <a href="[% Env("Baselink") %]Action=AgentFAQTagOverview&Subaction=overview" class="CallForAction"><span>[% Translate("Go to overview") | html %]</span></a>
23   - </li>
24   - </ul>
25   - </div>
26   - </div>
27   - </div>
28   - <div class="ContentColumn">
29   - <div class="WidgetSimple">
30   - <div class="Header">
31   - <h2>Editar Tag: [% Data.CategoryName | html %]</h2>
32   - </div>
33   - <div class="Content SpacingBottom">
34   - <fieldset class="TableLike">
35   -
36   - <label class="Mandatory" for="tag" ><span class="Marker">*</span> Tag:</label>
37   - <div class="Field">
38   - <input type="hidden" id="CategoryID" name="CategoryID" value="[% Data.CategoryID | html %]"/>
39   - <input type="hidden" id="Update" name="Update" value="[% Data.Update | html %]"/>
40   - <input type="text" id="Tag" name="Tag" class="W50pc Validate_Required " length="15" value="[% Data.Tag | html %]"/>
41   - </div>
42   - [% Data.MensagemErro | html %]
43   - <div class="Clear"></div>
44   - <div class="Field SpacingTop">
45   - <button class="Primary" type="submit" id="cadastrar" value="Cadastrar">[% Translate("Submit") | html %]</button>
46   - [% Translate("or") | html %]
47   - <a href="/otrs/index.pl?Action=AgentFAQTagOverview">Cancelar</a>
48   - </div>
49   - <div class="Clear"></div>
50   -
51   - </fieldset>
52   - </div>
53   - </div>
54   - </div>
55   - </div>
56   - </form>
57   -</div>
58   -
59   -<script language="javascript">
60   -// Torna os campos obrigatórios
61   -function valida_dados (nomeform) {
62   - if (nomeform.tag.value=="") {
63   - alert ("Por favor digite o nome para a tag.");
64   - return false;
65   - } else {
66   - return true;
67   - }
68   -}
69   -
70   -</script>
71   -
Kernel/Output/HTML/Templates/Standard/AgentFAQTagOverview.tt
... ... @@ -1,61 +0,0 @@
1   -
2   -<div class="MainBox ARIARoleMain LayoutFixedSidebar SidebarFirst">
3   - <h1>[% Translate("Gerenciamento de Tags") | html %]</h1>
4   - <div class="SidebarColumn">
5   - <div class="WidgetSimple">
6   - <div class="Header">
7   - <h2>[% Translate("Hint") | html %]</h2>
8   - </div>
9   - <div class="Content">
10   - <p class="FieldExplanation">Tabela de todas as categorias da FAQ com suas respectivas tags.</p>
11   - <p class="FieldExplanation">Adicione uma tag para gerar um endere&ccedil;o mais simples a determinada categoria.</p>
12   - </div>
13   - </div>
14   - </div>
15   - <div class="ContentColumn">
16   - <div class="WidgetSimple">
17   - <div class="Header">
18   - <h2>Lista</h2>
19   - </div>
20   - <div class="Content SpacingBottom">
21   - <table class="DataTable SpacingTop">
22   - <thead>
23   - <tr>
24   - <th><center>Categoria</center></th>
25   - <th><center>Tag</center></th>
26   - <th><center>Opções</center></th>
27   - </tr>
28   - </thead>
29   - <tbody>
30   -[% RenderBlockStart("OverviewResultRow") %]
31   - <tr>
32   - <td>[% Data.Name | html %]</td>
33   - <td><center>[% Data.Tag | html %]</center></td>
34   - <td>
35   - <center>
36   - <a style="[% Data.ShowDelete | html %]" class="TrashCan" onClick="remover('[% Data.Name | html %]','[% Data.CategoryID | html %]')">
37   - <i class="fa fa-trash-o"></i>
38   - </a>
39   - <a href='[% Env("Baselink") %]Action=AgentFAQTagOverview&Subaction=CreateUpdate&CategoryID=[% Data.CategoryID | html %]' class="CallForAction"><span>[% Translate("Alterar Tag") | html %]</span></a>
40   - </center>
41   - </td>
42   - </tr>
43   -[% RenderBlockEnd("OverviewResultRow") %]
44   - </tbody>
45   - </table>
46   - </div>
47   - </div>
48   - </div>
49   -</div>
50   -
51   -<script type="text/javascript" charset="utf-8">//<![CDATA[
52   -function remover(CategoryName, CategoryID){
53   - if(CategoryID){
54   - var confirma = confirm("Tem certeza de que deseja remover a tag da categoria '" + CategoryName +"' ?");
55   - if(confirma){
56   - window.location.href = "index.pl?Action=AgentFAQTagOverview&Subaction=delete&CategoryID="+CategoryID;
57   - }
58   - }
59   -}
60   -
61   -</script>
Kernel/System/FAQTag.pm
... ... @@ -1,256 +0,0 @@
1   -# --
2   -# Kernel/System/FAQTag.pm - core module
3   -# Manages Tags for FAQ categories
4   -#
5   -# Copyright (C) (2014) (Rodrigo Gonçalves) (rodrigo.g@ufsc.br)
6   -# --
7   -# $Id: writing-otrs-application.xml,v 1.1 2010/08/13 08:59:28 mg Exp $
8   -# --
9   -#
10   -# Version 29/01/2015 - RG - Adjustments for OTRS 4.0.4
11   -#
12   -# This software comes with ABSOLUTELY NO WARRANTY. For details, see
13   -# the enclosed file COPYING for license information (AGPL). If you
14   -# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
15   -# --
16   -# Author: Carlos Rebelato
17   -# Date..: 09/07/2014 - Versão inicial
18   -# Date..: 04/08/2014 - Inclusão de papéis
19   -# Revision:
20   -#
21   -package Kernel::System::FAQTag;
22   -
23   -use strict;
24   -use warnings;
25   -use Data::Dumper;
26   -
27   -our @ObjectDependencies = (
28   -"Kernel::System::Web::Request", # OLD ParamObject
29   -"Kernel::Output::HTML::Layout",
30   -"Kernel::System::DB");
31   -
32   -
33   -sub new {
34   - my ( $Type, %Param ) = @_;
35   -
36   - # allocate new hash for object
37   - my $Self = {%Param};
38   - bless( $Self, $Type );
39   -
40   - if (! $Self->{TableName}) {
41   - $Self->{TableName} = "faq_tag";
42   - }
43   -
44   - return $Self;
45   -}
46   -
47   -=item AddUpdate()
48   -
49   -Adds/updates a category Tag
50   -
51   - my $True = $FAQTagObject->FAQTagAddUpdate(
52   - CategoryID => Category ID,
53   - Tag => Tag to associate/update
54   - );
55   -
56   -=cut
57   -sub AddUpdate {
58   -
59   - my ( $Self, %Param ) = @_;
60   -
61   - for (qw(CategoryID Tag)) {
62   - if ( !$Param{$_} ) {
63   - $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
64   - return 0;
65   - }
66   - }
67   -
68   - if ($Self->DuplicatedTag(%Param)) {
69   - return 0;
70   - } else {
71   -
72   - if ($Self->HasTag(CategoryID => $Param{CategoryID})) {
73   - return $Self->UpdateTag(%Param);
74   - } else {
75   - return $Self->AddTag(%Param);
76   - }
77   - }
78   -
79   -}
80   -
81   -=item HasTag()
82   -
83   -Checks if category already has a class
84   -
85   - my $True = $FAQTagObject->HasTag(
86   - CategoryID => Category ID,
87   - );
88   -
89   -=cut
90   -sub HasTag {
91   -
92   - my ( $Self, %Param ) = @_;
93   -
94   - for (qw(CategoryID)) {
95   - if ( !$Param{$_} ) {
96   - $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
97   - return 0;
98   - }
99   - }
100   -
101   - $Kernel::OM->Get("Kernel::System::DB")->Prepare(
102   - SQL => "SELECT id FROM " . $Self->{TableName} . " WHERE category_id = ?",
103   - Bind => [ \$Param{CategoryID} ],
104   - Limit => 1,
105   - );
106   -
107   - # Returns true if another category has the same tag
108   - return $Kernel::OM->Get("Kernel::System::DB")->FetchrowArray();
109   -}
110   -
111   -
112   -=item UpdateTag()
113   -
114   -Updates a category Tag
115   -
116   - my $True = $FAQTagObject->UpdateTag(
117   - CategoryID => Category ID,
118   - Tag => Tag to associate
119   - );
120   -
121   -=cut
122   -sub UpdateTag {
123   -
124   - my ( $Self, %Param ) = @_;
125   -
126   - for (qw(CategoryID Tag)) {
127   - if ( !$Param{$_} ) {
128   - $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
129   - return 0;
130   - }
131   - }
132   -
133   - $Kernel::OM->Get("Kernel::System::DB")->Do(
134   - SQL => "UPDATE " . $Self->{TableName} . " SET tag=? WHERE category_id=?",
135   - Bind => [ \$Param{Tag}, \$Param{CategoryID} ]
136   - );
137   -
138   -}
139   -
140   -=item AddTag()
141   -
142   -Adds a category Tag
143   -
144   - my $True = $FAQTagObject->AddTag(
145   - CategoryID => Category ID,
146   - Tag => Tag to associate
147   - );
148   -
149   -=cut
150   -sub AddTag {
151   -
152   - my ( $Self, %Param ) = @_;
153   -
154   - for (qw(CategoryID Tag)) {
155   - if ( !$Param{$_} ) {
156   - $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
157   - return 0;
158   - }
159   - }
160   -
161   - $Kernel::OM->Get("Kernel::System::DB")->Do(
162   - SQL => "INSERT INTO " . $Self->{TableName} . " (tag,category_id) VALUES (?,?)",
163   - Bind => [ \$Param{Tag}, \$Param{CategoryID} ]
164   - );
165   -
166   -}
167   -
168   -=item DeleteTag()
169   -
170   -Deletes a category Tag
171   -
172   - my $True = $FAQTagObject->DeleteTag(
173   - CategoryID => Category ID
174   - );
175   -
176   -=cut
177   -sub DeleteTag {
178   -
179   - my ( $Self, %Param ) = @_;
180   -
181   - for (qw(CategoryID)) {
182   - if ( !$Param{$_} ) {
183   - $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
184   - return 0;
185   - }
186   - }
187   -
188   - $Kernel::OM->Get("Kernel::System::DB")->Do(
189   - SQL => "DELETE FROM " . $Self->{TableName} . " WHERE category_id=?",
190   - Bind => [ \$Param{CategoryID} ]
191   - );
192   -
193   -}
194   -
195   -=item DuplicatedTag()
196   -
197   -Checks if another category has the given tag
198   -
199   - my $True = $FAQTagObject->DuplicatedTag(
200   - CategoryID => Category ID,
201   - Tag => Tag to associate/update
202   - );
203   -
204   -=cut
205   -sub DuplicatedTag {
206   -
207   - my ( $Self, %Param ) = @_;
208   -
209   - for (qw(CategoryID Tag)) {
210   - if ( !$Param{$_} ) {
211   - $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
212   - return 0;
213   - }
214   - }
215   -
216   - $Kernel::OM->Get("Kernel::System::DB")->Prepare(
217   - SQL => "SELECT id FROM " . $Self->{TableName} . " WHERE tag = ? AND category_id <> ?",
218   - Bind => [ \$Param{Tag}, \$Param{CategoryID} ],
219   - Limit => 1,
220   - );
221   -
222   - # Returns true if another category has the same tag
223   - return $Kernel::OM->Get("Kernel::System::DB")->FetchrowArray();
224   -
225   -}
226   -
227   -=item TagList()
228   -
229   -Get list of tags, in a map associated by category ID
230   -
231   - my %{key category_id}{tag} = $FAQTagObject->GetTagList();
232   -
233   -=cut
234   -sub TagList {
235   - my ( $Self, %Param ) = @_;
236   - my %result = ();
237   -
238   - $Kernel::OM->Get("Kernel::System::DB")->Prepare(
239   - SQL => "
240   - select
241   - a.category_id category_id,
242   - a.tag tag
243   - from
244   - " . $Self->{TableName} . " a
245   - order by
246   - a.category_id asc",
247   - );
248   -
249   - while ( my @row = $Kernel::OM->Get("Kernel::System::DB")->FetchrowArray() ) {
250   - $result{ $row[0] } = $row[1];
251   - }
252   -
253   - return \%result;
254   -}
255   -
256   -1;
LICENSE 0 → 100644
... ... @@ -0,0 +1,661 @@
  1 + GNU AFFERO GENERAL PUBLIC LICENSE
  2 + Version 3, 19 November 2007
  3 +
  4 + Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
  5 + Everyone is permitted to copy and distribute verbatim copies
  6 + of this license document, but changing it is not allowed.
  7 +
  8 + Preamble
  9 +
  10 + The GNU Affero General Public License is a free, copyleft license for
  11 +software and other kinds of works, specifically designed to ensure
  12 +cooperation with the community in the case of network server software.
  13 +
  14 + The licenses for most software and other practical works are designed
  15 +to take away your freedom to share and change the works. By contrast,
  16 +our General Public Licenses are intended to guarantee your freedom to
  17 +share and change all versions of a program--to make sure it remains free
  18 +software for all its users.
  19 +
  20 + When we speak of free software, we are referring to freedom, not
  21 +price. Our General Public Licenses are designed to make sure that you
  22 +have the freedom to distribute copies of free software (and charge for
  23 +them if you wish), that you receive source code or can get it if you
  24 +want it, that you can change the software or use pieces of it in new
  25 +free programs, and that you know you can do these things.
  26 +
  27 + Developers that use our General Public Licenses protect your rights
  28 +with two steps: (1) assert copyright on the software, and (2) offer
  29 +you this License which gives you legal permission to copy, distribute
  30 +and/or modify the software.
  31 +
  32 + A secondary benefit of defending all users' freedom is that
  33 +improvements made in alternate versions of the program, if they
  34 +receive widespread use, become available for other developers to
  35 +incorporate. Many developers of free software are heartened and
  36 +encouraged by the resulting cooperation. However, in the case of
  37 +software used on network servers, this result may fail to come about.
  38 +The GNU General Public License permits making a modified version and
  39 +letting the public access it on a server without ever releasing its
  40 +source code to the public.
  41 +
  42 + The GNU Affero General Public License is designed specifically to
  43 +ensure that, in such cases, the modified source code becomes available
  44 +to the community. It requires the operator of a network server to
  45 +provide the source code of the modified version running there to the
  46 +users of that server. Therefore, public use of a modified version, on
  47 +a publicly accessible server, gives the public access to the source
  48 +code of the modified version.
  49 +
  50 + An older license, called the Affero General Public License and
  51 +published by Affero, was designed to accomplish similar goals. This is
  52 +a different license, not a version of the Affero GPL, but Affero has
  53 +released a new version of the Affero GPL which permits relicensing under
  54 +this license.
  55 +
  56 + The precise terms and conditions for copying, distribution and
  57 +modification follow.
  58 +
  59 + TERMS AND CONDITIONS
  60 +
  61 + 0. Definitions.
  62 +
  63 + "This License" refers to version 3 of the GNU Affero General Public License.
  64 +
  65 + "Copyright" also means copyright-like laws that apply to other kinds of
  66 +works, such as semiconductor masks.
  67 +
  68 + "The Program" refers to any copyrightable work licensed under this
  69 +License. Each licensee is addressed as "you". "Licensees" and
  70 +"recipients" may be individuals or organizations.
  71 +
  72 + To "modify" a work means to copy from or adapt all or part of the work
  73 +in a fashion requiring copyright permission, other than the making of an
  74 +exact copy. The resulting work is called a "modified version" of the
  75 +earlier work or a work "based on" the earlier work.
  76 +
  77 + A "covered work" means either the unmodified Program or a work based
  78 +on the Program.
  79 +
  80 + To "propagate" a work means to do anything with it that, without
  81 +permission, would make you directly or secondarily liable for
  82 +infringement under applicable copyright law, except executing it on a
  83 +computer or modifying a private copy. Propagation includes copying,
  84 +distribution (with or without modification), making available to the
  85 +public, and in some countries other activities as well.
  86 +
  87 + To "convey" a work means any kind of propagation that enables other
  88 +parties to make or receive copies. Mere interaction with a user through
  89 +a computer network, with no transfer of a copy, is not conveying.
  90 +
  91 + An interactive user interface displays "Appropriate Legal Notices"
  92 +to the extent that it includes a convenient and prominently visible
  93 +feature that (1) displays an appropriate copyright notice, and (2)
  94 +tells the user that there is no warranty for the work (except to the
  95 +extent that warranties are provided), that licensees may convey the
  96 +work under this License, and how to view a copy of this License. If
  97 +the interface presents a list of user commands or options, such as a
  98 +menu, a prominent item in the list meets this criterion.
  99 +
  100 + 1. Source Code.
  101 +
  102 + The "source code" for a work means the preferred form of the work
  103 +for making modifications to it. "Object code" means any non-source
  104 +form of a work.
  105 +
  106 + A "Standard Interface" means an interface that either is an official
  107 +standard defined by a recognized standards body, or, in the case of
  108 +interfaces specified for a particular programming language, one that
  109 +is widely used among developers working in that language.
  110 +
  111 + The "System Libraries" of an executable work include anything, other
  112 +than the work as a whole, that (a) is included in the normal form of
  113 +packaging a Major Component, but which is not part of that Major
  114 +Component, and (b) serves only to enable use of the work with that
  115 +Major Component, or to implement a Standard Interface for which an
  116 +implementation is available to the public in source code form. A
  117 +"Major Component", in this context, means a major essential component
  118 +(kernel, window system, and so on) of the specific operating system
  119 +(if any) on which the executable work runs, or a compiler used to
  120 +produce the work, or an object code interpreter used to run it.
  121 +
  122 + The "Corresponding Source" for a work in object code form means all
  123 +the source code needed to generate, install, and (for an executable
  124 +work) run the object code and to modify the work, including scripts to
  125 +control those activities. However, it does not include the work's
  126 +System Libraries, or general-purpose tools or generally available free
  127 +programs which are used unmodified in performing those activities but
  128 +which are not part of the work. For example, Corresponding Source
  129 +includes interface definition files associated with source files for
  130 +the work, and the source code for shared libraries and dynamically
  131 +linked subprograms that the work is specifically designed to require,
  132 +such as by intimate data communication or control flow between those
  133 +subprograms and other parts of the work.
  134 +
  135 + The Corresponding Source need not include anything that users
  136 +can regenerate automatically from other parts of the Corresponding
  137 +Source.
  138 +
  139 + The Corresponding Source for a work in source code form is that
  140 +same work.
  141 +
  142 + 2. Basic Permissions.
  143 +
  144 + All rights granted under this License are granted for the term of
  145 +copyright on the Program, and are irrevocable provided the stated
  146 +conditions are met. This License explicitly affirms your unlimited
  147 +permission to run the unmodified Program. The output from running a
  148 +covered work is covered by this License only if the output, given its
  149 +content, constitutes a covered work. This License acknowledges your
  150 +rights of fair use or other equivalent, as provided by copyright law.
  151 +
  152 + You may make, run and propagate covered works that you do not
  153 +convey, without conditions so long as your license otherwise remains
  154 +in force. You may convey covered works to others for the sole purpose
  155 +of having them make modifications exclusively for you, or provide you
  156 +with facilities for running those works, provided that you comply with
  157 +the terms of this License in conveying all material for which you do
  158 +not control copyright. Those thus making or running the covered works
  159 +for you must do so exclusively on your behalf, under your direction
  160 +and control, on terms that prohibit them from making any copies of
  161 +your copyrighted material outside their relationship with you.
  162 +
  163 + Conveying under any other circumstances is permitted solely under
  164 +the conditions stated below. Sublicensing is not allowed; section 10
  165 +makes it unnecessary.
  166 +
  167 + 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
  168 +
  169 + No covered work shall be deemed part of an effective technological
  170 +measure under any applicable law fulfilling obligations under article
  171 +11 of the WIPO copyright treaty adopted on 20 December 1996, or
  172 +similar laws prohibiting or restricting circumvention of such
  173 +measures.
  174 +
  175 + When you convey a covered work, you waive any legal power to forbid
  176 +circumvention of technological measures to the extent such circumvention
  177 +is effected by exercising rights under this License with respect to
  178 +the covered work, and you disclaim any intention to limit operation or
  179 +modification of the work as a means of enforcing, against the work's
  180 +users, your or third parties' legal rights to forbid circumvention of
  181 +technological measures.
  182 +
  183 + 4. Conveying Verbatim Copies.
  184 +
  185 + You may convey verbatim copies of the Program's source code as you
  186 +receive it, in any medium, provided that you conspicuously and
  187 +appropriately publish on each copy an appropriate copyright notice;
  188 +keep intact all notices stating that this License and any
  189 +non-permissive terms added in accord with section 7 apply to the code;
  190 +keep intact all notices of the absence of any warranty; and give all
  191 +recipients a copy of this License along with the Program.
  192 +
  193 + You may charge any price or no price for each copy that you convey,
  194 +and you may offer support or warranty protection for a fee.
  195 +
  196 + 5. Conveying Modified Source Versions.
  197 +
  198 + You may convey a work based on the Program, or the modifications to
  199 +produce it from the Program, in the form of source code under the
  200 +terms of section 4, provided that you also meet all of these conditions:
  201 +
  202 + a) The work must carry prominent notices stating that you modified
  203 + it, and giving a relevant date.
  204 +
  205 + b) The work must carry prominent notices stating that it is
  206 + released under this License and any conditions added under section
  207 + 7. This requirement modifies the requirement in section 4 to
  208 + "keep intact all notices".
  209 +
  210 + c) You must license the entire work, as a whole, under this
  211 + License to anyone who comes into possession of a copy. This
  212 + License will therefore apply, along with any applicable section 7
  213 + additional terms, to the whole of the work, and all its parts,
  214 + regardless of how they are packaged. This License gives no
  215 + permission to license the work in any other way, but it does not
  216 + invalidate such permission if you have separately received it.
  217 +
  218 + d) If the work has interactive user interfaces, each must display
  219 + Appropriate Legal Notices; however, if the Program has interactive
  220 + interfaces that do not display Appropriate Legal Notices, your
  221 + work need not make them do so.
  222 +
  223 + A compilation of a covered work with other separate and independent
  224 +works, which are not by their nature extensions of the covered work,
  225 +and which are not combined with it such as to form a larger program,
  226 +in or on a volume of a storage or distribution medium, is called an
  227 +"aggregate" if the compilation and its resulting copyright are not
  228 +used to limit the access or legal rights of the compilation's users
  229 +beyond what the individual works permit. Inclusion of a covered work
  230 +in an aggregate does not cause this License to apply to the other
  231 +parts of the aggregate.
  232 +
  233 + 6. Conveying Non-Source Forms.
  234 +
  235 + You may convey a covered work in object code form under the terms
  236 +of sections 4 and 5, provided that you also convey the
  237 +machine-readable Corresponding Source under the terms of this License,
  238 +in one of these ways:
  239 +
  240 + a) Convey the object code in, or embodied in, a physical product
  241 + (including a physical distribution medium), accompanied by the
  242 + Corresponding Source fixed on a durable physical medium
  243 + customarily used for software interchange.
  244 +
  245 + b) Convey the object code in, or embodied in, a physical product
  246 + (including a physical distribution medium), accompanied by a
  247 + written offer, valid for at least three years and valid for as
  248 + long as you offer spare parts or customer support for that product
  249 + model, to give anyone who possesses the object code either (1) a
  250 + copy of the Corresponding Source for all the software in the
  251 + product that is covered by this License, on a durable physical
  252 + medium customarily used for software interchange, for a price no
  253 + more than your reasonable cost of physically performing this
  254 + conveying of source, or (2) access to copy the
  255 + Corresponding Source from a network server at no charge.
  256 +
  257 + c) Convey individual copies of the object code with a copy of the
  258 + written offer to provide the Corresponding Source. This
  259 + alternative is allowed only occasionally and noncommercially, and
  260 + only if you received the object code with such an offer, in accord
  261 + with subsection 6b.
  262 +
  263 + d) Convey the object code by offering access from a designated
  264 + place (gratis or for a charge), and offer equivalent access to the
  265 + Corresponding Source in the same way through the same place at no
  266 + further charge. You need not require recipients to copy the
  267 + Corresponding Source along with the object code. If the place to
  268 + copy the object code is a network server, the Corresponding Source
  269 + may be on a different server (operated by you or a third party)
  270 + that supports equivalent copying facilities, provided you maintain
  271 + clear directions next to the object code saying where to find the
  272 + Corresponding Source. Regardless of what server hosts the
  273 + Corresponding Source, you remain obligated to ensure that it is
  274 + available for as long as needed to satisfy these requirements.
  275 +
  276 + e) Convey the object code using peer-to-peer transmission, provided
  277 + you inform other peers where the object code and Corresponding
  278 + Source of the work are being offered to the general public at no
  279 + charge under subsection 6d.
  280 +
  281 + A separable portion of the object code, whose source code is excluded
  282 +from the Corresponding Source as a System Library, need not be
  283 +included in conveying the object code work.
  284 +
  285 + A "User Product" is either (1) a "consumer product", which means any
  286 +tangible personal property which is normally used for personal, family,
  287 +or household purposes, or (2) anything designed or sold for incorporation
  288 +into a dwelling. In determining whether a product is a consumer product,
  289 +doubtful cases shall be resolved in favor of coverage. For a particular
  290 +product received by a particular user, "normally used" refers to a
  291 +typical or common use of that class of product, regardless of the status
  292 +of the particular user or of the way in which the particular user
  293 +actually uses, or expects or is expected to use, the product. A product
  294 +is a consumer product regardless of whether the product has substantial
  295 +commercial, industrial or non-consumer uses, unless such uses represent
  296 +the only significant mode of use of the product.
  297 +
  298 + "Installation Information" for a User Product means any methods,
  299 +procedures, authorization keys, or other information required to install
  300 +and execute modified versions of a covered work in that User Product from
  301 +a modified version of its Corresponding Source. The information must
  302 +suffice to ensure that the continued functioning of the modified object
  303 +code is in no case prevented or interfered with solely because
  304 +modification has been made.
  305 +
  306 + If you convey an object code work under this section in, or with, or
  307 +specifically for use in, a User Product, and the conveying occurs as
  308 +part of a transaction in which the right of possession and use of the
  309 +User Product is transferred to the recipient in perpetuity or for a
  310 +fixed term (regardless of how the transaction is characterized), the
  311 +Corresponding Source conveyed under this section must be accompanied
  312 +by the Installation Information. But this requirement does not apply
  313 +if neither you nor any third party retains the ability to install
  314 +modified object code on the User Product (for example, the work has
  315 +been installed in ROM).
  316 +
  317 + The requirement to provide Installation Information does not include a
  318 +requirement to continue to provide support service, warranty, or updates
  319 +for a work that has been modified or installed by the recipient, or for
  320 +the User Product in which it has been modified or installed. Access to a
  321 +network may be denied when the modification itself materially and
  322 +adversely affects the operation of the network or violates the rules and
  323 +protocols for communication across the network.
  324 +
  325 + Corresponding Source conveyed, and Installation Information provided,
  326 +in accord with this section must be in a format that is publicly
  327 +documented (and with an implementation available to the public in
  328 +source code form), and must require no special password or key for
  329 +unpacking, reading or copying.
  330 +
  331 + 7. Additional Terms.
  332 +
  333 + "Additional permissions" are terms that supplement the terms of this
  334 +License by making exceptions from one or more of its conditions.
  335 +Additional permissions that are applicable to the entire Program shall
  336 +be treated as though they were included in this License, to the extent
  337 +that they are valid under applicable law. If additional permissions
  338 +apply only to part of the Program, that part may be used separately
  339 +under those permissions, but the entire Program remains governed by
  340 +this License without regard to the additional permissions.
  341 +
  342 + When you convey a copy of a covered work, you may at your option
  343 +remove any additional permissions from that copy, or from any part of
  344 +it. (Additional permissions may be written to require their own
  345 +removal in certain cases when you modify the work.) You may place
  346 +additional permissions on material, added by you to a covered work,
  347 +for which you have or can give appropriate copyright permission.
  348 +
  349 + Notwithstanding any other provision of this License, for material you
  350 +add to a covered work, you may (if authorized by the copyright holders of
  351 +that material) supplement the terms of this License with terms:
  352 +
  353 + a) Disclaiming warranty or limiting liability differently from the
  354 + terms of sections 15 and 16 of this License; or
  355 +
  356 + b) Requiring preservation of specified reasonable legal notices or
  357 + author attributions in that material or in the Appropriate Legal
  358 + Notices displayed by works containing it; or
  359 +
  360 + c) Prohibiting misrepresentation of the origin of that material, or
  361 + requiring that modified versions of such material be marked in
  362 + reasonable ways as different from the original version; or
  363 +
  364 + d) Limiting the use for publicity purposes of names of licensors or
  365 + authors of the material; or
  366 +
  367 + e) Declining to grant rights under trademark law for use of some
  368 + trade names, trademarks, or service marks; or
  369 +
  370 + f) Requiring indemnification of licensors and authors of that
  371 + material by anyone who conveys the material (or modified versions of
  372 + it) with contractual assumptions of liability to the recipient, for
  373 + any liability that these contractual assumptions directly impose on
  374 + those licensors and authors.
  375 +
  376 + All other non-permissive additional terms are considered "further
  377 +restrictions" within the meaning of section 10. If the Program as you
  378 +received it, or any part of it, contains a notice stating that it is
  379 +governed by this License along with a term that is a further
  380 +restriction, you may remove that term. If a license document contains
  381 +a further restriction but permits relicensing or conveying under this
  382 +License, you may add to a covered work material governed by the terms
  383 +of that license document, provided that the further restriction does
  384 +not survive such relicensing or conveying.
  385 +
  386 + If you add terms to a covered work in accord with this section, you
  387 +must place, in the relevant source files, a statement of the
  388 +additional terms that apply to those files, or a notice indicating
  389 +where to find the applicable terms.
  390 +
  391 + Additional terms, permissive or non-permissive, may be stated in the
  392 +form of a separately written license, or stated as exceptions;
  393 +the above requirements apply either way.
  394 +
  395 + 8. Termination.
  396 +
  397 + You may not propagate or modify a covered work except as expressly
  398 +provided under this License. Any attempt otherwise to propagate or
  399 +modify it is void, and will automatically terminate your rights under
  400 +this License (including any patent licenses granted under the third
  401 +paragraph of section 11).
  402 +
  403 + However, if you cease all violation of this License, then your
  404 +license from a particular copyright holder is reinstated (a)
  405 +provisionally, unless and until the copyright holder explicitly and
  406 +finally terminates your license, and (b) permanently, if the copyright
  407 +holder fails to notify you of the violation by some reasonable means
  408 +prior to 60 days after the cessation.
  409 +
  410 + Moreover, your license from a particular copyright holder is
  411 +reinstated permanently if the copyright holder notifies you of the
  412 +violation by some reasonable means, this is the first time you have
  413 +received notice of violation of this License (for any work) from that
  414 +copyright holder, and you cure the violation prior to 30 days after
  415 +your receipt of the notice.
  416 +
  417 + Termination of your rights under this section does not terminate the
  418 +licenses of parties who have received copies or rights from you under
  419 +this License. If your rights have been terminated and not permanently
  420 +reinstated, you do not qualify to receive new licenses for the same
  421 +material under section 10.
  422 +
  423 + 9. Acceptance Not Required for Having Copies.
  424 +
  425 + You are not required to accept this License in order to receive or
  426 +run a copy of the Program. Ancillary propagation of a covered work
  427 +occurring solely as a consequence of using peer-to-peer transmission
  428 +to receive a copy likewise does not require acceptance. However,
  429 +nothing other than this License grants you permission to propagate or
  430 +modify any covered work. These actions infringe copyright if you do
  431 +not accept this License. Therefore, by modifying or propagating a
  432 +covered work, you indicate your acceptance of this License to do so.
  433 +
  434 + 10. Automatic Licensing of Downstream Recipients.
  435 +
  436 + Each time you convey a covered work, the recipient automatically
  437 +receives a license from the original licensors, to run, modify and
  438 +propagate that work, subject to this License. You are not responsible
  439 +for enforcing compliance by third parties with this License.
  440 +
  441 + An "entity transaction" is a transaction transferring control of an
  442 +organization, or substantially all assets of one, or subdividing an
  443 +organization, or merging organizations. If propagation of a covered
  444 +work results from an entity transaction, each party to that
  445 +transaction who receives a copy of the work also receives whatever
  446 +licenses to the work the party's predecessor in interest had or could
  447 +give under the previous paragraph, plus a right to possession of the
  448 +Corresponding Source of the work from the predecessor in interest, if
  449 +the predecessor has it or can get it with reasonable efforts.
  450 +
  451 + You may not impose any further restrictions on the exercise of the
  452 +rights granted or affirmed under this License. For example, you may
  453 +not impose a license fee, royalty, or other charge for exercise of
  454 +rights granted under this License, and you may not initiate litigation
  455 +(including a cross-claim or counterclaim in a lawsuit) alleging that
  456 +any patent claim is infringed by making, using, selling, offering for
  457 +sale, or importing the Program or any portion of it.
  458 +
  459 + 11. Patents.
  460 +
  461 + A "contributor" is a copyright holder who authorizes use under this
  462 +License of the Program or a work on which the Program is based. The
  463 +work thus licensed is called the contributor's "contributor version".
  464 +
  465 + A contributor's "essential patent claims" are all patent claims
  466 +owned or controlled by the contributor, whether already acquired or
  467 +hereafter acquired, that would be infringed by some manner, permitted
  468 +by this License, of making, using, or selling its contributor version,
  469 +but do not include claims that would be infringed only as a
  470 +consequence of further modification of the contributor version. For
  471 +purposes of this definition, "control" includes the right to grant
  472 +patent sublicenses in a manner consistent with the requirements of
  473 +this License.
  474 +
  475 + Each contributor grants you a non-exclusive, worldwide, royalty-free
  476 +patent license under the contributor's essential patent claims, to
  477 +make, use, sell, offer for sale, import and otherwise run, modify and
  478 +propagate the contents of its contributor version.
  479 +
  480 + In the following three paragraphs, a "patent license" is any express
  481 +agreement or commitment, however denominated, not to enforce a patent
  482 +(such as an express permission to practice a patent or covenant not to
  483 +sue for patent infringement). To "grant" such a patent license to a
  484 +party means to make such an agreement or commitment not to enforce a
  485 +patent against the party.
  486 +
  487 + If you convey a covered work, knowingly relying on a patent license,
  488 +and the Corresponding Source of the work is not available for anyone
  489 +to copy, free of charge and under the terms of this License, through a
  490 +publicly available network server or other readily accessible means,
  491 +then you must either (1) cause the Corresponding Source to be so
  492 +available, or (2) arrange to deprive yourself of the benefit of the
  493 +patent license for this particular work, or (3) arrange, in a manner
  494 +consistent with the requirements of this License, to extend the patent
  495 +license to downstream recipients. "Knowingly relying" means you have
  496 +actual knowledge that, but for the patent license, your conveying the
  497 +covered work in a country, or your recipient's use of the covered work
  498 +in a country, would infringe one or more identifiable patents in that
  499 +country that you have reason to believe are valid.
  500 +
  501 + If, pursuant to or in connection with a single transaction or
  502 +arrangement, you convey, or propagate by procuring conveyance of, a
  503 +covered work, and grant a patent license to some of the parties
  504 +receiving the covered work authorizing them to use, propagate, modify
  505 +or convey a specific copy of the covered work, then the patent license
  506 +you grant is automatically extended to all recipients of the covered
  507 +work and works based on it.
  508 +
  509 + A patent license is "discriminatory" if it does not include within
  510 +the scope of its coverage, prohibits the exercise of, or is
  511 +conditioned on the non-exercise of one or more of the rights that are
  512 +specifically granted under this License. You may not convey a covered
  513 +work if you are a party to an arrangement with a third party that is
  514 +in the business of distributing software, under which you make payment
  515 +to the third party based on the extent of your activity of conveying
  516 +the work, and under which the third party grants, to any of the
  517 +parties who would receive the covered work from you, a discriminatory
  518 +patent license (a) in connection with copies of the covered work
  519 +conveyed by you (or copies made from those copies), or (b) primarily
  520 +for and in connection with specific products or compilations that
  521 +contain the covered work, unless you entered into that arrangement,
  522 +or that patent license was granted, prior to 28 March 2007.
  523 +
  524 + Nothing in this License shall be construed as excluding or limiting
  525 +any implied license or other defenses to infringement that may
  526 +otherwise be available to you under applicable patent law.
  527 +
  528 + 12. No Surrender of Others' Freedom.
  529 +
  530 + If conditions are imposed on you (whether by court order, agreement or
  531 +otherwise) that contradict the conditions of this License, they do not
  532 +excuse you from the conditions of this License. If you cannot convey a
  533 +covered work so as to satisfy simultaneously your obligations under this
  534 +License and any other pertinent obligations, then as a consequence you may
  535 +not convey it at all. For example, if you agree to terms that obligate you
  536 +to collect a royalty for further conveying from those to whom you convey
  537 +the Program, the only way you could satisfy both those terms and this
  538 +License would be to refrain entirely from conveying the Program.
  539 +
  540 + 13. Remote Network Interaction; Use with the GNU General Public License.
  541 +
  542 + Notwithstanding any other provision of this License, if you modify the
  543 +Program, your modified version must prominently offer all users
  544 +interacting with it remotely through a computer network (if your version
  545 +supports such interaction) an opportunity to receive the Corresponding
  546 +Source of your version by providing access to the Corresponding Source
  547 +from a network server at no charge, through some standard or customary
  548 +means of facilitating copying of software. This Corresponding Source
  549 +shall include the Corresponding Source for any work covered by version 3
  550 +of the GNU General Public License that is incorporated pursuant to the
  551 +following paragraph.
  552 +
  553 + Notwithstanding any other provision of this License, you have
  554 +permission to link or combine any covered work with a work licensed
  555 +under version 3 of the GNU General Public License into a single
  556 +combined work, and to convey the resulting work. The terms of this
  557 +License will continue to apply to the part which is the covered work,
  558 +but the work with which it is combined will remain governed by version
  559 +3 of the GNU General Public License.
  560 +
  561 + 14. Revised Versions of this License.
  562 +
  563 + The Free Software Foundation may publish revised and/or new versions of
  564 +the GNU Affero General Public License from time to time. Such new versions
  565 +will be similar in spirit to the present version, but may differ in detail to
  566 +address new problems or concerns.
  567 +
  568 + Each version is given a distinguishing version number. If the
  569 +Program specifies that a certain numbered version of the GNU Affero General
  570 +Public License "or any later version" applies to it, you have the
  571 +option of following the terms and conditions either of that numbered
  572 +version or of any later version published by the Free Software
  573 +Foundation. If the Program does not specify a version number of the
  574 +GNU Affero General Public License, you may choose any version ever published
  575 +by the Free Software Foundation.
  576 +
  577 + If the Program specifies that a proxy can decide which future
  578 +versions of the GNU Affero General Public License can be used, that proxy's
  579 +public statement of acceptance of a version permanently authorizes you
  580 +to choose that version for the Program.
  581 +
  582 + Later license versions may give you additional or different
  583 +permissions. However, no additional obligations are imposed on any
  584 +author or copyright holder as a result of your choosing to follow a
  585 +later version.
  586 +
  587 + 15. Disclaimer of Warranty.
  588 +
  589 + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
  590 +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
  591 +HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
  592 +OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
  593 +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  594 +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
  595 +IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
  596 +ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
  597 +
  598 + 16. Limitation of Liability.
  599 +
  600 + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
  601 +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
  602 +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
  603 +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
  604 +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
  605 +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
  606 +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
  607 +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
  608 +SUCH DAMAGES.
  609 +
  610 + 17. Interpretation of Sections 15 and 16.
  611 +
  612 + If the disclaimer of warranty and limitation of liability provided
  613 +above cannot be given local legal effect according to their terms,
  614 +reviewing courts shall apply local law that most closely approximates
  615 +an absolute waiver of all civil liability in connection with the
  616 +Program, unless a warranty or assumption of liability accompanies a
  617 +copy of the Program in return for a fee.
  618 +
  619 + END OF TERMS AND CONDITIONS
  620 +
  621 + How to Apply These Terms to Your New Programs
  622 +
  623 + If you develop a new program, and you want it to be of the greatest
  624 +possible use to the public, the best way to achieve this is to make it
  625 +free software which everyone can redistribute and change under these terms.
  626 +
  627 + To do so, attach the following notices to the program. It is safest
  628 +to attach them to the start of each source file to most effectively
  629 +state the exclusion of warranty; and each file should have at least
  630 +the "copyright" line and a pointer to where the full notice is found.
  631 +
  632 + <one line to give the program's name and a brief idea of what it does.>
  633 + Copyright (C) <year> <name of author>
  634 +
  635 + This program is free software: you can redistribute it and/or modify
  636 + it under the terms of the GNU Affero General Public License as published
  637 + by the Free Software Foundation, either version 3 of the License, or
  638 + (at your option) any later version.
  639 +
  640 + This program is distributed in the hope that it will be useful,
  641 + but WITHOUT ANY WARRANTY; without even the implied warranty of
  642 + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  643 + GNU Affero General Public License for more details.
  644 +
  645 + You should have received a copy of the GNU Affero General Public License
  646 + along with this program. If not, see <http://www.gnu.org/licenses/>.
  647 +
  648 +Also add information on how to contact you by electronic and paper mail.
  649 +
  650 + If your software can interact with users remotely through a computer
  651 +network, you should also make sure that it provides a way for users to
  652 +get its source. For example, if your program is a web application, its
  653 +interface could display a "Source" link that leads users to an archive
  654 +of the code. There are many ways you could offer source, and different
  655 +solutions will be better for different programs; see section 13 for the
  656 +specific requirements.
  657 +
  658 + You should also get your employer (if you work as a programmer) or school,
  659 +if any, to sign a "copyright disclaimer" for the program, if necessary.
  660 +For more information on this, and how to apply and follow the GNU AGPL, see
  661 +<http://www.gnu.org/licenses/>.
... ...
README
... ... @@ -0,0 +1,43 @@
  1 +FAQTAG
  2 +==================
  3 +
  4 +Associates tags with faq categories, so that a simple link can be called to open it:
  5 +
  6 +/otrs/public.pl?Action=PublicRedirectFAQ;id=XXXX
  7 +
  8 +where XXXX is the tag of the faq category. Should be combined with an webserver url rewrite,
  9 +so that a url like:
  10 +
  11 +http://otrshost.com/faq/XXXX
  12 +
  13 +Redirects to the package URL (/otrs/public.pl?Action=PublicRedirectFAQ;id=XXXX)
  14 +
  15 +
  16 +Required PERL Packages:
  17 +-----------------------
  18 +
  19 +
  20 +Requires OTRS Packages:
  21 +-----------------------
  22 +
  23 +FAQ
  24 +
  25 +
  26 +Config required:
  27 +----------------
  28 +
  29 +Package building:
  30 +-----------------
  31 +
  32 +To build the package, do the following:
  33 +
  34 + cd dist
  35 + ./CreateOpm.sh
  36 +
  37 +The generated package will be on the same `dist` directory
  38 +
  39 +
  40 +Issues:
  41 +-------
  42 +
  43 +This module was developed in-house and thus is provided without warranty or support. If you have a problem, please open an issue at https://softwarepublico.gov.br/gitlab/setic-ufsc/otrs-faqtag/
0 44 \ No newline at end of file
... ...
src/FAQTag.sopm 0 → 100755
... ... @@ -0,0 +1,52 @@
  1 +<?xml version="1.0" encoding="utf-8" ?>
  2 +<otrs_package version="1.0">
  3 + <Name>FAQTag</Name>
  4 + <Version>1.5.0</Version>
  5 + <Vendor>SeTIC</Vendor>
  6 + <URL>http://setic.ufsc.br</URL>
  7 + <License>GNU GENERAL PUBLIC LICENSE Version 2, June 1991</License>
  8 + <ChangeLog Date="2013-03-19 9:17:53" Version="1.0">First version</ChangeLog>
  9 + <ChangeLog Date="2013-03-19 9:17:53" Version="1.2">Adjustments for OTRS 4.0.4.</ChangeLog>
  10 + <ChangeLog Date="2015-03-05" Version="1.3">Missing file.</ChangeLog>
  11 + <ChangeLog Date="2016-01-19" Version="1.4.0">Adjustments for OTRS 5.0.x.</ChangeLog>
  12 + <ChangeLog Date="2018-01-25" Version="1.5.0">Refactoring for OTRS 6.0.x, translations.</ChangeLog>
  13 + <Description>Tags for FAQ sections.</Description>
  14 + <Framework>6.0.x</Framework>
  15 + <IntroInstall Title="Installed!" Type="post">Module installed successfully.</IntroInstall>
  16 + <BuildDate>?</BuildDate>
  17 + <BuildHost>?</BuildHost>
  18 + <PackageRequired>FAQ</PackageRequired>
  19 +
  20 + <Filelist>
  21 + <File Location="Kernel/Modules/AgentFAQTagOverview.pm" Permission="644"/>
  22 + <File Location="Kernel/Modules/RedirectFAQ.pm" Permission="644"/>
  23 + <File Location="Kernel/Modules/PublicRedirectFAQ.pm" Permission="644"/>
  24 +
  25 + <File Location="Kernel/Language/pt_BR_AgentFAQTagOverview.pm" Permission="644"/>
  26 + <File Location="Kernel/Language/pt_BR_PublicRedirectFAQ.pm" Permission="644"/>
  27 + <File Location="Kernel/Language/pt_BR_RedirectFAQ.pm" Permission="644"/>
  28 +
  29 + <File Location="Kernel/Output/HTML/Templates/Standard/AgentFAQTagOverview.tt" Permission="644"/>
  30 + <File Location="Kernel/Output/HTML/Templates/Standard/AgentFAQTagAdd.tt" Permission="644"/>
  31 +
  32 + <File Location="Kernel/Config/Files/XML/FAQTag.xml" Permission="644"/>
  33 +
  34 + <File Location="Kernel/System/FAQTag.pm" Permission="644"/>
  35 + </Filelist>
  36 + <DatabaseInstall>
  37 + <TableCreate Name="faq_tag">
  38 + <Column AutoIncrement="true" Name="id" PrimaryKey="true" Required="true" Size="10" Type="INT"></Column>
  39 + <Column Name="category_id" Required="true" Size="10" Type="INT"></Column>
  40 + <Column Name="tag" Required="true" Size="20" Type="VARCHAR"></Column>
  41 + <Unique>
  42 + <UniqueColumn Name="category_id"></UniqueColumn>
  43 + </Unique>
  44 + <Unique>
  45 + <UniqueColumn Name="tag"></UniqueColumn>
  46 + </Unique>
  47 + <ForeignKey ForeignTable="faq_category">
  48 + <Reference Foreign="id" Local="category_id"/>
  49 + </ForeignKey>
  50 + </TableCreate>
  51 + </DatabaseInstall>
  52 +</otrs_package>
... ...
src/Kernel/Config/Files/XML/FAQTag.xml 0 → 100644
... ... @@ -0,0 +1,215 @@
  1 +<?xml version="1.0" encoding="iso-8859-1"?>
  2 +<otrs_config version="2.0" init="Application">
  3 + <Setting Name="Frontend::Module###AgentFAQTagOverview" Required="0" Valid="1">
  4 + <Description>Frontend module registration for the agent interface.</Description>
  5 + <Navigation>Frontend::Agent::ModuleRegistration</Navigation>
  6 + <Value>
  7 + <Item ValueType="FrontendRegistration">
  8 + <Hash>
  9 + <Item Key="Group">
  10 + <Array>
  11 + <Item>faq</Item>
  12 + </Array>
  13 + </Item>
  14 + <Item Key="GroupRo">
  15 + <Array>
  16 + <Item>faq</Item>
  17 + </Array>
  18 + </Item>
  19 + <Item Key="Title" Lang="en">FAQTag Overview</Item>
  20 + <Item Key="Title" Lang="pt_BR">FAQTag Overview</Item>
  21 + <Item Key="Description" Lang="pt_BR">Tags para categorias de FAQ</Item>
  22 + <Item Key="Description" Lang="en">FAQ category tags</Item>
  23 + <Item Key="NavBarName">FAQ</Item>
  24 + </Hash>
  25 + </Item>
  26 + </Value>
  27 + </Setting>
  28 + <Setting Name="Loader::Module::AgentFAQTagOverview###002-FAQTag" Required="0" Valid="1">
  29 + <Description >Loader module registration for the agent interface.</Description>
  30 + <Navigation>Frontend::Agent::ModuleRegistration::Loader</Navigation>
  31 + <Value>
  32 + <Hash>
  33 + </Hash>
  34 + </Value>
  35 + </Setting>
  36 + <Setting Name="Frontend::Navigation###AgentFAQTagOverview###002-FAQTag" Required="0" Valid="1">
  37 + <Description>Main menu item registration.</Description>
  38 + <Navigation>Frontend::Agent::ModuleRegistration::MainMenu</Navigation>
  39 + <Value>
  40 + <Array>
  41 + <DefaultItem ValueType="FrontendNavigation">
  42 + <Hash>
  43 + </Hash>
  44 + </DefaultItem>
  45 + <Item>
  46 + <Hash>
  47 + <Item Key="Group">
  48 + <Array>
  49 + <Item>faq</Item>
  50 + </Array>
  51 + </Item>
  52 + <Item Key="GroupRo">
  53 + <Array>
  54 + <Item>faq</Item>
  55 + </Array>
  56 + </Item>
  57 + <Item Key="Description" Lang="pt_BR">Tags para categorias de FAQ</Item>
  58 + <Item Key="Description" Lang="en">FAQ category tags</Item>
  59 + <Item Key="Name" Translatable="1">Tag</Item>
  60 + <Item Key="Link">Action=AgentFAQTagOverview;Subaction=overview</Item>
  61 + <Item Key="LinkOption"></Item>
  62 + <Item Key="NavBar">FAQ</Item>
  63 + <Item Key="Type"></Item>
  64 + <Item Key="Block"></Item>
  65 + <Item Key="AccessKey"></Item>
  66 + <Item Key="Prio">970</Item>
  67 + </Hash>
  68 + </Item>
  69 + </Array>
  70 + </Value>
  71 + </Setting>
  72 + <Setting Name="Frontend::Module###AgentFAQTagAdd" Required="1" Valid="1">
  73 + <Description>Frontend module registration for the agent interface.</Description>
  74 + <Navigation>Frontend::Agent::ModuleRegistration</Navigation>
  75 + <Value>
  76 + <Item ValueType="FrontendRegistration">
  77 + <Hash>
  78 + <Item Key="GroupRo">
  79 + <Array>
  80 + </Array>
  81 + </Item>
  82 + <Item Key="Title">FAQTag add</Item>
  83 + <Item Key="Group">
  84 + <Array>
  85 + <Item>faq</Item>
  86 + </Array>
  87 + </Item>
  88 + <Item Key="Description" Lang="en">Edit tags</Item>
  89 + <Item Key="Description" Lang="pt_BR">Editar tags</Item>
  90 + <Item Key="NavBarName">FAQ</Item>
  91 + </Hash>
  92 + </Item>
  93 + </Value>
  94 + </Setting>
  95 + <Setting Name="Frontend::Navigation###AgentFAQTagAdd###002-FAQTag" Required="0" Valid="0">
  96 + <Description>Main menu item registration.</Description>
  97 + <Navigation>Frontend::Agent::ModuleRegistration::MainMenu</Navigation>
  98 + <Value>
  99 + <Array>
  100 + <DefaultItem ValueType="FrontendNavigation">
  101 + <Hash>
  102 + </Hash>
  103 + </DefaultItem>
  104 + </Array>
  105 + </Value>
  106 + </Setting>
  107 + <Setting Name="Frontend::Module###RedirectFAQ" Required="1" Valid="1">
  108 + <Description>FAQ tag-category redirection</Description>
  109 + <Navigation>Frontend::Agent::ModuleRegistration</Navigation>
  110 + <Value>
  111 + <Item ValueType="FrontendRegistration">
  112 + <Hash>
  113 + <Item Key="GroupRo">
  114 + <Array>
  115 + </Array>
  116 + </Item>
  117 + <Item Key="Title">Redirecionar FAQ</Item>
  118 + <Item Key="Group">
  119 + <Array>
  120 + <Item>faq</Item>
  121 + </Array>
  122 + </Item>
  123 + <Item Key="Description" Lang="pt_BR">Redirecionamento da p&#xe1;gina de categoria da FAQ.</Item>
  124 + <Item Key="Description" Lang="en">FAQ category page redirect.</Item>
  125 + <Item Key="NavBarName">FAQ</Item>
  126 + </Hash>
  127 + </Item>
  128 + </Value>
  129 + </Setting>
  130 + <Setting Name="Frontend::Navigation###RedirectFAQ###002-FAQTag" Required="0" Valid="0">
  131 + <Description>Main menu item registration.</Description>
  132 + <Navigation>Frontend::Agent::ModuleRegistration::MainMenu</Navigation>
  133 + <Value>
  134 + <Array>
  135 + <DefaultItem ValueType="FrontendNavigation">
  136 + <Hash>
  137 + </Hash>
  138 + </DefaultItem>
  139 + </Array>
  140 + </Value>
  141 + </Setting>
  142 + <Setting Name="PublicFrontend::Module###PublicRedirectFAQ" Required="1" Valid="1">
  143 + <Description>Redirecionamento da p&#xe1;gina de categoria da FAQ.</Description>
  144 + <Navigation>Frontend::Public::ModuleRegistration</Navigation>
  145 + <Value>
  146 + <Item ValueType="FrontendRegistration">
  147 + <Hash>
  148 + <Item Key="Group">
  149 + <Array>
  150 + </Array>
  151 + </Item>
  152 + <Item Key="GroupRo">
  153 + <Array>
  154 + </Array>
  155 + </Item>
  156 + <Item Key="Title" Lang="en">FAQ redirect</Item>
  157 + <Item Key="Title" Lang="pt_BR">Redirecionar FAQ</Item>
  158 + <Item Key="Description" Lang="pt_BR">Redirecionamento da p&#xe1;gina de categoria da FAQ.</Item>
  159 + <Item Key="Description" Lang="en">FAQ category page redirect.</Item>
  160 + <Item Key="NavBarName">FAQ</Item>
  161 + </Hash>
  162 + </Item>
  163 + </Value>
  164 + </Setting>
  165 + <Setting Name="PublicFrontend::Navigation###PublicRedirectFAQ###002-FAQTag" Required="0" Valid="0">
  166 + <Description>Main menu item registration.</Description>
  167 + <Navigation>Frontend::Public::ModuleRegistration</Navigation>
  168 + <Value>
  169 + <Array>
  170 + <DefaultItem ValueType="FrontendNavigation">
  171 + <Hash>
  172 + </Hash>
  173 + </DefaultItem>
  174 + </Array>
  175 + </Value>
  176 + </Setting>
  177 +
  178 + <Setting Name="CustomerFrontend::Module###RedirectFAQ" Required="1" Valid="1">
  179 + <Description>Redirecionamento da p&#xe1;gina de categoria da FAQ.</Description>
  180 + <Navigation>Frontend::Customer::ModuleRegistration</Navigation>
  181 + <Value>
  182 + <Item ValueType="FrontendRegistration">
  183 + <Hash>
  184 + <Item Key="Group">
  185 + <Array>
  186 + </Array>
  187 + </Item>
  188 + <Item Key="GroupRo">
  189 + <Array>
  190 + </Array>
  191 + </Item>
  192 + <Item Key="Title" Lang="en">FAQ redirect</Item>
  193 + <Item Key="Title" Lang="pt_BR">Redirecionar FAQ</Item>
  194 + <Item Key="Description" Lang="pt_BR">Redirecionamento da p&#xe1;gina de categoria da FAQ.</Item>
  195 + <Item Key="Description" Lang="en">FAQ category page redirect.</Item>
  196 + <Item Key="NavBarName">FAQ</Item>
  197 + </Hash>
  198 + </Item>
  199 + </Value>
  200 + </Setting>
  201 + <Setting Name="CustomerFrontend::Navigation###RedirectFAQ###002-FAQTag" Required="0" Valid="0">
  202 + <Description>Main menu item registration.</Description>
  203 + <Navigation>Frontend::Customer::ModuleRegistration</Navigation>
  204 + <Value>
  205 + <Array>
  206 + <DefaultItem ValueType="FrontendNavigation">
  207 + <Hash>
  208 + </Hash>
  209 + </DefaultItem>
  210 + </Array>
  211 + </Value>
  212 + </Setting>
  213 +
  214 +
  215 +</otrs_config>
... ...
src/Kernel/Language/pt_BR_AgentFAQTagOverview.pm 0 → 100644
... ... @@ -0,0 +1,35 @@
  1 +# --
  2 +# Kernel/Modules/pt_BR_AgentFAQTagOverview.pm - frontend module for faq tag association
  3 +# Translations
  4 +#
  5 +# Copyright (C) 2018 - SeTIC - UFSC - http://setic.ufsc.br
  6 +# Rodrigo Goncalves - rodrigo.g@ufsc.br
  7 +#
  8 +# Version 2018-01-26 - Refactoring for OTRS 6
  9 +#
  10 +# --
  11 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  12 +# the enclosed file COPYING for license information (AGPL). If you
  13 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  14 +# --
  15 +package Kernel::Language::pt_BR_AgentFAQTagOverview;
  16 +
  17 +use strict;
  18 +use warnings;
  19 +use utf8;
  20 +
  21 +sub Data {
  22 + my $Self = shift;
  23 +
  24 + $Self->{Translation}->{'Tag'} = 'Tag';
  25 + $Self->{Translation}->{'Tags'} = 'Tags';
  26 + $Self->{Translation}->{'Set FAQ category tag'} = 'Definir tag da categoria da FAQ';
  27 + $Self->{Translation}->{'Edit tag'} = 'Editar tag';
  28 +
  29 + $Self->{Translation}->{'All FAQ categories and associated tags'} = 'Todas as categorias da FAQ com suas respectivas tags';
  30 +
  31 +
  32 +
  33 + return 1;
  34 +}
  35 +1;
0 36 \ No newline at end of file
... ...
src/Kernel/Language/pt_BR_PublicRedirectFAQ.pm 0 → 100644
... ... @@ -0,0 +1,29 @@
  1 +# --
  2 +# Kernel/Modules/pt_BR_PublicRedirectFAQ.pm - frontend module for faq tag association
  3 +# Translations
  4 +#
  5 +# Copyright (C) 2018 - SeTIC - UFSC - http://setic.ufsc.br
  6 +# Rodrigo Goncalves - rodrigo.g@ufsc.br
  7 +#
  8 +# Version 2018-01-26 - Refactoring for OTRS 6
  9 +#
  10 +# --
  11 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  12 +# the enclosed file COPYING for license information (AGPL). If you
  13 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  14 +# --
  15 +package Kernel::Language::pt_BR_PublicRedirectFAQ;
  16 +
  17 +use strict;
  18 +use warnings;
  19 +use utf8;
  20 +
  21 +sub Data {
  22 + my $Self = shift;
  23 +
  24 + $Self->{Translation}->{'A tag is required'} = 'Especifique a tag';
  25 + $Self->{Translation}->{'Invalid tag'} = 'Tag inválida';
  26 +
  27 + return 1;
  28 +}
  29 +1;
0 30 \ No newline at end of file
... ...
src/Kernel/Language/pt_BR_RedirectFAQ.pm 0 → 100644
... ... @@ -0,0 +1,29 @@
  1 +# --
  2 +# Kernel/Modules/pt_BR_RedirectFAQ.pm - frontend module for faq tag association
  3 +# Translations
  4 +#
  5 +# Copyright (C) 2018 - SeTIC - UFSC - http://setic.ufsc.br
  6 +# Rodrigo Goncalves - rodrigo.g@ufsc.br
  7 +#
  8 +# Version 2018-01-26 - Refactoring for OTRS 6
  9 +#
  10 +# --
  11 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  12 +# the enclosed file COPYING for license information (AGPL). If you
  13 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  14 +# --
  15 +package Kernel::Language::pt_BR_RedirectFAQ;
  16 +
  17 +use strict;
  18 +use warnings;
  19 +use utf8;
  20 +
  21 +sub Data {
  22 + my $Self = shift;
  23 +
  24 + $Self->{Translation}->{'A tag is required'} = 'Especifique a tag';
  25 + $Self->{Translation}->{'Invalid tag'} = 'Tag inválida';
  26 +
  27 + return 1;
  28 +}
  29 +1;
0 30 \ No newline at end of file
... ...
src/Kernel/Modules/AgentFAQTagOverview.pm 0 → 100755
... ... @@ -0,0 +1,153 @@
  1 +# --
  2 +# Kernel/Modules/AgentFAQTagOverview.pm - frontend module editing FAQ tags
  3 +# Copyright (C) 2014 (Rodrigo Goncalves) (rodrigo.g@ufsc.br)
  4 +# --
  5 +#
  6 +# (C) 2014,2015 - SeTIC - UFSC - http://setic.ufsc.br/
  7 +# Rodrigo Goncalves (rodrigo.g@ufsc.br)
  8 +#
  9 +# Version 29/01/2015 - RG - Adjustments for OTRS 4.0.4
  10 +# Version 2018-01-26 - Adjustments for OTRS 6
  11 +#
  12 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  13 +# the enclosed file COPYING for license information (AGPL). If you
  14 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  15 +# --
  16 +package Kernel::Modules::AgentFAQTagOverview;
  17 +
  18 +use strict;
  19 +require warnings;
  20 +
  21 +our @ObjectDependencies = (
  22 +"Kernel::System::Web::Request", # OLD ParamObject
  23 +"Kernel::Output::HTML::Layout",
  24 +"Kernel::System::FAQ",
  25 +"Kernel::System::FAQTag"
  26 +);
  27 +
  28 +sub new {
  29 + my ( $Type, %Param ) = @_;
  30 +
  31 + # allocate new hash for object
  32 + my $Self = {%Param};
  33 + bless( $Self, $Type );
  34 +
  35 + return $Self;
  36 +}
  37 +
  38 +sub Run {
  39 + my ( $Self, %Param ) = @_;
  40 + my %Data = ();
  41 +
  42 + my $paramObject = $Kernel::OM->Get("Kernel::System::Web::Request");
  43 + my $faqObject = $Kernel::OM->Get("Kernel::System::FAQ");
  44 + my $faqTagObject = $Kernel::OM->Get("Kernel::System::FAQTag");
  45 + my $layoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout");
  46 + my $languageObject = $Kernel::OM->Get("Kernel::Language");
  47 +
  48 + my $SubAction = $paramObject->GetParam( Param => 'Subaction' );
  49 +
  50 + if ( $SubAction eq "overview" ) {
  51 +
  52 + # get all categories with their long names
  53 + my $CategoryTree = $faqObject->CategoryTreeList(
  54 + Valid => 1,
  55 + UserID => $Self->{UserID},
  56 + );
  57 +
  58 + # get all categories tags
  59 + my $Tags = $faqTagObject->TagList();
  60 +
  61 + # if there are any categories, they are shown
  62 + if ( $CategoryTree && ref $CategoryTree eq 'HASH' && %{$CategoryTree} ) {
  63 +
  64 + my @CategoryIDsSorted = sort { $CategoryTree->{$a} cmp $CategoryTree->{$b} } keys %{$CategoryTree};
  65 +
  66 + # show all categories
  67 + for my $CategoryID (@CategoryIDsSorted) {
  68 +
  69 + # get category data
  70 + my %CategoryData = ();
  71 +
  72 + # overwrite the name with the long name
  73 + $CategoryData{Name} = $CategoryTree->{$CategoryID};
  74 + $CategoryData{Tag} = $Tags->{$CategoryID};
  75 + $CategoryData{CategoryID} = $CategoryID;
  76 +
  77 + if ($CategoryData{Tag}) {
  78 + $CategoryData{ShowDelete} = "visibility: visible"
  79 + } else {
  80 + $CategoryData{ShowDelete} = "visibility: hidden"
  81 + }
  82 +
  83 + # output the category data
  84 + $layoutObject->Block(
  85 + Name => 'OverviewResultRow',
  86 + Data => {%CategoryData},
  87 + );
  88 + }
  89 + }
  90 +
  91 + my $Output = $layoutObject->Header( Title => $languageObject->Translate("Tags") );
  92 + $Output .= $layoutObject->NavigationBar();
  93 + $Output .= $layoutObject->Output(
  94 + Data => \%Data,
  95 + TemplateFile => 'AgentFAQTagOverview',
  96 + );
  97 + $Output .= $layoutObject->Footer();
  98 + return $Output;
  99 + }
  100 + elsif ( $SubAction eq "CreateUpdate" ) {
  101 + my $CategoryID = $paramObject->GetParam( Param => "CategoryID" );
  102 +
  103 + # get all categories with their long names
  104 + my $CategoryTree = $faqObject->CategoryTreeList(
  105 + Valid => 1,
  106 + UserID => $Self->{UserID},
  107 + );
  108 +
  109 + # get all categories tags
  110 + my $Tags = $faqTagObject->TagList();
  111 +
  112 + $Data{Tag} = $Tags->{$CategoryID};
  113 + $Data{CategoryID} = $CategoryID;
  114 + $Data{CategoryName} = $CategoryTree->{$CategoryID};
  115 +
  116 + my $Output = $layoutObject->Header( Title => $languageObject->Translate("Set FAQ category tag") );
  117 + $Output .= $layoutObject->NavigationBar();
  118 + $Output .= $layoutObject->Output(
  119 + Data => \%Data,
  120 + TemplateFile => 'AgentFAQTagAdd',
  121 + );
  122 + $Output .= $layoutObject->Footer();
  123 + return $Output;
  124 + }
  125 + elsif ( $SubAction eq "AddUpdate" ) {
  126 + my $CategoryID = $paramObject->GetParam( Param => "CategoryID" );
  127 + my $Tag = $paramObject->GetParam( Param => "Tag" );
  128 +
  129 + if (! $Tag) {
  130 + $faqTagObject->DeleteTag(CategoryID => $paramObject->GetParam( Param => "CategoryID" ) );
  131 + return $layoutObject->Redirect( OP => 'Action=AgentFAQTagOverview&Subaction=overview' );
  132 + } elsif ( !$faqTagObject->AddUpdate( CategoryID => $CategoryID, Tag => $Tag ) ) {
  133 + $Data{MensagemErro} = "Tag já existente";
  134 + $Data{Tag} = $Tag;
  135 + $Data{CategoryID} = $CategoryID;
  136 +
  137 + my $Output = $layoutObject->Header( Title => $languageObject->Translate("Set FAQ category tag") );
  138 + $Output .= $layoutObject->NavigationBar();
  139 + $Output .= $layoutObject->Output(
  140 + Data => \%Data,
  141 + TemplateFile => 'AgentFAQTagAdd',
  142 + );
  143 + $Output .= $layoutObject->Footer();
  144 + return $Output;
  145 + }
  146 + else {
  147 + return $layoutObject->Redirect( OP => 'Action=AgentFAQTagOverview&Subaction=overview' )
  148 + ;
  149 + }
  150 + }
  151 +}
  152 +
  153 +1;
... ...
src/Kernel/Modules/PublicRedirectFAQ.pm 0 → 100755
... ... @@ -0,0 +1,71 @@
  1 +# --
  2 +# Kernel/Modules/PublicRedirectFAQ.pm - module to redirect FAQ
  3 +#
  4 +# (C) 2014-2018 - SeTIC - UFSC - http://setic.ufsc.br/
  5 +# Rodrigo Goncalves (rodrigo.g@ufsc.br)
  6 +#
  7 +# Version 29/01/2015 - RG - Adjustments for OTRS 4.0.4
  8 +# Version 2018-01-26 - Adjustments for OTRS 6
  9 +#
  10 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  11 +# the enclosed file COPYING for license information (AGPL). If you
  12 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  13 +# --
  14 +package Kernel::Modules::PublicRedirectFAQ;
  15 +
  16 +use strict;
  17 +use warnings;
  18 +
  19 +our @ObjectDependencies = (
  20 +"Kernel::System::Web::Request",
  21 +"Kernel::Output::HTML::Layout",
  22 +"Kernel::System::DB");
  23 +
  24 +sub new {
  25 + my ( $Type, %Param ) = @_;
  26 +
  27 + # allocate new hash for object
  28 + my $Self = {%Param};
  29 + bless ($Self, $Type);
  30 +
  31 + return $Self;
  32 +}
  33 +
  34 +sub Run {
  35 + my ( $Self, %Param ) = @_;
  36 + my %Data = ();
  37 +
  38 + my $paramObject = $Kernel::OM->Get("Kernel::System::Web::Request");
  39 + my $layoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout");
  40 + my $languageObject = $Kernel::OM->Get("Kernel::Language");
  41 +
  42 + my $Tag = $paramObject->GetParam( Param => 'id' );
  43 + if(!$Tag){
  44 + $layoutObject->FatalError( Message => $languageObject->Translate("A tag is required") );
  45 + }
  46 +
  47 + my $Id = $Self->_GetCategoryID(tag => "$Tag");
  48 + if(!$Id){
  49 + $layoutObject->FatalError( Message => $languageObject->Translate("Invalid tag") );
  50 + }
  51 +
  52 + return $layoutObject->Redirect( ExtURL => 'public.pl?Action=PublicFAQExplorer;CategoryID='.$Id, );
  53 +
  54 +}
  55 +
  56 +sub _GetCategoryID {
  57 +
  58 + my ( $Self, %Param ) = @_;
  59 +
  60 + my $dbObject = $Kernel::OM->Get("Kernel::System::DB");
  61 +
  62 + $dbObject->Prepare(
  63 + SQL => "select category_id from faq_tag where tag = '$Param{tag}'",
  64 + );
  65 + my $ID;
  66 + while (my @Row = $dbObject->FetchrowArray()) {
  67 + $ID = $Row[0];
  68 + }
  69 + return $ID;
  70 +}
  71 +1;
... ...
src/Kernel/Modules/RedirectFAQ.pm 0 → 100755
... ... @@ -0,0 +1,74 @@
  1 +# --
  2 +# Kernel/Modules/RedirectFAQ.pm - module to redirect FAQ
  3 +#
  4 +# (C) 2014-2018 - SeTIC - UFSC - http://setic.ufsc.br/
  5 +# Rodrigo Goncalves (rodrigo.g@ufsc.br)
  6 +#
  7 +#
  8 +# Version 29/01/2015 - RG - Adjustments for OTRS 4.0.4
  9 +# Version 2018-01-26 - Adjustments for OTRS 6
  10 +#
  11 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  12 +# the enclosed file COPYING for license information (AGPL). If you
  13 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  14 +# --
  15 +package Kernel::Modules::RedirectFAQ;
  16 +
  17 +use strict;
  18 +use warnings;
  19 +
  20 +our @ObjectDependencies = (
  21 +"Kernel::System::Web::Request",
  22 +"Kernel::Output::HTML::Layout",
  23 +"Kernel::System::DB");
  24 +
  25 +
  26 +sub new {
  27 + my ( $Type, %Param ) = @_;
  28 +
  29 + # allocate new hash for object
  30 + my $Self = {%Param};
  31 + bless ($Self, $Type);
  32 +
  33 + return $Self;
  34 +}
  35 +
  36 +sub Run {
  37 + my ( $Self, %Param ) = @_;
  38 + my %Data = ();
  39 +
  40 + my $paramObject = $Kernel::OM->Get("Kernel::System::Web::Request");
  41 + my $layoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout");
  42 + my $languageObject = $Kernel::OM->Get("Kernel::Language");
  43 +
  44 + my $Tag = $paramObject->GetParam( Param => 'id' );
  45 + if(!$Tag){
  46 + $layoutObject->FatalError( Message => $languageObject->Translate("A tag is required") );
  47 + }
  48 +
  49 + my $Id = $Self->_GetCategoryID(tag => "$Tag");
  50 + if(!$Id){
  51 + $layoutObject->FatalError( Message => $languageObject->Translate("Invalid tag") );
  52 + }
  53 +
  54 + return $layoutObject->Redirect( OP => 'Action=CustomerFAQExplorer;CategoryID='.$Id, );
  55 +
  56 +}
  57 +
  58 +sub _GetCategoryID {
  59 +
  60 + my ( $Self, %Param ) = @_;
  61 +
  62 + my $dbObject = $Kernel::OM->Get("Kernel::System::DB");
  63 +
  64 + $dbObject->Prepare(
  65 + SQL => "select category_id from faq_tag where tag = '$Param{tag}'",
  66 + );
  67 + my $ID;
  68 + while (my @Row = $dbObject->FetchrowArray()) {
  69 + $ID = $Row[0];
  70 + }
  71 + return $ID;
  72 +
  73 +}
  74 +1;
... ...
src/Kernel/Output/HTML/Templates/Standard/AgentFAQTagAdd.tt 0 → 100644
... ... @@ -0,0 +1,77 @@
  1 +# --
  2 +# AgentFAQTagAdd.tt - provides HTML for AgentFAQTagAdd
  3 +#
  4 +# Copyright (C) 2014-2018 SeTIC - UFSC - http://setic.ufsc.br/
  5 +# Rodrigo Goncalves - rodrigo.g@ufsc.br
  6 +#
  7 +# Version 2018-01-25 - Refactoring for OTRS 6
  8 +#
  9 +#
  10 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  11 +# the enclosed file COPYING for license information (AGPL). If you
  12 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  13 +# --
  14 +#
  15 +<div class="MainBox ARIARoleMain LayoutFixedSidebar SidebarFirst"><h1>[% Translate("Tags") | html %]</h1>
  16 +
  17 + [% BreadcrumbPath = [
  18 + {
  19 + Name => Translate('Tags'),
  20 + Link => Env("Action"),
  21 + },
  22 + ]
  23 + %]
  24 + [% INCLUDE "Breadcrumb.tt" Path = BreadcrumbPath %]
  25 +</div>
  26 +
  27 +
  28 +<div class="Content">
  29 + <form name="input" action="[% Env("CGIHandle") %]" method="post">
  30 + <input type="hidden" name="Action" value="[% Env("Action") %]" />
  31 + <input type="hidden" name="Subaction" value="AddUpdate" />
  32 + <div class="MainBox ARIARoleMain LayoutFixedSidebar SidebarFirst">
  33 + <h1>[% Translate("Tags") | html %]</h1>
  34 + <div class="SidebarColumn">
  35 + <div class="WidgetSimple">
  36 + <div class="Header">
  37 + <h2>[% Translate("Actions") | html %]</h2>
  38 + </div>
  39 + <div class="Content">
  40 + <ul class="ActionList">
  41 + <li>
  42 + <a href="[% Env("Baselink") %]Action=AgentFAQTagOverview&Subaction=overview" class="CallForAction"><span>[% Translate("Go to overview") | html %]</span></a>
  43 + </li>
  44 + </ul>
  45 + </div>
  46 + </div>
  47 + </div>
  48 + <div class="ContentColumn">
  49 + <div class="WidgetSimple">
  50 + <div class="Header">
  51 + <h2>[% Translate("Edit tag") | html %]: [% Data.CategoryName | html %]</h2>
  52 + </div>
  53 + <div class="Content SpacingBottom">
  54 + <fieldset class="TableLike">
  55 +
  56 + <label class="Mandatory" for="tag" ><span class="Marker">*</span> Tag:</label>
  57 + <div class="Field">
  58 + <input type="hidden" id="CategoryID" name="CategoryID" value="[% Data.CategoryID | html %]"/>
  59 + <input type="hidden" id="Update" name="Update" value="[% Data.Update | html %]"/>
  60 + <input type="text" id="Tag" name="Tag" class="W50pc Validate_Required " length="15" value="[% Data.Tag | html %]"/>
  61 + </div>
  62 + [% Data.MensagemErro | html %]
  63 + <div class="Clear"></div>
  64 + <div class="Field SpacingTop">
  65 + <button class="Primary" type="submit">[% Translate("Submit") | html %]</button>
  66 + [% Translate("or") | html %]
  67 + <a href="/otrs/index.pl?Action=AgentFAQTagOverview">[% Translate("Cancel") | html %]</a>
  68 + </div>
  69 + <div class="Clear"></div>
  70 +
  71 + </fieldset>
  72 + </div>
  73 + </div>
  74 + </div>
  75 + </div>
  76 + </form>
  77 +</div>
0 78 \ No newline at end of file
... ...
src/Kernel/Output/HTML/Templates/Standard/AgentFAQTagOverview.tt 0 → 100644
... ... @@ -0,0 +1,57 @@
  1 +# --
  2 +# AgentFAQTagAdd.tt - provides HTML for AgentFAQTagAdd
  3 +#
  4 +# Copyright (C) 2014-2018 SeTIC - UFSC - http://setic.ufsc.br/
  5 +# Rodrigo Goncalves - rodrigo.g@ufsc.br
  6 +#
  7 +# Version 2018-01-25 - Refactoring for OTRS 6
  8 +#
  9 +#
  10 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  11 +# the enclosed file COPYING for license information (AGPL). If you
  12 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  13 +# --
  14 +#
  15 +<div class="MainBox ARIARoleMain LayoutFixedSidebar SidebarFirst"><h1>[% Translate("Tags") | html %]</h1>
  16 +
  17 + [% BreadcrumbPath = [
  18 + {
  19 + Name => Translate('Tags'),
  20 + Link => Env("Action"),
  21 + },
  22 + ]
  23 + %]
  24 + [% INCLUDE "Breadcrumb.tt" Path = BreadcrumbPath %]
  25 +
  26 + <div class="ContentColumn">
  27 + <div class="WidgetSimple">
  28 + <div class="Header">
  29 + <h2>Lista</h2>
  30 + </div>
  31 + <div class="Content SpacingBottom">
  32 + <table class="DataTable SpacingTop">
  33 + <thead>
  34 + <tr>
  35 + <th><center>[% Translate("Category") | html %]</center></th>
  36 + <th><center>[% Translate("Tag") | html %]</center></th>
  37 + <th><center>[% Translate("Options") | html %]</center></th>
  38 + </tr>
  39 + </thead>
  40 + <tbody>
  41 +[% RenderBlockStart("OverviewResultRow") %]
  42 + <tr>
  43 + <td>[% Data.Name | html %]</td>
  44 + <td><center>[% Data.Tag | html %]</center></td>
  45 + <td>
  46 + <center>
  47 + <a href='[% Env("Baselink") %]Action=AgentFAQTagOverview&Subaction=CreateUpdate&CategoryID=[% Data.CategoryID | html %]' class="CallForAction"><span>[% Translate("Alterar Tag") | html %]</span></a>
  48 + </center>
  49 + </td>
  50 + </tr>
  51 +[% RenderBlockEnd("OverviewResultRow") %]
  52 + </tbody>
  53 + </table>
  54 + </div>
  55 + </div>
  56 + </div>
  57 +</div>
0 58 \ No newline at end of file
... ...
src/Kernel/System/FAQTag.pm 0 → 100644
... ... @@ -0,0 +1,250 @@
  1 +# --
  2 +# Kernel/System/FAQTag.pm - core module
  3 +# Manages Tags for FAQ categories
  4 +#
  5 +# Copyright (C) 2014-2018 SeTIC - UFSC - http://setic.ufsc.br/
  6 +# Rodrigo Goncalves - rodrigo.g@ufsc.br
  7 +#
  8 +# Version 29/01/2015 - RG - Adjustments for OTRS 4.0.4
  9 +# Version 2018-01-25 - Refactoring for OTRS 6
  10 +#
  11 +# This software comes with ABSOLUTELY NO WARRANTY. For details, see
  12 +# the enclosed file COPYING for license information (AGPL). If you
  13 +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
  14 +#
  15 +package Kernel::System::FAQTag;
  16 +
  17 +use strict;
  18 +use warnings;
  19 +use Data::Dumper;
  20 +
  21 +our @ObjectDependencies = (
  22 +"Kernel::System::Web::Request",
  23 +"Kernel::Output::HTML::Layout",
  24 +"Kernel::System::DB");
  25 +
  26 +
  27 +sub new {
  28 + my ( $Type, %Param ) = @_;
  29 +
  30 + # allocate new hash for object
  31 + my $Self = {%Param};
  32 + bless( $Self, $Type );
  33 +
  34 + if (! $Self->{TableName}) {
  35 + $Self->{TableName} = "faq_tag";
  36 + }
  37 +
  38 + return $Self;
  39 +}
  40 +
  41 +=item AddUpdate()
  42 +
  43 +Adds/updates a category Tag
  44 +
  45 + my $True = $FAQTagObject->FAQTagAddUpdate(
  46 + CategoryID => Category ID,
  47 + Tag => Tag to associate/update
  48 + );
  49 +
  50 +=cut
  51 +sub AddUpdate {
  52 +
  53 + my ( $Self, %Param ) = @_;
  54 +
  55 + for (qw(CategoryID Tag)) {
  56 + if ( !$Param{$_} ) {
  57 + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
  58 + return 0;
  59 + }
  60 + }
  61 +
  62 + if ($Self->DuplicatedTag(%Param)) {
  63 + return 0;
  64 + } else {
  65 +
  66 + if ($Self->HasTag(CategoryID => $Param{CategoryID})) {
  67 + return $Self->UpdateTag(%Param);
  68 + } else {
  69 + return $Self->AddTag(%Param);
  70 + }
  71 + }
  72 +
  73 +}
  74 +
  75 +=item HasTag()
  76 +
  77 +Checks if category already has a class
  78 +
  79 + my $True = $FAQTagObject->HasTag(
  80 + CategoryID => Category ID,
  81 + );
  82 +
  83 +=cut
  84 +sub HasTag {
  85 +
  86 + my ( $Self, %Param ) = @_;
  87 +
  88 + for (qw(CategoryID)) {
  89 + if ( !$Param{$_} ) {
  90 + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
  91 + return 0;
  92 + }
  93 + }
  94 +
  95 + $Kernel::OM->Get("Kernel::System::DB")->Prepare(
  96 + SQL => "SELECT id FROM " . $Self->{TableName} . " WHERE category_id = ?",
  97 + Bind => [ \$Param{CategoryID} ],
  98 + Limit => 1,
  99 + );
  100 +
  101 + # Returns true if another category has the same tag
  102 + return $Kernel::OM->Get("Kernel::System::DB")->FetchrowArray();
  103 +}
  104 +
  105 +
  106 +=item UpdateTag()
  107 +
  108 +Updates a category Tag
  109 +
  110 + my $True = $FAQTagObject->UpdateTag(
  111 + CategoryID => Category ID,
  112 + Tag => Tag to associate
  113 + );
  114 +
  115 +=cut
  116 +sub UpdateTag {
  117 +
  118 + my ( $Self, %Param ) = @_;
  119 +
  120 + for (qw(CategoryID Tag)) {
  121 + if ( !$Param{$_} ) {
  122 + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
  123 + return 0;
  124 + }
  125 + }
  126 +
  127 + $Kernel::OM->Get("Kernel::System::DB")->Do(
  128 + SQL => "UPDATE " . $Self->{TableName} . " SET tag=? WHERE category_id=?",
  129 + Bind => [ \$Param{Tag}, \$Param{CategoryID} ]
  130 + );
  131 +
  132 +}
  133 +
  134 +=item AddTag()
  135 +
  136 +Adds a category Tag
  137 +
  138 + my $True = $FAQTagObject->AddTag(
  139 + CategoryID => Category ID,
  140 + Tag => Tag to associate
  141 + );
  142 +
  143 +=cut
  144 +sub AddTag {
  145 +
  146 + my ( $Self, %Param ) = @_;
  147 +
  148 + for (qw(CategoryID Tag)) {
  149 + if ( !$Param{$_} ) {
  150 + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
  151 + return 0;
  152 + }
  153 + }
  154 +
  155 + $Kernel::OM->Get("Kernel::System::DB")->Do(
  156 + SQL => "INSERT INTO " . $Self->{TableName} . " (tag,category_id) VALUES (?,?)",
  157 + Bind => [ \$Param{Tag}, \$Param{CategoryID} ]
  158 + );
  159 +
  160 +}
  161 +
  162 +=item DeleteTag()
  163 +
  164 +Deletes a category Tag
  165 +
  166 + my $True = $FAQTagObject->DeleteTag(
  167 + CategoryID => Category ID
  168 + );
  169 +
  170 +=cut
  171 +sub DeleteTag {
  172 +
  173 + my ( $Self, %Param ) = @_;
  174 +
  175 + for (qw(CategoryID)) {
  176 + if ( !$Param{$_} ) {
  177 + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
  178 + return 0;
  179 + }
  180 + }
  181 +
  182 + $Kernel::OM->Get("Kernel::System::DB")->Do(
  183 + SQL => "DELETE FROM " . $Self->{TableName} . " WHERE category_id=?",
  184 + Bind => [ \$Param{CategoryID} ]
  185 + );
  186 +
  187 +}
  188 +
  189 +=item DuplicatedTag()
  190 +
  191 +Checks if another category has the given tag
  192 +
  193 + my $True = $FAQTagObject->DuplicatedTag(
  194 + CategoryID => Category ID,
  195 + Tag => Tag to associate/update
  196 + );
  197 +
  198 +=cut
  199 +sub DuplicatedTag {
  200 +
  201 + my ( $Self, %Param ) = @_;
  202 +
  203 + for (qw(CategoryID Tag)) {
  204 + if ( !$Param{$_} ) {
  205 + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
  206 + return 0;
  207 + }
  208 + }
  209 +
  210 + $Kernel::OM->Get("Kernel::System::DB")->Prepare(
  211 + SQL => "SELECT id FROM " . $Self->{TableName} . " WHERE tag = ? AND category_id <> ?",
  212 + Bind => [ \$Param{Tag}, \$Param{CategoryID} ],
  213 + Limit => 1,
  214 + );
  215 +
  216 + # Returns true if another category has the same tag
  217 + return $Kernel::OM->Get("Kernel::System::DB")->FetchrowArray();
  218 +
  219 +}
  220 +
  221 +=item TagList()
  222 +
  223 +Get list of tags, in a map associated by category ID
  224 +
  225 + my %{key category_id}{tag} = $FAQTagObject->GetTagList();
  226 +
  227 +=cut
  228 +sub TagList {
  229 + my ( $Self, %Param ) = @_;
  230 + my %result = ();
  231 +
  232 + $Kernel::OM->Get("Kernel::System::DB")->Prepare(
  233 + SQL => "
  234 + select
  235 + a.category_id category_id,
  236 + a.tag tag
  237 + from
  238 + " . $Self->{TableName} . " a
  239 + order by
  240 + a.category_id asc",
  241 + );
  242 +
  243 + while ( my @row = $Kernel::OM->Get("Kernel::System::DB")->FetchrowArray() ) {
  244 + $result{ $row[0] } = $row[1];
  245 + }
  246 +
  247 + return \%result;
  248 +}
  249 +
  250 +1;
... ...