[Koha-cvs] koha/bookshelves shelves.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/12/13 10:06:05

Modified files:
        bookshelves    : shelves.pl 

Log message:
        fix a mod_perl specific bug.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/bookshelves/shelves.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.9.2.5&r2=1.9.2.6

Patches:
Index: shelves.pl
===================================================================
RCS file: /sources/koha/koha/bookshelves/shelves.pl,v
retrieving revision 1.9.2.5
retrieving revision 1.9.2.6
diff -u -b -r1.9.2.5 -r1.9.2.6
--- shelves.pl  11 Dec 2006 17:10:06 -0000      1.9.2.5
+++ shelves.pl  13 Dec 2006 10:06:05 -0000      1.9.2.6
@@ -125,11 +125,11 @@
         last SWITCH;
     }
     if ( $query->param('viewshelf') ) {
-        viewshelf( $query->param('viewshelf') );
+        viewshelf( $query->param('viewshelf'),$template );
         last SWITCH;
     }
     if ( $query->param('shelves') ) {
-        shelves();
+        shelves($template);
         last SWITCH;
     }
 }
@@ -168,6 +168,7 @@
 output_html_with_http_headers $query, $cookie, $template->output;
 
 sub shelves {
+    my $innertemplate = shift;
     if ( my $newshelf = $query->param('addshelf') ) {
         my $shelfnumber = AddShelf(
             $newshelf,
@@ -199,7 +200,7 @@
         #if the shelf is not deleted, %line points on null
         push( @paramsloop, \%line );
     }
-    $template->param( paramsloop => address@hidden );
+    $innertemplate->param( paramsloop => address@hidden );
     my ($shelflist) = GetShelves( $loggedinuser, 2 );
     my $color = '';
     my @shelvesloop;
@@ -212,7 +213,7 @@
         $line{'shelfbookcount'} = $shelflist->{$element}->{'count'};
         push( @shelvesloop, \%line );
     }
-    $template->param(
+    $innertemplate->param(
         shelvesloop => address@hidden,
         shelves     => 1,
     );
@@ -220,7 +221,7 @@
 
 sub viewshelf {
     my $shelfnumber = shift;
-
+    my $innertemplate = shift;
     #check that the user can view the shelf
     return
       unless ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'view' ) );
@@ -233,7 +234,7 @@
         $item->{'toggle'} = $color;
         push( @itemsloop, $item );
     }
-    $template->param(
+    $innertemplate->param(
         itemsloop   => address@hidden,
         shelfname   => $shelflist->{$shelfnumber}->{'shelfname'},
         shelfnumber => $shelfnumber,
@@ -245,6 +246,9 @@
 
 #
 # $Log: shelves.pl,v $
+# Revision 1.9.2.6  2006/12/13 10:06:05  toins
+# fix a mod_perl specific bug.
+#
 # Revision 1.9.2.5  2006/12/11 17:10:06  toins
 # fixing some bugs on bookshelves.
 #