bull/subscription-detail.pl.new

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use CGI;
   5 use C4::Auth;
   6 use C4::Bull;
   7 use C4::Output;
   8 use C4::Interface::CGI::Output;
   9 use C4::Context;
  10 use HTML::Template;
  11
  12 my $query = new CGI;
  13 my $op = $query->param('op');
  14 my $dbh = C4::Context->dbh;
  15 my $sth;
  16 my $id;
  17 my ($template, $loggedinuser, $cookie, $subs);
  18
  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')
  29                                         );
  30
  31         ($template, $loggedinuser, $cookie)
  32         = get_template_and_user({template_name => "bull/subscription-detail.tmpl",
  33                                         query => $query,
  34                                         type => "intranet",
  35                                         authnotrequired => 0,
  36                                         flagsrequired => {catalogue => 1},
  37                                         debug => 1,
  38                                         });
  39
  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');
  73                 $template->param(
  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'));
 106
 107
 108                 $template->param(
 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,
 114                                 );
 115
 116  } else {
 117         $sth = $dbh->prepare('select * from subscription where subscriptionid = ?');
 118         $id = $query->param('suscr');
 119         $sth->execute($id);
 120         $subs = $sth->fetchrow_hashref;
 121         $sth->finish;
 122
 123         ($template, $loggedinuser, $cookie)
 124         = get_template_and_user({template_name => "bull/subscription-detail.tmpl",
 125                                         query => $query,
 126                                         type => "intranet",
 127                                         authnotrequired => 0,
 128                                         flagsrequired => {catalogue => 1},
 129                                         debug => 1,
 130                                         });
 131
 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'},
 164                                                         suscr => $id,
 165                 );
 166
 167         $template->param(
 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,
 173                                 );
 174
 175 }
 176
 177 output_html_with_http_headers $query, $cookie, $template->output;