Koha-clms/misc/fixorders.pl2

#!/usr/bin/perl


use strict;
my $olddat;
while (my $dat =<STDIN>){
  my @data=split(/\t/,$dat);
  if ($dat eq $olddat){
#    print "oi";
  } else {
    print $dat;
  }
  $olddat=$dat;
}