commit cbf04e6cc9b2c18eef0291d44920a12ce1860071 Author: data Date: Thu Feb 19 16:59:19 2026 +0100 FileArchiv: Tile/Gallery view with toggle buttons - Added formObjectOptions hook for document pages - CSS/JS injected via DOMContentLoaded for proper timing - Toggle between list and tile view (localStorage persisted) - Lightbox for image gallery with keyboard navigation - Fixed hook contexts (productdocuments, invoicedocuments, etc.) Co-Authored-By: Claude Opus 4.5 diff --git a/COPYING b/COPYING new file mode 100755 index 0000000..94a0453 --- /dev/null +++ b/COPYING @@ -0,0 +1,621 @@ + GNU GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 + + Copyright (C) 2007 Free Software Foundation, Inc. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The GNU General Public License is a free, copyleft license for +software and other kinds of works. + + The licenses for most software and other practical works are designed +to take away your freedom to share and change the works. By contrast, +the GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program--to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +them if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new +free programs, and that you know you can do these things. + + To protect your rights, we need to prevent others from denying you +these rights or asking you to surrender the rights. Therefore, you have +certain responsibilities if you distribute copies of the software, or if +you modify it: responsibilities to respect the freedom of others. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must pass on to the recipients the same +freedoms that you received. You must make sure that they, too, receive +or can get the source code. And you must show them these terms so they +know their rights. + + Developers that use the GNU GPL protect your rights with two steps: +(1) assert copyright on the software, and (2) offer you this License +giving you legal permission to copy, distribute and/or modify it. + + For the developers' and authors' protection, the GPL clearly explains +that there is no warranty for this free software. For both users' and +authors' sake, the GPL requires that modified versions be marked as +changed, so that their problems will not be attributed erroneously to +authors of previous versions. + + Some devices are designed to deny users access to install or run +modified versions of the software inside them, although the manufacturer +can do so. This is fundamentally incompatible with the aim of +protecting users' freedom to change the software. The systematic +pattern of such abuse occurs in the area of products for individuals to +use, which is precisely where it is most unacceptable. Therefore, we +have designed this version of the GPL to prohibit the practice for those +products. If such problems arise substantially in other domains, we +stand ready to extend this provision to those domains in future versions +of the GPL, as needed to protect the freedom of users. + + Finally, every program is threatened constantly by software patents. +States should not allow patents to restrict development and use of +software on general-purpose computers, but in those that do, we wish to +avoid the special danger that patents applied to a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. + + The precise terms and conditions for copying, distribution and +modification follow. + + TERMS AND CONDITIONS + + 0. Definitions. + + "This License" refers to version 3 of the GNU General Public License. + + "Copyright" also means copyright-like laws that apply to other kinds of +works, such as semiconductor masks. + + "The Program" refers to any copyrightable work licensed under this +License. Each licensee is addressed as "you". "Licensees" and +"recipients" may be individuals or organizations. + + To "modify" a work means to copy from or adapt all or part of the work +in a fashion requiring copyright permission, other than the making of an +exact copy. The resulting work is called a "modified version" of the +earlier work or a work "based on" the earlier work. + + A "covered work" means either the unmodified Program or a work based +on the Program. + + To "propagate" a work means to do anything with it that, without +permission, would make you directly or secondarily liable for +infringement under applicable copyright law, except executing it on a +computer or modifying a private copy. Propagation includes copying, +distribution (with or without modification), making available to the +public, and in some countries other activities as well. + + To "convey" a work means any kind of propagation that enables other +parties to make or receive copies. Mere interaction with a user through +a computer network, with no transfer of a copy, is not conveying. + + An interactive user interface displays "Appropriate Legal Notices" +to the extent that it includes a convenient and prominently visible +feature that (1) displays an appropriate copyright notice, and (2) +tells the user that there is no warranty for the work (except to the +extent that warranties are provided), that licensees may convey the +work under this License, and how to view a copy of this License. If +the interface presents a list of user commands or options, such as a +menu, a prominent item in the list meets this criterion. + + 1. Source Code. + + The "source code" for a work means the preferred form of the work +for making modifications to it. "Object code" means any non-source +form of a work. + + A "Standard Interface" means an interface that either is an official +standard defined by a recognized standards body, or, in the case of +interfaces specified for a particular programming language, one that +is widely used among developers working in that language. + + The "System Libraries" of an executable work include anything, other +than the work as a whole, that (a) is included in the normal form of +packaging a Major Component, but which is not part of that Major +Component, and (b) serves only to enable use of the work with that +Major Component, or to implement a Standard Interface for which an +implementation is available to the public in source code form. A +"Major Component", in this context, means a major essential component +(kernel, window system, and so on) of the specific operating system +(if any) on which the executable work runs, or a compiler used to +produce the work, or an object code interpreter used to run it. + + The "Corresponding Source" for a work in object code form means all +the source code needed to generate, install, and (for an executable +work) run the object code and to modify the work, including scripts to +control those activities. However, it does not include the work's +System Libraries, or general-purpose tools or generally available free +programs which are used unmodified in performing those activities but +which are not part of the work. For example, Corresponding Source +includes interface definition files associated with source files for +the work, and the source code for shared libraries and dynamically +linked subprograms that the work is specifically designed to require, +such as by intimate data communication or control flow between those +subprograms and other parts of the work. + + The Corresponding Source need not include anything that users +can regenerate automatically from other parts of the Corresponding +Source. + + The Corresponding Source for a work in source code form is that +same work. + + 2. Basic Permissions. + + All rights granted under this License are granted for the term of +copyright on the Program, and are irrevocable provided the stated +conditions are met. This License explicitly affirms your unlimited +permission to run the unmodified Program. The output from running a +covered work is covered by this License only if the output, given its +content, constitutes a covered work. This License acknowledges your +rights of fair use or other equivalent, as provided by copyright law. + + You may make, run and propagate covered works that you do not +convey, without conditions so long as your license otherwise remains +in force. You may convey covered works to others for the sole purpose +of having them make modifications exclusively for you, or provide you +with facilities for running those works, provided that you comply with +the terms of this License in conveying all material for which you do +not control copyright. Those thus making or running the covered works +for you must do so exclusively on your behalf, under your direction +and control, on terms that prohibit them from making any copies of +your copyrighted material outside their relationship with you. + + Conveying under any other circumstances is permitted solely under +the conditions stated below. Sublicensing is not allowed; section 10 +makes it unnecessary. + + 3. Protecting Users' Legal Rights From Anti-Circumvention Law. + + No covered work shall be deemed part of an effective technological +measure under any applicable law fulfilling obligations under article +11 of the WIPO copyright treaty adopted on 20 December 1996, or +similar laws prohibiting or restricting circumvention of such +measures. + + When you convey a covered work, you waive any legal power to forbid +circumvention of technological measures to the extent such circumvention +is effected by exercising rights under this License with respect to +the covered work, and you disclaim any intention to limit operation or +modification of the work as a means of enforcing, against the work's +users, your or third parties' legal rights to forbid circumvention of +technological measures. + + 4. Conveying Verbatim Copies. + + You may convey verbatim copies of the Program's source code as you +receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice; +keep intact all notices stating that this License and any +non-permissive terms added in accord with section 7 apply to the code; +keep intact all notices of the absence of any warranty; and give all +recipients a copy of this License along with the Program. + + You may charge any price or no price for each copy that you convey, +and you may offer support or warranty protection for a fee. + + 5. Conveying Modified Source Versions. + + You may convey a work based on the Program, or the modifications to +produce it from the Program, in the form of source code under the +terms of section 4, provided that you also meet all of these conditions: + + a) The work must carry prominent notices stating that you modified + it, and giving a relevant date. + + b) The work must carry prominent notices stating that it is + released under this License and any conditions added under section + 7. This requirement modifies the requirement in section 4 to + "keep intact all notices". + + c) You must license the entire work, as a whole, under this + License to anyone who comes into possession of a copy. This + License will therefore apply, along with any applicable section 7 + additional terms, to the whole of the work, and all its parts, + regardless of how they are packaged. This License gives no + permission to license the work in any other way, but it does not + invalidate such permission if you have separately received it. + + d) If the work has interactive user interfaces, each must display + Appropriate Legal Notices; however, if the Program has interactive + interfaces that do not display Appropriate Legal Notices, your + work need not make them do so. + + A compilation of a covered work with other separate and independent +works, which are not by their nature extensions of the covered work, +and which are not combined with it such as to form a larger program, +in or on a volume of a storage or distribution medium, is called an +"aggregate" if the compilation and its resulting copyright are not +used to limit the access or legal rights of the compilation's users +beyond what the individual works permit. Inclusion of a covered work +in an aggregate does not cause this License to apply to the other +parts of the aggregate. + + 6. Conveying Non-Source Forms. + + You may convey a covered work in object code form under the terms +of sections 4 and 5, provided that you also convey the +machine-readable Corresponding Source under the terms of this License, +in one of these ways: + + a) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by the + Corresponding Source fixed on a durable physical medium + customarily used for software interchange. + + b) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by a + written offer, valid for at least three years and valid for as + long as you offer spare parts or customer support for that product + model, to give anyone who possesses the object code either (1) a + copy of the Corresponding Source for all the software in the + product that is covered by this License, on a durable physical + medium customarily used for software interchange, for a price no + more than your reasonable cost of physically performing this + conveying of source, or (2) access to copy the + Corresponding Source from a network server at no charge. + + c) Convey individual copies of the object code with a copy of the + written offer to provide the Corresponding Source. This + alternative is allowed only occasionally and noncommercially, and + only if you received the object code with such an offer, in accord + with subsection 6b. + + d) Convey the object code by offering access from a designated + place (gratis or for a charge), and offer equivalent access to the + Corresponding Source in the same way through the same place at no + further charge. You need not require recipients to copy the + Corresponding Source along with the object code. If the place to + copy the object code is a network server, the Corresponding Source + may be on a different server (operated by you or a third party) + that supports equivalent copying facilities, provided you maintain + clear directions next to the object code saying where to find the + Corresponding Source. Regardless of what server hosts the + Corresponding Source, you remain obligated to ensure that it is + available for as long as needed to satisfy these requirements. + + e) Convey the object code using peer-to-peer transmission, provided + you inform other peers where the object code and Corresponding + Source of the work are being offered to the general public at no + charge under subsection 6d. + + A separable portion of the object code, whose source code is excluded +from the Corresponding Source as a System Library, need not be +included in conveying the object code work. + + A "User Product" is either (1) a "consumer product", which means any +tangible personal property which is normally used for personal, family, +or household purposes, or (2) anything designed or sold for incorporation +into a dwelling. In determining whether a product is a consumer product, +doubtful cases shall be resolved in favor of coverage. For a particular +product received by a particular user, "normally used" refers to a +typical or common use of that class of product, regardless of the status +of the particular user or of the way in which the particular user +actually uses, or expects or is expected to use, the product. A product +is a consumer product regardless of whether the product has substantial +commercial, industrial or non-consumer uses, unless such uses represent +the only significant mode of use of the product. + + "Installation Information" for a User Product means any methods, +procedures, authorization keys, or other information required to install +and execute modified versions of a covered work in that User Product from +a modified version of its Corresponding Source. The information must +suffice to ensure that the continued functioning of the modified object +code is in no case prevented or interfered with solely because +modification has been made. + + If you convey an object code work under this section in, or with, or +specifically for use in, a User Product, and the conveying occurs as +part of a transaction in which the right of possession and use of the +User Product is transferred to the recipient in perpetuity or for a +fixed term (regardless of how the transaction is characterized), the +Corresponding Source conveyed under this section must be accompanied +by the Installation Information. But this requirement does not apply +if neither you nor any third party retains the ability to install +modified object code on the User Product (for example, the work has +been installed in ROM). + + The requirement to provide Installation Information does not include a +requirement to continue to provide support service, warranty, or updates +for a work that has been modified or installed by the recipient, or for +the User Product in which it has been modified or installed. Access to a +network may be denied when the modification itself materially and +adversely affects the operation of the network or violates the rules and +protocols for communication across the network. + + Corresponding Source conveyed, and Installation Information provided, +in accord with this section must be in a format that is publicly +documented (and with an implementation available to the public in +source code form), and must require no special password or key for +unpacking, reading or copying. + + 7. Additional Terms. + + "Additional permissions" are terms that supplement the terms of this +License by making exceptions from one or more of its conditions. +Additional permissions that are applicable to the entire Program shall +be treated as though they were included in this License, to the extent +that they are valid under applicable law. If additional permissions +apply only to part of the Program, that part may be used separately +under those permissions, but the entire Program remains governed by +this License without regard to the additional permissions. + + When you convey a copy of a covered work, you may at your option +remove any additional permissions from that copy, or from any part of +it. (Additional permissions may be written to require their own +removal in certain cases when you modify the work.) You may place +additional permissions on material, added by you to a covered work, +for which you have or can give appropriate copyright permission. + + Notwithstanding any other provision of this License, for material you +add to a covered work, you may (if authorized by the copyright holders of +that material) supplement the terms of this License with terms: + + a) Disclaiming warranty or limiting liability differently from the + terms of sections 15 and 16 of this License; or + + b) Requiring preservation of specified reasonable legal notices or + author attributions in that material or in the Appropriate Legal + Notices displayed by works containing it; or + + c) Prohibiting misrepresentation of the origin of that material, or + requiring that modified versions of such material be marked in + reasonable ways as different from the original version; or + + d) Limiting the use for publicity purposes of names of licensors or + authors of the material; or + + e) Declining to grant rights under trademark law for use of some + trade names, trademarks, or service marks; or + + f) Requiring indemnification of licensors and authors of that + material by anyone who conveys the material (or modified versions of + it) with contractual assumptions of liability to the recipient, for + any liability that these contractual assumptions directly impose on + those licensors and authors. + + All other non-permissive additional terms are considered "further +restrictions" within the meaning of section 10. If the Program as you +received it, or any part of it, contains a notice stating that it is +governed by this License along with a term that is a further +restriction, you may remove that term. If a license document contains +a further restriction but permits relicensing or conveying under this +License, you may add to a covered work material governed by the terms +of that license document, provided that the further restriction does +not survive such relicensing or conveying. + + If you add terms to a covered work in accord with this section, you +must place, in the relevant source files, a statement of the +additional terms that apply to those files, or a notice indicating +where to find the applicable terms. + + Additional terms, permissive or non-permissive, may be stated in the +form of a separately written license, or stated as exceptions; +the above requirements apply either way. + + 8. Termination. + + You may not propagate or modify a covered work except as expressly +provided under this License. Any attempt otherwise to propagate or +modify it is void, and will automatically terminate your rights under +this License (including any patent licenses granted under the third +paragraph of section 11). + + However, if you cease all violation of this License, then your +license from a particular copyright holder is reinstated (a) +provisionally, unless and until the copyright holder explicitly and +finally terminates your license, and (b) permanently, if the copyright +holder fails to notify you of the violation by some reasonable means +prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + + Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, you do not qualify to receive new licenses for the same +material under section 10. + + 9. Acceptance Not Required for Having Copies. + + You are not required to accept this License in order to receive or +run a copy of the Program. Ancillary propagation of a covered work +occurring solely as a consequence of using peer-to-peer transmission +to receive a copy likewise does not require acceptance. However, +nothing other than this License grants you permission to propagate or +modify any covered work. These actions infringe copyright if you do +not accept this License. Therefore, by modifying or propagating a +covered work, you indicate your acceptance of this License to do so. + + 10. Automatic Licensing of Downstream Recipients. + + Each time you convey a covered work, the recipient automatically +receives a license from the original licensors, to run, modify and +propagate that work, subject to this License. You are not responsible +for enforcing compliance by third parties with this License. + + An "entity transaction" is a transaction transferring control of an +organization, or substantially all assets of one, or subdividing an +organization, or merging organizations. If propagation of a covered +work results from an entity transaction, each party to that +transaction who receives a copy of the work also receives whatever +licenses to the work the party's predecessor in interest had or could +give under the previous paragraph, plus a right to possession of the +Corresponding Source of the work from the predecessor in interest, if +the predecessor has it or can get it with reasonable efforts. + + You may not impose any further restrictions on the exercise of the +rights granted or affirmed under this License. For example, you may +not impose a license fee, royalty, or other charge for exercise of +rights granted under this License, and you may not initiate litigation +(including a cross-claim or counterclaim in a lawsuit) alleging that +any patent claim is infringed by making, using, selling, offering for +sale, or importing the Program or any portion of it. + + 11. Patents. + + A "contributor" is a copyright holder who authorizes use under this +License of the Program or a work on which the Program is based. The +work thus licensed is called the contributor's "contributor version". + + A contributor's "essential patent claims" are all patent claims +owned or controlled by the contributor, whether already acquired or +hereafter acquired, that would be infringed by some manner, permitted +by this License, of making, using, or selling its contributor version, +but do not include claims that would be infringed only as a +consequence of further modification of the contributor version. For +purposes of this definition, "control" includes the right to grant +patent sublicenses in a manner consistent with the requirements of +this License. + + Each contributor grants you a non-exclusive, worldwide, royalty-free +patent license under the contributor's essential patent claims, to +make, use, sell, offer for sale, import and otherwise run, modify and +propagate the contents of its contributor version. + + In the following three paragraphs, a "patent license" is any express +agreement or commitment, however denominated, not to enforce a patent +(such as an express permission to practice a patent or covenant not to +sue for patent infringement). To "grant" such a patent license to a +party means to make such an agreement or commitment not to enforce a +patent against the party. + + If you convey a covered work, knowingly relying on a patent license, +and the Corresponding Source of the work is not available for anyone +to copy, free of charge and under the terms of this License, through a +publicly available network server or other readily accessible means, +then you must either (1) cause the Corresponding Source to be so +available, or (2) arrange to deprive yourself of the benefit of the +patent license for this particular work, or (3) arrange, in a manner +consistent with the requirements of this License, to extend the patent +license to downstream recipients. "Knowingly relying" means you have +actual knowledge that, but for the patent license, your conveying the +covered work in a country, or your recipient's use of the covered work +in a country, would infringe one or more identifiable patents in that +country that you have reason to believe are valid. + + If, pursuant to or in connection with a single transaction or +arrangement, you convey, or propagate by procuring conveyance of, a +covered work, and grant a patent license to some of the parties +receiving the covered work authorizing them to use, propagate, modify +or convey a specific copy of the covered work, then the patent license +you grant is automatically extended to all recipients of the covered +work and works based on it. + + A patent license is "discriminatory" if it does not include within +the scope of its coverage, prohibits the exercise of, or is +conditioned on the non-exercise of one or more of the rights that are +specifically granted under this License. You may not convey a covered +work if you are a party to an arrangement with a third party that is +in the business of distributing software, under which you make payment +to the third party based on the extent of your activity of conveying +the work, and under which the third party grants, to any of the +parties who would receive the covered work from you, a discriminatory +patent license (a) in connection with copies of the covered work +conveyed by you (or copies made from those copies), or (b) primarily +for and in connection with specific products or compilations that +contain the covered work, unless you entered into that arrangement, +or that patent license was granted, prior to 28 March 2007. + + Nothing in this License shall be construed as excluding or limiting +any implied license or other defenses to infringement that may +otherwise be available to you under applicable patent law. + + 12. No Surrender of Others' Freedom. + + If conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot convey a +covered work so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you may +not convey it at all. For example, if you agree to terms that obligate you +to collect a royalty for further conveying from those to whom you convey +the Program, the only way you could satisfy both those terms and this +License would be to refrain entirely from conveying the Program. + + 13. Use with the GNU Affero General Public License. + + Notwithstanding any other provision of this License, you have +permission to link or combine any covered work with a work licensed +under version 3 of the GNU Affero General Public License into a single +combined work, and to convey the resulting work. The terms of this +License will continue to apply to the part which is the covered work, +but the special requirements of the GNU Affero General Public License, +section 13, concerning interaction through a network will apply to the +combination as such. + + 14. Revised Versions of this License. + + The Free Software Foundation may publish revised and/or new versions of +the GNU General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + + Each version is given a distinguishing version number. If the +Program specifies that a certain numbered version of the GNU General +Public License "or any later version" applies to it, you have the +option of following the terms and conditions either of that numbered +version or of any later version published by the Free Software +Foundation. If the Program does not specify a version number of the +GNU General Public License, you may choose any version ever published +by the Free Software Foundation. + + If the Program specifies that a proxy can decide which future +versions of the GNU General Public License can be used, that proxy's +public statement of acceptance of a version permanently authorizes you +to choose that version for the Program. + + Later license versions may give you additional or different +permissions. However, no additional obligations are imposed on any +author or copyright holder as a result of your choosing to follow a +later version. + + 15. Disclaimer of Warranty. + + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT +HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY +OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM +IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF +ALL NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. Limitation of Liability. + + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF +SUCH DAMAGES. + + 17. Interpretation of Sections 15 and 16. + + If the disclaimer of warranty and limitation of liability provided +above cannot be given local legal effect according to their terms, +reviewing courts shall apply local law that most closely approximates +an absolute waiver of all civil liability in connection with the +Program, unless a warranty or assumption of liability accompanies a +copy of the Program in return for a fee. + + END OF TERMS AND CONDITIONS diff --git a/ChangeLog.md b/ChangeLog.md new file mode 100755 index 0000000..d166c4e --- /dev/null +++ b/ChangeLog.md @@ -0,0 +1,5 @@ +# CHANGELOG MODULE FILEARCHIV FOR [DOLIBARR ERP CRM](https://www.dolibarr.org) + +## 1.0 + +Initial version diff --git a/README.md b/README.md new file mode 100755 index 0000000..37dcf40 --- /dev/null +++ b/README.md @@ -0,0 +1,96 @@ +# FILEARCHIV FOR [DOLIBARR ERP & CRM](https://www.dolibarr.org) + +## Features + +Description of the module... + + + +Other external modules are available on [Dolistore.com](https://www.dolistore.com). + +## Translations + +Translations can be completed manually by editing files in the module directories under `langs`. + + + + +## Installation + +Prerequisites: You must have Dolibarr ERP & CRM software installed. You can download it from [Dolistore.org](https://www.dolibarr.org). +You can also get a ready-to-use instance in the cloud from https://saas.dolibarr.org + + +### From the ZIP file and GUI interface + +If the module is a ready-to-deploy zip file, so with a name `module_xxx-version.zip` (e.g., when downloading it from a marketplace like [Dolistore](https://www.dolistore.com)), +go to menu `Home> Setup> Modules> Deploy external module` and upload the zip file. + + + + + +### Final steps + +Using your browser: + + - Log into Dolibarr as a super-administrator + - Go to "Setup"> "Modules" + - You should now be able to find and enable the module + + + +## Licenses + +### Main code + +GPLv3 or (at your option) any later version. See file COPYING for more information. + +### Documentation + +All texts and readme's are licensed under [GFDL](https://www.gnu.org/licenses/fdl-1.3.en.html). diff --git a/admin/about.php b/admin/about.php new file mode 100755 index 0000000..2b4324b --- /dev/null +++ b/admin/about.php @@ -0,0 +1,118 @@ + + * Copyright (C) 2026 Eduard Wisch + * Copyright (C) 2024 Frédéric France + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/** + * \file filearchiv/admin/about.php + * \ingroup filearchiv + * \brief About page of module FileArchiv. + */ + +// Load Dolibarr environment +$res = 0; +// Try main.inc.php into web root known defined into CONTEXT_DOCUMENT_ROOT (not always defined) +if (!$res && !empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) { + $res = @include $_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php"; +} +// Try main.inc.php into web root detected using web root calculated from SCRIPT_FILENAME +$tmp = empty($_SERVER['SCRIPT_FILENAME']) ? '' : $_SERVER['SCRIPT_FILENAME']; +$tmp2 = realpath(__FILE__); +$i = strlen($tmp) - 1; +$j = strlen($tmp2) - 1; +while ($i > 0 && $j > 0 && isset($tmp[$i]) && isset($tmp2[$j]) && $tmp[$i] == $tmp2[$j]) { + $i--; + $j--; +} +if (!$res && $i > 0 && file_exists(substr($tmp, 0, ($i + 1))."/main.inc.php")) { + $res = @include substr($tmp, 0, ($i + 1))."/main.inc.php"; +} +if (!$res && $i > 0 && file_exists(dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php")) { + $res = @include dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php"; +} +// Try main.inc.php using relative path +if (!$res && file_exists("../../main.inc.php")) { + $res = @include "../../main.inc.php"; +} +if (!$res && file_exists("../../../main.inc.php")) { + $res = @include "../../../main.inc.php"; +} +if (!$res) { + die("Include of main fails"); +} + +// Libraries +require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php'; +require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php'; +require_once '../lib/filearchiv.lib.php'; + +/** + * @var Conf $conf + * @var DoliDB $db + * @var HookManager $hookmanager + * @var Translate $langs + * @var User $user + */ + +// Translations +$langs->loadLangs(array("errors", "admin", "filearchiv@filearchiv")); + +// Access control +if (!$user->admin) { + accessforbidden(); +} + +// Parameters +$action = GETPOST('action', 'aZ09'); +$backtopage = GETPOST('backtopage', 'alpha'); + + +/* + * Actions + */ + +// None + + +/* + * View + */ + +$form = new Form($db); + +$help_url = ''; +$title = "FileArchivSetup"; + +llxHeader('', $langs->trans($title), $help_url, '', 0, 0, '', '', '', 'mod-filearchiv page-admin_about'); + +// Subheader +$linkback = ''.$langs->trans("BackToModuleList").''; + +print load_fiche_titre($langs->trans($title), $linkback, 'title_setup'); + +// Configuration header +$head = filearchivAdminPrepareHead(); +print dol_get_fiche_head($head, 'about', $langs->trans($title), 0, 'filearchiv@filearchiv'); + +dol_include_once('/filearchiv/core/modules/modFileArchiv.class.php'); +$tmpmodule = new modFileArchiv($db); +print $tmpmodule->getDescLong(); + +// Page end +print dol_get_fiche_end(); +llxFooter(); +$db->close(); diff --git a/admin/setup.php b/admin/setup.php new file mode 100755 index 0000000..ce198ec --- /dev/null +++ b/admin/setup.php @@ -0,0 +1,629 @@ + + * Copyright (C) 2024 Frédéric France + * Copyright (C) 2026 Eduard Wisch + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/** + * \file filearchiv/admin/setup.php + * \ingroup filearchiv + * \brief FileArchiv setup page. + */ + +// Load Dolibarr environment +$res = 0; +// Try main.inc.php into web root known defined into CONTEXT_DOCUMENT_ROOT (not always defined) +if (!$res && !empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) { + $res = @include $_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php"; +} +// Try main.inc.php into web root detected using web root calculated from SCRIPT_FILENAME +$tmp = empty($_SERVER['SCRIPT_FILENAME']) ? '' : $_SERVER['SCRIPT_FILENAME']; +$tmp2 = realpath(__FILE__); +$i = strlen($tmp) - 1; +$j = strlen($tmp2) - 1; +while ($i > 0 && $j > 0 && isset($tmp[$i]) && isset($tmp2[$j]) && $tmp[$i] == $tmp2[$j]) { + $i--; + $j--; +} +if (!$res && $i > 0 && file_exists(substr($tmp, 0, ($i + 1))."/main.inc.php")) { + $res = @include substr($tmp, 0, ($i + 1))."/main.inc.php"; +} +if (!$res && $i > 0 && file_exists(dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php")) { + $res = @include dirname(substr($tmp, 0, ($i + 1)))."/main.inc.php"; +} +// Try main.inc.php using relative path +if (!$res && file_exists("../../main.inc.php")) { + $res = @include "../../main.inc.php"; +} +if (!$res && file_exists("../../../main.inc.php")) { + $res = @include "../../../main.inc.php"; +} +if (!$res) { + die("Include of main fails"); +} + +// Libraries +require_once DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php"; +require_once '../lib/filearchiv.lib.php'; +//require_once "../class/myclass.class.php"; + +/** + * @var Conf $conf + * @var DoliDB $db + * @var HookManager $hookmanager + * @var Translate $langs + * @var User $user + */ + +// Translations +$langs->loadLangs(array("admin", "filearchiv@filearchiv")); + +// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context +/** @var HookManager $hookmanager */ +$hookmanager->initHooks(array('filearchivsetup', 'globalsetup')); + +// Parameters +$action = GETPOST('action', 'aZ09'); +$backtopage = GETPOST('backtopage', 'alpha'); +$modulepart = GETPOST('modulepart', 'aZ09'); // Used by actions_setmoduleoptions.inc.php + +$value = GETPOST('value', 'alpha'); +$label = GETPOST('label', 'alpha'); +$scandir = GETPOST('scan_dir', 'alpha'); +$type = 'myobject'; + +$error = 0; +$setupnotempty = 0; + +// Access control +if (!$user->admin) { + accessforbidden(); +} + + +// Set this to 1 to use the factory to manage constants. Warning, the generated module will be compatible with version v15+ only +$useFormSetup = 1; + +if (!class_exists('FormSetup')) { + require_once DOL_DOCUMENT_ROOT.'/core/class/html.formsetup.class.php'; +} +$formSetup = new FormSetup($db); + +// Access control +if (!$user->admin) { + accessforbidden(); +} + + +// Enter here all parameters in your setup page + +// Setup conf for selection of an URL +$item = $formSetup->newItem('FILEARCHIV_MYPARAM1'); +$item->fieldParams['isMandatory'] = 1; +$item->fieldAttr['placeholder'] = (empty($_SERVER['HTTPS']) ? 'http://' : 'https://') . $_SERVER['HTTP_HOST']; +$item->cssClass = 'minwidth500'; + +// Setup conf for selection of a simple string input +$item = $formSetup->newItem('FILEARCHIV_MYPARAM2'); +$item->defaultFieldValue = 'default value'; +$item->fieldAttr['placeholder'] = 'A placeholder here'; +$item->helpText = 'Tooltip text'; + +// Setup conf for selection of a simple textarea input but we replace the text of field title +$item = $formSetup->newItem('FILEARCHIV_MYPARAM3'); +$item->nameText = $item->getNameText().' more html text '; + +// Setup conf for a selection of a Thirdparty +$item = $formSetup->newItem('FILEARCHIV_MYPARAM4'); +$item->setAsThirdpartyType(); + +// Setup conf for a selection of a boolean +$formSetup->newItem('FILEARCHIV_MYPARAM5')->setAsYesNo(); + +// Setup conf for a selection of an Email template of type thirdparty +$formSetup->newItem('FILEARCHIV_MYPARAM6')->setAsEmailTemplate('thirdparty'); + +// Setup conf for a selection of a secured key +//$formSetup->newItem('FILEARCHIV_MYPARAM7')->setAsSecureKey(); + +// Setup conf for a selection of a Product +$formSetup->newItem('FILEARCHIV_MYPARAM8')->setAsProduct(); + +// Add a title for a new section +$formSetup->newItem('NewSection')->setAsTitle(); + +$TField = array( + 'test01' => $langs->trans('test01'), + 'test02' => $langs->trans('test02'), + 'test03' => $langs->trans('test03'), + 'test04' => $langs->trans('test04'), + 'test05' => $langs->trans('test05'), + 'test06' => $langs->trans('test06'), +); + +// Setup conf for a simple combo list +$formSetup->newItem('FILEARCHIV_MYPARAM9')->setAsSelect($TField); + +// Setup conf for a multiselect combo list +$item = $formSetup->newItem('FILEARCHIV_MYPARAM10'); +$item->setAsMultiSelect($TField); +$item->helpText = $langs->transnoentities('FILEARCHIV_MYPARAM10'); + +// Setup conf for a category selection +$formSetup->newItem('FILEARCHIV_CATEGORY_ID_XXX')->setAsCategory('product'); + +// Setup conf FILEARCHIV_MYPARAM10 +$item = $formSetup->newItem('FILEARCHIV_MYPARAM10'); +$item->setAsColor(); +$item->defaultFieldValue = '#FF0000'; +//$item->fieldValue = ''; +//$item->fieldAttr = array() ; // fields attribute only for compatible fields like input text +//$item->fieldOverride = false; // set this var to override field output will override $fieldInputOverride and $fieldOutputOverride too +//$item->fieldInputOverride = false; // set this var to override field input +//$item->fieldOutputOverride = false; // set this var to override field output + +$item = $formSetup->newItem('FILEARCHIV_MYPARAM11')->setAsHtml(); +$item->nameText = $item->getNameText().' more html text '; +$item->fieldInputOverride = ''; +$item->helpText = $langs->transnoentities('HelpMessage'); +$item->cssClass = 'minwidth500'; + +$item = $formSetup->newItem('FILEARCHIV_MYPARAM12'); +$item->fieldOverride = "Value forced, can't be modified"; +$item->cssClass = 'minwidth500'; + +//$item = $formSetup->newItem('FILEARCHIV_MYPARAM13')->setAsDate(); // Not yet implemented + +// End of definition of parameters + + +$setupnotempty += count($formSetup->items); + + +$dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']); + +$moduledir = 'filearchiv'; +$myTmpObjects = array(); +// TODO Scan list of objects to fill this array +$myTmpObjects['myobject'] = array('label' => 'MyObject', 'includerefgeneration' => 0, 'includedocgeneration' => 0, 'class' => 'MyObject'); + +$tmpobjectkey = GETPOST('object', 'aZ09'); +if ($tmpobjectkey && !array_key_exists($tmpobjectkey, $myTmpObjects)) { + accessforbidden('Bad value for object. Hack attempt ?'); +} + + +/* + * Actions + */ + +// For retrocompatibility Dolibarr < 15.0 +if (versioncompare(explode('.', DOL_VERSION), array(15)) < 0 && $action == 'update' && !empty($user->admin)) { + $formSetup->saveConfFromPost(); +} + +include DOL_DOCUMENT_ROOT.'/core/actions_setmoduleoptions.inc.php'; + +if ($action == 'updateMask') { + $maskconst = GETPOST('maskconst', 'aZ09'); + $maskvalue = GETPOST('maskvalue', 'alpha'); + + if ($maskconst && preg_match('/_MASK$/', $maskconst)) { + $res = dolibarr_set_const($db, $maskconst, $maskvalue, 'chaine', 0, '', $conf->entity); + if (!($res > 0)) { + $error++; + } + } + + if (!$error) { + setEventMessages($langs->trans("SetupSaved"), null, 'mesgs'); + } else { + setEventMessages($langs->trans("Error"), null, 'errors'); + } +} elseif ($action == 'specimen' && $tmpobjectkey) { + $modele = GETPOST('module', 'alpha'); + + $className = $myTmpObjects[$tmpobjectkey]['class']; + $tmpobject = new $className($db); + '@phan-var-force MyObject $tmpobject'; + $tmpobject->initAsSpecimen(); + + // Search template files + $file = ''; + $className = ''; + $dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']); + foreach ($dirmodels as $reldir) { + $file = dol_buildpath($reldir."core/modules/filearchiv/doc/pdf_".$modele."_".strtolower($tmpobjectkey).".modules.php", 0); + if (file_exists($file)) { + $className = "pdf_".$modele."_".strtolower($tmpobjectkey); + break; + } + } + + if ($className !== '') { + require_once $file; + + $module = new $className($db); + '@phan-var-force ModelePDFMyObject $module'; + + '@phan-var-force ModelePDFMyObject $module'; + + if ($module->write_file($tmpobject, $langs) > 0) { + header("Location: ".DOL_URL_ROOT."/document.php?modulepart=filearchiv-".strtolower($tmpobjectkey)."&file=SPECIMEN.pdf"); + return; + } else { + setEventMessages($module->error, null, 'errors'); + dol_syslog($module->error, LOG_ERR); + } + } else { + setEventMessages($langs->trans("ErrorModuleNotFound"), null, 'errors'); + dol_syslog($langs->trans("ErrorModuleNotFound"), LOG_ERR); + } +} elseif ($action == 'setmod') { + // TODO Check if numbering module chosen can be activated by calling method canBeActivated + if (!empty($tmpobjectkey)) { + $constforval = 'FILEARCHIV_'.strtoupper($tmpobjectkey)."_ADDON"; + dolibarr_set_const($db, $constforval, $value, 'chaine', 0, '', $conf->entity); + } +} elseif ($action == 'set') { + // Activate a model + $ret = addDocumentModel($value, $type, $label, $scandir); +} elseif ($action == 'del') { + $ret = delDocumentModel($value, $type); + if ($ret > 0) { + if (!empty($tmpobjectkey)) { + $constforval = 'FILEARCHIV_'.strtoupper($tmpobjectkey).'_ADDON_PDF'; + if (getDolGlobalString($constforval) == "$value") { + dolibarr_del_const($db, $constforval, $conf->entity); + } + } + } +} elseif ($action == 'setdoc') { + // Set or unset default model + if (!empty($tmpobjectkey)) { + $constforval = 'FILEARCHIV_'.strtoupper($tmpobjectkey).'_ADDON_PDF'; + if (dolibarr_set_const($db, $constforval, $value, 'chaine', 0, '', $conf->entity)) { + // The constant that was read before the new set + // We therefore requires a variable to have a coherent view + $conf->global->{$constforval} = $value; + } + + // We disable/enable the document template (into llx_document_model table) + $ret = delDocumentModel($value, $type); + if ($ret > 0) { + $ret = addDocumentModel($value, $type, $label, $scandir); + } + } +} elseif ($action == 'unsetdoc') { + if (!empty($tmpobjectkey)) { + $constforval = 'FILEARCHIV_'.strtoupper($tmpobjectkey).'_ADDON_PDF'; + dolibarr_del_const($db, $constforval, $conf->entity); + } +} + +$action = 'edit'; + + +/* + * View + */ + +$form = new Form($db); + +$help_url = ''; +$title = "FileArchivSetup"; + +llxHeader('', $langs->trans($title), $help_url, '', 0, 0, '', '', '', 'mod-filearchiv page-admin'); + +// Subheader +$linkback = ''.$langs->trans("BackToModuleList").''; + +print load_fiche_titre($langs->trans($title), $linkback, 'title_setup'); + +// Configuration header +$head = filearchivAdminPrepareHead(); +print dol_get_fiche_head($head, 'settings', $langs->trans($title), -1, "filearchiv@filearchiv"); + +// Setup page goes here +echo ''.$langs->trans("FileArchivSetupPage").'

'; + + +/*if ($action == 'edit') { + print $formSetup->generateOutput(true); + print '
'; + } elseif (!empty($formSetup->items)) { + print $formSetup->generateOutput(); + print '
'; + print ''.$langs->trans("Modify").''; + print '
'; + } + */ +if (!empty($formSetup->items)) { + print $formSetup->generateOutput(true); + print '
'; +} + + +foreach ($myTmpObjects as $myTmpObjectKey => $myTmpObjectArray) { + if (!empty($myTmpObjectArray['includerefgeneration'])) { + // Numbering models + + $setupnotempty++; + + print load_fiche_titre($langs->trans("NumberingModules", $myTmpObjectArray['label']), '', ''); + + print ''; + print ''; + print ''; + print ''; + print ''; + print ''; + print ''; + print ''."\n"; + + clearstatcache(); + + foreach ($dirmodels as $reldir) { + $dir = dol_buildpath($reldir."core/modules/".$moduledir); + + if (is_dir($dir)) { + $handle = opendir($dir); + if (is_resource($handle)) { + while (($file = readdir($handle)) !== false) { + if (strpos($file, 'mod_'.strtolower($myTmpObjectKey).'_') === 0 && substr($file, dol_strlen($file) - 3, 3) == 'php') { + $file = substr($file, 0, dol_strlen($file) - 4); + + require_once $dir.'/'.$file.'.php'; + + $module = new $file($db); + '@phan-var-force ModeleNumRefMyObject $module'; + + // Show modules according to features level + if ($module->version == 'development' && getDolGlobalInt('MAIN_FEATURES_LEVEL') < 2) { + continue; + } + if ($module->version == 'experimental' && getDolGlobalInt('MAIN_FEATURES_LEVEL') < 1) { + continue; + } + + if ($module->isEnabled()) { + dol_include_once('/'.$moduledir.'/class/'.strtolower($myTmpObjectKey).'.class.php'); + + print ''; + + // Show example of numbering model + print ''."\n"; + + print ''; + + $className = $myTmpObjectArray['class']; + $mytmpinstance = new $className($db); + '@phan-var-force MyObject $mytmpinstance'; + $mytmpinstance->initAsSpecimen(); + + // Info + $htmltooltip = ''; + $htmltooltip .= ''.$langs->trans("Version").': '.$module->getVersion().'
'; + + $nextval = $module->getNextValue($mytmpinstance); + if ("$nextval" != $langs->trans("NotAvailable")) { // Keep " on nextval + $htmltooltip .= ''.$langs->trans("NextValue").': '; + if ($nextval) { + if (preg_match('/^Error/', $nextval) || $nextval == 'NotConfigured') { + $nextval = $langs->trans($nextval); + } + $htmltooltip .= $nextval.'
'; + } else { + $htmltooltip .= $langs->trans($module->error).'
'; + } + } + + print ''; + + print "\n"; + } + } + } + closedir($handle); + } + } + } + print "
'.$langs->trans("Name").''.$langs->trans("Description").''.$langs->trans("Example").''.$langs->trans("Status").''.$langs->trans("ShortInfo").'
'.$module->getName($langs)."\n"; + print $module->info($langs); + print ''; + $tmp = $module->getExample(); + if (preg_match('/^Error/', $tmp)) { + $langs->load("errors"); + print '
'.$langs->trans($tmp).'
'; + } elseif ($tmp == 'NotConfigured') { + print $langs->trans($tmp); + } else { + print $tmp; + } + print '		'; + $constforvar = 'FILEARCHIV_'.strtoupper($myTmpObjectKey).'_ADDON'; + $defaultifnotset = 'thevaluetousebydefault'; + $activenumberingmodel = getDolGlobalString($constforvar, $defaultifnotset); + if ($activenumberingmodel == $file) { + print img_picto($langs->trans("Activated"), 'switch_on'); + } else { + print ''; + print img_picto($langs->trans("Disabled"), 'switch_off'); + print ''; + } + print ''; + print $form->textwithpicto('', $htmltooltip, 1, 'info'); + print '

\n"; + } + + if (!empty($myTmpObjectArray['includedocgeneration'])) { + /* + * Document templates generators + */ + $setupnotempty++; + $type = strtolower($myTmpObjectKey); + + print load_fiche_titre($langs->trans("DocumentModules", $myTmpObjectKey), '', ''); + + // Load array def with activated templates + $def = array(); + $sql = "SELECT nom"; + $sql .= " FROM ".$db->prefix()."document_model"; + $sql .= " WHERE type = '".$db->escape($type)."'"; + $sql .= " AND entity = ".$conf->entity; + $resql = $db->query($sql); + if ($resql) { + $i = 0; + $num_rows = $db->num_rows($resql); + while ($i < $num_rows) { + $array = $db->fetch_array($resql); + array_push($def, $array[0]); + $i++; + } + } else { + dol_print_error($db); + } + + print ''."\n"; + print ''."\n"; + print ''; + print ''; + print '\n"; + print '\n"; + print ''; + print ''; + print "\n"; + + clearstatcache(); + + foreach ($dirmodels as $reldir) { + foreach (array('', '/doc') as $valdir) { + $realpath = $reldir."core/modules/".$moduledir.$valdir; + $dir = dol_buildpath($realpath); + + if (is_dir($dir)) { + $handle = opendir($dir); + if (is_resource($handle)) { + $filelist = array(); + while (($file = readdir($handle)) !== false) { + $filelist[] = $file; + } + closedir($handle); + arsort($filelist); + + foreach ($filelist as $file) { + if (preg_match('/\.modules\.php$/i', $file) && preg_match('/^(pdf_|doc_)/', $file)) { + if (file_exists($dir.'/'.$file)) { + $name = substr($file, 4, dol_strlen($file) - 16); + $className = substr($file, 0, dol_strlen($file) - 12); + + require_once $dir.'/'.$file; + $module = new $className($db); + '@phan-var-force ModelePDFMyObject $module'; + + $modulequalified = 1; + if ($module->version == 'development' && getDolGlobalInt('MAIN_FEATURES_LEVEL') < 2) { + $modulequalified = 0; + } + if ($module->version == 'experimental' && getDolGlobalInt('MAIN_FEATURES_LEVEL') < 1) { + $modulequalified = 0; + } + + if ($modulequalified) { + print ''; + + // Active + if (in_array($name, $def)) { + print ''; + } else { + print '"; + } + + // Default + print ''; + + // Info + $htmltooltip = ''.$langs->trans("Name").': '.$module->name; + $htmltooltip .= '
'.$langs->trans("Type").': '.($module->type ? $module->type : $langs->trans("Unknown")); + if ($module->type == 'pdf') { + $htmltooltip .= '
'.$langs->trans("Width").'/'.$langs->trans("Height").': '.$module->page_largeur.'/'.$module->page_hauteur; + } + $htmltooltip .= '
'.$langs->trans("Path").': '.preg_replace('/^\//', '', $realpath).'/'.$file; + + $htmltooltip .= '

'.$langs->trans("FeaturesSupported").':'; + $htmltooltip .= '
'.$langs->trans("Logo").': '.yn($module->option_logo, 1, 1); + $htmltooltip .= '
'.$langs->trans("MultiLanguage").': '.yn($module->option_multilang, 1, 1); + + print ''; + + // Preview + print ''; + + print "\n"; + } + } + } + } + } + } + } + } + + print '
'.$langs->trans("Name").''.$langs->trans("Description").''.$langs->trans("Status")."'.$langs->trans("Default")."'.$langs->trans("ShortInfo").''.$langs->trans("Preview").'
'; + print(empty($module->name) ? $name : $module->name); + print "\n"; + if (method_exists($module, 'info')) { + print $module->info($langs); // @phan-suppress-current-line PhanUndeclaredMethod + } else { + print $module->description; + } + print ''."\n"; + print ''; + print img_picto($langs->trans("Enabled"), 'switch_on'); + print ''; + print ''."\n"; + print 'scandir).'&label='.urlencode($module->name).'">'.img_picto($langs->trans("Disabled"), 'switch_off').''; + print "'; + $constforvar = 'FILEARCHIV_'.strtoupper($myTmpObjectKey).'_ADDON_PDF'; + if (getDolGlobalString($constforvar) == $name) { + //print img_picto($langs->trans("Default"), 'on'); + // Even if choice is the default value, we allow to disable it. Replace this with previous line if you need to disable unset + print 'scandir).'&label='.urlencode($module->name).'&type='.urlencode($type).'" alt="'.$langs->trans("Disable").'">'.img_picto($langs->trans("Enabled"), 'on').''; + } else { + print 'scandir).'&label='.urlencode($module->name).'" alt="'.$langs->trans("Default").'">'.img_picto($langs->trans("Disabled"), 'off').''; + } + print ''; + print $form->textwithpicto('', $htmltooltip, 1, 'info'); + print ''; + if ($module->type == 'pdf') { + $newname = preg_replace('/_'.preg_quote(strtolower($myTmpObjectKey), '/').'/', '', $name); + print ''.img_object($langs->trans("Preview"), 'pdf').''; + } else { + print img_object($langs->transnoentitiesnoconv("PreviewNotAvailable"), 'generic'); + } + print '
'; + } +} + +if (empty($setupnotempty)) { + print '
'.$langs->trans("NothingToSetup"); +} + +// Page end +print dol_get_fiche_end(); + +llxFooter(); +$db->close(); diff --git a/ajax/addfile.php b/ajax/addfile.php new file mode 100644 index 0000000..c86984e --- /dev/null +++ b/ajax/addfile.php @@ -0,0 +1,160 @@ + + * + * Add file to email attachment session + */ + +if (!defined('NOTOKENRENEWAL')) { + define('NOTOKENRENEWAL', '1'); +} +if (!defined('NOREQUIREMENU')) { + define('NOREQUIREMENU', '1'); +} +if (!defined('NOREQUIREAJAX')) { + define('NOREQUIREAJAX', '1'); +} + +// Load Dolibarr environment +$res = 0; +// Path from /custom/filearchiv/ajax/ to main.inc.php +if (!$res && file_exists("../../../main.inc.php")) { + $res = @include "../../../main.inc.php"; +} +// Fallback for different directory structures +if (!$res && file_exists("../../../../main.inc.php")) { + $res = @include "../../../../main.inc.php"; +} +if (!$res && file_exists("../../main.inc.php")) { + $res = @include "../../main.inc.php"; +} +if (!$res) { + die("Include of main fails"); +} + +require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php'; + +header('Content-Type: application/json; charset=UTF-8'); + +// Debug logging +$debugFile = '/tmp/filearchiv_addfile_debug.log'; +@file_put_contents($debugFile, date('Y-m-d H:i:s') . " === addfile.php called ===\n", FILE_APPEND); +@file_put_contents($debugFile, "Session ID: " . session_id() . "\n", FILE_APPEND); +@file_put_contents($debugFile, "User ID: " . (isset($user) ? $user->id : 'not set') . "\n", FILE_APPEND); +@file_put_contents($debugFile, "POST: " . print_r($_POST, true) . "\n", FILE_APPEND); + +// Security check +if (!isModEnabled('filearchiv')) { + http_response_code(403); + echo json_encode(array('success' => false, 'error' => 'Module not enabled')); + exit; +} + +$filepath = GETPOST('filepath', 'alphanohtml'); +$filename = GETPOST('filename', 'alphanohtml'); +$trackid = GETPOST('trackid', 'aZ09'); + +if (empty($filepath) || empty($filename)) { + echo json_encode(array('success' => false, 'error' => 'Missing parameters')); + exit; +} + +// Security: Check that file exists and is readable +if (!file_exists($filepath) || !is_readable($filepath)) { + echo json_encode(array('success' => false, 'error' => 'File not found or not readable')); + exit; +} + +// Security: Check that file is within allowed directories +$allowed = false; +$allowedPaths = array( + $conf->societe->multidir_output[$conf->entity], + $conf->propal->multidir_output[$conf->entity], + $conf->commande->multidir_output[$conf->entity], + $conf->facture->multidir_output[$conf->entity], + $conf->expedition->dir_output, + $conf->product->multidir_output[$conf->entity], +); + +if (!empty($conf->fournisseur->commande->multidir_output[$conf->entity])) { + $allowedPaths[] = $conf->fournisseur->commande->multidir_output[$conf->entity]; +} +if (!empty($conf->fournisseur->facture->multidir_output[$conf->entity])) { + $allowedPaths[] = $conf->fournisseur->facture->multidir_output[$conf->entity]; +} + +foreach ($allowedPaths as $path) { + if (!empty($path) && strpos(realpath($filepath), realpath($path)) === 0) { + $allowed = true; + break; + } +} + +if (!$allowed) { + echo json_encode(array('success' => false, 'error' => 'Access denied to file path')); + exit; +} + +// Get temporary directory for attachments +$upload_dir = $conf->user->dir_temp . '/' . $user->id . '/email_attachments'; +if (!empty($trackid)) { + $upload_dir .= '/' . $trackid; +} + +if (!is_dir($upload_dir)) { + dol_mkdir($upload_dir); +} + +// Copy file to temp directory +$destfile = $upload_dir . '/' . $filename; + +// Make filename unique if already exists +$counter = 1; +$pathinfo = pathinfo($filename); +$basename = $pathinfo['filename']; +$ext = isset($pathinfo['extension']) ? '.' . $pathinfo['extension'] : ''; + +while (file_exists($destfile)) { + $destfile = $upload_dir . '/' . $basename . '_' . $counter . $ext; + $counter++; +} + +$result = dol_copy($filepath, $destfile); + +if ($result < 0) { + echo json_encode(array('success' => false, 'error' => 'Failed to copy file')); + exit; +} + +// Add to session for FormMail +// FormMail uses trackid as suffix: listofpaths-TRACKID +$keytoavoidconflict = empty($trackid) ? '' : '-'.$trackid; + +$listofpaths = isset($_SESSION["listofpaths".$keytoavoidconflict]) ? $_SESSION["listofpaths".$keytoavoidconflict] : ''; +$listofnames = isset($_SESSION["listofnames".$keytoavoidconflict]) ? $_SESSION["listofnames".$keytoavoidconflict] : ''; +$listofmimes = isset($_SESSION["listofmimes".$keytoavoidconflict]) ? $_SESSION["listofmimes".$keytoavoidconflict] : ''; + +// Get mime type +include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php'; +$mime = dol_mimetype($destfile); + +// Append to session +$listofpaths = $listofpaths . ($listofpaths ? ';' : '') . $destfile; +$listofnames = $listofnames . ($listofnames ? ';' : '') . basename($destfile); +$listofmimes = $listofmimes . ($listofmimes ? ';' : '') . $mime; + +$_SESSION["listofpaths".$keytoavoidconflict] = $listofpaths; +$_SESSION["listofnames".$keytoavoidconflict] = $listofnames; +$_SESSION["listofmimes".$keytoavoidconflict] = $listofmimes; + +// Debug logging +@file_put_contents($debugFile, "Key: listofpaths$keytoavoidconflict\n", FILE_APPEND); +@file_put_contents($debugFile, "Set listofpaths: $listofpaths\n", FILE_APPEND); +@file_put_contents($debugFile, "Set listofnames: $listofnames\n", FILE_APPEND); +@file_put_contents($debugFile, "Destfile: $destfile\n", FILE_APPEND); +@file_put_contents($debugFile, "File copied: " . (file_exists($destfile) ? "YES" : "NO") . "\n", FILE_APPEND); + +echo json_encode(array( + 'success' => true, + 'message' => 'File added successfully', + 'filename' => basename($destfile) +)); diff --git a/ajax/getdocuments.php b/ajax/getdocuments.php new file mode 100644 index 0000000..d955b10 --- /dev/null +++ b/ajax/getdocuments.php @@ -0,0 +1,289 @@ + + * + * Get related documents for document browser + */ + +if (!defined('NOTOKENRENEWAL')) { + define('NOTOKENRENEWAL', '1'); +} +if (!defined('NOREQUIREMENU')) { + define('NOREQUIREMENU', '1'); +} +if (!defined('NOREQUIREAJAX')) { + define('NOREQUIREAJAX', '1'); +} + +// Load Dolibarr environment +$res = 0; +// Path from /custom/filearchiv/ajax/ to main.inc.php +if (!$res && file_exists("../../../main.inc.php")) { + $res = @include "../../../main.inc.php"; +} +// Fallback for different directory structures +if (!$res && file_exists("../../../../main.inc.php")) { + $res = @include "../../../../main.inc.php"; +} +if (!$res && file_exists("../../main.inc.php")) { + $res = @include "../../main.inc.php"; +} +if (!$res) { + die("Include of main fails"); +} + +require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php'; + +// Debug logging +$debugFile = '/tmp/filearchiv_getdocs_debug.log'; +@file_put_contents($debugFile, date('Y-m-d H:i:s') . " === getdocuments.php called ===\n", FILE_APPEND); + +// Security check +if (!isModEnabled('filearchiv')) { + http_response_code(403); + echo json_encode(array('success' => false, 'error' => 'Module not enabled')); + exit; +} + +$element = GETPOST('element', 'aZ09'); +$id = GETPOST('id', 'int'); + +if (empty($element) || empty($id)) { + echo json_encode(array('success' => false, 'error' => 'Missing parameters')); + exit; +} + +$langs->load('filearchiv@filearchiv'); + +// Get the main object +$object = null; +$thirdparty = null; + +switch ($element) { + case 'propal': + require_once DOL_DOCUMENT_ROOT.'/comm/propal/class/propal.class.php'; + $object = new Propal($db); + $object->fetch($id); + $object->fetch_thirdparty(); + $thirdparty = $object->thirdparty; + break; + case 'commande': + require_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php'; + $object = new Commande($db); + $object->fetch($id); + $object->fetch_thirdparty(); + $thirdparty = $object->thirdparty; + break; + case 'facture': + require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php'; + $object = new Facture($db); + $object->fetch($id); + $object->fetch_thirdparty(); + $thirdparty = $object->thirdparty; + break; + case 'expedition': + require_once DOL_DOCUMENT_ROOT.'/expedition/class/expedition.class.php'; + $object = new Expedition($db); + $object->fetch($id); + $object->fetch_thirdparty(); + $thirdparty = $object->thirdparty; + break; + case 'order_supplier': + require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php'; + $object = new CommandeFournisseur($db); + $object->fetch($id); + $object->fetch_thirdparty(); + $thirdparty = $object->thirdparty; + break; + case 'invoice_supplier': + require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php'; + $object = new FactureFournisseur($db); + $object->fetch($id); + $object->fetch_thirdparty(); + $thirdparty = $object->thirdparty; + break; + default: + echo json_encode(array('success' => false, 'error' => 'Unknown element type')); + exit; +} + +if (!$object || !$object->id) { + echo json_encode(array('success' => false, 'error' => 'Object not found')); + exit; +} + +@file_put_contents($debugFile, "Element: $element, ID: $id\n", FILE_APPEND); +@file_put_contents($debugFile, "Object ref: " . $object->ref . ", entity: " . $object->entity . "\n", FILE_APPEND); +@file_put_contents($debugFile, "Thirdparty: " . ($thirdparty ? $thirdparty->id . " - " . $thirdparty->name : "none") . "\n", FILE_APPEND); + +$categories = array(); + +// 1. Customer/Supplier documents +if ($thirdparty && $thirdparty->id) { + $socdir = $conf->societe->multidir_output[$thirdparty->entity] . '/' . dol_sanitizeFileName($thirdparty->id); + @file_put_contents($debugFile, "Societe dir: $socdir (exists: " . (is_dir($socdir) ? "yes" : "no") . ")\n", FILE_APPEND); + $files = getDocumentsForPath($socdir, $debugFile); + if (!empty($files)) { + $categories[] = array( + 'title' => $langs->trans('CustomerDocuments'), + 'icon' => 'fa-building', + 'files' => $files + ); + } +} + +// 2. Current object documents +$objdir = ''; +switch ($element) { + case 'propal': + $objdir = $conf->propal->multidir_output[$object->entity] . '/' . dol_sanitizeFileName($object->ref); + break; + case 'commande': + $objdir = $conf->commande->multidir_output[$object->entity] . '/' . dol_sanitizeFileName($object->ref); + break; + case 'facture': + $objdir = $conf->facture->multidir_output[$object->entity] . '/' . dol_sanitizeFileName($object->ref); + break; + case 'expedition': + $objdir = $conf->expedition->dir_output . '/sending/' . dol_sanitizeFileName($object->ref); + break; + case 'order_supplier': + $objdir = $conf->fournisseur->commande->multidir_output[$object->entity] . '/' . dol_sanitizeFileName($object->ref); + break; + case 'invoice_supplier': + $objdir = $conf->fournisseur->facture->multidir_output[$object->entity] . '/' . get_exdir($object->id, 2, 0, 0, $object, 'invoice_supplier') . dol_sanitizeFileName($object->ref); + break; +} + +if ($objdir) { + @file_put_contents($debugFile, "Object dir: $objdir (exists: " . (is_dir($objdir) ? "yes" : "no") . ")\n", FILE_APPEND); + $files = getDocumentsForPath($objdir, $debugFile); + @file_put_contents($debugFile, "Files found: " . count($files) . "\n", FILE_APPEND); + if (!empty($files)) { + $titleKey = ucfirst($element) . 'Documents'; + $categories[] = array( + 'title' => $langs->trans($titleKey), + 'icon' => getIconForElement($element), + 'files' => $files + ); + } +} + +// 3. Product documents from object lines +$productFiles = array(); +@file_put_contents($debugFile, "Lines count: " . (isset($object->lines) ? count($object->lines) : "not set") . "\n", FILE_APPEND); +if (!empty($object->lines)) { + foreach ($object->lines as $line) { + if (!empty($line->fk_product) && $line->fk_product > 0) { + $proddir = $conf->product->multidir_output[$conf->entity] . '/' . dol_sanitizeFileName($line->fk_product); + @file_put_contents($debugFile, "Product dir: $proddir\n", FILE_APPEND); + $files = getDocumentsForPath($proddir, $debugFile); + foreach ($files as $file) { + $file['product_ref'] = $line->ref; + $file['product_label'] = $line->product_label; + $productFiles[] = $file; + } + } + } +} +if (!empty($productFiles)) { + $categories[] = array( + 'title' => $langs->trans('ProductDocuments'), + 'icon' => 'fa-cube', + 'files' => $productFiles + ); +} + +header('Content-Type: application/json; charset=UTF-8'); +echo json_encode(array('success' => true, 'categories' => $categories)); + +/** + * Get documents from a directory path + * + * @param string $path Directory path + * @param string $debugFile Debug file path (optional) + * @return array Array of file info + */ +function getDocumentsForPath($path, $debugFile = null) +{ + global $langs; + + $files = array(); + + if (!is_dir($path)) { + if ($debugFile) { + @file_put_contents($debugFile, " Path not a dir: $path\n", FILE_APPEND); + } + return $files; + } + + if ($debugFile) { + @file_put_contents($debugFile, " Scanning dir: $path\n", FILE_APPEND); + } + + $filearray = dol_dir_list($path, 'files', 0, '', '(\.meta|_preview.*\.png)$'); + + foreach ($filearray as $file) { + $files[] = array( + 'name' => $file['name'], + 'fullpath' => $file['fullname'], + 'relativepath' => $file['relativename'], + 'size' => $file['size'], + 'size_formatted' => dol_print_size($file['size']), + 'date' => dol_print_date($file['date'], 'day'), + 'icon' => getIconForFile($file['name']) + ); + } + + return $files; +} + +/** + * Get Font Awesome icon for file type + * + * @param string $filename Filename + * @return string Icon class + */ +function getIconForFile($filename) +{ + $ext = strtolower(pathinfo($filename, PATHINFO_EXTENSION)); + + $icons = array( + 'pdf' => 'fa-file-pdf', + 'doc' => 'fa-file-word', + 'docx' => 'fa-file-word', + 'xls' => 'fa-file-excel', + 'xlsx' => 'fa-file-excel', + 'ppt' => 'fa-file-powerpoint', + 'pptx' => 'fa-file-powerpoint', + 'jpg' => 'fa-file-image', + 'jpeg' => 'fa-file-image', + 'png' => 'fa-file-image', + 'gif' => 'fa-file-image', + 'zip' => 'fa-file-archive', + 'rar' => 'fa-file-archive', + 'txt' => 'fa-file-alt', + 'csv' => 'fa-file-csv', + ); + + return isset($icons[$ext]) ? $icons[$ext] : 'fa-file'; +} + +/** + * Get icon for element type + * + * @param string $element Element type + * @return string Icon class + */ +function getIconForElement($element) +{ + $icons = array( + 'propal' => 'fa-file-signature', + 'commande' => 'fa-file-invoice', + 'facture' => 'fa-file-invoice-dollar', + 'expedition' => 'fa-truck', + 'order_supplier' => 'fa-shopping-cart', + 'invoice_supplier' => 'fa-file-invoice', + ); + + return isset($icons[$element]) ? $icons[$element] : 'fa-file'; +} diff --git a/build/buildzip.php b/build/buildzip.php new file mode 100755 index 0000000..3508bbb --- /dev/null +++ b/build/buildzip.php @@ -0,0 +1,316 @@ +#!/usr/bin/env php -d memory_limit=256M + + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU Affero General Public License as + * published by the Free Software Foundation, either version 3 of the + * License, or (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Affero General Public License for more details. + * + * You should have received a copy of the GNU Affero General Public License + * along with this program. If not, see . + */ + +/* + The goal of that php CLI script is to make zip package of your module + as an alternative to web "build zip" or "perl script makepack" +*/ + +// ============================================= configuration + +/** + * list of files & dirs of your module + * + * @var string[] + */ +$listOfModuleContent = [ + 'admin', + 'ajax', + 'backport', + 'class', + 'css', + 'COPYING', + 'core', + 'img', + 'js', + 'langs', + 'lib', + 'sql', + 'tpl', + '*.md', + '*.json', + '*.php', + 'modulebuilder.txt', +]; + +/** + * if you want to exclude some files from your zip + * + * @var string[] + */ +$exclude_list = [ + '/^.git$/', + '/.*js.map/', + '/DEV.md/' +]; + +// ============================================= end of configuration + +/** + * auto detect module name and version from file name + * + * @return (string|string)[] module name and module version + */ +function detectModule() +{ + $name = $version = ""; + $tab = glob("core/modules/mod*.class.php"); + if (count($tab) == 0) { + echo "[fail] Error on auto detect data : there is no mod*.class.php file into core/modules dir\n"; + exit(-1); + } + if (count($tab) == 1) { + $file = $tab[0]; + $pattern = "/.*mod(?.*)\.class\.php/"; + if (preg_match_all($pattern, $file, $matches)) { + $name = strtolower(reset($matches['mod'])); + } + + echo "extract data from $file\n"; + if (!file_exists($file) || $name == "") { + echo "[fail] Error on auto detect data\n"; + exit(-2); + } + } else { + echo "[fail] Error there is more than one mod*.class.php file into core/modules dir\n"; + exit(-3); + } + + //extract version from file + $contents = file_get_contents($file); + $pattern = "/^.*this->version\s*=\s*'(?.*)'\s*;.*\$/m"; + + // search, and store all matching occurrences in $matches + if (preg_match_all($pattern, $contents, $matches)) { + $version = reset($matches['version']); + } + + if (version_compare($version, '0.0.1', '>=') != 1) { + echo "[fail] Error auto extract version fail\n"; + exit(-4); + } + + echo "module name = $name, version = $version\n"; + return [(string) $name, (string) $version]; +} + +/** + * delete recursively a directory + * + * @param string $dir dir path to delete + * + * @return bool true on success or false on failure. + */ +function delTree($dir) +{ + $files = array_diff(scandir($dir), array('.', '..')); + foreach ($files as $file) { + (is_dir("$dir/$file")) ? delTree("$dir/$file") : secureUnlink("$dir/$file"); + } + return rmdir($dir); +} + + +/** + * do a secure delete file/dir with double check + * (don't trust unlink return) + * + * @param string $path full path to delete + * + * @return bool true on success ($path does not exists at the end of process), else exit + */ +function secureUnlink($path) +{ + if (file_exists($path)) { + if (unlink($path)) { + //then check if really deleted + clearstatcache(); + if (file_exists($path)) { // @phpstan-ignore-line + echo "[fail] unlink of $path fail !\n"; + exit(-5); + } + } else { + echo "[fail] unlink of $path fail !\n"; + exit(-6); + } + } + return true; +} + +/** + * create a directory and check if dir exists + * + * @param string $path path to make + * + * @return bool true on success ($path exists at the end of process), else exit + */ +function mkdirAndCheck($path) +{ + if (mkdir($path)) { + clearstatcache(); + if (is_dir($path)) { + return true; + } + } + echo "[fail] Error on $path (mkdir)\n"; + exit(7); +} + +/** + * check if that filename is concerned by exclude filter + * + * @param string $filename file name to check + * + * @return bool true if file is in excluded list + */ +function is_excluded($filename) +{ + global $exclude_list; + $count = 0; + $notused = preg_filter($exclude_list, '1', $filename, -1, $count); + if ($count > 0) { + echo " - exclude $filename\n"; + return true; + } + return false; +} + +/** + * recursive copy files & dirs + * + * @param string $src source dir + * @param string $dst target dir + * + * @return bool true on success or false on failure. + */ +function rcopy($src, $dst) +{ + if (is_dir($src)) { + // Make the destination directory if not exist + mkdirAndCheck($dst); + // open the source directory + $dir = opendir($src); + + // Loop through the files in source directory + while ($file = readdir($dir)) { + if (($file != '.') && ($file != '..')) { + if (is_dir($src . '/' . $file)) { + // Recursively calling custom copy function + // for sub directory + if (!rcopy($src . '/' . $file, $dst . '/' . $file)) { + return false; + } + } else { + if (!is_excluded($file)) { + if (!copy($src . '/' . $file, $dst . '/' . $file)) { + return false; + } + } + } + } + } + closedir($dir); + } elseif (is_file($src)) { + if (!is_excluded($src)) { + if (!copy($src, $dst)) { + return false; + } + } + } + return true; +} + +/** + * build a zip file with only php code and no external depends + * on "zip" exec for example + * + * @param string $folder folder to use as zip root + * @param ZipArchive $zip zip object (ZipArchive) + * @param string $root relative root path into the zip + * + * @return bool true on success or false on failure. + */ +function zipDir($folder, &$zip, $root = "") +{ + foreach (new \DirectoryIterator($folder) as $f) { + if ($f->isDot()) { + continue; + } //skip . .. + $src = $folder . '/' . $f; + $dst = substr($f->getPathname(), strlen($root)); + if ($f->isDir()) { + if ($zip->addEmptyDir($dst)) { + if (zipDir($src, $zip, $root)) { + continue; + } else { + return false; + } + } else { + return false; + } + } + if ($f->isFile()) { + if (! $zip->addFile($src, $dst)) { + return false; + } + } + } + return true; +} + +/** + * main part of script + */ + +list($mod, $version) = detectModule(); +$outzip = sys_get_temp_dir() . "/module_" . $mod . "-" . $version . ".zip"; +if (file_exists($outzip)) { + secureUnlink($outzip); +} + +//copy all sources into system temp directory +$tmpdir = tempnam(sys_get_temp_dir(), $mod . "-module"); +secureUnlink($tmpdir); +mkdirAndCheck($tmpdir); +$dst = $tmpdir . "/" . $mod; +mkdirAndCheck($dst); + +foreach ($listOfModuleContent as $moduleContent) { + foreach (glob($moduleContent) as $entry) { + if (!rcopy($entry, $dst . '/' . $entry)) { + echo "[fail] Error on copy " . $entry . " to " . $dst . "/" . $entry . "\n"; + echo "Please take time to analyze the problem and fix the bug\n"; + exit(-8); + } + } +} + +$z = new ZipArchive(); +$z->open($outzip, ZIPARCHIVE::CREATE); +zipDir($tmpdir, $z, $tmpdir . '/'); +$z->close(); +delTree($tmpdir); +if (file_exists($outzip)) { + echo "[success] module archive is ready : $outzip ...\n"; +} else { + echo "[fail] build zip error\n"; + exit(-9); +} diff --git a/build/makepack-filearchiv.conf b/build/makepack-filearchiv.conf new file mode 100755 index 0000000..16dc1e7 --- /dev/null +++ b/build/makepack-filearchiv.conf @@ -0,0 +1,11 @@ +# Your module name here +# +# Goal: Goal of module +# Version: +# Author: Copyright - +# License: GPLv3 +# Install: Just unpack content of module package in Dolibarr directory. +# Setup: Go on Dolibarr setup - modules to enable module. +# +# Files in module +mymodule/ \ No newline at end of file diff --git a/class/actions_filearchiv.class.php b/class/actions_filearchiv.class.php new file mode 100644 index 0000000..950a8a6 --- /dev/null +++ b/class/actions_filearchiv.class.php @@ -0,0 +1,1942 @@ + + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + */ + +/** + * \file class/actions_filearchiv.class.php + * \brief Hook actions for FileArchiv module - enhanced file display with gallery view + */ + +require_once DOL_DOCUMENT_ROOT.'/core/class/commonhookactions.class.php'; + +class ActionsFilearchiv extends CommonHookActions +{ + /** + * @var DoliDB Database handler + */ + public $db; + + /** + * @var string Error message + */ + public $error = ''; + + /** + * @var array Errors + */ + public $errors = array(); + + /** + * @var array Hook results + */ + public $results = array(); + + /** + * @var string Returned HTML content (legacy) + */ + public $resPrint = ''; + + /** + * @var string Returned HTML content (used by HookManager for addreplace hooks) + */ + public $resprints = ''; + + /** + * Constructor + * + * @param DoliDB $db Database handler + */ + public function __construct($db) + { + $this->db = $db; + // Debug: Write to file when class is instantiated - use module dir for debugging + $debugFile = dirname(__FILE__) . '/../debug.log'; + @file_put_contents($debugFile, date('Y-m-d H:i:s') . " === ActionsFilearchiv CONSTRUCTOR === PHP_SELF=" . $_SERVER['PHP_SELF'] . "\n", FILE_APPEND); + } + + /** + * Hook called on document pages (formObjectOptions) + * Injects the gallery/tile view assets since resPrint is actually output here + * + * @param array $parameters Hook parameters + * @param CommonObject $object Object + * @param string $action Current action + * @param HookManager $hookmanager Hook manager + * @return int 0 = keep standard behavior + */ + public function formObjectOptions($parameters, &$object, &$action, $hookmanager) + { + global $conf, $langs; + + // Only run on document pages + $context = $hookmanager->contextarray; + $isDocumentPage = false; + foreach ($context as $ctx) { + if (strpos($ctx, 'documents') !== false) { + $isDocumentPage = true; + break; + } + } + + if (!$isDocumentPage || !isModEnabled('filearchiv')) { + return 0; + } + + // Debug logging + $debugFile = dirname(__FILE__) . '/../debug.log'; + @file_put_contents($debugFile, date('Y-m-d H:i:s') . " === formObjectOptions CALLED ===\n", FILE_APPEND); + @file_put_contents($debugFile, " context: " . implode(', ', $context) . "\n", FILE_APPEND); + + // Inject the gallery assets - they will wait for DOMContentLoaded + $this->resprints = $this->getGalleryAssetsDeferred(); + + return 0; + } + + /** + * Hook to add custom options/buttons to the file list + * Called in FormFile::list_of_documents after file list rendering + * + * @param array $parameters Hook parameters + * @param FormFile $object FormFile object + * @param string $action Current action + * @param HookManager $hookmanager Hook manager + * @return int 0 = keep standard behavior, >0 = replace standard behavior + */ + public function formBuilddocLineOptions($parameters, &$object, &$action, $hookmanager) + { + global $conf, $langs; + + if (!isModEnabled('filearchiv')) { + return 0; + } + + $filearray = isset($parameters['filearray']) ? $parameters['filearray'] : array(); + $file = isset($parameters['file']) ? $parameters['file'] : array(); + + if (empty($file) || empty($file['name'])) { + return 0; + } + + // Check if this is an image or PDF + $isImage = $this->isImageFile($file['name']); + $isPdf = $this->isPdfFile($file['name']); + + if (!$isImage && !$isPdf) { + return 0; + } + + // Get pinned status + $isPinned = $this->isFilePinned($file); + + // Add pin button + $modulepart = isset($parameters['modulepart']) ? $parameters['modulepart'] : ''; + $relativepath = isset($file['relativename']) ? $file['relativename'] : $file['name']; + + $pinUrl = $_SERVER['PHP_SELF'] . '?' . $_SERVER['QUERY_STRING']; + $pinUrl .= '&action=filearchiv_togglepin'; + $pinUrl .= '&filepath=' . urlencode($relativepath); + $pinUrl .= '&modulepart=' . urlencode($modulepart); + $pinUrl .= '&token=' . newToken(); + + $pinIcon = $isPinned ? 'fas fa-thumbtack' : 'far fa-thumbtack'; + $pinTitle = $isPinned ? $langs->trans('Unpin') : $langs->trans('Pin'); + $pinClass = $isPinned ? 'filearchiv-pinned' : 'filearchiv-unpinned'; + + $this->resprints = ''; + $this->resprints .= ''; + $this->resprints .= ' '; + + return 0; + } + + /** + * Hook called before showing the file list + * Used to inject CSS/JS only when needed and handle view mode switching + * + * @param array $parameters Hook parameters + * @param FormFile $object FormFile object + * @param string $action Current action + * @param HookManager $hookmanager Hook manager + * @return int 0 = keep standard behavior, >0 = replace standard behavior + */ + public function showFilesList($parameters, &$object, &$action, $hookmanager) + { + global $conf, $langs, $user; + + // Debug logging + $debugFile = dirname(__FILE__) . '/../debug.log'; + @file_put_contents($debugFile, date('Y-m-d H:i:s') . " === showFilesList CALLED ===\n", FILE_APPEND); + @file_put_contents($debugFile, " modulepart: " . (isset($parameters['modulepart']) ? $parameters['modulepart'] : 'none') . "\n", FILE_APPEND); + @file_put_contents($debugFile, " filearray count: " . (isset($parameters['filearray']) ? count($parameters['filearray']) : 0) . "\n", FILE_APPEND); + + if (!isModEnabled('filearchiv')) { + @file_put_contents($debugFile, " -> module not enabled\n", FILE_APPEND); + return 0; + } + + $filearray = isset($parameters['filearray']) ? $parameters['filearray'] : array(); + + // Check if there are any images or PDFs + $hasMediaFiles = false; + foreach ($filearray as $file) { + if ($this->isImageFile($file['name']) || $this->isPdfFile($file['name'])) { + $hasMediaFiles = true; + break; + } + } + + if (!$hasMediaFiles) { + @file_put_contents($debugFile, " -> no media files found\n", FILE_APPEND); + return 0; + } + + @file_put_contents($debugFile, " -> injecting gallery assets\n", FILE_APPEND); + + // Inject CSS and JS only when needed + $assets = $this->getInlineAssets($filearray, $parameters); + @file_put_contents($debugFile, " -> assets length: " . strlen($assets) . "\n", FILE_APPEND); + @file_put_contents($debugFile, " -> first 200 chars: " . substr($assets, 0, 200) . "\n", FILE_APPEND); + + $this->resprints = $assets; + + return 0; + } + + /** + * Generate deferred gallery assets that wait for DOM + * Called from formObjectOptions which runs BEFORE the file table exists + * + * @return string HTML with CSS and deferred JS + */ + private function getGalleryAssetsDeferred() + { + $out = ''; + + // CSS - can be injected immediately + $out .= ''; + + // JavaScript - must wait for DOM to find the table + $out .= ''; + + return $out; + } + + /** + * Generate inline CSS and JS assets with toggle for tile view + * + * @param array $filearray Array of files + * @param array $parameters Hook parameters + * @return string HTML with inline CSS and JS + */ + private function getInlineAssets($filearray, $parameters) + { + global $conf, $langs; + + $langs->load('filearchiv@filearchiv'); + + $modulepart = isset($parameters['modulepart']) ? $parameters['modulepart'] : ''; + + // Build file data for all files + $filesData = array(); + $galleryData = array(); + $imageIndex = 0; + + foreach ($filearray as $file) { + $isImage = $this->isImageFile($file['name']); + $isPdf = $this->isPdfFile($file['name']); + + $fileData = array( + 'name' => $file['name'], + 'size' => isset($file['size']) ? dol_print_size($file['size']) : '', + 'date' => isset($file['date']) ? dol_print_date($file['date'], 'day') : '', + 'url' => $this->getFileUrl($file, $modulepart), + 'isImage' => $isImage, + 'isPdf' => $isPdf, + 'icon' => $this->getFileIcon($file['name']), + ); + + // Add thumbnail for images + if ($isImage) { + $fileData['thumb'] = $this->getThumbUrl($file, $modulepart); + $fileData['galleryIndex'] = $imageIndex; + $galleryData[] = array( + 'index' => $imageIndex, + 'name' => $file['name'], + 'path' => $this->getFileUrl($file, $modulepart), + ); + $imageIndex++; + } + + $filesData[] = $fileData; + } + + $out = ''; + + // CSS + $out .= ''; + + // JavaScript + $filesJson = json_encode($filesData); + $galleryJson = json_encode($galleryData); + + $out .= ''; + + return $out; + } + + /** + * Get Font Awesome icon class for file type + * + * @param string $filename Filename + * @return string Icon class + */ + private function getFileIcon($filename) + { + $ext = strtolower(pathinfo($filename, PATHINFO_EXTENSION)); + + $icons = array( + 'pdf' => 'fa-file-pdf', + 'doc' => 'fa-file-word', + 'docx' => 'fa-file-word', + 'xls' => 'fa-file-excel', + 'xlsx' => 'fa-file-excel', + 'ppt' => 'fa-file-powerpoint', + 'pptx' => 'fa-file-powerpoint', + 'jpg' => 'fa-file-image', + 'jpeg' => 'fa-file-image', + 'png' => 'fa-file-image', + 'gif' => 'fa-file-image', + 'webp' => 'fa-file-image', + 'bmp' => 'fa-file-image', + 'svg' => 'fa-file-image', + 'zip' => 'fa-file-archive', + 'rar' => 'fa-file-archive', + '7z' => 'fa-file-archive', + 'tar' => 'fa-file-archive', + 'gz' => 'fa-file-archive', + 'txt' => 'fa-file-alt', + 'csv' => 'fa-file-csv', + 'xml' => 'fa-file-code', + 'json' => 'fa-file-code', + 'html' => 'fa-file-code', + 'htm' => 'fa-file-code', + 'mp3' => 'fa-file-audio', + 'wav' => 'fa-file-audio', + 'mp4' => 'fa-file-video', + 'avi' => 'fa-file-video', + 'mov' => 'fa-file-video', + ); + + return isset($icons[$ext]) ? $icons[$ext] : 'fa-file'; + } + + /** + * Get full URL for a file + * + * @param array $file File array + * @param string $modulepart Module part + * @return string URL + */ + private function getFileUrl($file, $modulepart) + { + global $conf; + + $relativepath = isset($file['relativename']) ? $file['relativename'] : $file['name']; + return DOL_URL_ROOT . '/document.php?modulepart=' . urlencode($modulepart) . '&file=' . urlencode($relativepath); + } + + /** + * Get thumbnail URL for a file + * + * @param array $file File array + * @param string $modulepart Module part + * @return string Thumbnail URL + */ + private function getThumbUrl($file, $modulepart) + { + // For now, use the same as file URL + // Could be enhanced to use actual thumbnails + return $this->getFileUrl($file, $modulepart); + } + + /** + * Check if file is an image + * + * @param string $filename Filename + * @return bool + */ + private function isImageFile($filename) + { + $ext = strtolower(pathinfo($filename, PATHINFO_EXTENSION)); + return in_array($ext, array('jpg', 'jpeg', 'png', 'gif', 'webp', 'bmp', 'svg')); + } + + /** + * Check if file is a PDF + * + * @param string $filename Filename + * @return bool + */ + private function isPdfFile($filename) + { + $ext = strtolower(pathinfo($filename, PATHINFO_EXTENSION)); + return $ext === 'pdf'; + } + + /** + * Check if file is pinned + * + * @param array $file File array + * @return bool + */ + private function isFilePinned($file) + { + // Will be implemented with database table + // For now return false + $filepath = isset($file['fullname']) ? $file['fullname'] : ''; + if (empty($filepath)) { + return false; + } + + $sql = "SELECT rowid FROM " . MAIN_DB_PREFIX . "filearchiv_pinned"; + $sql .= " WHERE filepath = '" . $this->db->escape($filepath) . "'"; + + $resql = $this->db->query($sql); + if ($resql && $this->db->num_rows($resql) > 0) { + return true; + } + return false; + } + + /** + * Toggle pin status for a file + * + * @param string $filepath Full file path + * @param string $modulepart Module part + * @return bool Success + */ + public function togglePin($filepath, $modulepart) + { + global $user; + + if ($this->isFilePinnedByPath($filepath)) { + // Unpin + $sql = "DELETE FROM " . MAIN_DB_PREFIX . "filearchiv_pinned"; + $sql .= " WHERE filepath = '" . $this->db->escape($filepath) . "'"; + } else { + // Pin + $sql = "INSERT INTO " . MAIN_DB_PREFIX . "filearchiv_pinned"; + $sql .= " (filepath, modulepart, fk_user, datec)"; + $sql .= " VALUES ('" . $this->db->escape($filepath) . "',"; + $sql .= " '" . $this->db->escape($modulepart) . "',"; + $sql .= " " . ((int) $user->id) . ","; + $sql .= " '" . $this->db->idate(dol_now()) . "')"; + } + + $resql = $this->db->query($sql); + return $resql ? true : false; + } + + /** + * Check if file is pinned by path + * + * @param string $filepath File path + * @return bool + */ + private function isFilePinnedByPath($filepath) + { + $sql = "SELECT rowid FROM " . MAIN_DB_PREFIX . "filearchiv_pinned"; + $sql .= " WHERE filepath = '" . $this->db->escape($filepath) . "'"; + + $resql = $this->db->query($sql); + if ($resql && $this->db->num_rows($resql) > 0) { + return true; + } + return false; + } + + /** + * Hook called when FormMail generates the email form + * This hook is called with initHooks(['formmail']) context + * + * @param array $parameters Hook parameters (addfileaction, removefileaction, trackid) + * @param FormMail $object FormMail object + * @param string $action Current action + * @param HookManager $hookmanager Hook manager + * @return int 0 = keep standard behavior (add resPrint to output), >0 = replace entire form + */ + public function getFormMail($parameters, &$object, &$action, $hookmanager) + { + global $conf, $langs; + + // DEBUG - ALWAYS write first + @file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " === getFormMail ENTRY ===\n", FILE_APPEND); + + // Get action from URL + $currentAction = GETPOST('action', 'aZ09'); + $trackid = isset($parameters['trackid']) ? $parameters['trackid'] : ''; + $id = GETPOST('id', 'int'); + + // DEBUG - detailed info + @file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " getFormMail called, action=$currentAction, trackid=$trackid, id=$id, PHP_SELF=" . $_SERVER['PHP_SELF'] . "\n", FILE_APPEND); + + if (!isModEnabled('filearchiv')) { + file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " -> module not enabled\n", FILE_APPEND); + return 0; + } + + // Only show on presend action + if ($currentAction != 'presend') { + file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " -> action is not presend, skipping\n", FILE_APPEND); + return 0; + } + + // Get element and ID from URL/POST + $element = GETPOST('element', 'aZ09'); + $id = GETPOST('id', 'int'); + + // Try to determine element from trackid pattern + $trackid = isset($parameters['trackid']) ? $parameters['trackid'] : ''; + if (empty($element) && !empty($trackid)) { + // Trackid format: pro123 (propal), ord123 (order), inv123 (invoice), shi123 (shipping) + $patterns = array( + 'pro' => 'propal', + 'ord' => 'commande', + 'inv' => 'facture', + 'shi' => 'expedition', + 'sor' => 'order_supplier', + 'sin' => 'invoice_supplier', + ); + foreach ($patterns as $prefix => $elemType) { + if (strpos($trackid, $prefix) === 0) { + $element = $elemType; + $id = (int) substr($trackid, strlen($prefix)); + break; + } + } + } + + // Try to get from the current page URL + if (empty($element)) { + $script = basename($_SERVER['PHP_SELF']); + $pageMap = array( + 'card.php' => array( + '/comm/propal/' => 'propal', + '/commande/' => 'commande', + '/compta/facture/' => 'facture', + '/expedition/' => 'expedition', + ), + ); + if (isset($pageMap[$script])) { + foreach ($pageMap[$script] as $path => $elemType) { + if (strpos($_SERVER['PHP_SELF'], $path) !== false) { + $element = $elemType; + break; + } + } + } + } + + if (empty($element) || empty($id)) { + return 0; + } + + // Load translations + $langs->load('filearchiv@filearchiv'); + + // Build the document browser button and modal HTML + $out = $this->getDocumentBrowserHTML($element, $id, $trackid); + + $this->resprints = $out; + return 0; // Return 0 to add our HTML without replacing the form + } + + /** + * Hook called on formConfirm - adds document browser for presend action + * This hook is called early on the page and allows adding HTML that will be output + * + * @param array $parameters Hook parameters + * @param CommonObject $object Current object + * @param string $action Current action + * @param HookManager $hookmanager Hook manager + * @return int 0 = keep standard behavior (add resPrint), >0 = replace + */ + /** + * Hook called at the beginning of each page (doActions) + * Used to inject document browser HTML on presend pages + * + * @param array $parameters Hook parameters + * @param CommonObject $object Current object + * @param string $action Current action + * @param HookManager $hookmanager Hook manager + * @return int 0 = keep standard behavior + */ + public function doActions($parameters, &$object, &$action, $hookmanager) + { + global $conf, $langs; + + // Debug log + @file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " doActions called, action=" . GETPOST('action', 'aZ09') . "\n", FILE_APPEND); + + return 0; + } + + public function formConfirm($parameters, &$object, &$action, $hookmanager) + { + global $conf, $langs; + + // Always write to debug log to confirm hook is being called + @file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " formConfirm called, action=" . GETPOST('action', 'aZ09') . "\n", FILE_APPEND); + + if (!isModEnabled('filearchiv')) { + return 0; + } + + // Only show on presend action + $currentAction = GETPOST('action', 'aZ09'); + + if ($currentAction != 'presend') { + return 0; + } + + // Get current object info + $element = ''; + $id = 0; + + if (is_object($object) && !empty($object->element)) { + $element = $object->element; + $id = $object->id; + } + + @file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " formConfirm presend: element=$element, id=$id\n", FILE_APPEND); + + if (empty($element) || empty($id)) { + return 0; + } + + // Check if this element type is supported + $supportedElements = array('propal', 'commande', 'facture', 'expedition', 'order_supplier', 'invoice_supplier'); + if (!in_array($element, $supportedElements)) { + return 0; + } + + // Load translations + $langs->load('filearchiv@filearchiv'); + + // Build the document browser button and modal HTML + $out = $this->getDocumentBrowserHTML($element, $id, ''); + + @file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " formConfirm injecting HTML, length=" . strlen($out) . "\n", FILE_APPEND); + + $this->resprints = $out; + return 0; + } + + /** + * Hook called after action buttons are displayed + * This hook is reliably called on all card pages + * + * @param array $parameters Hook parameters + * @param CommonObject $object Current object + * @param string $action Current action + * @param HookManager $hookmanager Hook manager + * @return int 0 = keep standard behavior + */ + public function addMoreActionsButtons($parameters, &$object, &$action, $hookmanager) + { + global $conf, $langs; + + if (!isModEnabled('filearchiv')) { + return 0; + } + + // Only show on presend action + $currentAction = GETPOST('action', 'aZ09'); + if ($currentAction != 'presend') { + return 0; + } + + // Get current object info + $element = ''; + $id = 0; + + if (is_object($object) && !empty($object->element)) { + $element = $object->element; + $id = $object->id; + } + + if (empty($element) || empty($id)) { + return 0; + } + + // Check if this element type is supported + $supportedElements = array('propal', 'commande', 'facture', 'expedition', 'order_supplier', 'invoice_supplier'); + if (!in_array($element, $supportedElements)) { + return 0; + } + + // Load translations + $langs->load('filearchiv@filearchiv'); + + // Build the document browser button and modal HTML + $this->resprints = $this->getDocumentBrowserHTML($element, $id, ''); + + return 0; + } + + /** + * Generate HTML for document browser button and modal + * + * @param string $element Element type (facture, propal, commande, etc.) + * @param int $id Element ID + * @param string $trackid Email tracking ID + * @return string HTML output + */ + private function getDocumentBrowserHTML($element, $id, $trackid) + { + global $conf, $langs; + + // Use custom module path for AJAX URLs + $ajaxUrl = dol_buildpath('/custom/filearchiv/ajax/getdocuments.php', 1); + $addFileUrl = dol_buildpath('/custom/filearchiv/ajax/addfile.php', 1); + + // Debug: Log the URLs + @file_put_contents('/tmp/filearchiv_debug.log', date('Y-m-d H:i:s') . " ajaxUrl=$ajaxUrl, addFileUrl=$addFileUrl\n", FILE_APPEND); + + $out = ''; + + // CSS for document browser - using Dolibarr native styles where possible + $out .= ' +'; + + // Button to open document browser (hidden initially, will be moved by JS) + $out .= ' +'; + + // Modal HTML + $out .= ' +
+
+
+

' . $langs->trans('SelectDocumentsToAttach') . '

+ × +
+
+
+ +
' . $langs->trans('Loading') . '...
+
+
+
+ + 0 ' . $langs->trans('FilesSelected') . ' + +
+ + +
+
+
+
'; + + // JavaScript + $out .= ' +'; + + return $out; + } +} diff --git a/core/modules/modFileArchiv.class.php b/core/modules/modFileArchiv.class.php new file mode 100755 index 0000000..50f760a --- /dev/null +++ b/core/modules/modFileArchiv.class.php @@ -0,0 +1,560 @@ + + * Copyright (C) 2018-2019 Nicolas ZABOURI + * Copyright (C) 2019-2024 Frédéric France + * Copyright (C) 2026 Eduard Wisch + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/** + * \defgroup filearchiv Module FileArchiv + * \brief FileArchiv module descriptor. + * + * \file htdocs/filearchiv/core/modules/modFileArchiv.class.php + * \ingroup filearchiv + * \brief Description and activation file for module FileArchiv + */ +include_once DOL_DOCUMENT_ROOT.'/core/modules/DolibarrModules.class.php'; + + +/** + * Description and activation class for module FileArchiv + */ +class modFileArchiv extends DolibarrModules +{ + /** + * Constructor. Define names, constants, directories, boxes, permissions + * + * @param DoliDB $db Database handler + */ + public function __construct($db) + { + global $conf, $langs; + + $this->db = $db; + + // Id for module (must be unique). + // Use here a free id (See in Home -> System information -> Dolibarr for list of used modules id). + $this->numero = 500026; // TODO Go on page https://wiki.dolibarr.org/index.php/List_of_modules_id to reserve an id number for your module + + // Key text used to identify module (for permissions, menus, etc...) + $this->rights_class = 'filearchiv'; + + // Family can be 'base' (core modules),'crm','financial','hr','projects','products','ecm','technic' (transverse modules),'interface' (link with external tools),'other','...' + // It is used to group modules by family in module setup page + $this->family = "other"; + + // Module position in the family on 2 digits ('01', '10', '20', ...) + $this->module_position = '90'; + + // Gives the possibility for the module, to provide his own family info and position of this family (Overwrite $this->family and $this->module_position. Avoid this) + //$this->familyinfo = array('myownfamily' => array('position' => '01', 'label' => $langs->trans("MyOwnFamily"))); + // Module label (no space allowed), used if translation string 'ModuleFileArchivName' not found (FileArchiv is name of module). + $this->name = preg_replace('/^mod/i', '', get_class($this)); + + // DESCRIPTION_FLAG + // Module description, used if translation string 'ModuleFileArchivDesc' not found (FileArchiv is name of module). + $this->description = "FileArchivDescription"; + // Used only if file README.md and README-LL.md not found. + $this->descriptionlong = "FileArchivDescription"; + + // Author + $this->editor_name = 'Alles Watt laeuft'; + $this->editor_url = ''; // Must be an external online web site + $this->editor_squarred_logo = ''; // Must be image filename into the module/img directory followed with @modulename. Example: 'myimage.png@filearchiv' + + // Possible values for version are: 'development', 'experimental', 'dolibarr', 'dolibarr_deprecated', 'experimental_deprecated' or a version string like 'x.y.z' + $this->version = '1.0'; + // Url to the file with your last numberversion of this module + //$this->url_last_version = 'http://www.example.com/versionmodule.txt'; + + // Key used in llx_const table to save module status enabled/disabled (where FILEARCHIV is value of property name of module in uppercase) + $this->const_name = 'MAIN_MODULE_'.strtoupper($this->name); + + // Name of image file used for this module. + // If file is in theme/yourtheme/img directory under name object_pictovalue.png, use this->picto='pictovalue' + // If file is in module/img directory under name object_pictovalue.png, use this->picto='pictovalue@module' + // To use a supported fa-xxx css style of font awesome, use this->picto='xxx' + $this->picto = 'fa-file'; + + // Define some features supported by module (triggers, login, substitutions, menus, css, etc...) + $this->module_parts = array( + // Set this to 1 if module has its own trigger directory (core/triggers) + 'triggers' => 0, + // Set this to 1 if module has its own login method file (core/login) + 'login' => 0, + // Set this to 1 if module has its own substitution function file (core/substitutions) + 'substitutions' => 0, + // Set this to 1 if module has its own menus handler directory (core/menus) + 'menus' => 0, + // Set this to 1 if module overwrite template dir (core/tpl) + 'tpl' => 1, + // Set this to 1 if module has its own barcode directory (core/modules/barcode) + 'barcode' => 0, + // Set this to 1 if module has its own models directory (core/modules/xxx) + 'models' => 0, + // Set this to 1 if module has its own printing directory (core/modules/printing) + 'printing' => 0, + // Set this to 1 if module has its own theme directory (theme) + 'theme' => 0, + // Set this to relative path of css file if module has its own css file + 'css' => array( + ), + // Set this to relative path of js file if module must load a js on all pages + 'js' => array( + ), + // Set here all hooks context managed by module. To find available hook context, make a "grep -r '>initHooks(' *" on source code. You can also set hook context to 'all' + /* BEGIN MODULEBUILDER HOOKSCONTEXTS */ + 'hooks' => array( + 'data' => array( + 'formfile', + 'formmail', + // Card pages + 'invoicecard', + 'propalcard', + 'ordercard', + 'expeditioncard', + 'ticketcard', + 'projectcard', + 'thirdpartycard', + 'supplier_invoicecard', + 'supplier_ordercard', + 'productcard', + // Document pages (for gallery/lightbox view) - correct context names with 's' + 'productdocuments', + 'invoicedocuments', + 'propaldocuments', + 'orderdocuments', + 'expeditiondocuments', + 'thirdpartydocuments', + 'projectdocuments', + 'ticketdocuments', + 'supplier_invoicedocuments', + 'supplier_orderdocuments', + ), + ), + /* END MODULEBUILDER HOOKSCONTEXTS */ + // Set this to 1 if features of module are opened to external users + 'moduleforexternal' => 0, + // Set this to 1 if the module provides a website template into doctemplates/websites/website_template-mytemplate + 'websitetemplates' => 0, + // Set this to 1 if the module provides a captcha driver + 'captcha' => 0 + ); + + // Data directories to create when module is enabled. + // Example: this->dirs = array("/filearchiv/temp","/filearchiv/subdir"); + $this->dirs = array("/filearchiv/temp"); + + // Config pages. Put here list of php page, stored into filearchiv/admin directory, to use to setup module. + $this->config_page_url = array("setup.php@filearchiv"); + + // Dependencies + // A condition to hide module + $this->hidden = getDolGlobalInt('MODULE_FILEARCHIV_DISABLED'); // A condition to disable module; + // List of module class names that must be enabled if this module is enabled. Example: array('always'=>array('modModuleToEnable1','modModuleToEnable2'), 'FR'=>array('modModuleToEnableFR')...) + $this->depends = array(); + // List of module class names to disable if this one is disabled. Example: array('modModuleToDisable1', ...) + $this->requiredby = array(); + // List of module class names this module is in conflict with. Example: array('modModuleToDisable1', ...) + $this->conflictwith = array(); + + // The language file dedicated to your module + $this->langfiles = array("filearchiv@filearchiv"); + + // Prerequisites + $this->phpmin = array(7, 1); // Minimum version of PHP required by module + // $this->phpmax = array(8, 0); // Maximum version of PHP required by module + $this->need_dolibarr_version = array(19, -3); // Minimum version of Dolibarr required by module + // $this->max_dolibarr_version = array(19, -3); // Maximum version of Dolibarr required by module + $this->need_javascript_ajax = 0; + + // Messages at activation + $this->warnings_activation = array(); // Warning to show when we activate module. array('always'='text') or array('FR'='textfr','MX'='textmx'...) + $this->warnings_activation_ext = array(); // Warning to show when we activate an external module. array('always'='text') or array('FR'='textfr','MX'='textmx'...) + //$this->automatic_activation = array('FR'=>'FileArchivWasAutomaticallyActivatedBecauseOfYourCountryChoice'); + //$this->always_enabled = true; // If true, can't be disabled + + // Constants + // List of particular constants to add when module is enabled (key, 'chaine', value, desc, visible, 'current' or 'allentities', deleteonunactive) + // Example: $this->const=array(1 => array('FILEARCHIV_MYNEWCONST1', 'chaine', 'myvalue', 'This is a constant to add', 1), + // 2 => array('FILEARCHIV_MYNEWCONST2', 'chaine', 'myvalue', 'This is another constant to add', 0, 'current', 1) + // ); + $this->const = array(); + + // Some keys to add into the overwriting translation tables + /*$this->overwrite_translation = array( + 'en_US:ParentCompany'=>'Parent company or reseller', + 'fr_FR:ParentCompany'=>'Maison mère ou revendeur' + )*/ + + if (!isModEnabled("filearchiv")) { + $conf->filearchiv = new stdClass(); + $conf->filearchiv->enabled = 0; + } + + // Array to add new pages in new tabs + /* BEGIN MODULEBUILDER TABS */ + $this->tabs = array(); + /* END MODULEBUILDER TABS */ + // Example: + // To add a new tab identified by code tabname1 + // $this->tabs[] = array('data' => 'objecttype:+tabname1:Title1:mylangfile@filearchiv:$user->hasRight(\'filearchiv\', \'read\'):/filearchiv/mynewtab1.php?id=__ID__'); + // To add another new tab identified by code tabname2. Label will be result of calling all substitution functions on 'Title2' key. + // $this->tabs[] = array('data' => 'objecttype:+tabname2:SUBSTITUTION_Title2:mylangfile@filearchiv:$user->hasRight(\'othermodule\', \'read\'):/filearchiv/mynewtab2.php?id=__ID__', + // To remove an existing tab identified by code tabname + // $this->tabs[] = array('data' => 'objecttype:-tabname:NU:conditiontoremove'); + // + // Where objecttype can be + // 'categories_x' to add a tab in category view (replace 'x' by type of category (0=product, 1=supplier, 2=customer, 3=member) + // 'contact' to add a tab in contact view + // 'contract' to add a tab in contract view + // 'delivery' to add a tab in delivery view + // 'group' to add a tab in group view + // 'intervention' to add a tab in intervention view + // 'invoice' to add a tab in customer invoice view + // 'supplier_invoice' to add a tab in supplier invoice view + // 'member' to add a tab in foundation member view + // 'opensurveypoll' to add a tab in opensurvey poll view + // 'order' to add a tab in sale order view + // 'supplier_order' to add a tab in supplier order view + // 'payment' to add a tab in payment view + // 'supplier_payment' to add a tab in supplier payment view + // 'product' to add a tab in product view + // 'propal' to add a tab in propal view + // 'project' to add a tab in project view + // 'stock' to add a tab in stock view + // 'thirdparty' to add a tab in third party view + // 'user' to add a tab in user view + + + // Dictionaries + /* Example: + $this->dictionaries=array( + 'langs' => 'filearchiv@filearchiv', + // List of tables we want to see into dictionary editor + 'tabname' => array("table1", "table2", "table3"), + // Label of tables + 'tablib' => array("Table1", "Table2", "Table3"), + // Request to select fields + 'tabsql' => array('SELECT f.rowid as rowid, f.code, f.label, f.active FROM '.$this->db->prefix().'table1 as f', 'SELECT f.rowid as rowid, f.code, f.label, f.active FROM '.$this->db->prefix().'table2 as f', 'SELECT f.rowid as rowid, f.code, f.label, f.active FROM '.$this->db->prefix().'table3 as f'), + // Sort order + 'tabsqlsort' => array("label ASC", "label ASC", "label ASC"), + // List of fields (result of select to show dictionary) + 'tabfield' => array("code,label", "code,label", "code,label"), + // List of fields (list of fields to edit a record) + 'tabfieldvalue' => array("code,label", "code,label", "code,label"), + // List of fields (list of fields for insert) + 'tabfieldinsert' => array("code,label", "code,label", "code,label"), + // Name of columns with primary key (try to always name it 'rowid') + 'tabrowid' => array("rowid", "rowid", "rowid"), + // Condition to show each dictionary + 'tabcond' => array(isModEnabled('filearchiv'), isModEnabled('filearchiv'), isModEnabled('filearchiv')), + // Tooltip for every fields of dictionaries: DO NOT PUT AN EMPTY ARRAY + 'tabhelp' => array(array('code' => $langs->trans('CodeTooltipHelp'), 'field2' => 'field2tooltip'), array('code' => $langs->trans('CodeTooltipHelp'), 'field2' => 'field2tooltip'), ...), + ); + */ + /* BEGIN MODULEBUILDER DICTIONARIES */ + $this->dictionaries = array(); + /* END MODULEBUILDER DICTIONARIES */ + + // Boxes/Widgets + // Add here list of php file(s) stored in filearchiv/core/boxes that contains a class to show a widget. + /* BEGIN MODULEBUILDER WIDGETS */ + $this->boxes = array( + // 0 => array( + // 'file' => 'filearchivwidget1.php@filearchiv', + // 'note' => 'Widget provided by FileArchiv', + // 'enabledbydefaulton' => 'Home', + // ), + // ... + ); + /* END MODULEBUILDER WIDGETS */ + + // Cronjobs (List of cron jobs entries to add when module is enabled) + // unit_frequency must be 60 for minute, 3600 for hour, 86400 for day, 604800 for week + /* BEGIN MODULEBUILDER CRON */ + $this->cronjobs = array( + // 0 => array( + // 'label' => 'MyJob label', + // 'jobtype' => 'method', + // 'class' => '/filearchiv/class/myobject.class.php', + // 'objectname' => 'MyObject', + // 'method' => 'doScheduledJob', + // 'parameters' => '', + // 'comment' => 'Comment', + // 'frequency' => 2, + // 'unitfrequency' => 3600, + // 'status' => 0, + // 'test' => 'isModEnabled("filearchiv")', + // 'priority' => 50, + // ), + ); + /* END MODULEBUILDER CRON */ + // Example: $this->cronjobs=array( + // 0=>array('label'=>'My label', 'jobtype'=>'method', 'class'=>'/dir/class/file.class.php', 'objectname'=>'MyClass', 'method'=>'myMethod', 'parameters'=>'param1, param2', 'comment'=>'Comment', 'frequency'=>2, 'unitfrequency'=>3600, 'status'=>0, 'test'=>'isModEnabled("filearchiv")', 'priority'=>50), + // 1=>array('label'=>'My label', 'jobtype'=>'command', 'command'=>'', 'parameters'=>'param1, param2', 'comment'=>'Comment', 'frequency'=>1, 'unitfrequency'=>3600*24, 'status'=>0, 'test'=>'isModEnabled("filearchiv")', 'priority'=>50) + // ); + + // Permissions provided by this module + $this->rights = array(); + $r = 0; + // Add here entries to declare new permissions + /* BEGIN MODULEBUILDER PERMISSIONS */ + /* + $o = 1; + $this->rights[$r][0] = $this->numero . sprintf("%02d", ($o * 10) + 1); // Permission id (must not be already used) + $this->rights[$r][1] = 'Read objects of FileArchiv'; // Permission label + $this->rights[$r][4] = 'myobject'; + $this->rights[$r][5] = 'read'; // In php code, permission will be checked by test if ($user->hasRight('filearchiv', 'myobject', 'read')) + $r++; + $this->rights[$r][0] = $this->numero . sprintf("%02d", ($o * 10) + 2); // Permission id (must not be already used) + $this->rights[$r][1] = 'Create/Update objects of FileArchiv'; // Permission label + $this->rights[$r][4] = 'myobject'; + $this->rights[$r][5] = 'write'; // In php code, permission will be checked by test if ($user->hasRight('filearchiv', 'myobject', 'write')) + $r++; + $this->rights[$r][0] = $this->numero . sprintf("%02d", ($o * 10) + 3); // Permission id (must not be already used) + $this->rights[$r][1] = 'Delete objects of FileArchiv'; // Permission label + $this->rights[$r][4] = 'myobject'; + $this->rights[$r][5] = 'delete'; // In php code, permission will be checked by test if ($user->hasRight('filearchiv', 'myobject', 'delete')) + $r++; + */ + /* END MODULEBUILDER PERMISSIONS */ + + + // Main menu entries to add + $this->menu = array(); + $r = 0; + // Add here entries to declare new menus + /* BEGIN MODULEBUILDER TOPMENU */ + $this->menu[$r++] = array( + 'fk_menu' => '', // Will be stored into mainmenu + leftmenu. Use '' if this is a top menu. For left menu, use 'fk_mainmenu=xxx' or 'fk_mainmenu=xxx,fk_leftmenu=yyy' where xxx is mainmenucode and yyy is a leftmenucode + 'type' => 'top', // This is a Top menu entry + 'titre' => 'ModuleFileArchivName', + 'prefix' => img_picto('', $this->picto, 'class="pictofixedwidth valignmiddle"'), + 'mainmenu' => 'filearchiv', + 'leftmenu' => '', + 'url' => '/filearchiv/filearchivindex.php', + 'langs' => 'filearchiv@filearchiv', // Lang file to use (without .lang) by module. File must be in langs/code_CODE/ directory. + 'position' => 1000 + $r, + 'enabled' => 'isModEnabled("filearchiv")', // Define condition to show or hide menu entry. Use 'isModEnabled("filearchiv")' if entry must be visible if module is enabled. + 'perms' => '1', // Use 'perms'=>'$user->hasRight("filearchiv", "myobject", "read")' if you want your menu with a permission rules + 'target' => '', + 'user' => 2, // 0=Menu for internal users, 1=external users, 2=both + ); + /* END MODULEBUILDER TOPMENU */ + + /* BEGIN MODULEBUILDER LEFTMENU MYOBJECT */ + /* + $this->menu[$r++]=array( + 'fk_menu' => 'fk_mainmenu=filearchiv', // '' if this is a top menu. For left menu, use 'fk_mainmenu=xxx' or 'fk_mainmenu=xxx,fk_leftmenu=yyy' where xxx is mainmenucode and yyy is a leftmenucode + 'type' => 'left', // This is a Left menu entry + 'titre' => 'MyObject', + 'prefix' => img_picto('', $this->picto, 'class="pictofixedwidth valignmiddle paddingright"'), + 'mainmenu' => 'filearchiv', + 'leftmenu' => 'myobject', + 'url' => '/filearchiv/filearchivindex.php', + 'langs' => 'filearchiv@filearchiv', // Lang file to use (without .lang) by module. File must be in langs/code_CODE/ directory. + 'position' => 1000 + $r, + 'enabled' => 'isModEnabled("filearchiv")', // Define condition to show or hide menu entry. Use 'isModEnabled("filearchiv")' if entry must be visible if module is enabled. + 'perms' => '$user->hasRight("filearchiv", "myobject", "read")', + 'target' => '', + 'user' => 2, // 0=Menu for internal users, 1=external users, 2=both + 'object' => 'MyObject' + ); + $this->menu[$r++]=array( + 'fk_menu' => 'fk_mainmenu=filearchiv,fk_leftmenu=myobject', // '' if this is a top menu. For left menu, use 'fk_mainmenu=xxx' or 'fk_mainmenu=xxx,fk_leftmenu=yyy' where xxx is mainmenucode and yyy is a leftmenucode + 'type' => 'left', // This is a Left menu entry + 'titre' => 'New_MyObject', + 'mainmenu' => 'filearchiv', + 'leftmenu' => 'filearchiv_myobject_new', + 'url' => '/filearchiv/myobject_card.php?action=create', + 'langs' => 'filearchiv@filearchiv', // Lang file to use (without .lang) by module. File must be in langs/code_CODE/ directory. + 'position' => 1000 + $r, + 'enabled' => 'isModEnabled("filearchiv")', // Define condition to show or hide menu entry. Use 'isModEnabled("filearchiv")' if entry must be visible if module is enabled. Use '$leftmenu==\'system\'' to show if leftmenu system is selected. + 'perms' => '$user->hasRight("filearchiv", "myobject", "write")' + 'target' => '', + 'user' => 2, // 0=Menu for internal users, 1=external users, 2=both + 'object' => 'MyObject' + ); + $this->menu[$r++]=array( + 'fk_menu' => 'fk_mainmenu=filearchiv,fk_leftmenu=myobject', // '' if this is a top menu. For left menu, use 'fk_mainmenu=xxx' or 'fk_mainmenu=xxx,fk_leftmenu=yyy' where xxx is mainmenucode and yyy is a leftmenucode + 'type' => 'left', // This is a Left menu entry + 'titre' => 'List_MyObject', + 'mainmenu' => 'filearchiv', + 'leftmenu' => 'filearchiv_myobject_list', + 'url' => '/filearchiv/myobject_list.php', + 'langs' => 'filearchiv@filearchiv', // Lang file to use (without .lang) by module. File must be in langs/code_CODE/ directory. + 'position' => 1000 + $r, + 'enabled' => 'isModEnabled("filearchiv")', // Define condition to show or hide menu entry. Use 'isModEnabled("filearchiv")' if entry must be visible if module is enabled. + 'perms' => '$user->hasRight("filearchiv", "myobject", "read")' + 'target' => '', + 'user' => 2, // 0=Menu for internal users, 1=external users, 2=both + 'object' => 'MyObject' + ); + */ + /* END MODULEBUILDER LEFTMENU MYOBJECT */ + + + // Exports profiles provided by this module + $r = 0; + /* BEGIN MODULEBUILDER EXPORT MYOBJECT */ + /* + $langs->load("filearchiv@filearchiv"); + $this->export_code[$r] = $this->rights_class.'_'.$r; + $this->export_label[$r] = 'MyObjectLines'; // Translation key (used only if key ExportDataset_xxx_z not found) + $this->export_icon[$r] = $this->picto; + // Define $this->export_fields_array, $this->export_TypeFields_array and $this->export_entities_array + $keyforclass = 'MyObject'; $keyforclassfile='/filearchiv/class/myobject.class.php'; $keyforelement='myobject@filearchiv'; + include DOL_DOCUMENT_ROOT.'/core/commonfieldsinexport.inc.php'; + //$this->export_fields_array[$r]['t.fieldtoadd']='FieldToAdd'; $this->export_TypeFields_array[$r]['t.fieldtoadd']='Text'; + //unset($this->export_fields_array[$r]['t.fieldtoremove']); + //$keyforclass = 'MyObjectLine'; $keyforclassfile='/filearchiv/class/myobject.class.php'; $keyforelement='myobjectline@filearchiv'; $keyforalias='tl'; + //include DOL_DOCUMENT_ROOT.'/core/commonfieldsinexport.inc.php'; + $keyforselect='myobject'; $keyforaliasextra='extra'; $keyforelement='myobject@filearchiv'; + include DOL_DOCUMENT_ROOT.'/core/extrafieldsinexport.inc.php'; + //$keyforselect='myobjectline'; $keyforaliasextra='extraline'; $keyforelement='myobjectline@filearchiv'; + //include DOL_DOCUMENT_ROOT.'/core/extrafieldsinexport.inc.php'; + //$this->export_dependencies_array[$r] = array('myobjectline' => array('tl.rowid','tl.ref')); // To force to activate one or several fields if we select some fields that need same (like to select a unique key if we ask a field of a child to avoid the DISTINCT to discard them, or for computed field than need several other fields) + //$this->export_special_array[$r] = array('t.field' => '...'); + //$this->export_examplevalues_array[$r] = array('t.field' => 'Example'); + //$this->export_help_array[$r] = array('t.field' => 'FieldDescHelp'); + $this->export_sql_start[$r]='SELECT DISTINCT '; + $this->export_sql_end[$r] =' FROM '.$this->db->prefix().'filearchiv_myobject as t'; + //$this->export_sql_end[$r] .=' LEFT JOIN '.$this->db->prefix().'filearchiv_myobject_line as tl ON tl.fk_myobject = t.rowid'; + $this->export_sql_end[$r] .=' WHERE 1 = 1'; + $this->export_sql_end[$r] .=' AND t.entity IN ('.getEntity('myobject').')'; + $r++; */ + /* END MODULEBUILDER EXPORT MYOBJECT */ + + // Imports profiles provided by this module + $r = 0; + /* BEGIN MODULEBUILDER IMPORT MYOBJECT */ + /* + $langs->load("filearchiv@filearchiv"); + $this->import_code[$r] = $this->rights_class.'_'.$r; + $this->import_label[$r] = 'MyObjectLines'; // Translation key (used only if key ExportDataset_xxx_z not found) + $this->import_icon[$r] = $this->picto; + $this->import_tables_array[$r] = array('t' => $this->db->prefix().'filearchiv_myobject', 'extra' => $this->db->prefix().'filearchiv_myobject_extrafields'); + $this->import_tables_creator_array[$r] = array('t' => 'fk_user_author'); // Fields to store import user id + $import_sample = array(); + $keyforclass = 'MyObject'; $keyforclassfile='/filearchiv/class/myobject.class.php'; $keyforelement='myobject@filearchiv'; + include DOL_DOCUMENT_ROOT.'/core/commonfieldsinimport.inc.php'; + $import_extrafield_sample = array(); + $keyforselect='myobject'; $keyforaliasextra='extra'; $keyforelement='myobject@filearchiv'; + include DOL_DOCUMENT_ROOT.'/core/extrafieldsinimport.inc.php'; + $this->import_fieldshidden_array[$r] = array('extra.fk_object' => 'lastrowid-'.$this->db->prefix().'filearchiv_myobject'); + $this->import_regex_array[$r] = array(); + $this->import_examplevalues_array[$r] = array_merge($import_sample, $import_extrafield_sample); + $this->import_updatekeys_array[$r] = array('t.ref' => 'Ref'); + $this->import_convertvalue_array[$r] = array( + 't.ref' => array( + 'rule'=>'getrefifauto', + 'class'=>(!getDolGlobalString('FILEARCHIV_MYOBJECT_ADDON') ? 'mod_myobject_standard' : getDolGlobalString('FILEARCHIV_MYOBJECT_ADDON')), + 'path'=>"/core/modules/filearchiv/".(!getDolGlobalString('FILEARCHIV_MYOBJECT_ADDON') ? 'mod_myobject_standard' : getDolGlobalString('FILEARCHIV_MYOBJECT_ADDON')).'.php', + 'classobject'=>'MyObject', + 'pathobject'=>'/filearchiv/class/myobject.class.php', + ), + 't.fk_soc' => array('rule' => 'fetchidfromref', 'file' => '/societe/class/societe.class.php', 'class' => 'Societe', 'method' => 'fetch', 'element' => 'ThirdParty'), + 't.fk_user_valid' => array('rule' => 'fetchidfromref', 'file' => '/user/class/user.class.php', 'class' => 'User', 'method' => 'fetch', 'element' => 'user'), + 't.fk_mode_reglement' => array('rule' => 'fetchidfromcodeorlabel', 'file' => '/compta/paiement/class/cpaiement.class.php', 'class' => 'Cpaiement', 'method' => 'fetch', 'element' => 'cpayment'), + ); + $this->import_run_sql_after_array[$r] = array(); + $r++; */ + /* END MODULEBUILDER IMPORT MYOBJECT */ + } + + /** + * Function called when module is enabled. + * The init function add constants, boxes, permissions and menus (defined in constructor) into Dolibarr database. + * It also creates data directories + * + * @param string $options Options when enabling module ('', 'noboxes') + * @return int<-1,1> 1 if OK, <=0 if KO + */ + public function init($options = '') + { + global $conf, $langs; + + // Create tables of module at module activation + //$result = $this->_load_tables('/install/mysql/', 'filearchiv'); + $result = $this->_load_tables('/filearchiv/sql/'); + if ($result < 0) { + return -1; // Do not activate module if error 'not allowed' returned when loading module SQL queries (the _load_table run sql with run_sql with the error allowed parameter set to 'default') + } + + // Create extrafields during init + //include_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php'; + //$extrafields = new ExtraFields($this->db); + //$result0=$extrafields->addExtraField('filearchiv_separator1', "Separator 1", 'separator', 1, 0, 'thirdparty', 0, 0, '', array('options'=>array(1=>1)), 1, '', 1, 0, '', '', 'filearchiv@filearchiv', 'isModEnabled("filearchiv")'); + //$result1=$extrafields->addExtraField('filearchiv_myattr1', "New Attr 1 label", 'boolean', 1, 3, 'thirdparty', 0, 0, '', '', 1, '', -1, 0, '', '', 'filearchiv@filearchiv', 'isModEnabled("filearchiv")'); + //$result2=$extrafields->addExtraField('filearchiv_myattr2', "New Attr 2 label", 'varchar', 1, 10, 'project', 0, 0, '', '', 1, '', -1, 0, '', '', 'filearchiv@filearchiv', 'isModEnabled("filearchiv")'); + //$result3=$extrafields->addExtraField('filearchiv_myattr3', "New Attr 3 label", 'varchar', 1, 10, 'bank_account', 0, 0, '', '', 1, '', -1, 0, '', '', 'filearchiv@filearchiv', 'isModEnabled("filearchiv")'); + //$result4=$extrafields->addExtraField('filearchiv_myattr4', "New Attr 4 label", 'select', 1, 3, 'thirdparty', 0, 1, '', array('options'=>array('code1'=>'Val1','code2'=>'Val2','code3'=>'Val3')), 1,'', -1, 0, '', '', 'filearchiv@filearchiv', 'isModEnabled("filearchiv")'); + //$result5=$extrafields->addExtraField('filearchiv_myattr5', "New Attr 5 label", 'text', 1, 10, 'user', 0, 0, '', '', 1, '', -1, 0, '', '', 'filearchiv@filearchiv', 'isModEnabled("filearchiv")'); + + // Permissions + $this->remove($options); + + $sql = array(); + + // Document templates + $moduledir = dol_sanitizeFileName('filearchiv'); + $myTmpObjects = array(); + $myTmpObjects['MyObject'] = array('includerefgeneration' => 0, 'includedocgeneration' => 0); + + foreach ($myTmpObjects as $myTmpObjectKey => $myTmpObjectArray) { + if ($myTmpObjectArray['includerefgeneration']) { + $src = DOL_DOCUMENT_ROOT.'/install/doctemplates/'.$moduledir.'/template_myobjects.odt'; + $dirodt = DOL_DATA_ROOT.($conf->entity > 1 ? '/'.$conf->entity : '').'/doctemplates/'.$moduledir; + $dest = $dirodt.'/template_myobjects.odt'; + + if (file_exists($src) && !file_exists($dest)) { + require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php'; + dol_mkdir($dirodt); + $result = dol_copy($src, $dest, '0', 0); + if ($result < 0) { + $langs->load("errors"); + $this->error = $langs->trans('ErrorFailToCopyFile', $src, $dest); + return 0; + } + } + + $sql = array_merge($sql, array( + "DELETE FROM ".$this->db->prefix()."document_model WHERE nom = 'standard_".strtolower($myTmpObjectKey)."' AND type = '".$this->db->escape(strtolower($myTmpObjectKey))."' AND entity = ".((int) $conf->entity), + "INSERT INTO ".$this->db->prefix()."document_model (nom, type, entity) VALUES('standard_".strtolower($myTmpObjectKey)."', '".$this->db->escape(strtolower($myTmpObjectKey))."', ".((int) $conf->entity).")", + "DELETE FROM ".$this->db->prefix()."document_model WHERE nom = 'generic_".strtolower($myTmpObjectKey)."_odt' AND type = '".$this->db->escape(strtolower($myTmpObjectKey))."' AND entity = ".((int) $conf->entity), + "INSERT INTO ".$this->db->prefix()."document_model (nom, type, entity) VALUES('generic_".strtolower($myTmpObjectKey)."_odt', '".$this->db->escape(strtolower($myTmpObjectKey))."', ".((int) $conf->entity).")" + )); + } + } + + return $this->_init($sql, $options); + } + + /** + * Function called when module is disabled. + * Remove from database constants, boxes and permissions from Dolibarr database. + * Data directories are not deleted + * + * @param string $options Options when enabling module ('', 'noboxes') + * @return int<-1,1> 1 if OK, <=0 if KO + */ + public function remove($options = '') + { + $sql = array(); + return $this->_remove($sql, $options); + } +} diff --git a/core/tpl/card_presend.tpl.php b/core/tpl/card_presend.tpl.php new file mode 100644 index 0000000..bfc4352 --- /dev/null +++ b/core/tpl/card_presend.tpl.php @@ -0,0 +1,448 @@ + + * Copyright (C) 2022 Charlene Benke + * Copyright (C) 2023 Maxime Nicolas + * Copyright (C) 2023 Benjamin GREMBI + * Copyright (C) 2024-2025 Frédéric France + * Copyright (C) 2024 MDW + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + * or see https://www.gnu.org/ + */ + +/** + * @var string $trackid + * @var string $modelmail + * @var string $defaulttopic + * @var string $defaulttopiclang + * @var int<0,1> $diroutput + * @var string[] $arrayoffamiliestoexclude Example: array('system', 'mycompany', 'object', 'objectamount', 'date', 'user', ...); + * @var string $file + * @var string $action + * @var CommonObject $object + * @var Conf $conf + * @var DoliDB $db + * @var HookManager $hookmanager + * @var Translate $langs + */ +' +@phan-var-force int<0,1> $diroutput +@phan-var-force string $defaulttopic +@phan-var-force string $defaulttopiclang +@phan-var-force string[] $arrayoffamiliestoexclude +@phan-var-force string $file +@phan-var-force CommonObject $object +'; + +// Protection to avoid direct call of template +if (empty($conf) || !is_object($conf)) { + print "Error, template page can't be called as URL"; + exit(1); +} + +$fileparams = array(); +$file = null; + +if ($action == 'presend') { + $langs->load("mails"); + + $titreform = 'SendMail'; + + $object->fetchProject(); + + $ref = dol_sanitizeFileName($object->ref); + if (!in_array($object->element, array('user', 'member'))) { + //$fileparams['fullname'] can be filled from the card + //Get also the main_lastdoc field of $object. If not found, try to guess with following code + if (!empty($object->last_main_doc) && is_readable(DOL_DATA_ROOT.'/'.$object->last_main_doc) && is_file(DOL_DATA_ROOT.'/'.$object->last_main_doc)) { + $fileparams['fullname'] = DOL_DATA_ROOT.'/'.$object->last_main_doc; + } else { + include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php'; + // Special case + if ($object->element == 'invoice_supplier') { + $fileparams = dol_most_recent_file($diroutput.'/'.get_exdir($object->id, 2, 0, 0, $object, $object->element).$ref, preg_quote($ref, '/').'([^\-])+'); + } else { + $fileparams = dol_most_recent_file($diroutput.'/'.$ref, preg_quote($ref, '/').'[^\-]+'); + } + } + + $file = isset($fileparams['fullname']) ? $fileparams['fullname'] : null; + } + + // Define output language + $outputlangs = $langs; + $newlang = ''; + if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang)) { + if (is_object($object->thirdparty)) { + $newlang = $object->thirdparty->default_lang; + } + if (GETPOST('lang_id', 'aZ09')) { + $newlang = GETPOST('lang_id', 'aZ09'); + } + } + + if (!empty($newlang)) { + $outputlangs = new Translate('', $conf); + $outputlangs->setDefaultLang($newlang); + // Load traductions files required by page + $outputlangs->loadLangs(array('commercial', 'bills', 'orders', 'contracts', 'main', 'members', 'propal', 'products', 'supplier_proposal', 'interventions', 'receptions', 'sendings')); + if (!empty($defaulttopiclang)) { + $outputlangs->loadLangs(array($defaulttopiclang)); + } + } + + $topicmail = ''; + if (empty($object->ref_client)) { + $topicmail = $outputlangs->trans($defaulttopic, '__REF__'); + } elseif (!empty($object->ref_client)) { + $topicmail = $outputlangs->trans($defaulttopic, '__REF__ (__REF_CLIENT__)'); + } + + // Build document if it does not exists + $forcebuilddoc = true; + // except for some cases where it can not exists + if (in_array($object->element, array('user', 'member'))) { + $forcebuilddoc = false; + } + if ($object->element == 'invoice_supplier' && !getDolGlobalString('INVOICE_SUPPLIER_ADDON_PDF')) { + $forcebuilddoc = false; + } + if ($object->element == 'project' && !getDolGlobalString('PROJECT_ADDON_PDF')) { + $forcebuilddoc = false; + } + if ($object->element == 'project_task' && !getDolGlobalString('PROJECT_TASK_ADDON_PDF')) { + $forcebuilddoc = false; + } + if ($object->element == 'societe' && !getDolGlobalString('COMPANY_ADDON_PDF')) { + $forcebuilddoc = false; + } + + if ($forcebuilddoc) { // If there is no default value for supplier invoice, we do not generate file, even if modelpdf was set by a manual generation + if ((!$file || !is_readable($file)) && method_exists($object, 'generateDocument')) { + $hidedetails = $hidedetails?$hidedetails:''; + $hidedesc = $hidedetails?$hidedetails:''; + $hideref = $hidedetails?$hidedetails:''; + + $result = $object->generateDocument(GETPOST('model') ? GETPOST('model') : $object->model_pdf, $outputlangs, $hidedetails, $hidedesc, $hideref); + if ($result < 0) { + dol_print_error($db, $object->error, $object->errors); + exit(); + } + if ($object->element == 'invoice_supplier') { + $fileparams = dol_most_recent_file($diroutput.'/'.get_exdir($object->id, 2, 0, 0, $object, $object->element).$ref, preg_quote($ref, '/').'([^\-])+'); + } else { + $fileparams = dol_most_recent_file($diroutput.'/'.$ref, preg_quote($ref, '/').'[^\-]+'); + } + + $file = isset($fileparams['fullname']) ? $fileparams['fullname'] : null; + } + } + + print '
'; + print '
'; + print '
'; + print load_fiche_titre($langs->trans($titreform)); + + print dol_get_fiche_head([], '', '', -1); + + // Create form for email + include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php'; + $formmail = new FormMail($db); + + $formmail->param['langsmodels'] = (empty($newlang) ? $langs->defaultlang : $newlang); + $formmail->fromtype = (GETPOST('fromtype') ? GETPOST('fromtype') : getDolGlobalString('MAIN_MAIL_DEFAULT_FROMTYPE', 'user')); + + if ($formmail->fromtype === 'user') { + $formmail->fromid = $user->id; + } + if ($object->element == 'salary' && getDolGlobalString('INVOICE_EMAIL_SENDER')) { + $formmail->frommail = getDolGlobalString('SINVOICE_EMAIL_SENDER'); + $formmail->fromname = getDolGlobalString('INVOICE_EMAIL_SENDER_NAME', ''); + $formmail->fromtype = 'special'; + } + if ($object->element === 'facture' && getDolGlobalString('INVOICE_EMAIL_SENDER')) { + $formmail->frommail = getDolGlobalString('INVOICE_EMAIL_SENDER'); + $formmail->fromname = getDolGlobalString('INVOICE_EMAIL_SENDER_NAME', ''); + $formmail->fromtype = 'special'; + } + if ($object->element === 'shipping' && getDolGlobalString('SHIPPING_EMAIL_SENDER')) { + $formmail->frommail = getDolGlobalString('SHIPPING_EMAIL_SENDER'); + $formmail->fromname = getDolGlobalString('SHIPPING_EMAIL_SENDER_NAME', ''); + $formmail->fromtype = 'special'; + } + if ($object->element === 'commande' && getDolGlobalString('COMMANDE_EMAIL_SENDER')) { + $formmail->frommail = getDolGlobalString('COMMANDE_EMAIL_SENDER'); + $formmail->fromname = getDolGlobalString('COMMANDE_EMAIL_SENDER_NAME', ''); + $formmail->fromtype = 'special'; + } + if ($object->element === 'order_supplier' && getDolGlobalString('ORDER_SUPPLIER_EMAIL_SENDER')) { + $formmail->frommail = getDolGlobalString('ORDER_SUPPLIER_EMAIL_SENDER'); + $formmail->fromname = getDolGlobalString('ORDER_SUPPLIER_EMAIL_SENDER_NAME', ''); + $formmail->fromtype = 'special'; + } + if ($object->element === 'recruitmentcandidature') { + $formmail->frommail = getDolGlobalString('RECRUITMENT_EMAIL_SENDER', (!empty($recruitermail) ? $recruitermail : '')); + $formmail->fromname = getDolGlobalString('RECRUITMENT_EMAIL_SENDER_NAME', (!empty($recruitername) ? $recruitername : '')); + $formmail->fromtype = 'special'; + } + + // Set the default "From" + $defaultfrom = ''; + if (GETPOSTISSET('fromtype')) { + $defaultfrom = GETPOST('fromtype'); + } else { + $parameters = array(); + $reshook = $hookmanager->executeHooks('getDefaultFromEmail', $parameters, $formmail); + if (empty($reshook)) { + $defaultfrom = $formmail->fromtype; + } + if (!empty($hookmanager->resArray['defaultfrom'])) { + $defaultfrom = $hookmanager->resArray['defaultfrom']; + } + } + $formmail->fromtype = $defaultfrom; + + $formmail->trackid = empty($trackid) ? '' : $trackid; + $formmail->inreplyto = empty($inreplyto) ? '' : $inreplyto; + $formmail->withfrom = 1; + $formmail->withlayout = 'email'; + $formmail->withaiprompt = 'html'; + + // Define $liste, a list of recipients with email inside <>. + $liste = array(); + if ($object->element == 'expensereport') { + '@phan-var-force ExpenseReport $object'; + $fuser = new User($db); + $fuser->fetch($object->fk_user_author); + $liste['thirdparty'] = $fuser->getFullName($outputlangs)." <".$fuser->email.">"; + } elseif ($object->element == 'partnership' && getDolGlobalString('PARTNERSHIP_IS_MANAGED_FOR') == 'member') { + '@phan-var-force Partnership $object'; + $fadherent = new Adherent($db); + $fadherent->fetch($object->fk_member); + $liste['member'] = $fadherent->getFullName($outputlangs)." <".$fadherent->email.">"; + } elseif ($object->element == 'societe') { + '@phan-var-force Societe $object'; + foreach ($object->thirdparty_and_contact_email_array(1) as $key => $value) { + $liste[$key] = $value; + } + } elseif ($object->element == 'contact') { + '@phan-var-force Contact $object'; + $liste['contact'] = $object->getFullName($outputlangs)." <".$object->email.">"; + } elseif ($object->element == 'user' || $object->element == 'member') { + '@phan-var-force User|Adherent $object'; + $liste['thirdparty'] = $object->getFullName($outputlangs)." <".$object->email.">"; + } elseif ($object->element == 'salary') { + '@phan-var-force Salary $object'; + $fuser = new User($db); + $fuser->fetch($object->fk_user); + $liste['thirdparty'] = $fuser->getFullName($outputlangs)." <".$fuser->email.">"; + } else { + // For example if element is project + if (!empty($object->socid) && $object->socid > 0 && !is_object($object->thirdparty) && method_exists($object, 'fetch_thirdparty')) { + $object->fetch_thirdparty(); + } + if (is_object($object->thirdparty)) { + foreach ($object->thirdparty->thirdparty_and_contact_email_array(1) as $key => $value) { + $liste[$key] = $value; + } + } + } + + if (getDolGlobalString('MAIN_MAIL_ENABLED_USER_DEST_SELECT')) { + $listeuser = array(); + $fuserdest = new User($db); + $result = $fuserdest->fetchAll('ASC', 't.lastname', 0, 0, "(t.statut:=:1) AND (t.employee:=:1) AND (t.email:isnot:NULL) AND (t.email:!=:'')", 'AND', true); + if ($result > 0 && is_array($fuserdest->users) && count($fuserdest->users) > 0) { + foreach ($fuserdest->users as $uuserdest) { + $listeuser[$uuserdest->id] = $uuserdest->user_get_property($uuserdest->id, 'email'); + } + } elseif ($result < 0) { + setEventMessages(null, $fuserdest->errors, 'errors'); + } + if (count($listeuser) > 0) { + $formmail->withtouser = $listeuser; + $formmail->withtoccuser = $listeuser; + } + } + + //$arrayoffamiliestoexclude=array('system', 'mycompany', 'object', 'objectamount', 'date', 'user', ...); + if (!isset($arrayoffamiliestoexclude)) { + $arrayoffamiliestoexclude = null; + } + + // Make substitution in email content + if (!empty($object)) { + // First we set ->substit (useless, it will be erased later) and ->substit_lines + $formmail->setSubstitFromObject($object, $langs); + } + $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, $arrayoffamiliestoexclude, $object); + + $emailsendersignature = null; + // Overwrite __SENDEREMAIL_SIGNATURE__ with value select into form + if ($formmail->fromtype) { + $reg = array(); + if (preg_match('/user/', $formmail->fromtype, $reg)) { + $emailsendersignature = $user->signature; + } elseif (preg_match('/company/', $formmail->fromtype, $reg)) { + $emailsendersignature = ''; + } elseif (preg_match('/senderprofile_(\d+)/', $formmail->fromtype, $reg)) { + $sql = "SELECT rowid, label, email, signature FROM ".$db->prefix()."c_email_senderprofile"; + $sql .= " WHERE rowid = ".((int) $reg[1]); + $resql = $db->query($sql); + if ($resql) { + $obj = $db->fetch_object($resql); + if ($obj) { + $emailsendersignature = $obj->signature; + } + } + } + } + $substitutionarray['__SENDEREMAIL_SIGNATURE__'] = $emailsendersignature; + + $substitutionarray['__CHECK_READ__'] = ""; + if (is_object($object) && is_object($object->thirdparty)) { + $checkRead = ' 'formemail' + ); + complete_substitutions_array($substitutionarray, $outputlangs, $object, $parameters); + + // Find all external contact addresses + $tmpobject = $object; + if (($object->element == 'shipping' || $object->element == 'reception')) { + $origin = $object->origin; + $origin_id = $object->origin_id; + + if (!empty($origin) && !empty($origin_id)) { + $element = $subelement = $origin; + $regs = array(); + if (preg_match('/^([^_]+)_([^_]+)/i', $origin, $regs)) { + $element = $regs[1]; + $subelement = $regs[2]; + } + // For compatibility + if ($element == 'order') { + $element = $subelement = 'commande'; + } + if ($element == 'propal') { + $element = 'comm/propal'; + $subelement = 'propal'; + } + if ($element == 'contract') { + $element = $subelement = 'contrat'; + } + if ($element == 'inter') { + $element = $subelement = 'fichinter'; + } + if ($element == 'shipping') { + $element = $subelement = 'expedition'; + } + if ($element == 'order_supplier') { + $element = 'fourn'; + $subelement = 'fournisseur.commande'; + } + if ($element == 'project') { + $element = 'projet'; + } + + dol_include_once('/'.$element.'/class/'.$subelement.'.class.php'); + $classname = ucfirst($origin); + $objectsrc = new $classname($db); + '@phan-var-force Commande|Facture $objectsrc'; + $objectsrc->fetch($origin_id); + + $tmpobject = $objectsrc; + } + } + + $contactarr = array(); + $contactarr = $tmpobject->liste_contact(-1, 'external', 0, '', 1); + + if (is_array($contactarr) && count($contactarr) > 0) { + require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php'; + require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php'; + $contactstatic = new Contact($db); + $tmpcompany = new Societe($db); + + foreach ($contactarr as $contact) { + $contactstatic->fetch($contact['id']); + // Complete substitution array + $substitutionarray['__CONTACT_NAME_'.$contact['code'].'__'] = $contactstatic->getFullName($outputlangs, 1); + $substitutionarray['__CONTACT_LASTNAME_'.$contact['code'].'__'] = $contactstatic->lastname; + $substitutionarray['__CONTACT_FIRSTNAME_'.$contact['code'].'__'] = $contactstatic->firstname; + $substitutionarray['__CONTACT_TITLE_'.$contact['code'].'__'] = $contactstatic->getCivilityLabel(); + + // Complete $liste with the $contact + if (empty($liste[$contact['id']])) { // If this contact id not already into the $liste + $contacttoshow = ''; + if (isset($object->thirdparty) && is_object($object->thirdparty)) { + if ($contactstatic->fk_soc != $object->thirdparty->id) { + $tmpcompany->fetch($contactstatic->fk_soc); + if ($tmpcompany->id > 0) { + $contacttoshow .= $tmpcompany->name.': '; + } + } + } + $contacttoshow .= $contactstatic->getFullName($outputlangs, 1); + $contacttoshow .= " <".($contactstatic->email ? $contactstatic->email : $langs->transnoentitiesnoconv("NoEMail")) .">"; + $liste[$contact['id']] = $contacttoshow; + } + } + } + + $formmail->withto = $liste; + $formmail->withtofree = (GETPOST('sendto', 'alphawithlgt') ? GETPOST('sendto', 'alphawithlgt') : '1'); + $formmail->withtocc = $liste; + $formmail->withtoccc = getDolGlobalString('MAIN_EMAIL_USECCC'); + $formmail->withtopic = $topicmail; + $formmail->withfile = 2; + $formmail->withbody = 1; + $formmail->withdeliveryreceipt = 1; + $formmail->withcancel = 1; + + // Array of substitutions + $formmail->substit = $substitutionarray; + + // Array of other parameters + $formmail->param['action'] = 'send'; + $formmail->param['models'] = $modelmail; + $formmail->param['models_id'] = GETPOSTINT('modelmailselected'); + $formmail->param['id'] = $object->id; + $formmail->param['returnurl'] = $_SERVER["PHP_SELF"].'?id='.$object->id; + $formmail->param['fileinit'] = array($file); + $formmail->param['object_entity'] = $object->entity; + + // Show form + print $formmail->get_form(); + + // FileArchiv: Add document browser for related documents + if (isModEnabled('filearchiv')) { + $langs->load('filearchiv@filearchiv'); + $element = $object->element; + $objectId = $object->id; + $trackid = $formmail->trackid; + + // Include document browser + include dol_buildpath('/filearchiv/tpl/document_browser.tpl.php', 0); + } + + print dol_get_fiche_end(); +} diff --git a/css/docbrowser.css.php b/css/docbrowser.css.php new file mode 100644 index 0000000..51b9f9a --- /dev/null +++ b/css/docbrowser.css.php @@ -0,0 +1,228 @@ + + * CSS for FileArchiv Document Browser + */ + +// Define constant if not already defined +if (!defined('NOTOKENRENEWAL')) { + define('NOTOKENRENEWAL', '1'); +} +if (!defined('NOLOGIN')) { + define('NOLOGIN', '1'); +} +if (!defined('NOCSRFCHECK')) { + define('NOCSRFCHECK', '1'); +} + +header('Content-Type: text/css'); +?> +/* FileArchiv Document Browser Styles */ +.filearchiv-docbrowser-section { + margin-top: 20px; + padding: 15px; + background: #f8f9fa; + border: 1px solid #dee2e6; + border-radius: 6px; +} +.filearchiv-docbrowser-title { + font-weight: 600; + margin-bottom: 10px; + color: #333; +} +.filearchiv-modal-overlay { + display: none; + position: fixed; + top: 0; + left: 0; + width: 100%; + height: 100%; + background: rgba(0,0,0,0.5); + z-index: 9999; + justify-content: center; + align-items: center; +} +.filearchiv-modal-overlay.active { + display: flex; +} +.filearchiv-modal { + background: #fff; + border-radius: 8px; + width: 90%; + max-width: 800px; + max-height: 80vh; + display: flex; + flex-direction: column; + box-shadow: 0 4px 20px rgba(0,0,0,0.3); +} +.filearchiv-modal-header { + padding: 15px 20px; + border-bottom: 1px solid #ddd; + display: flex; + justify-content: space-between; + align-items: center; + background: #f8f9fa; + border-radius: 8px 8px 0 0; +} +.filearchiv-modal-header h3 { + margin: 0; + font-size: 18px; + color: #333; +} +.filearchiv-modal-close { + font-size: 24px; + cursor: pointer; + color: #666; + line-height: 1; +} +.filearchiv-modal-close:hover { + color: #333; +} +.filearchiv-modal-body { + padding: 20px; + overflow-y: auto; + flex: 1; +} +.filearchiv-modal-footer { + padding: 15px 20px; + border-top: 1px solid #ddd; + display: flex; + justify-content: space-between; + align-items: center; + background: #f8f9fa; + border-radius: 0 0 8px 8px; +} +.filearchiv-category { + margin-bottom: 15px; + border: 1px solid #e0e0e0; + border-radius: 6px; + overflow: hidden; +} +.filearchiv-category-header { + padding: 12px 15px; + background: #f5f5f5; + cursor: pointer; + display: flex; + align-items: center; + gap: 10px; + font-weight: 600; + color: #333; +} +.filearchiv-category-header:hover { + background: #eee; +} +.filearchiv-category-header i { + width: 20px; + text-align: center; +} +.filearchiv-category-header .count { + margin-left: auto; + background: #007bff; + color: #fff; + padding: 2px 8px; + border-radius: 10px; + font-size: 12px; +} +.filearchiv-category-header .toggle-icon { + margin-left: 5px; + transition: transform 0.2s; +} +.filearchiv-category-body { + display: none; + padding: 10px 15px; + background: #fff; +} +.filearchiv-category.open .filearchiv-category-body { + display: block; +} +.filearchiv-category.open .toggle-icon { + transform: rotate(180deg); +} +.filearchiv-file-item { + display: flex; + align-items: center; + padding: 8px 10px; + border-bottom: 1px solid #f0f0f0; + gap: 10px; +} +.filearchiv-file-item:last-child { + border-bottom: none; +} +.filearchiv-file-item:hover { + background: #f8f9fa; +} +.filearchiv-file-item input[type="checkbox"] { + width: 18px; + height: 18px; + cursor: pointer; +} +.filearchiv-file-item .file-icon { + font-size: 20px; + width: 24px; + text-align: center; +} +.filearchiv-file-item .file-info { + flex: 1; +} +.filearchiv-file-item .file-name { + font-weight: 500; + color: #333; + word-break: break-word; +} +.filearchiv-file-item .file-meta { + font-size: 12px; + color: #888; + margin-top: 2px; +} +.filearchiv-file-item .file-source { + font-size: 11px; + color: #007bff; + background: #e7f3ff; + padding: 2px 6px; + border-radius: 3px; +} +.filearchiv-selected-count { + font-weight: 600; + color: #333; +} +.filearchiv-btn { + padding: 8px 16px; + border-radius: 4px; + border: none; + cursor: pointer; + font-size: 14px; + display: inline-flex; + align-items: center; + gap: 6px; +} +.filearchiv-btn-primary { + background: #007bff; + color: #fff; +} +.filearchiv-btn-primary:hover { + background: #0056b3; +} +.filearchiv-btn-primary:disabled { + background: #ccc; + cursor: not-allowed; +} +.filearchiv-btn-secondary { + background: #6c757d; + color: #fff; +} +.filearchiv-btn-secondary:hover { + background: #545b62; +} +.filearchiv-loading { + text-align: center; + padding: 40px; + color: #666; +} +.filearchiv-loading i { + font-size: 32px; + margin-bottom: 10px; +} +.filearchiv-empty { + text-align: center; + padding: 30px; + color: #888; +} diff --git a/debug.log b/debug.log new file mode 100644 index 0000000..d882704 --- /dev/null +++ b/debug.log @@ -0,0 +1,26 @@ +2026-02-19 15:58:05 === ActionsFilearchiv CONSTRUCTOR === PHP_SELF=/dolibarr/compta/facture/document.php +2026-02-19 15:58:05 === showFilesList CALLED === + modulepart: facture + filearray count: 2 + -> injecting gallery assets + -> assets length: 12764 + -> first 200 chars: + + +
+
+ trans('BrowseRelatedDocuments'); ?> +
+ +
+ + +
+
+
+

trans('SelectDocumentsToAttach'); ?>

+ × +
+
+
+ +
trans('Loading'); ?>...
+
+
+
+ + 0 trans('FilesSelected'); ?> + +
+ + +
+
+
+
+ +