8 use C4::Interface::CGI::Output;
13 my $op = $query->param('op');
14 my $dbh = C4::Context->dbh;
17 my ($template, $loggedinuser, $cookie, $subs);
19 if ($op eq 'modsubscription') {
20 &modsubscription($query->param('suscr'),$query->param('user'),$query->param('cost'),
21 $query->param('supplier'),$query->param('budget'),$query->param('begin'),
22 $query->param('frequency'),$query->param('arrival'),$query->param('numberlength'),
23 $query->param('weeklength'),$query->param('monthlength'),
24 $query->param('X'),$query->param('Xstate'),$query->param('Xfreq'),$query->param('Xstep'),
25 $query->param('Y'),$query->param('Ystate'),$query->param('Yfreq'),$query->param('Ystep'),
26 $query->param('Z'),$query->param('Zstate'),$query->param('Zfreq'),$query->param('Zstep'),
27 $query->param('sequence'),$query->param('arrivalplanified'),1,
28 $query->param('biblioid'),$query->param('notes')
31 ($template, $loggedinuser, $cookie)
32 = get_template_and_user({template_name => "bull/subscription-detail.tmpl",
36 flagsrequired => {catalogue => 1},
40 my ($user, $cookie, $sessionID, $flags) = checkauth($query, 0, {catalogue => 1}, "intranet");
41 warn "user =>".$query->param('user'),
42 "librarian =>".$query->param('user'),
43 "aqbooksellerid =>". $query->param('supplier'),
44 "cost =>". $query->param('cost'),
45 "aqbudgetid =>". $query->param('budget'),
46 "startdate =>". $query->param('begin'),
47 "frequency =>". $query->param('frequency'),
48 "arrival =>". $query->param('dow'),
49 "numberlength =>". $query->param('numberlength'),
50 "weeklength =>". $query->param('weeklength'),
51 "monthlength =>". $query->param('monthlength'),
52 "seqnum1 =>". $query->param('X'),
53 "startseqnum1 =>". $query->param('X'),
54 "seqtype1 =>". $query->param('Xstate'),
55 "freq1 =>". $query->param('Xfreq'),
56 "step1 =>". $query->param('Xstep'),
57 "seqnum2 =>". $query->param('Y'),
58 "startseqnum2 =>". $query->param('Y'),
59 "seqtype2 =>". $query->param('Ystate'),
60 "freq2 =>". $query->param('Yfreq'),
61 "step2 =>". $query->param('Ystep'),
62 "seqnum3 =>". $query->param('Z'),
63 "startseqnum3 =>". $query->param('Z'),
64 "seqtype3 =>". $query->param('Zstate'),
65 "freq3 =>". $query->param('Zfreq'),
66 "step3 =>". $query->param('Zstep'),
67 "sequence =>". $query->param('sequence'),
68 "arrivalplanified =>". $query->param('arrivalplanified'),
69 "status =>". $query->param('status'),
70 "biblioid =>". $query->param('perioid'),
71 "notes =>". $query->param('notes'),
72 "suscr =>". $query->param('id');
74 user => $query->param('user'),
75 librarian => $query->param('user'),
76 aqbooksellerid => $query->param('supplier'),
77 cost => $query->param('cost'),
78 aqbudgetid => $query->param('budget'),
79 startdate => $query->param('begin'),
80 frequency => $query->param('frequency'),
81 arrival => $query->param('dow'),
82 numberlength => $query->param('numberlength'),
83 weeklength => $query->param('weeklength'),
84 monthlength => $query->param('monthlength'),
85 seqnum1 => $query->param('X'),
86 startseqnum1 => $query->param('X'),
87 seqtype1 => $query->param('Xstate'),
88 freq1 => $query->param('Xfreq'),
89 step1 => $query->param('Xstep'),
90 seqnum2 => $query->param('Y'),
91 startseqnum2 => $query->param('Y'),
92 seqtype2 => $query->param('Ystate'),
93 freq2 => $query->param('Yfreq'),
94 step2 => $query->param('Ystep'),
95 seqnum3 => $query->param('Z'),
96 startseqnum3 => $query->param('Z'),
97 seqtype3 => $query->param('Zstate'),
98 freq3 => $query->param('Zfreq'),
99 step3 => $query->param('Zstep'),
100 sequence => $query->param('sequence'),
101 arrivalplanified => $query->param('arrivalplanified'),
102 status => $query->param('status'),
103 biblioid => $query->param('perioid'),
104 notes => $query->param('notes'),
105 suscr => $query->param('id'));
109 "frequency$query->param('frequency')" => 1,
110 "Xstate".$query->param('Xstate') => 1,
111 "Ystate".$query->param('Ystate') => 1,
112 "Zstate".$query->param('Zstate') => 1,
113 "arrival".query->param('$dow') => 1,
117 $sth = $dbh->prepare('select * from subscription where subscriptionid = ?');
118 $id = $query->param('suscr');
120 $subs = $sth->fetchrow_hashref;
123 ($template, $loggedinuser, $cookie)
124 = get_template_and_user({template_name => "bull/subscription-detail.tmpl",
127 authnotrequired => 0,
128 flagsrequired => {catalogue => 1},
132 my ($user, $cookie, $sessionID, $flags) = checkauth($query, 0, {catalogue => 1}, "intranet");
133 $template->param(user => $user);
134 $template->param(librarian => $subs->{'librarian'},
135 aqbooksellerid => $subs->{'aqbooksellerid'},
136 cost => $subs->{'cost'},
137 aqbudgetid => $subs->{'aqbudgetid'},
138 startdate => $subs->{'startdate'},
139 frequency => $subs->{'periodicity'},
140 arrival => $subs->{'dow'},
141 numberlength => $subs->{'numberlength'},
142 weeklength => $subs->{'weeklength'},
143 monthlength => $subs->{'monthlength'},
144 seqnum1 => $subs->{'seqnum1'},
145 startseqnum1 => $subs->{'startseqnum1'},
146 seqtype1 => $subs->{'seqtype1'},
147 freq1 => $subs->{'freq1'},
148 step1 => $subs->{'step1'},
149 seqnum2 => $subs->{'seqnum2'},
150 startseqnum2 => $subs->{'startseqnum2'},
151 seqtype2 => $subs->{'seqtype2'},
152 freq2 => $subs->{'freq2'},
153 step2 => $subs->{'step2'},
154 seqnum3 => $subs->{'seqnum3'},
155 startseqnum3 => $subs->{'startseqnum3'},
156 seqtype3 => $subs->{'seqtype3'},
157 freq3 => $subs->{'freq3'},
158 step3 => $subs->{'step3'},
159 sequence => $subs->{'numberingmethod'},
160 arrivalplanified => $subs->{'arrivalplanified'},
161 status => $subs->{'status'},
162 biblioid => $subs->{'perioid'},
163 notes => $subs->{'notes'},
168 "frequency$subs->{'periodicity'}" => 1,
169 "Xstate$subs->{'seqtype1'}" => 1,
170 "Ystate$subs->{'seqtype2'}" => 1,
171 "Zstate$subs->{'seqtype3'}" => 1,
172 "arrival$subs->{'dow'}" => 1,
177 output_html_with_http_headers $query, $cookie, $template->output;