[Koha-cvs] koha/cataloguing addbiblio.pl

[Henri-Damien LAURENT]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	Henri-Damien LAURENT <hdl>	07/07/16 15:49:53

Modified files:
	cataloguing    : addbiblio.pl 

Log message:
	Adding a biblio can be executed in a popup now.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/addbiblio.pl?cvsroot=koha&r1=1.28&r2=1.29

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/cataloguing/addbiblio.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- addbiblio.pl	25 Jun 2007 15:01:46 -0000	1.28
+++ addbiblio.pl	16 Jul 2007 15:49:53 -0000	1.29
@@ -1,6 +1,6 @@
 #!/usr/bin/perl 
 
-# $Id: addbiblio.pl,v 1.28 2007/06/25 15:01:46 tipaul Exp $
+# $Id: addbiblio.pl,v 1.29 2007/07/16 15:49:53 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -463,6 +463,7 @@
 my $breedingid = $input->param('breedingid');
 my $z3950 = $input->param('z3950');
 my $op = $input->param('op');
+my $mode = $input->param('mode');
 my $frameworkcode = $input->param('frameworkcode');
 my $dbh = C4::Context->dbh;
 
@@ -541,7 +542,7 @@
 #         die;
     }
     # check for a duplicate
-    my ($duplicatebiblionumber,$duplicatebiblionumber,$duplicatetitle) = FindDuplicate($record) if ($op eq "addbiblio") && (!$is_a_modif);
+    my ($duplicatebiblionumber,$duplicatetitle) = FindDuplicate($record) if (!$is_a_modif);
     my $confirm_not_duplicate = $input->param('confirm_not_duplicate');
     # it is not a duplicate (determined either by Koha itself or by user checking it's not a duplicate)
     if (!$duplicatebiblionumber or $confirm_not_duplicate) {
@@ -556,9 +557,25 @@
             ($biblionumber,$oldbibitemnum) = AddBiblio($record,$frameworkcode);
         }
     # now, redirect to additem page
+        if ($mode ne "popup"){
         print $input->redirect("/cgi-bin/koha/cataloguing/additem.pl?biblionumber=$biblionumber&frameworkcode=$frameworkcode");
         exit;
     } else {
+          $template->param(
+            biblionumber => $biblionumber,
+            done         =>1,
+            popup        =>1
+          );
+          $template->param( title => $record->subfield('200',"a") ) if ($record ne "-1" && C4::Context->preference('marcflavour') =~/unimarc/i);
+          $template->param( title => $record->title() ) if ($record ne "-1" && C4::Context->preference('marcflavour') eq "usmarc");
+          $template->param(
+                  popup => $mode,
+                  itemtype => $frameworkcode, # HINT: if the library has itemtype = framework, itemtype is auto filled !
+                  );
+          output_html_with_http_headers $input, $cookie, $template->output;
+          exit;     
+        }        
+    } else {
     # it may be a duplicate, warn the user and do nothing
         build_tabs ($template, $record, $dbh,$encoding);
         build_hidden_data;
@@ -652,6 +669,7 @@
 }
 $template->param( title => $record->title() ) if ($record ne "-1");
 $template->param(
+        popup => $mode,
         frameworkcode => $frameworkcode,
         itemtype => $frameworkcode, # HINT: if the library has itemtype = framework, itemtype is auto filled !
         hide_marc => C4::Context->preference('hide_marc'),