serials/serials-edit.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2000-2002 Katipo Communications
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 2 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along with
  17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  18 # Suite 330, Boston, MA  02111-1307 USA
  19
  20 # $Id$
  21
  22 =head1 NAME
  23
  24 serials-recieve.pl
  25
  26 =head1 Parameters
  27
  28 =over 4
  29
  30 =item op
  31 op can be :
  32     * modsubscriptionhistory :to modify the subscription history
  33     * serialchangestatus     :to modify the status of this subscription
  34
  35 =item subscriptionid
  36
  37 =item user
  38
  39 =item histstartdate
  40
  41 =item enddate
  42
  43 =item recievedlist
  44
  45 =item missinglist
  46
  47 =item opacnote
  48
  49 =item librariannote
  50
  51 =item serialid
  52
  53 =item serialseq
  54
  55 =item planneddate
  56
  57 =item notes
  58
  59 =item status
  60
  61 =back
  62
  63 =cut
  64
  65
  66 use strict;
  67 use CGI;
  68 use C4::Auth;
  69 use C4::Date;
  70 use C4::Biblio;
  71 use C4::Koha;
  72 use C4::Output;
  73 use C4::Context;
  74 use C4::Serials;
  75
  76 my $query = new CGI;
  77 my $dbh = C4::Context->dbh;
  78 my @serialids = $query->param('serialid');
  79 my @serialseqs = $query->param('serialseq');
  80 my @planneddates = $query->param('planneddate');
  81 my @publisheddates = $query->param('publisheddate');
  82 my @status = $query->param('status');
  83 my @notes = $query->param('notes');
  84 my @subscriptionids = $query->param('subscriptionid');
  85 my $op = $query->param('op');
  86 # warn "op : $op";
  87 if (scalar(@subscriptionids)==1 && index($subscriptionids[0],",")>0){
  88   @subscriptionids =split /,/,$subscriptionids[0];
  89 }
  90 my $redirectstring;
  91 # If user comes from subscription details
  92 unless (@serialids){
  93   foreach my $subscriptionid (@subscriptionids){
  94     my $serstatus=$query->param('serstatus');
  95     if ($serstatus){
  96       my ($count,@tmpser)=GetSerials2($subscriptionid,$serstatus);
  97       foreach (@tmpser) {
  98         push @serialids, $_->{'serialid'};
  99       }
 100     }
 101   }
 102 }
 103
 104 my ($template, $loggedinuser, $cookie)
 105 = get_template_and_user({template_name => "serials/serials-edit.tmpl",
 106                 query => $query,
 107                 type => "intranet",
 108                 authnotrequired => 0,
 109                 flagsrequired => {serials => 1},
 110                 debug => 1,
 111                 });
 112
 113 my @serialdatalist;
 114 foreach my $tmpserialid (@serialids){
 115   my $data=GetSerialInformation($tmpserialid);
 116   $data->{publisheddate}=format_date($data->{publisheddate});
 117   $data->{planneddate}=format_date($data->{planneddate});
 118   push @serialdatalist,$data;
 119 }
 120
 121 my @newserialloop;
 122 my @subscriptionloop;
 123 foreach my $subscriptionid (@subscriptionids){
 124   my $cell;
 125   if (C4::Context->preference("serialsadditems")){
 126   #Create New empty item
 127     $cell =
 128       PrepareItemrecordDisplay( $serialdatalist[0]->{'biblionumber'} );
 129   }
 130   $cell->{'subscriptionid'}=$subscriptionid;
 131   $cell->{'subscriptionexpired'}=HasSubscriptionExpired($subscriptionid);
 132   $cell->{'itemid'}       = "NNEW";
 133   $cell->{'serialid'}     = "NEW";
 134   $cell->{'issuesatonce'}   = 1;
 135   push @newserialloop,$cell;
 136   push @subscriptionloop, {'subscriptionid'=>$subscriptionid};
 137 }
 138 $template->param(newserialloop=>\@newserialloop);
 139 $template->param(subscriptions=>\@subscriptionloop);
 140
 141 if ($op eq 'serialchangestatus') {
 142 #     my $sth = $dbh->prepare("select status from serial where serialid=?");
 143     my $newserial;
 144     for (my $i=0;$i<=$#serialids;$i++) {
 145 #         $sth->execute($serialids[$i]);
 146 #         my ($oldstatus) = $sth->fetchrow;
 147         if ($serialids[$i] && $serialids[$i] eq "NEW") {
 148           if ($serialseqs[$i]){
 149             #IF newserial was provided a name Then we have to create a newSerial
 150             ### FIXME if NewIssue is modified to use subscription biblionumber, then biblionumber would not be useful.
 151             $newserial = NewIssue( $serialseqs[$i],$subscriptionids[$i],$serialdatalist[0]->{'biblionumber'},
 152                       $status[$i],
 153                       format_date_in_iso($planneddates[$i]),
 154                       format_date_in_iso($publisheddates[$i]),
 155                       $notes[$i]);
 156           }
 157         }elsif ($serialids[$i]){
 158             ModSerialStatus($serialids[$i],
 159                             $serialseqs[$i],
 160                             format_date_in_iso($planneddates[$i]),
 161                             format_date_in_iso($publisheddates[$i]),
 162                             $status[$i],
 163                             $notes[$i]);
 164         }
 165     }
 166     if (C4::Context->preference("serialsadditems")){
 167       my @moditems = $query->param('moditem');
 168       my @tags = $query->param('tag');
 169       my @subfields = $query->param('subfield');
 170       my @field_values = $query->param('field_value');
 171       my @serials = $query->param('serial');
 172       my @bibnums = $query->param('bibnum');
 173       my @itemid = $query->param('itemid');
 174       my @ind_tag = $query->param('ind_tag');
 175       my @indicator = $query->param('indicator');
 176       #Rebuilding ALL the data for items into a hash
 177       # parting them on $itemid.
 178       my %itemhash;
 179       my $countdistinct;
 180       my $range=scalar(@itemid);
 181       for (my $i=0; $i<$range; $i++){
 182         unless ($itemhash{$itemid[$i]}){
 183           if ($serials[$countdistinct] && $serials[$countdistinct] ne "NEW"){
 184             $itemhash{$itemid[$i]}->{'serial'}=$serials[$countdistinct];
 185           } else {
 186             $itemhash{$itemid[$i]}->{'serial'}=$newserial;
 187           }
 188           $itemhash{$itemid[$i]}->{'bibnum'}=$bibnums[$countdistinct];
 189           $countdistinct++;
 190         }
 191         push @{$itemhash{$itemid[$i]}->{'tags'}},$tags[$i];
 192         push @{$itemhash{$itemid[$i]}->{'subfields'}},$subfields[$i];
 193         push @{$itemhash{$itemid[$i]}->{'field_values'}},$field_values[$i];
 194         push @{$itemhash{$itemid[$i]}->{'ind_tag'}},$ind_tag[$i];
 195         push @{$itemhash{$itemid[$i]}->{'indicator'}},$indicator[$i];
 196       }
 197       foreach my $item (keys %itemhash){
 198         # Verify Itemization is "Valid", i.e. serial status is Arrived or Missing
 199         my $index;
 200         for (my $i=0; $i<scalar(@serialids);$i++){
 201           $index = $i if ($itemhash{$item}->{'serial'} eq $serialids[$i]);
 202         }
 203         if ($status[$index]==2){
 204           my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
 205                                   $itemhash{$item}->{'subfields'},
 206                                   $itemhash{$item}->{'field_values'},
 207                                   $itemhash{$item}->{'ind_tag'},
 208                                   $itemhash{$item}->{'indicator'});
 209 #           warn $xml;
 210           my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
 211           if ($item=~/^N/){
 212             #New Item
 213             # if autoBarcode is ON, calculate barcode...
 214             my ($tagfield,$tagsubfield) = &GetMarcFromKohaField($dbh,"items.barcode");
 215             if (C4::Context->preference('autoBarcode')) {
 216               unless ($record->field($tagfield)->subfield($tagsubfield)) {
 217                 my $sth_barcode = $dbh->prepare("select max(abs(barcode)) from items");
 218                 $sth_barcode->execute;
 219                 my ($newbarcode) = $sth_barcode->fetchrow;
 220                 $newbarcode++;
 221                 # OK, we have the new barcode, now create the entry in MARC record
 222                 my $fieldItem = $record->field($tagfield);
 223                 $record->delete_field($fieldItem);
 224                 $fieldItem->add_subfields($tagsubfield => $newbarcode);
 225                 $record->insert_fields_ordered($fieldItem);
 226               }
 227             }
 228             # check for item barcode # being unique
 229             my $exists = GetItemnumberFromBarcode($record->subfield($tagfield,$tagsubfield)) if ($record->subfield($tagfield,$tagsubfield));
 230   #           push @errors,"barcode_not_unique" if($exists);
 231             $template->param("barcode_not_unique" => 1,'errserialseq'=>$serialseqs[$index]);
 232             # if barcode exists, don't create, but report The problem.
 233             unless ($exists){
 234               my ($biblionumber,$bibitemnum,$itemnumber) = AddItem($record,$itemhash{$item}->{'bibnum'});
 235               AddItem2Serial($itemhash{$item}->{'serial'},$itemnumber);
 236             }
 237           } else {
 238             #modify item
 239             my ($oldbiblionumber,$oldbibnum,$itemnumber) = ModItem($record,$itemhash{$item}->{'bibnum'},$item,0);
 240           }
 241         }
 242       }
 243     }
 244     print $query->redirect("serials-collection.pl?biblionumber=".$serialdatalist[0]->{biblionumber});
 245 }
 246
 247 $template->param(serialsadditems =>C4::Context->preference("serialsadditems"));
 248
 249
 250
 251 $template->param(
 252             biblionumber =>$serialdatalist[0]->{'biblionumber'},
 253             serialslist => \@serialdatalist,
 254             intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
 255             intranetstylesheet => C4::Context->preference("intranetstylesheet"),
 256             IntranetNav => C4::Context->preference("IntranetNav"),
 257         );
 258 output_html_with_http_headers $query, $cookie, $template->output;