removed AddToShelfFromBiblio from C4::VirtualShelves

[koha.git] / opac / opac-addbybiblionumber.pl
diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl

index ace334e..8cbd239 100755 (executable)
--- a/opac/opac-addbybiblionumber.pl
+++ b/opac/opac-addbybiblionumber.pl
@@ -18,11 +18,13 @@
  # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  #
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  
  use strict;
+use warnings;
+
  use C4::Biblio;
  use CGI;
  use C4::VirtualShelves qw/:DEFAULT GetRecentShelves RefreshShelvesSummary/;
@@ -40,7 +42,7 @@ sub AddBibliosToShelf {
          @biblionumber = (split /\//,$biblionumber[0]);
      }
      for my $bib (@biblionumber){
-        AddToShelfFromBiblio($bib, $shelfnumber);
+        AddToShelf($bib, $shelfnumber);
      }
  }
  
@@ -66,7 +68,7 @@ if ($newvirtualshelf) {
         AddBibliosToShelf($shelfnumber, @biblionumber);
         RefreshShelvesSummary($query->cookie("CGISESSID"),$loggedinuser,($loggedinuser == -1 ? 20 : 10));
         print $query->header;
-       print "<html><body onload=\"window.opener.location.reload(true);self.close();\"></body></html>";
+       print "<html><meta http-equiv=\"refresh\" content=\"0;url=opac-shelves.pl?display=privateshelves\" /><body onload=\"window.opener.location.reload(true);self.close();\"></body></html>";
         exit;
  }
  
@@ -80,7 +82,7 @@ if ($shelfnumber && ($shelfnumber != -1)) {
         AddBibliosToShelf($shelfnumber,@biblionumber);
         RefreshShelvesSummary($query->cookie("CGISESSID"),$loggedinuser,($loggedinuser == -1 ? 20 : 10));
         print $query->header;
-       print "<html><body onload=\"window.opener.location.reload(true);self.close();\"></body></html>";
+       print "<html><meta http-equiv=\"refresh\" content=\"0;url=opac-shelves.pl?display=privateshelves\" /><body onload=\"self.close();\"></body></html>";
         exit;
  }
  else {