loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.629, 2005/04/25 17:18:15	version 1.630, 2005/04/29 18:38:13
Line 3898 sub unmark_as_readonly {	Line 3898 sub unmark_as_readonly {
my @del_keys;	my @del_keys;
if (ref($current_locks) eq "ARRAY"){	if (ref($current_locks) eq "ARRAY"){
foreach my $locker (@{$current_locks}) {	foreach my $locker (@{$current_locks}) {
&logthis("$$locker[0].$$locker[1] eq $symb_crs");
if ($$locker[0].$$locker[1] eq $symb_crs) {	if ($$locker[0].$$locker[1] eq $symb_crs) {
if (defined($file_name) && ($file_name ne $file)) {	if (defined($file_name) && ($file_name ne $file)) {
push(@new_locks, $what);	push(@new_locks, $what);
Line 5332 sub receipt {	Line 5331 sub receipt {

sub getfile {	sub getfile {
my ($file) = @_;	my ($file) = @_;
&Apache::lonnet::logthis("file name is $file");
if ($file =~ m -^/*(uploaded\|editupload)/-) { $file=&filelocation("",$file); }	if ($file =~ m -^/*(uploaded\|editupload)/-) { $file=&filelocation("",$file); }
&repcopy($file);	&repcopy($file);
return &readfile($file);	return &readfile($file);