loncom/publisher/londiff.pm - diff

Return to londiff.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.22, 2006/12/05 02:55:55
+version 1.25, 2008/11/20 14:37:30
  Line 27
  #
  ###
  package Apache::londiff;
  use strict;
- Line 55  sub get_split_file {
+ Line 58  sub get_split_file {
  	    }
  	}
      } elsif ($style eq 'remote') {
- 	my $f1=&Apache::lonnet::getfile($fn);
+ 	$f1=&Apache::lonnet::getfile($fn);
-     }
-     if ($f1=~/\r/) {
- 	@f1=split(/\r/,&Apache::lonnet::getfile($fn));
- 	foreach my $line (@f1) {
- 	    $line=~s/\n//g;
- 	}
-     } else {
- 	@f1=split(/\n/,&Apache::lonnet::getfile($fn));
      }
+     @f1=split(/\r\n|\r|\n/,$f1);
      return @f1;
  }
- Line 215  sub handler {
+ Line 211  sub handler {
  __END__
+ =pod
+ =head1 NAME
+ Apache::londiff
+ =head1 SYNOPSIS
+ Handler to show difference between two files.
+ This is part of the LearningOnline Network with CAPA project
+ described at http://www.lon-capa.org.
+ =head1 Subroutines
+ =over
+ =item get_split_file()
+ =item are_different_files()
+ =item handler()
+ =cut