--- loncom/interface/lonhtmlcommon.pm 2009/11/10 13:58:55 1.242
+++ 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.242 2009/11/10 13:58:55 droeschl 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 <$help_text
+ $help_text
ENDDRAGMATH
}
@@ -1473,6 +1483,10 @@ returns: nothing
push @{$tools{$category}}, $html;
}
+ sub clear_breadcrumb_tools {
+ undef(%tools);
+ }
+
sub add_tools {
my ($links) = @_;
return unless defined %tools;
@@ -1599,7 +1613,7 @@ END
}
sub row_title {
- my ($title,$css_title_class,$css_value_class) = @_;
+ my ($title,$css_title_class,$css_value_class, $css_value_furtherAttributes) = @_;
$row_count[0]++;
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
$css_title_class ||= 'LC_pick_box_title';
@@ -1611,7 +1625,7 @@ sub row_title {
$title .= ':';
}
my $output = <<"ENDONE";
-
+
$title
@@ -2343,8 +2357,7 @@ Returns: HTML code with function list st
sub start_funclist {
my($legendtext)=@_;
$legendtext=&mt('Functions') if !$legendtext;
- return "\n";
+ return "\n";
}
1;