[Koha-cvs] koha/C4 Biblio.pm

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	06/03/07 22:00:18

Modified files:
	C4             : Biblio.pm 

Log message:
	adding support for 'delete' function

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?tr1=1.159&tr2=1.160&r1=text&r2=text

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.159 koha/C4/Biblio.pm:1.160
--- koha/C4/Biblio.pm:1.159	Tue Mar  7 21:54:47 2006
+++ koha/C4/Biblio.pm	Tue Mar  7 22:00:18 2006
@@ -30,7 +30,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.159 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.160 $' =~ /\d+/g;
                 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
@@ -227,11 +227,18 @@
 =cut
 
 sub set_service_options {
-	my ($serviceType) = @_;
+	my ($serviceType,$action,$recordId) = @_;
 	my $serviceOptions;
 
 	if ($serviceType eq 'update') {
+		if ($action) {
+		$serviceOptions->{ 'action' } = $action;
+		} else {
 		$serviceOptions->{ 'action' } = 'specialUpdate';
+		}
+		if ($recordId) {
+		$serviceOptions->{'recordIdNumber'} = $recordId;
+		}
 
 	# FIXME: This needs to be an OID ... if we ever need 'syntax' this sub will need to change
 	#	$serviceOptions->{ 'syntax' } = ''; #zebra doesn't support syntaxes other than xml
@@ -247,6 +254,8 @@
 	if ($serviceType eq 'drop') {
 		die "ERROR: 'drop' not currently supported (by Zebra)";
 	}
+
+	#check action
 	return $serviceOptions;
 }
 
@@ -3037,8 +3046,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.159 2006/03/07 21:54:47 rangi Exp $
+# $Id: Biblio.pm,v 1.160 2006/03/07 22:00:18 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.160  2006/03/07 22:00:18  kados
+# adding support for 'delete' function
+#
 # Revision 1.159  2006/03/07 21:54:47  rangi
 # Starting work on deletes
 #