An Approach to explain the long cooling times of anomalous x-ray pulsars and soft gamma repeaters with the neutrino magnetic moment