[Koha-cvs] koha/suggestion acceptorreject.pl [rel_3_0]

paul poulain paul at koha-fr.org
Wed Jan 24 14:55:55 CET 2007


CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	paul poulain <tipaul>	07/01/24 13:55:55

Modified files:
	suggestion     : acceptorreject.pl 

Log message:
	ACQUISITION bugfixes
	bugfixing templates to have suggestions working...

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/suggestion/acceptorreject.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.4.2.4&r2=1.4.2.5

Patches:
Index: acceptorreject.pl
===================================================================
RCS file: /sources/koha/koha/suggestion/acceptorreject.pl,v
retrieving revision 1.4.2.4
retrieving revision 1.4.2.5
diff -u -b -r1.4.2.4 -r1.4.2.5
--- acceptorreject.pl	19 Dec 2006 15:03:38 -0000	1.4.2.4
+++ acceptorreject.pl	24 Jan 2007 13:55:55 -0000	1.4.2.5
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: acceptorreject.pl,v 1.4.2.4 2006/12/19 15:03:38 toins Exp $
+# $Id: acceptorreject.pl,v 1.4.2.5 2007/01/24 13:55:55 tipaul Exp $
 
 =head1 NAME
 
@@ -86,9 +86,7 @@
 my $isbn            = $input->param('isbn');
 my $status          = $input->param('status');
 my $suggestedbyme   = $input->param('suggestedbyme');
-my $op              = $input->param('op');
-#$op = 'else' unless $op;
-warn "op is =>" . $op;
+my $op              = $input->param('op') || "aorr_confirm";
 
 my $dbh = C4::Context->dbh;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -141,10 +139,6 @@
     $template->param(done => 1);
 }
 
-if (not defined $op) {
-    $suggestions = &SearchSuggestion( "", "", "", "", 'ASKED', "" );
-}
-
 my $reasonsloop = GetAuthorisedValues("SUGGEST");
 my @suggestions_loop;
 foreach my $suggestion (@$suggestions) {
@@ -152,8 +146,6 @@
     push @suggestions_loop, $suggestion;
 }
 
-warn "suggestion=>" . Data::Dumper::Dumper(\@suggestions_loop);
-
 $template->param(
     suggestions_loop        => \@suggestions_loop,
     "op_$op"                => 1,





More information about the Koha-cvs mailing list