View | Details | Raw Unified | Return to bug 27963
Collapse All | Expand All

(-)a/misc/maintenance/touch_all_items.pl (-3 / +11 lines)
Lines 83-90 $sth_fetch->execute(); Link Here
83
83
84
# fetch info from the search
84
# fetch info from the search
85
while (my ($biblionumber, $itemnumber, $itemcallnumber) = $sth_fetch->fetchrow_array){
85
while (my ($biblionumber, $itemnumber, $itemcallnumber) = $sth_fetch->fetchrow_array){
86
   
86
87
  eval { Koha::Items->find($itemnumber)->itemcallnumber($itemcallnumber)->store; };
87
  my $item = Koha::Items->find($itemnumber);
88
  next unless $item;
89
90
  eval {
91
      for my $c (qw( itemcallnumber cn_source location ) ){
92
          $item->make_column_dirty($c);
93
      }
94
95
      $item->store;
96
  };
88
  my $modok = $@ ? 0 : 1;
97
  my $modok = $@ ? 0 : 1;
89
98
90
  if ($modok) {
99
  if ($modok) {
91
- 

Return to bug 27963