--- loncom/lonnet/perl/lonrep.pm 2001/11/29 18:55:24 1.6 +++ loncom/lonnet/perl/lonrep.pm 2005/04/07 06:56:24 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network # Replication Manager # -# $Id: lonrep.pm,v 1.6 2001/11/29 18:55:24 www Exp $ +# $Id: lonrep.pm,v 1.9 2005/04/07 06:56:24 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,20 +25,12 @@ # # http://www.lon-capa.org/ # -# (Access Handler for File Transfers -# (lonacc: Cookie Based Access Handler -# 5/21/99,5/22,5/29,5/31,6/15 Gerd Kortemeyer) -# 6/16,6/18 Gerd Kortemeyer) -# 6/18,6/21,6/26,6/28,6/29,6/30, -# 7/2,7/3,7/9,7/10,7/12, -# 01/06,01/14,10/5, -# 06/14/01 Gerd Kortemeyer package Apache::lonrep; use strict; use Apache::Constants qw(:common :http); -use Apache::lonnet(); +use Apache::lonnet; use Apache::File(); use CGI::Cookie(); @@ -60,7 +52,7 @@ sub handler { } } else { my $response=Apache::lonnet::repcopy($filename); - if ($response==OK) { + if ($response eq 'ok') { $r->filename($filename); return OK; }