--- loncom/publisher/londiff.pm	2006/09/19 21:47:29	1.21
+++ loncom/publisher/londiff.pm	2008/11/20 14:37:30	1.25
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to show differences between file versions
 #
-# $Id: londiff.pm,v 1.21 2006/09/19 21:47:29 albertel Exp $
+# $Id: londiff.pm,v 1.25 2008/11/20 14:37:30 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -27,6 +27,9 @@
 #
 ###
 
+
+
+
 package Apache::londiff;
 
 use strict;
@@ -40,7 +43,7 @@ use Apache::lonnet;
 use Apache::loncommon();
 use Apache::lonretrieve();
 use Apache::lonlocal;
-
+use LONCAPA();
 
 sub get_split_file {
     my ($fn,$style)=@_;
@@ -55,16 +58,9 @@ sub get_split_file {
 	    }
 	}
     } elsif ($style eq 'remote') {
-	my $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=&Apache::lonnet::getfile($fn);
     }
+    @f1=split(/\r\n|\r|\n/,$f1);
     return @f1;
 }
 
@@ -88,12 +84,12 @@ sub handler {
 
     if ($env{'form.filename'}=~/^\/res\//) {
 	($cudom,$cuname,$env{'form.filename'})=
-	    ($env{'form.filename'}=~/^\/res\/(\w+)\/(\w+)\/(.*)$/);
+	    ($env{'form.filename'}=~m{^/res/($LONCAPA::domain_re)/($LONCAPA::username_re)/(.*)$});
     } else {
 	unless (($cuname,$cudom)=
 		&Apache::loncacc::constructaccess($env{'form.filename'},
 						  $r->dir_config('lonDefDomain'))) {
-	    $r->log_reason($cuname.' at '.$cudom.
+	    $r->log_reason($cuname.':'.$cudom.
 			   ' trying to get diffs file '.$env{'form.filename'}.
 			   '  - not authorized', 
 			   $r->filename); 
@@ -103,7 +99,7 @@ sub handler {
   
     my $efn=$env{'form.filename'};
 
-    $efn=~s/\/\~(\w+)//g;
+    $efn=~s{/\~($LONCAPA::username_re)}{}g;
 
     my @f1=();
     my @f2=();
@@ -152,7 +148,7 @@ sub handler {
 
 	if ($env{'form.filetwo'}) {
 	    my $efn2=$env{'form.filetwo'};
-	    $efn2=~s/\/\~(\w+)//g;
+	    $efn2=~s{/\~($LONCAPA::username_re)}{}g;
 	    my $fn='/home/'.$cuname.'/public_html/'.$efn2;
 	    @f2=&get_split_file($fn,'local');
 	    $r->print('<tt>'.$efn2.'</tt>');
@@ -215,5 +211,27 @@ 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