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 ) {
}
);
}
+ print $query->redirect("/cgi-bin/koha/virtualshelves/shelves.pl?viewshelf=$shelfnumber");
+ exit;
}
my @paramsloop;
foreach ( $query->param() ) {
$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 );
}
}
-my $shelflist = GetShelves( $loggedinuser, 2 );
+$shelflist = GetShelves( $loggedinuser, 2 );
my $color = '';
my @shelvesloop;
my $numberCanManage = 0;
$template->param(
shelvesloop => \@shelvesloop,
-
numberCanManage => $numberCanManage,
);
}
#
-# $Log$
# Revision 1.13 2007/04/24 13:54:29 hdl
# functions that were in C4::Interface::CGI::Output are now in C4::Output.
# So this implies quite a change for files.