loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1188, 2012/08/27 14:33:24	version 1.1189, 2012/09/02 16:18:24
Line 2406 sub chatsend {	Line 2406 sub chatsend {

sub getversion {	sub getversion {
my $fname=&clutter(shift);	my $fname=&clutter(shift);
unless ($fname=~/^\/res\//) { return -1; }	unless ($fname=~m{^(/adm/wrapper\|)/res/}) { return -1; }
return &currentversion(&filelocation('',$fname));	return &currentversion(&filelocation('',$fname));
}	}