projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
adding items fields to field list in MARC list of fields to search
[koha.git]
/
modrequest.pl
diff --git
a/modrequest.pl
b/modrequest.pl
index
aec24f1
..
c8c1590
100755
(executable)
--- a/
modrequest.pl
+++ b/
modrequest.pl
@@
-32,11
+32,11
@@
use C4::Reserves2;
my $input = new CGI;
#print $input->header;
my $input = new CGI;
#print $input->header;
-#print $input->
d
ump;
+#print $input->
D
ump;
my @rank=$input->param('rank-request');
my @biblio=$input->param('biblio');
my @rank=$input->param('rank-request');
my @biblio=$input->param('biblio');
-my @borrower=$input->param('borrower');
+my @borrower=$input->param('borrower
number
');
my @branch=$input->param('pickup');
my $count=@rank;
my @branch=$input->param('pickup');
my $count=@rank;
@@
-48,7
+48,7
@@
for (my $i=0;$i<$count;$i++){
my $from=$input->param('from');
if ($from eq 'borrower'){
my $from=$input->param('from');
if ($from eq 'borrower'){
- print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$borrower[0]");
+ print $input->redirect("/cgi-bin/koha/m
embers/m
oremember.pl?bornum=$borrower[0]");
} else {
print $input->redirect("/cgi-bin/koha/request.pl?bib=$biblio[0]");
}
} else {
print $input->redirect("/cgi-bin/koha/request.pl?bib=$biblio[0]");
}