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

(-)a/misc/maintenance/touch_all_items.pl (-3 / +9 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
  for my $c (qw( itemcallnumber cn_source ) ){
91
      $item->make_column_dirty($c);
92
  }
93
94
  eval { $item->store };
88
  my $modok = $@ ? 0 : 1;
95
  my $modok = $@ ? 0 : 1;
89
96
90
  if ($modok) {
97
  if ($modok) {
91
- 

Return to bug 27963