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
  21 =head1 NAME
  22
  23 serials-recieve.pl
  24
  25 =head1 Parameters
  26
  27 =over 4
  28
  29 =item op
  30 op can be :
  31     * modsubscriptionhistory :to modify the subscription history
  32     * serialchangestatus     :to modify the status of this subscription
  33
  34 =item subscriptionid
  35
  36 =item user
  37
  38 =item histstartdate
  39
  40 =item enddate
  41
  42 =item recievedlist
  43
  44 =item missinglist
  45
  46 =item opacnote
  47
  48 =item librariannote
  49
  50 =item serialid
  51
  52 =item serialseq
  53
  54 =item planneddate
  55
  56 =item notes
  57
  58 =item status
  59
  60 =back
  61
  62 =cut
  63
  64
  65 use strict;
  66 use CGI;
  67 use C4::Auth;
  68 use C4::Date;
  69 use C4::Biblio;
  70 use C4::Koha;
  71 use C4::Output;
  72 use C4::Context;
  73 use C4::Serials;
  74
  75 my $query = new CGI;
  76 my $dbh = C4::Context->dbh;
  77 my @serialids = $query->param('serialid');
  78 my @serialseqs = $query->param('serialseq');
  79 my @planneddates = $query->param('planneddate');
  80 my @publisheddates = $query->param('publisheddate');
  81 my @status = $query->param('status');
  82 my @notes = $query->param('notes');
  83 my @subscriptionids = $query->param('subscriptionid');
  84 my $op = $query->param('op');
  85 # warn "op : $op";
  86 if (scalar(@subscriptionids)==1 && index($subscriptionids[0],",")>0){
  87   @subscriptionids =split /,/,$subscriptionids[0];
  88 }
  89 my $redirectstring;
  90 # If user comes from subscription details
  91 unless (@serialids){
  92   foreach my $subscriptionid (@subscriptionids){
  93     my $serstatus=$query->param('serstatus');
  94     if ($serstatus){
  95       my ($count,@tmpser)=GetSerials2($subscriptionid,$serstatus);
  96       foreach (@tmpser) {
  97         push @serialids, $_->{'serialid'};
  98       }
  99     }
 100   }
 101 }
 102
 103 unless (scalar(@serialids)){
 104   my $string="serials-collection.pl?subscriptionid=".join(",",@subscriptionids);
 105   $string=~s/,$//;
 106  warn $string;
 107   print $query->redirect($string);
 108 }
 109 my ($template, $loggedinuser, $cookie)
 110 = get_template_and_user({template_name => "serials/serials-edit.tmpl",
 111                 query => $query,
 112                 type => "intranet",
 113                 authnotrequired => 0,
 114                 flagsrequired => {serials => 1},
 115                 debug => 1,
 116                 });
 117
 118 my @serialdatalist;
 119 foreach my $tmpserialid (@serialids){
 120   my $data=GetSerialInformation($tmpserialid);
 121   $data->{publisheddate}=format_date($data->{publisheddate});
 122   $data->{planneddate}=format_date($data->{planneddate});
 123   $data->{'editdisable'}=(HasSubscriptionExpired($data->{subscriptionid})&& $data->{'status1'});
 124   push @serialdatalist,$data;
 125 }
 126 my $bibdata=GetBiblioData($serialdatalist[0]->{'biblionumber'});
 127
 128 my @newserialloop;
 129 my @subscriptionloop;
 130 foreach my $subscriptionid (@subscriptionids){
 131   my $cell;
 132   if (C4::Context->preference("serialsadditems")){
 133   #Create New empty item
 134     $cell =
 135       PrepareItemrecordDisplay( $serialdatalist[0]->{'biblionumber'} );
 136   }
 137   $cell->{'subscriptionid'}=$subscriptionid;
 138   $cell->{'itemid'}       = "NNEW";
 139   $cell->{'serialid'}     = "NEW";
 140   $cell->{'issuesatonce'}   = 1;
 141   push @newserialloop,$cell;
 142   push @subscriptionloop, {'subscriptionid'=>$subscriptionid,
 143                            'abouttoexpire'=>abouttoexpire($subscriptionid),
 144                            'subscriptionexpired'=>HasSubscriptionExpired($subscriptionid),
 145   };
 146 }
 147 $template->param(newserialloop=>\@newserialloop);
 148 $template->param(subscriptions=>\@subscriptionloop);
 149
 150 if ($op eq 'serialchangestatus') {
 151 #     my $sth = $dbh->prepare("select status from serial where serialid=?");
 152     my $newserial;
 153     for (my $i=0;$i<=$#serialids;$i++) {
 154 #         $sth->execute($serialids[$i]);
 155 #         my ($oldstatus) = $sth->fetchrow;
 156         if ($serialids[$i] && $serialids[$i] eq "NEW") {
 157           if ($serialseqs[$i]){
 158             #IF newserial was provided a name Then we have to create a newSerial
 159             ### FIXME if NewIssue is modified to use subscription biblionumber, then biblionumber would not be useful.
 160             $newserial = NewIssue( $serialseqs[$i],$subscriptionids[$i],$serialdatalist[0]->{'biblionumber'},
 161                       $status[$i],
 162                       format_date_in_iso($planneddates[$i]),
 163                       format_date_in_iso($publisheddates[$i]),
 164                       $notes[$i]);
 165           }
 166         }elsif ($serialids[$i]){
 167             ModSerialStatus($serialids[$i],
 168                             $serialseqs[$i],
 169                             format_date_in_iso($planneddates[$i]),
 170                             format_date_in_iso($publisheddates[$i]),
 171                             $status[$i],
 172                             $notes[$i]);
 173         }
 174     }
 175     if (C4::Context->preference("serialsadditems")){
 176       my @moditems = $query->param('moditem');
 177       my @tags = $query->param('tag');
 178       my @subfields = $query->param('subfield');
 179       my @field_values = $query->param('field_value');
 180       my @serials = $query->param('serial');
 181       my @bibnums = $query->param('bibnum');
 182       my @itemid = $query->param('itemid');
 183       my @ind_tag = $query->param('ind_tag');
 184       my @indicator = $query->param('indicator');
 185       #Rebuilding ALL the data for items into a hash
 186       # parting them on $itemid.
 187       my %itemhash;
 188       my $countdistinct;
 189       my $range=scalar(@itemid);
 190       for (my $i=0; $i<$range; $i++){
 191         unless ($itemhash{$itemid[$i]}){
 192           if ($serials[$countdistinct] && $serials[$countdistinct] ne "NEW"){
 193             $itemhash{$itemid[$i]}->{'serial'}=$serials[$countdistinct];
 194           } else {
 195             $itemhash{$itemid[$i]}->{'serial'}=$newserial;
 196           }
 197           $itemhash{$itemid[$i]}->{'bibnum'}=$bibnums[$countdistinct];
 198           $countdistinct++;
 199         }
 200         push @{$itemhash{$itemid[$i]}->{'tags'}},$tags[$i];
 201         push @{$itemhash{$itemid[$i]}->{'subfields'}},$subfields[$i];
 202         push @{$itemhash{$itemid[$i]}->{'field_values'}},$field_values[$i];
 203         push @{$itemhash{$itemid[$i]}->{'ind_tag'}},$ind_tag[$i];
 204         push @{$itemhash{$itemid[$i]}->{'indicator'}},$indicator[$i];
 205       }
 206       foreach my $item (keys %itemhash){
 207         # Verify Itemization is "Valid", i.e. serial status is Arrived or Missing
 208         my $index;
 209         for (my $i=0; $i<scalar(@serialids);$i++){
 210           $index = $i if ($itemhash{$item}->{'serial'} eq $serialids[$i]);
 211         }
 212         if ($status[$index]==2){
 213           my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
 214                                   $itemhash{$item}->{'subfields'},
 215                                   $itemhash{$item}->{'field_values'},
 216                                   $itemhash{$item}->{'ind_tag'},
 217                                   $itemhash{$item}->{'indicator'});
 218 #           warn $xml;
 219           my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
 220           if ($item=~/^N/){
 221             #New Item
 222             # if autoBarcode is ON, calculate barcode...
 223             my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode");
 224             if (C4::Context->preference('autoBarcode')) {
 225               unless ($record->field($tagfield)->subfield($tagsubfield)) {
 226                 my $sth_barcode = $dbh->prepare("select max(abs(barcode)) from items");
 227                 $sth_barcode->execute;
 228                 my ($newbarcode) = $sth_barcode->fetchrow;
 229                 $newbarcode++;
 230                 # OK, we have the new barcode, now create the entry in MARC record
 231                 my $fieldItem = $record->field($tagfield);
 232                 $record->delete_field($fieldItem);
 233                 $fieldItem->add_subfields($tagsubfield => $newbarcode);
 234                 $record->insert_fields_ordered($fieldItem);
 235               }
 236             }
 237             # check for item barcode # being unique
 238             my $exists = GetItemnumberFromBarcode($record->subfield($tagfield,$tagsubfield)) if ($record->subfield($tagfield,$tagsubfield));
 239   #           push @errors,"barcode_not_unique" if($exists);
 240             $template->param("barcode_not_unique" => 1,'errserialseq'=>$serialseqs[$index]);
 241             # if barcode exists, don't create, but report The problem.
 242             unless ($exists){
 243               my ($biblionumber,$bibitemnum,$itemnumber) = AddItem($record,$itemhash{$item}->{'bibnum'});
 244               AddItem2Serial($itemhash{$item}->{'serial'},$itemnumber);
 245             }
 246           } else {
 247             #modify item
 248             my ($oldbiblionumber,$oldbibnum,$itemnumber) = ModItem($record,$itemhash{$item}->{'bibnum'},$item,0);
 249           }
 250         }
 251       }
 252     }
 253 #     ### FIXME this part of code is not very pretty. Nor is it very efficient... There MUST be a more perlish way to write it. But it works.
 254 #     my $redirect ="serials-home.pl?";
 255 #     $redirect.=join("&",map{"serialseq=".$_} @serialseqs);
 256 #     $redirect.="&".join("&",map{"planneddate=".$_} @planneddates);
 257 #     $redirect.="&".join("&",map{"publisheddate=".$_} @publisheddates);
 258 #     $redirect.="&".join("&",map{"status=".$_} @status);
 259 #     $redirect.="&".join("&",map{"notes=".$_} @notes);
 260
 261      my $redirect ="serials-collection.pl?";
 262      my %hashsubscription;
 263      map{$hashsubscription{$_}=1} @subscriptionids;
 264      $redirect.=join("&",map{"subscriptionid=".$_} sort keys %hashsubscription);
 265     print $query->redirect("$redirect");
 266 }
 267
 268 $template->param(serialsadditems =>C4::Context->preference("serialsadditems"));
 269
 270
 271
 272 $template->param(
 273             bibliotitle => $bibdata->{'title'},
 274             biblionumber =>$serialdatalist[0]->{'biblionumber'},
 275             serialslist => \@serialdatalist,
 276             intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
 277             intranetstylesheet => C4::Context->preference("intranetstylesheet"),
 278             IntranetNav => C4::Context->preference("IntranetNav"),
 279         );
 280 output_html_with_http_headers $query, $cookie, $template->output;