From: Frédéric Demians <[email protected]>

edithelp.pl hadn't been updated to allow help screen editing.

Signed-off-by: Katrin Fischer <[email protected]>

Only a note: Apparently you need to be 'superlibrarian' permission
to edit help pages.
---
 edithelp.pl                                        |   31 +++++++++---------
 help.pl                                            |    4 ++-
 .../prog/en/modules/help/circ/circulation-home.tt  |   34 ++++++++++---------
 3 files changed, 37 insertions(+), 32 deletions(-)

diff --git a/edithelp.pl b/edithelp.pl
index d1975ba..4d7e0c0 100755
--- a/edithelp.pl
+++ b/edithelp.pl
@@ -41,7 +41,7 @@ my $error;
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
-        template_name   => "help/edithelp.tmpl",
+        template_name   => "help/edithelp.tt",
         query           => $input,
         type            => "intranet",
         authnotrequired => 0,
@@ -63,29 +63,30 @@ my ( $template, $loggedinuser, $cookie ) = 
get_template_and_user(
 
 sub _get_filepath ($;$) {
     my $referer = shift;
-    $referer =~ /.*koha\/(.+)\.pl.*/;
-    my $from   = "help/$1.tmpl";
+    $referer =~ /koha\/(.*)\.pl/;
+    my $from = "help/$1.tt";
     my $htdocs = C4::Context->config('intrahtdocs');
     my ($theme, $lang) = themelanguage( $htdocs, $from, "intranet", $input );
        $debug and print STDERR "help filepath: 
$htdocs/$theme/$lang/modules/$from";
        return "$htdocs/$theme/$lang/modules/$from";
 }
 
-if ( $type eq 'addnew' ) {
-    $type = 'create';
-}
-elsif ( $type eq 'create' || $type eq 'save' ) {
+$type = 'create' if $type eq 'addnew';
+if ( $type eq 'create' || $type eq 'save' ) {
        my $file = _get_filepath($referer);
-       unless (open (OUTFILE, ">$file")) {$error = "Cannot write file: 
'$file'";} else {
-        #open (OUTFILE, ">$file") or die "Cannot write file: '$file'"; # 
unlikely death, since we just checked
+    open my $fh, ">", $file;
+    if ( $fh ) {
         # file is open write to it
-        print OUTFILE "<!-- TMPL_INCLUDE NAME=\"help-top.inc\" -->\n";
-               print OUTFILE ($type eq 'create') ? "<div 
class=\"main\">\n$help\n</div>" : $help;
-        print OUTFILE "\n<!-- TMPL_INCLUDE NAME=\"help-bottom.inc\" -->\n";
-        close OUTFILE;
+        print $fh
+            " [% INCLUDE 'help-top.inc' %]\n",
+                   $type eq 'create' ? "<div class=\"main\">\n$help\n</div>" : 
$help,
+            "\n[% INCLUDE 'help-bottom.inc' %]\n";
+        close $fh;
                print $input->redirect("/cgi-bin/koha/help.pl?url=$oldreferer");
     }
-    
+    else {
+        $error = "Cannot write file: '$file'";
+    }
 }
 elsif ( $type eq 'modify' ) {
     # open file load data, kill include calls, pass data to the template
@@ -98,7 +99,7 @@ elsif ( $type eq 'modify' ) {
        open (INFILE, $file) or die "Cannot read file '$file'";         # 
unlikely death, since we just checked
                my $help = '';
                while ( my $inp = <INFILE> ) {
-                       unless ( $inp =~ /TMPL\_INCLUDE/ ) {
+                       unless ( $inp =~ /INCLUDE/ ) {
                                $help .= $inp;
                        }
                }
diff --git a/help.pl b/help.pl
index 58354b0..7208a8a 100755
--- a/help.pl
+++ b/help.pl
@@ -28,7 +28,8 @@ use CGI;
 my $query = new CGI;
 
 # find the script that called the online help using the CGI referer()
-our $refer = $query->referer();
+our $refer = $query->param('url');
+$refer = $query->referer()  if !$refer || $refer eq 'undefined';
 
 $refer =~ /koha\/(.*)\.pl/;
 my $from = "modules/help/$1.tt";
@@ -40,6 +41,7 @@ unless ( -e "$htdocs/$theme/$lang/$from" ) {
     ( $theme, $lang ) = themelanguage( $htdocs, $from, "intranet", $query );
 }
 my $template = C4::Templates->new('intranet', "$htdocs/$theme/$lang/$from");
+$template->param( referer => $refer );
 
 output_html_with_http_headers $query, "", $template->output;
 
diff --git 
a/koha-tmpl/intranet-tmpl/prog/en/modules/help/circ/circulation-home.tt 
b/koha-tmpl/intranet-tmpl/prog/en/modules/help/circ/circulation-home.tt
index 2bae339..1f069b7 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/help/circ/circulation-home.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/help/circ/circulation-home.tt
@@ -1,23 +1,25 @@
-[% INCLUDE 'help-top.inc' %]
-
+ [% INCLUDE 'help-top.inc' %]
 <h1>Circulation</h1>
-
-<p>Circulation functions can be accessed in several different ways. On the 
main page of the staff client there are some quick links in the center of the 
page to check items out, in or transfer them. For a complete listing of 
Circulation functions you can visit the Circulation page which is linked from 
the top left of every page or from the center of the main page.</p>
-
-<p>Before circulating your collection you will want to set your Global System 
Preferences, Basic Parameters and Patrons & Circulation Rules.</p>
-
-<p>While in Circulation you can jump between the tabs on the quick search box 
at the top of the screen by using the following hot keys:</p>
-
+<p>
+Circulation functions can be accessed in several different ways. On the main 
page of the staff client there are some quick links in the center of the page 
to check items out, in or transfer them. For a complete listing of Circulation 
functions you can visit the Circulation page which is linked from the top left 
of every page or from the center of the main page.
+</p>
+<p>
+Before circulating your collection you will want to set your Global System 
Preferences, Basic Parameters and Patrons &amp; Circulation Rules.
+</p>
+<p>
+While in Circulation you can jump between the tabs on the quick search box at 
the top of the screen by using the following hot keys:
+</p>
 <ul>
        <li>jump to the catalog search with Alt+Q</li>
        <li>jump to the checkout with Alt+U
-<ul>
-       <li>this will not work for Mac user</li>
-</ul>
-</li>
+       <ul>
+               <li>this will not work for Mac user</li>
+       </ul>
+       </li>
        <li>jump to the checkin with Alt+R</li>
 </ul>
+<p style="background-color: #ffe599">
+Tip: Mac users use the OPTION button in place of ALT
+</p>
 
-<p style="background-color: #ffe599">Tip: Mac users use the OPTION button in 
place of ALT</p>
-
-[% INCLUDE 'help-bottom.inc' %]
\ No newline at end of file
+[% INCLUDE 'help-bottom.inc' %]
-- 
1.7.4.1

_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/

Reply via email to