From 6d89c4aeabcd6da8eeed3034f848e029c51c0b23 Mon Sep 17 00:00:00 2001
From: Paul POULAIN <paul@koha-fr.org>
Date: Wed, 28 Nov 2007 16:00:56 -0600
Subject: [PATCH] fixing virtual shelves (unfinished)

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 virtualshelves/shelves.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl
index 30cb1c8075..f6615451c0 100755
--- a/virtualshelves/shelves.pl
+++ b/virtualshelves/shelves.pl
@@ -87,7 +87,6 @@ if ( $query->param('modifyshelfcontents') ) {
     my $barcode     = $query->param('addbarcode');
     my ($item) = GetItem( 0, $barcode );
 	my ($biblio) = GetBiblioFromItemNumber($item->{'itemnumber'});
-
     if ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' ) ) {
         AddToShelf( $biblio->{'biblionumber'}, $shelfnumber );
         foreach ( $query->param ) {
@@ -158,6 +157,8 @@ SWITCH: {
                     }
                 );
             }
+            print $query->redirect("/cgi-bin/koha/virtualshelves/shelves.pl?viewshelf=$shelfnumber");
+            exit;
         }
         my @paramsloop;
         foreach ( $query->param() ) {
@@ -169,10 +170,12 @@ SWITCH: {
                     $line{'status'} = $status;
                     $line{'count'}  = $count;
                 }
+                print $query->redirect("/cgi-bin/koha/virtualshelves/shelves.pl");
+                exit;
             }
 
             #if the shelf is not deleted, %line points on null
-            push( @paramsloop, \%line );
+#             push( @paramsloop, \%line );
         }
         $template->param( paramsloop => \@paramsloop );
         my ($shelflist) = GetShelves( $loggedinuser, 2 );
-- 
2.39.5