Return to lonhomework.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.6, 2000/08/11 14:25:24 | version 1.8, 2000/08/11 14:57:32 |
---|---|
Line 52 sub send_footer { | Line 52 sub send_footer { |
sub getfile { | sub getfile { |
my ($filename) = @_; | my ($filename) = @_; |
my $a=""; | my $a=""; |
&Apache::lonnet::repcopy($filename); | if (! -e $filename ) { |
&Apache::lonnet::subscribe($filename); | |
&Apache::lonnet::repcopy($filename); | |
} | |
{ | { |
my $fh=Apache::File->new($filename); | my $fh=Apache::File->new($filename); |