--- loncom/interface/lonhtmlcommon.pm 2008/07/07 11:02:05 1.176
+++ loncom/interface/lonhtmlcommon.pm 2008/11/26 17:11:55 1.185
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.176 2008/07/07 11:02:05 foxr Exp $
+# $Id: lonhtmlcommon.pm,v 1.185 2008/11/26 17:11:55 schafran Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -68,35 +68,54 @@ use LONCAPA;
=pod
-=item dragmath
+=item dragmath_button
-Creates a button that will allow dragmath to edit an equation into
-a specified textbox.
+Creates a button that launches a dragmath popup-window, in which an
+expression can be edited and pasted as LaTeX into a specified textarea.
+
+ textarea - Name of the textarea to edit.
+ helpicon - If true, show a help icon to the right of the button.
- textarea - Name of the text area to edit.
=cut
-##############################################
-# TODO: Figure out a way to only emit the mathedit function once.
-# per html output document.
-#
+sub dragmath_button {
+ my ($textarea,$helpicon) = @_;
+ my $help_text;
+ if ($helpicon) {
+ $help_text = &Apache::loncommon::help_open_topic('Authoring_Math_Editor');
+ }
+ my $buttontext=&mt('Edit Math');
+ return <<ENDDRAGMATH;
+ <input type="button" value="$buttontext", onclick="javascript:mathedit('$textarea',document)" />$help_text
+ENDDRAGMATH
+}
+
##############################################
-sub dragmath {
- my ($textarea) = @_;
+=pod
- return <<ENDDRAGMATH;
- <script language="JavaScript">
+=item dragmath_js
+
+Javascript used to open pop-up window containing dragmath applet which
+can be used to paste LaTeX into a textarea.
+
+=cut
+
+sub dragmath_js {
+ my ($popup) = @_;
+ return <<ENDDRAGMATHJS;
+ <script type="text/javascript">
function mathedit(textarea, doc) {
targetEntry = textarea;
- targetDoc = doc;
- newwin = window.open("/adm/dragmath/applet/EditMathPopup.html","","width=565,height=500,resizable");
+ targetDoc = doc;
+ newwin = window.open("/adm/dragmath/applet/$popup.html","","width=565,height=500,resizable");
}
</script>
- <input type="button" value="Edit Math", onclick="javascript:mathedit('$textarea',document)" />
-ENDDRAGMATH
+
+ENDDRAGMATHJS
}
+
##############################################
##############################################
@@ -1293,6 +1312,8 @@ returns: nothing
my $faq = '';
my $bug = '';
my $help='';
+ # Crumb Symbol
+ my $crumbsymbol = ' ▶ ';
# The last breadcrumb does not have a link, so handle it separately.
my $last = pop(@Crumbs);
#
@@ -1316,7 +1337,7 @@ returns: nothing
});
}
my $links .=
- join('->',
+ join($crumbsymbol,
map {
$faq = $_->{'faq'} if (exists($_->{'faq'}));
$bug = $_->{'bug'} if (exists($_->{'bug'}));
@@ -1335,7 +1356,7 @@ returns: nothing
$result;
} @Crumbs
);
- $links .= '->' if ($links ne '');
+ $links .= $crumbsymbol if ($links ne '');
if ($last->{'no_mt'}) {
$links .= '<b>'.$last->{'text'}.'</b>';
} else {
@@ -1464,6 +1485,13 @@ END
return $output;
}
+sub row_headline {
+ my $output = <<"END";
+ <tr><td colspan="2">
+END
+ return $output;
+}
+
sub row_title {
my ($title,$css_title_class,$css_value_class) = @_;
$css_title_class ||= 'LC_pick_box_title';
@@ -1680,6 +1708,7 @@ sub email_default_row {
sub submit_row {
my ($title,$cmd,$submit_text,$css_class) = @_;
+ $submit_text = &mt($submit_text);
my $output = &row_title($title,$css_class,'LC_pick_box_submit');
$output .= qq|
<br />
@@ -1710,6 +1739,25 @@ sub course_custom_roles {
##############################################
##############################################
+
+# topic_bar
+#
+# Generates a div containing a numbered (static image) followed by a title
+# with a background color defined in the corresponding CSS: LC_topic_bar
+#
+sub topic_bar {
+ my ($imgnum,$title) = @_;
+ return '
+<div class="LC_topic_bar">
+ <img alt="'.&mt('Step [_1]',$imgnum).
+ '"src="/res/adm/pages/bl_step'.$imgnum.'.gif" />
+ <span>'.$title.'</span>
+</div>
+';
+}
+
+##############################################
+##############################################
# echo_form_input
#
@@ -1957,6 +2005,67 @@ END
return $scripttag;
}
+##############################################
+##############################################
+
+# generate_menu
+#
+# Generates html markup for a menu.
+#
+# Inputs:
+# An array of following structure:
+# ({ categorytitle => 'Categorytitle',
+# items => [
+# { linktext => 'Text to be displayed',
+# url => 'URL the link is pointing to, i.e. /adm/site?action=dosomething',
+# permission => 'Contains permissions as returned from lonnet::allowed(),
+# must evaluate to true in order to activate the link',
+# icon => 'icon filename',
+# help => 'Name of the corresponding helpfile',
+# linktitle => 'Description of the link (used for title tag)'
+# },
+# ...
+# ]
+# },
+# ...
+# )
+#
+# Outputs: A scalar containing the html markup for the menu.
+
+# ---- Remove when done ----
+# This routine is part of the redesign of LON-CAPA and it's
+# subject to change during this project.
+# Don't rely on its current functionality as it might be
+# changed or removed.
+# TODO:
+# add icon field
+# add alt tag for icon
+# check for empty values
+# --------------------------
+
+sub generate_menu {
+ my @menu = @_;
+ my $menu_html = '';
+
+ foreach my $category (@menu) { #FIXME: insert appropriate classnames for styles when they're finished.
+ $menu_html .='<div class="DivContentBox"><h3 class="">'.$category->{'categorytitle'}.'</h3><ul class="ListStyleNormal">';
+ foreach my $item (@{ $category->{items} }) {
+ next if (! $item->{'permission'});
+ $menu_html .= '<li class="">'.
+ qq{<a href="$item->{'url'}" title="$item->{'linktitle'}">};
+ if($item->{'icon'}){
+ $menu_html .= qq{<img class = "" src="/res/adm/pages/$item->{'icon'}" alt=""/>}
+ }
+ $menu_html .= &mt($item->{'linktext'}).'</a>';
+# if (exists($item->{'help'})) {
+# $menu_html .= &Apache::loncommon::help_open_topic($item->{'help'});
+# }
+ $menu_html .= '</li>';
+ }
+ $menu_html .= '</div>';
+ }
+ return $menu_html;
+}
1;