--- loncom/interface/statistics/lonstudentassessment.pm	2006/05/05 20:03:43	1.139
+++ loncom/interface/statistics/lonstudentassessment.pm	2006/05/30 12:46:50	1.140
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.139 2006/05/05 20:03:43 raeburn Exp $
+# $Id: lonstudentassessment.pm,v 1.140 2006/05/30 12:46:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,6 +61,9 @@ use Apache::lonmsgdisplay();
 use Time::HiRes;
 use Spreadsheet::WriteExcel;
 use Spreadsheet::WriteExcel::Utility();
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+ 
 
 #######################################################
 #######################################################
@@ -1946,7 +1949,7 @@ sub student_tries_on_sequence {
                     &Apache::lonnet::logthis('length of symbol "'.$symbol.'" > 1');
                 }
                 my $link = '/adm/grades'.
-                    '?symb='.&Apache::lonnet::escape($resource->symb).
+                    '?symb='.&escape($resource->symb).
                         '&student='.$student->{'username'}.
                             '&userdom='.$student->{'domain'}.
                                 '&command=submission';
@@ -2101,7 +2104,7 @@ sub student_performance_on_sequence {
             #
             if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) {
                 my $link = '/adm/grades' .
-                    '?symb='.&Apache::lonnet::escape($symb).
+                    '?symb='.&escape($symb).
                     '&student='.$student->{'username'}.
                     '&userdom='.$student->{'domain'}.
                     '&command=submission';