--- loncom/interface/lonsupportreq.pm	2006/04/13 19:07:11	1.34
+++ loncom/interface/lonsupportreq.pm	2006/05/30 12:46:09	1.35
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.34 2006/04/13 19:07:11 albertel Exp $
+# $Id: lonsupportreq.pm,v 1.35 2006/05/30 12:46:09 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,9 @@ use Apache::loncommon();
 use Apache::lonnet;
 use Apache::lonlocal;
 use Apache::lonacc();
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+ 
 
 sub handler {
     my ($r) = @_;
@@ -50,7 +53,7 @@ sub handler {
         &Apache::lonacc::get_posted_cgi($r);
     }
     my $function = $env{'form.function'};
-    my $origurl = &Apache::lonnet::unescape($env{'form.origurl'});
+    my $origurl = &unescape($env{'form.origurl'});
     my $action = $env{'form.action'};
 
     if ($action eq 'process') {
@@ -976,7 +979,7 @@ sub retrieve_instcodes {
     my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.');
     foreach my $course (keys %courses) {
         if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
-            $$coursecodes{$course} = &Apache::lonnet::unescape($1);
+            $$coursecodes{$course} = &unescape($1);
             $totcodes ++;
         }
     }