--- loncom/interface/statistics/lonproblemstatistics.pm 2006/08/18 15:15:38 1.110 +++ loncom/interface/statistics/lonproblemstatistics.pm 2006/12/06 22:22:38 1.111 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonproblemstatistics.pm,v 1.110 2006/08/18 15:15:38 raeburn Exp $ +# $Id: lonproblemstatistics.pm,v 1.111 2006/12/06 22:22:38 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -60,7 +60,6 @@ use Apache::lonlocal; use Spreadsheet::WriteExcel; use Apache::lonstathelpers(); use Time::HiRes; -use lib '/home/httpd/lib/perl/'; use LONCAPA; @@ -1586,7 +1585,7 @@ sub get_statistics { $data->{'urlres'}=$urlres; my %storestats = &LONCAPA::lonmetadata::dynamic_metadata_storage($data); - my ($dom,$user) = $urlres=~/^(\w+)\/(\w+)/; + my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)}); &Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user); } #