--- loncom/interface/lonhtmlcommon.pm 2009/11/14 18:54:17 1.243
+++ loncom/interface/lonhtmlcommon.pm 2009/11/21 22:36:23 1.247
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.243 2009/11/14 18:54:17 amueller Exp $
+# $Id: lonhtmlcommon.pm,v 1.247 2009/11/21 22:36:23 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -62,6 +62,16 @@ use Apache::lonlocal;
use Apache::lonnet;
use LONCAPA;
+
+sub coursepreflink {
+ my ($text,$category)=@_;
+ if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
+ return ''.$text.'';
+ } else {
+ return '';
+ }
+}
+
##############################################
##############################################
@@ -111,7 +121,7 @@ sub dragmath_button {
}
my $buttontext=&mt('Edit Math');
return <