adding menu-tools item

diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/menu-tools.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/menu-tools.inc
index 25e48f0..1771b38 100644 (file)
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/menu-tools.inc
+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/menu-tools.inc
@@ -1,8 +1,7 @@
 <div id="submenu">
-       <a href="/cgi-bin/koha/tools/cities.pl">Cities</a>
-       <a href="/cgi-bin/koha/tools/holidays.pl">Holidays</a>
-               <a href="/cgi-bin/koha/tools/marc.pl">Export</a>
-       <a href="/cgi-bin/koha/import/breeding.pl">Reservoir</a>
-       <a href="/cgi-bin/koha/tools/barcodes.pl">Barcodes</a>
-       <a href="/cgi-bin/koha/tools/viewlog.pl">Log viewer</a>
+    <a href="/cgi-bin/koha/tools/cities.pl">Cities</a>
+    <a href="/cgi-bin/koha/tools/holidays.pl">Holidays</a>
+    <a href="/cgi-bin/koha/tools/marc.pl">Export</a>
+    <a href="/cgi-bin/koha/import/breeding.pl">Reservoir</a>
+    <a href="/cgi-bin/koha/tools/barcodes.pl">Barcodes</a>
 </div>
\ No newline at end of file

diff --git a/koha-tmpl/intranet-tmpl/prog/en/tools/letter.tmpl b/koha-tmpl/intranet-tmpl/prog/en/tools/letter.tmpl
index d52cc94..10ba7b1 100644 (file)
--- a/koha-tmpl/intranet-tmpl/prog/en/tools/letter.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/tools/letter.tmpl
@@ -2,7 +2,7 @@
        Letters admin
 <!-- TMPL_INCLUDE NAME="doc-head-close.inc" -->
 <!-- TMPL_INCLUDE NAME="menus.inc" -->
-<!-- TMPL_INCLUDE NAME="menu-admin.inc" -->
+<!-- TMPL_INCLUDE NAME="menu-tools.inc" -->
 
        <!-- TMPL_IF NAME="else" -->
                <form action="/cgi-bin/koha/tools/letter.pl" method="post">

diff --git a/koha-tmpl/intranet-tmpl/prog/en/tools/tools-home.tmpl b/koha-tmpl/intranet-tmpl/prog/en/tools/tools-home.tmpl
new file mode 100644 (file)
index 0000000..e65d2ff
--- /dev/null
+++ b/koha-tmpl/intranet-tmpl/prog/en/tools/tools-home.tmpl
@@ -0,0 +1,41 @@
+<!-- TMPL_INCLUDE NAME="doc-head-open.inc" -->Koha -- System Administration<!-- TMPL_INCLUDE NAME="doc-head-close.inc" -->
+
+<!-- TMPL_INCLUDE NAME="menus.inc" -->
+<!-- TMPL_INCLUDE NAME="menu-tools.inc" -->
+
+<h1>Koha tools</h1>
+
+<table>
+<caption>Various tools</caption>
+<tr>
+       <th><a href="/cgi-bin/koha/tools/barcodes.pl">Barcode generator</a></th>
+       <td>Generate your barcodes</td>
+</tr>
+<tr>
+       <th><a href="/cgi-bin/koha/tools/holidays.pl">Holidays</a></th>
+       <td>Define holidays (days where the library is closed)</td>
+</tr>
+<tr>
+       <th><a href="/cgi-bin/koha/tools/export.pl">Export</a></th>
+       <td>Export datas</td>
+</tr>
+<tr>
+       <th><a href="/cgi-bin/koha/tools/import.pl">Import</a></th>
+       <td>Import datas in the reservoir</td>
+</tr>
+<tr>
+       <th><a href="/cgi-bin/koha/tools/koha-news.pl">News</a></th>
+       <td>A basic news system for OPAC & librarian interfaces</td>
+</tr>
+<tr>
+       <th><a href="/cgi-bin/koha/tools/letter.pl">Letters</a></th>
+       <td>Define letters </td>
+</tr>
+<tr>
+       <th><a href="/cgi-bin/koha/tools/overduerules.pl">overdue rules</a></th>
+       <td>Rules for overdue books</td>
+</tr>
+</table>
+
+
+<!-- TMPL_INCLUDE NAME="intranet-bottom.inc" -->

diff --git a/tools/tools-home.pl b/tools/tools-home.pl
new file mode 100755 (executable)
index 0000000..4b9e680
--- /dev/null
+++ b/tools/tools-home.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Database;
+use HTML::Template;
+
+my $query = new CGI;
+my ($template, $loggedinuser, $cookie)
+    = get_template_and_user({template_name => "tools/tools-home.tmpl",
+                            query => $query,
+                            type => "intranet",
+                            authnotrequired => 0,
+                            flagsrequired => {tools => 1},
+                            debug => 1,
+                            });
+
+output_html_with_http_headers $query, $cookie, $template->output;