10 use C4::Interface::CGI::Output;
15 my $op = $query->param('op');
16 my $dbh = C4::Context->dbh;
19 my ($template, $loggedinuser, $cookie, $subs);
20 my ($subscriptionid,$auser,$librarian,$cost,$aqbooksellerid, $aqbooksellername,$aqbudgetid, $bookfundid, $startdate, $periodicity,
21 $dow, $numberlength, $weeklength, $monthlength,
22 $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1,
23 $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2,
24 $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3,
25 $numberingmethod, $status, $biblionumber, $bibliotitle, $notes);
27 $subscriptionid = $query->param('subscriptionid');
29 if ($op eq 'modsubscription') {
30 $auser = $query->param('user');
31 $librarian => $query->param('librarian'),
32 $cost = $query->param('cost');
33 $aqbooksellerid = $query->param('aqbooksellerid');
34 $biblionumber = $query->param('biblionumber');
35 $aqbudgetid = $query->param('aqbudgetid');
36 $startdate = format_date_in_iso($query->param('startdate'));
37 $periodicity = $query->param('periodicity');
38 $dow = $query->param('dow');
39 $numberlength = $query->param('numberlength');
40 $weeklength = $query->param('weeklength');
41 $monthlength = $query->param('monthlength');
42 $add1 = $query->param('add1');
43 $every1 = $query->param('every1');
44 $whenmorethan1 = $query->param('whenmorethan1');
45 $setto1 = $query->param('setto1');
46 $lastvalue1 = $query->param('lastvalue1');
47 $innerloop1 = $query->param('innerloop1');
48 $add2 = $query->param('add2');
49 $every2 = $query->param('every2');
50 $whenmorethan2 = $query->param('whenmorethan2');
51 $setto2 = $query->param('setto2');
52 $lastvalue2 = $query->param('lastvalue2');
53 $innerloop2 = $query->param('innerloop2');
54 $add3 = $query->param('add3');
55 $every3 = $query->param('every3');
56 $whenmorethan3 = $query->param('whenmorethan3');
57 $setto3 = $query->param('setto3');
58 $lastvalue3 = $query->param('lastvalue3');
59 $innerloop3 = $query->param('innerloop3');
60 $numberingmethod = $query->param('numberingmethod');
62 $notes = $query->param('notes');
64 &modsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$startdate,
65 $periodicity,$dow,$numberlength,$weeklength,$monthlength,
66 $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1,
67 $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2,
68 $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3,
69 $numberingmethod, $status, $biblionumber, $notes, $subscriptionid);
72 my $subs = &getsubscription($subscriptionid);
73 my @serialslist = getserials($subscriptionid);
75 ($template, $loggedinuser, $cookie)
76 = get_template_and_user({template_name => "bull/subscription-detail.tmpl",
80 flagsrequired => {catalogue => 1},
84 my ($user, $cookie, $sessionID, $flags)
85 = checkauth($query, 0, {catalogue => 1}, "intranet");
88 user => $subs->{auser},
89 librarian => $subs->{librarian},
90 aqbooksellerid => $subs->{aqbooksellerid},
91 aqbooksellername => $subs->{aqbooksellername},
92 cost => $subs->{cost},
93 aqbudgetid => $subs->{aqbudgetid},
94 bookfundid => $subs->{bookfundid},
95 startdate => format_date($subs->{startdate}),
96 periodicity => $subs->{periodicity},
98 numberlength => $subs->{numberlength},
99 weeklength => $subs->{weeklength},
100 monthlength => $subs->{monthlength},
101 add1 => $subs->{add1},
102 every1 => $subs->{every1},
103 whenmorethan1 => $subs->{whenmorethan1},
104 innerloop1 => $subs->{innerloop1},
105 setto1 => $subs->{setto1},
106 lastvalue1 => $subs->{lastvalue1},
107 add2 => $subs->{add2},
108 every2 => $subs->{every2},
109 whenmorethan2 => $subs->{whenmorethan2},
110 setto2 => $subs->{setto2},
111 lastvalue2 => $subs->{lastvalue2},
112 innerloop2 => $subs->{innerloop2},
113 add3 => $subs->{add3},
114 every3 => $subs->{every3},
115 whenmorethan3 => $subs->{whenmorethan3},
116 setto3 => $subs->{setto3},
117 lastvalue3 => $subs->{lastvalue3},
118 innerloop3 => $subs->{innerloop3},
119 numberingmethod => $subs->{numberingmethod},
120 status => $subs->{status},
121 biblionumber => $subs->{biblionumber},
122 bibliotitle => $subs->{bibliotitle},
123 notes => $subs->{notes},
124 subscriptionid => $subs->{subscriptionid},
125 serialslist => \@serialslist,
128 "periodicity$subs->{periodicity}" => 1,
129 "arrival$subs->{dow}" => 1,
132 output_html_with_http_headers $query, $cookie, $template->output;