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

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

Return to bug 27963