[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,@finalresult) = 
ZEBRAsearch_kohafields(address@hidden,address@hidden,address@hidden,"",address@hidden,0,"",0,1);
+               my ($nbresult,$facets,@finalresult) = 
ZEBRAsearch_kohafields(address@hidden,address@hidden,address@hidden,"",address@hidden,0,"",0,1);
 
                # there is at least 1 result => return the 1st one
                if ($nbresult) {