gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

BUG 1580, subscription irregularities and volume type, not passed when editing subscription 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Mason James 2008-01-04 00:00:16 -06:00 committed by Joshua Ferraro
parent 1c6ef6e455
commit ee5c60cc2d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
serials/subscription-add.pl
View File

@ -28,6 +28,8 @@ use C4::Branch; # GetBranches
use C4::Serials;
use C4::Letters;
#use Smart::Comments;
my $query = new CGI;
my $op = $query->param('op');
my $dbh = C4::Context->dbh;
@ -121,6 +123,9 @@ if ($op eq 'mod'||$op eq 'dup') {
$subs->{$_} = format_date($subs->{$_});
}
$subs->{'letter'}='' unless($subs->{'letter'});
$irregularity = $subs->{'irregularity'};
$numberpattern = $subs->{'numberpattern'};
if($subs->{numberlength} > 0){
$sublength = $subs->{numberlength};
@ -208,7 +213,7 @@ if ($op eq 'addsubscription') {
my $internalnotes = $query->param('internalnotes');
my $hemisphere = $query->param('hemisphere') || 1;
my $letter = $query->param('letter');
### BugFIX : hdl doesnot know what innerloops or letter stand for but it seems necessary. So he adds them.
# ## BugFIX : hdl doesnot know what innerloops or letter stand for but it seems necessary. So he adds them.
my $manualhistory = $query->param('manualhist');
my $subscriptionid = NewSubscription($auser,$branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber,
$startdate,$periodicity,$dow,$numberlength,$weeklength,$monthlength,