use C4::Serials;
use C4::Letters;
+#use Smart::Comments;
+
my $query = new CGI;
my $op = $query->param('op');
my $dbh = C4::Context->dbh;
$subs->{$_} = format_date($subs->{$_});
}
$subs->{'letter'}='' unless($subs->{'letter'});
+ $irregularity = $subs->{'irregularity'};
+ $numberpattern = $subs->{'numberpattern'};
+
if($subs->{numberlength} > 0){
$sublength = $subs->{numberlength};
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,