[Koha-cvs] koha/acqui addorder.pl newordersuggestion.pl

[Tumer Garip]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Tumer Garip <tgarip1957>	06/09/28 14:13:37

Modified files:
	acqui          : addorder.pl newordersuggestion.pl 

Log message:
	Add faceted search code

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/addorder.pl?cvsroot=koha&r1=1.34&r2=1.35
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/newordersuggestion.pl?cvsroot=koha&r1=1.4&r2=1.5

Patches:
Index: addorder.pl
===================================================================
RCS file: /sources/koha/koha/acqui/addorder.pl,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- addorder.pl	20 Sep 2006 21:44:36 -0000	1.34
+++ addorder.pl	28 Sep 2006 14:13:37 -0000	1.35
@@ -189,7 +189,6 @@
 $biblionumber = NEWnewbiblio($dbh,$xmlhash,"");
 
             ModStatus( $suggestionid, 'ORDERED', '', $biblionumber,$input );
-warn "modstatus";
         }
     }## biblio didnot exist now created
 
@@ -222,5 +221,5 @@
 #    $biblionumber = $input->param('biblionumber');
     DelOrder( $biblionumber, $ordnum,$loggedinuser );
 }
-warn "goingout";
+
 print $input->redirect("basket.pl?basketno=$basketno");

Index: newordersuggestion.pl
===================================================================
RCS file: /sources/koha/koha/acqui/newordersuggestion.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- newordersuggestion.pl	20 Sep 2006 21:44:36 -0000	1.4
+++ newordersuggestion.pl	28 Sep 2006 14:13:37 -0000	1.5
@@ -15,7 +15,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: newordersuggestion.pl,v 1.4 2006/09/20 21:44:36 tgarip1957 Exp $
+# $Id: newordersuggestion.pl,v 1.5 2006/09/28 14:13:37 tgarip1957 Exp $
 
 =head1 NAME
 newordersuggestion.pl
@@ -148,7 +148,7 @@
 			push @value, $_->{publishercode};
 		}
 	
-		my ($nbresult, at finalresult) = ZEBRAsearch_kohafields(\@kohafields,\@value,\@relation,"",\@and_or,0,"",0,1);
+		my ($nbresult,$facets, at finalresult) = ZEBRAsearch_kohafields(\@kohafields,\@value,\@relation,"",\@and_or,0,"",0,1);
 
 		# there is at least 1 result => return the 1st one
 		if ($nbresult) {