10 use C4::Interface::CGI::Output;
15 my $op = $query->param('op') || '';
16 my $dbh = C4::Context->dbh;
19 my ($template, $loggedinuser, $cookie, $subs, $user, $sessionID, $flags);
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,$letter);
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');
63 $letter = $query->param('letter');
65 &modsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$startdate,
66 $periodicity,$dow,$numberlength,$weeklength,$monthlength,
67 $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1,
68 $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2,
69 $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3,
70 $numberingmethod, $status, $biblionumber, $notes, $letter, $subscriptionid);
74 &delsubscription($subscriptionid);
75 print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=../bull-home.pl\"></html>";
79 $subs = &getsubscription($subscriptionid);
80 # html'ize distributedto
81 $subs->{distributedto}=~ s/\n/<br \/>/g;
82 my ($totalissues,@serialslist) = getserials($subscriptionid);
83 $totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue)
85 ($template, $loggedinuser, $cookie)
86 = get_template_and_user({template_name => "serials/subscription-detail.tmpl",
90 flagsrequired => {catalogue => 1},
94 ($user, $cookie, $sessionID, $flags) = checkauth($query, 0, {catalogue => 1}, "intranet");
97 user => $subs->{auser},
98 librarian => $subs->{librarian},
99 aqbooksellerid => $subs->{aqbooksellerid},
100 aqbooksellername => $subs->{aqbooksellername},
101 cost => $subs->{cost},
102 aqbudgetid => $subs->{aqbudgetid},
103 bookfundid => $subs->{bookfundid},
104 startdate => format_date($subs->{startdate}),
105 periodicity => $subs->{periodicity},
107 numberlength => $subs->{numberlength},
108 weeklength => $subs->{weeklength},
109 monthlength => $subs->{monthlength},
110 add1 => $subs->{add1},
111 every1 => $subs->{every1},
112 whenmorethan1 => $subs->{whenmorethan1},
113 innerloop1 => $subs->{innerloop1},
114 setto1 => $subs->{setto1},
115 lastvalue1 => $subs->{lastvalue1},
116 add2 => $subs->{add2},
117 every2 => $subs->{every2},
118 whenmorethan2 => $subs->{whenmorethan2},
119 setto2 => $subs->{setto2},
120 lastvalue2 => $subs->{lastvalue2},
121 innerloop2 => $subs->{innerloop2},
122 add3 => $subs->{add3},
123 every3 => $subs->{every3},
124 whenmorethan3 => $subs->{whenmorethan3},
125 setto3 => $subs->{setto3},
126 lastvalue3 => $subs->{lastvalue3},
127 innerloop3 => $subs->{innerloop3},
128 numberingmethod => $subs->{numberingmethod},
129 status => $subs->{status},
130 biblionumber => $subs->{biblionumber},
131 bibliotitle => $subs->{bibliotitle},
132 notes => $subs->{notes},
133 letter => $subs->{letter},
134 distributedto => $subs->{distributedto},
135 subscriptionid => $subs->{subscriptionid},
136 serialslist => \@serialslist,
137 totalissues => $totalissues,
140 "periodicity$subs->{periodicity}" => 1,
141 "arrival$subs->{dow}" => 1,
144 output_html_with_http_headers $query, $cookie, $template->output;