[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[albertel]

albertel		Mon Nov  8 17:50:37 2004 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - help menu was not making proper CSTR links
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.226 loncom/interface/loncommon.pm:1.227
--- loncom/interface/loncommon.pm:1.226	Tue Nov  2 15:48:02 2004
+++ loncom/interface/loncommon.pm	Mon Nov  8 17:50:37 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.226 2004/11/02 20:48:02 albertel Exp $
+# $Id: loncommon.pm,v 1.227 2004/11/08 22:50:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -662,6 +662,7 @@
     my $link='';
     my $title = &mt('Get help');
     my $origurl = $ENV{'REQUEST_URI'};
+    $origurl=~s|^/~|/priv/|;
     my $timestamp = time;
     foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) {
         $$_ = &Apache::lonnet::escape($$_);