-#!/usr/bin/perl
-
-use strict;
-use CGI;
-use C4::Auth;
-use C4::Bull;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use C4::Context;
-use HTML::Template;
-
-my $query = new CGI;
-my $op = $query->param('op');
-my $dbh = C4::Context->dbh;
-my $sth;
-my $id;
-my ($template, $loggedinuser, $cookie, $subs);
-
-if ($op eq 'modsubscription') {
- &modsubscription($query->param('suscr'),$query->param('user'),$query->param('cost'),
- $query->param('supplier'),$query->param('budget'),$query->param('begin'),
- $query->param('frequency'),$query->param('arrival'),$query->param('numberlength'),
- $query->param('weeklength'),$query->param('monthlength'),
- $query->param('X'),$query->param('Xstate'),$query->param('Xfreq'),$query->param('Xstep'),
- $query->param('Y'),$query->param('Ystate'),$query->param('Yfreq'),$query->param('Ystep'),
- $query->param('Z'),$query->param('Zstate'),$query->param('Zfreq'),$query->param('Zstep'),
- $query->param('sequence'),$query->param('arrivalplanified'),1,
- $query->param('biblioid'),$query->param('notes')
- );
-
- ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "bull/subscription-detail.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
-
- my ($user, $cookie, $sessionID, $flags) = checkauth($query, 0, {catalogue => 1}, "intranet");
- warn "user =>".$query->param('user'),
- "librarian =>".$query->param('user'),
- "aqbooksellerid =>". $query->param('supplier'),
- "cost =>". $query->param('cost'),
- "aqbudgetid =>". $query->param('budget'),
- "startdate =>". $query->param('begin'),
- "frequency =>". $query->param('frequency'),
- "arrival =>". $query->param('dow'),
- "numberlength =>". $query->param('numberlength'),
- "weeklength =>". $query->param('weeklength'),
- "monthlength =>". $query->param('monthlength'),
- "seqnum1 =>". $query->param('X'),
- "startseqnum1 =>". $query->param('X'),
- "seqtype1 =>". $query->param('Xstate'),
- "freq1 =>". $query->param('Xfreq'),
- "step1 =>". $query->param('Xstep'),
- "seqnum2 =>". $query->param('Y'),
- "startseqnum2 =>". $query->param('Y'),
- "seqtype2 =>". $query->param('Ystate'),
- "freq2 =>". $query->param('Yfreq'),
- "step2 =>". $query->param('Ystep'),
- "seqnum3 =>". $query->param('Z'),
- "startseqnum3 =>". $query->param('Z'),
- "seqtype3 =>". $query->param('Zstate'),
- "freq3 =>". $query->param('Zfreq'),
- "step3 =>". $query->param('Zstep'),
- "sequence =>". $query->param('sequence'),
- "arrivalplanified =>". $query->param('arrivalplanified'),
- "status =>". $query->param('status'),
- "biblioid =>". $query->param('perioid'),
- "notes =>". $query->param('notes'),
- "suscr =>". $query->param('id');
- $template->param(
- user => $query->param('user'),
- librarian => $query->param('user'),
- aqbooksellerid => $query->param('supplier'),
- cost => $query->param('cost'),
- aqbudgetid => $query->param('budget'),
- startdate => $query->param('begin'),
- frequency => $query->param('frequency'),
- arrival => $query->param('dow'),
- numberlength => $query->param('numberlength'),
- weeklength => $query->param('weeklength'),
- monthlength => $query->param('monthlength'),
- seqnum1 => $query->param('X'),
- startseqnum1 => $query->param('X'),
- seqtype1 => $query->param('Xstate'),
- freq1 => $query->param('Xfreq'),
- step1 => $query->param('Xstep'),
- seqnum2 => $query->param('Y'),
- startseqnum2 => $query->param('Y'),
- seqtype2 => $query->param('Ystate'),
- freq2 => $query->param('Yfreq'),
- step2 => $query->param('Ystep'),
- seqnum3 => $query->param('Z'),
- startseqnum3 => $query->param('Z'),
- seqtype3 => $query->param('Zstate'),
- freq3 => $query->param('Zfreq'),
- step3 => $query->param('Zstep'),
- sequence => $query->param('sequence'),
- arrivalplanified => $query->param('arrivalplanified'),
- status => $query->param('status'),
- biblioid => $query->param('perioid'),
- notes => $query->param('notes'),
- suscr => $query->param('id'));
-
-
- $template->param(
- "frequency$query->param('frequency')" => 1,
- "Xstate".$query->param('Xstate') => 1,
- "Ystate".$query->param('Ystate') => 1,
- "Zstate".$query->param('Zstate') => 1,
- "arrival".query->param('$dow') => 1,
- );
-
- } else {
- $sth = $dbh->prepare('select * from subscription where subscriptionid = ?');
- $id = $query->param('suscr');
- $sth->execute($id);
- $subs = $sth->fetchrow_hashref;
- $sth->finish;
-
- ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "bull/subscription-detail.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
-
- my ($user, $cookie, $sessionID, $flags) = checkauth($query, 0, {catalogue => 1}, "intranet");
- $template->param(user => $user);
- $template->param(librarian => $subs->{'librarian'},
- aqbooksellerid => $subs->{'aqbooksellerid'},
- cost => $subs->{'cost'},
- aqbudgetid => $subs->{'aqbudgetid'},
- startdate => $subs->{'startdate'},
- frequency => $subs->{'periodicity'},
- arrival => $subs->{'dow'},
- numberlength => $subs->{'numberlength'},
- weeklength => $subs->{'weeklength'},
- monthlength => $subs->{'monthlength'},
- seqnum1 => $subs->{'seqnum1'},
- startseqnum1 => $subs->{'startseqnum1'},
- seqtype1 => $subs->{'seqtype1'},
- freq1 => $subs->{'freq1'},
- step1 => $subs->{'step1'},
- seqnum2 => $subs->{'seqnum2'},
- startseqnum2 => $subs->{'startseqnum2'},
- seqtype2 => $subs->{'seqtype2'},
- freq2 => $subs->{'freq2'},
- step2 => $subs->{'step2'},
- seqnum3 => $subs->{'seqnum3'},
- startseqnum3 => $subs->{'startseqnum3'},
- seqtype3 => $subs->{'seqtype3'},
- freq3 => $subs->{'freq3'},
- step3 => $subs->{'step3'},
- sequence => $subs->{'numberingmethod'},
- arrivalplanified => $subs->{'arrivalplanified'},
- status => $subs->{'status'},
- biblioid => $subs->{'perioid'},
- notes => $subs->{'notes'},
- suscr => $id,
- );
-
- $template->param(
- "frequency$subs->{'periodicity'}" => 1,
- "Xstate$subs->{'seqtype1'}" => 1,
- "Ystate$subs->{'seqtype2'}" => 1,
- "Zstate$subs->{'seqtype3'}" => 1,
- "arrival$subs->{'dow'}" => 1,
- );
-
-}
-
-output_html_with_http_headers $query, $cookie, $template->output;