Lines 39-44
use C4::Charset;
Link Here
|
39 |
use Date::Calc qw(Today); |
39 |
use Date::Calc qw(Today); |
40 |
use MARC::File::USMARC; |
40 |
use MARC::File::USMARC; |
41 |
use MARC::File::XML; |
41 |
use MARC::File::XML; |
|
|
42 |
use URI::Escape; |
42 |
|
43 |
|
43 |
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { |
44 |
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { |
44 |
MARC::File::XML->default_record_format('UNIMARC'); |
45 |
MARC::File::XML->default_record_format('UNIMARC'); |
Lines 725-732
my $redirect = $input->param('redirect');
Link Here
|
725 |
my $dbh = C4::Context->dbh; |
726 |
my $dbh = C4::Context->dbh; |
726 |
my $hostbiblionumber = $input->param('hostbiblionumber'); |
727 |
my $hostbiblionumber = $input->param('hostbiblionumber'); |
727 |
my $hostitemnumber = $input->param('hostitemnumber'); |
728 |
my $hostitemnumber = $input->param('hostitemnumber'); |
|
|
729 |
# fast cataloguing datas in transit |
730 |
my $fa_circborrowernumber = $input->param('circborrowernumber'); |
731 |
my $fa_barcode = $input->param('barcode'); |
732 |
my $fa_branch = $input->param('branch'); |
733 |
my $fa_stickyduedate = $input->param('stickyduedate'); |
734 |
my $fa_duedatespec = $input->param('duedatespec'); |
728 |
|
735 |
|
729 |
|
|
|
730 |
my $userflags = 'edit_catalogue'; |
736 |
my $userflags = 'edit_catalogue'; |
731 |
if ($frameworkcode eq 'FA'){ |
737 |
if ($frameworkcode eq 'FA'){ |
732 |
$userflags = 'fast_cataloging'; |
738 |
$userflags = 'fast_cataloging'; |
Lines 748-758
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
748 |
|
754 |
|
749 |
if ($frameworkcode eq 'FA'){ |
755 |
if ($frameworkcode eq 'FA'){ |
750 |
# We need to grab and set some variables in the template for use on the additems screen |
756 |
# We need to grab and set some variables in the template for use on the additems screen |
751 |
$template->{VARS}->{'circborrowernumber'} = $input->param('borrowernumber'); |
757 |
$template->param( |
752 |
$template->{VARS}->{'barcode'} = $input->param('barcode'); |
758 |
'circborrowernumber' => $fa_circborrowernumber, |
753 |
$template->{VARS}->{'branch'} = $input->param('branch'); |
759 |
'barcode' => $fa_barcode, |
754 |
$template->{VARS}->{'stickyduedate'} = $input->param('stickyduedate'); |
760 |
'branch' => $fa_branch, |
755 |
$template->{VARS}->{'duedatespec'} = $input->param('duedatespec'); |
761 |
'stickyduedate' => $fa_stickyduedate, |
|
|
762 |
'duedatespec' => $fa_duedatespec, |
763 |
); |
756 |
} |
764 |
} |
757 |
|
765 |
|
758 |
# Getting the list of all frameworks |
766 |
# Getting the list of all frameworks |
Lines 865-877
if ( $op eq "addbiblio" ) {
Link Here
|
865 |
} |
873 |
} |
866 |
if ($redirect eq "items" || ($mode ne "popup" && !$is_a_modif && $redirect ne "view")){ |
874 |
if ($redirect eq "items" || ($mode ne "popup" && !$is_a_modif && $redirect ne "view")){ |
867 |
if ($frameworkcode eq 'FA'){ |
875 |
if ($frameworkcode eq 'FA'){ |
868 |
my $borrowernumber = $input->param('circborrowernumber'); |
|
|
869 |
my $barcode = $input->param('barcode'); |
870 |
my $branch = $input->param('branch'); |
871 |
my $stickyduedate = $input->param('stickyduedate'); |
872 |
my $duedatespec = $input->param('duedatespec'); |
873 |
print $input->redirect( |
876 |
print $input->redirect( |
874 |
"/cgi-bin/koha/cataloguing/additem.pl?biblionumber=$biblionumber&frameworkcode=$frameworkcode&borrowernumber=$borrowernumber&branch=$branch&barcode=$barcode&stickyduedate=$stickyduedate&duedatespec=$duedatespec" |
877 |
'/cgi-bin/koha/cataloguing/additem.pl?' |
|
|
878 |
.'biblionumber='.$biblionumber |
879 |
.'&frameworkcode='.$frameworkcode |
880 |
.'&circborrowernumber='.$fa_circborrowernumber |
881 |
.'&branch='.$fa_branch |
882 |
.'&barcode='.uri_escape($fa_barcode) |
883 |
.'&stickyduedate='.$fa_stickyduedate |
884 |
.'&duedatespec='.$fa_duedatespec |
875 |
); |
885 |
); |
876 |
exit; |
886 |
exit; |
877 |
} |
887 |
} |