Populate serialitems table, bugfix

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Serials.pm b/C4/Serials.pm
index e0f260c..dce2c61 100644 (file)
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -302,12 +302,8 @@ Adds an itemnumber to Serial record
 sub AddItem2Serial {
     my ( $serialid, $itemnumber ) = @_;
     my $dbh   = C4::Context->dbh;
-    my $query = qq|
-        UPDATE serial SET itemnumber=IF(itemnumber IS NULL, $itemnumber, CONCAT(itemnumber,",",$itemnumber))
-        WHERE  serialid = ?
-    |;
-    my $rq = $dbh->prepare($query);
-    $rq->execute($serialid);
+    my $rq = $dbh->prepare("INSERT INTO `serialitems` SET serialid=? , itemnumber=?");
+    $rq->execute($serialid, $itemnumber);
     return $rq->rows;
 }
 

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-collection.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-collection.tmpl
index 32b7980..fb9cfb7 100644 (file)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-collection.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-collection.tmpl
@@ -75,7 +75,7 @@ $(document).ready(function() {
 </tr>
 <!--TMPL_LOOP Name="subscriptions"-->
        <tr>
-      <td><a href="subscription-detail.pl?subscriptionid=<!-- TMPL_VAR name="subscriptionid" -->">#<!-- TMPL_VAR name="subscriptionid" --></a> </td>
+      <td><a href="subscription-detail.pl?subscriptionid=<!-- TMPL_VAR name="subscriptionid" -->"># <!-- TMPL_VAR name="subscriptionid" --></a> </td>
       <td>         <!--TMPL_IF name="periodicity1" -->
                         1/day
                 <!-- /TMPL_IF -->
@@ -147,8 +147,9 @@ $(document).ready(function() {
       </tr>
 <!--/TMPL_LOOP -->
 <!--TMPL_IF Name="subscr"-->
+<!--TMPL_UNLESS Name="onesubscription"-->
 <tr ><td colspan="7">  <a href="serials-collection.pl?biblionumber=<!--TMPL_VAR Name="biblionumber" -->">See any subscription attached to this biblio</a></td>
-</tr>
+</tr><!-- /TMPL_UNLESS -->
 <!--/TMPL_IF-->
 </table>
 <!--/TMPL_IF -->

diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl
index 057f668..ca58f98 100755 (executable)
--- a/serials/serials-collection.pl
+++ b/serials/serials-collection.pl
@@ -70,6 +70,7 @@ if (@subscriptionid){
     }
     $subs->{'abouttoexpire'}=abouttoexpire($subs->{'subscriptionid'});
     $subs->{'subscriptionexpired'}=HasSubscriptionExpired($subs->{'subscriptionid'});
+    $subs->{'subscriptionid'} = $subscriptionid;  # FIXME - why was this lost ?
     push @$subscriptiondescs,$subs;
     my $tmpsubscription= GetFullSubscription($subscriptionid);
     @subscriptioninformation=(@$tmpsubscription,@subscriptioninformation);

diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index f1e61e4..e0d6666 100755 (executable)
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -222,13 +222,6 @@ if ($op eq 'serialchangestatus') {
           my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
           if ($item=~/^N/){
             #New Item
-            # add serialid to item record 
-            my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.itemnumber");
-                       my $field = $record->field($tagfield);
-            my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.serialid");            
-                       if ($tagsubfield ) {
-              $field->update($tagsubfield => $itemhash{$item}->{'serial'});
-                       }
                        
             # if autoBarcode is ON, calculate barcode...
             my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode");