|
version 1.231, 2009/08/11 13:01:10
|
version 1.261, 2010/01/19 19:00:02
|
|
Line 62 use Apache::lonlocal;
|
Line 62 use Apache::lonlocal;
|
| use Apache::lonnet; |
use Apache::lonnet; |
| use LONCAPA; |
use LONCAPA; |
| |
|
| |
|
| |
sub coursepreflink { |
| |
my ($text,$category)=@_; |
| |
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) { |
| |
return '<a href="/adm/courseprefs?phase=display&actions='.$category.'">'.$text.'</a>'; |
| |
} else { |
| |
return ''; |
| |
} |
| |
} |
| |
|
| |
sub raw_href_to_link { |
| |
my ($message)=@_; |
| |
$message=~s/(https?\:\/\/[^\s\'\"]+)(\s|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi; |
| |
return $message; |
| |
} |
| |
|
| ############################################## |
############################################## |
| ############################################## |
############################################## |
| |
|
| =pod |
|
| |
|
| =item confirm_success |
=item confirm_success |
| |
|
| Successful completion of an operation message |
Successful completion of an operation message |
|
Line 82 sub confirm_success {
|
Line 96 sub confirm_success {
|
| .'</span>'."\n"; |
.'</span>'."\n"; |
| } else { |
} else { |
| return '<span class="LC_success">'."\n" |
return '<span class="LC_success">'."\n" |
| .'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('Ok').'" /> '."\n" |
.'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('OK').'" /> '."\n" |
| .$message."\n" |
.$message."\n" |
| .'</span>'."\n"; |
.'</span>'."\n"; |
| } |
} |
|
Line 111 sub dragmath_button {
|
Line 125 sub dragmath_button {
|
| } |
} |
| my $buttontext=&mt('Edit Math'); |
my $buttontext=&mt('Edit Math'); |
| return <<ENDDRAGMATH; |
return <<ENDDRAGMATH; |
| <input type="button" value="$buttontext", onclick="javascript:mathedit('$textarea',document)" />$help_text |
<input type="button" value="$buttontext" onclick="javascript:mathedit('$textarea',document)" />$help_text |
| ENDDRAGMATH |
ENDDRAGMATH |
| } |
} |
| |
|
|
Line 123 ENDDRAGMATH
|
Line 137 ENDDRAGMATH
|
| |
|
| Javascript used to open pop-up window containing dragmath applet which |
Javascript used to open pop-up window containing dragmath applet which |
| can be used to paste LaTeX into a textarea. |
can be used to paste LaTeX into a textarea. |
| |
|
| =cut |
=cut |
| |
|
| sub dragmath_js { |
sub dragmath_js { |
|
Line 160 sub authorbombs {
|
Line 173 sub authorbombs {
|
| $url=&Apache::lonnet::declutter($url); |
$url=&Apache::lonnet::declutter($url); |
| my ($udom,$uname)=($url=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)/}); |
my ($udom,$uname)=($url=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)/}); |
| my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); |
my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); |
| foreach (keys %bombs) { |
foreach my $bomb (keys(%bombs)) { |
| if ($_=~/^$udom\/$uname\//) { |
if ($bomb =~ /^$udom\/$uname\//) { |
| return '<a href="/adm/bombs/'.$url. |
return '<a href="/adm/bombs/'.$url. |
| '"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/bomb.gif').'" alt="'.&mt('Bomb').'" border="0" /></a>'. |
'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/bomb.gif').'" alt="'.&mt('Bomb').'" border="0" /></a>'. |
| &Apache::loncommon::help_open_topic('About_Bombs'); |
&Apache::loncommon::help_open_topic('About_Bombs'); |
|
Line 222 sub select_recent {
|
Line 235 sub select_recent {
|
| unless ($value =~/^error\:/) { |
unless ($value =~/^error\:/) { |
| my $escaped = &Apache::loncommon::escape_url($value); |
my $escaped = &Apache::loncommon::escape_url($value); |
| &Apache::loncommon::inhibit_menu_check(\$escaped); |
&Apache::loncommon::inhibit_menu_check(\$escaped); |
| |
if ($area eq 'residx') { |
| |
next if ((!&Apache::lonnet::allowed('bre',$value)) && (!&Apache::lonnet::allowed('bro',$value))); |
| |
} |
| $return.="\n<option value='$escaped'>". |
$return.="\n<option value='$escaped'>". |
| &unescape((split(/\&/,$recent{$value}))[1]). |
&unescape((split(/\&/,$recent{$value}))[1]). |
| '</option>'; |
'</option>'; |
|
Line 239 sub get_recent {
|
Line 255 sub get_recent {
|
| # Begin filling return_hash with any 'always_include' option |
# Begin filling return_hash with any 'always_include' option |
| my %time_hash = (); |
my %time_hash = (); |
| my %return_hash = (); |
my %return_hash = (); |
| foreach my $item (keys %recent) { |
foreach my $item (keys(%recent)) { |
| my ($thistime,$thisvalue)=(split(/\&/,$recent{$item})); |
my ($thistime,$thisvalue)=(split(/\&/,$recent{$item})); |
| if ($thistime eq 'always_include') { |
if ($thistime eq 'always_include') { |
| $return_hash{$item} = &unescape($thisvalue); |
$return_hash{$item} = &unescape($thisvalue); |
|
Line 364 dname_hour, dname_min, and dname_sec.
|
Line 380 dname_hour, dname_min, and dname_sec.
|
| |
|
| The current setting for this time parameter. A unix format time |
The current setting for this time parameter. A unix format time |
| (time in seconds since the beginning of Jan 1st, 1970, GMT. |
(time in seconds since the beginning of Jan 1st, 1970, GMT. |
| An undefined value is taken to indicate the value is the current time. |
An undefined value is taken to indicate the value is the current time |
| |
unless it is requested to leave it empty. See $includeempty. |
| Also, to be explicit, a value of 'now' also indicates the current time. |
Also, to be explicit, a value of 'now' also indicates the current time. |
| |
|
| =item $special |
=item $special |
|
Line 374 the date_setter. See lonparmset for exa
|
Line 391 the date_setter. See lonparmset for exa
|
| |
|
| =item $includeempty |
=item $includeempty |
| |
|
| |
If it is set (true) and no date/time value is provided, |
| |
the date/time fields are left empty. |
| |
|
| =item $state |
=item $state |
| |
|
| Specifies the initial state of the form elements. Either 'disabled' or empty. |
Specifies the initial state of the form elements. Either 'disabled' or empty. |
|
Line 393 sub date_setter {
|
Line 413 sub date_setter {
|
| my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
| $no_hh_mm_ss,$defhour,$defmin,$defsec,$nolink) = @_; |
$no_hh_mm_ss,$defhour,$defmin,$defsec,$nolink) = @_; |
| my $now = time; |
my $now = time; |
| my $wasdefined=1; |
|
| |
my $tzname; |
| |
my ($sec,$min,$hour,$mday,$month,$year) = ('', '', undef,''.''.''); |
| |
#other potentially useful values: wkday,yrday,is_daylight_savings |
| |
|
| if (! defined($state) || $state ne 'disabled') { |
if (! defined($state) || $state ne 'disabled') { |
| $state = ''; |
$state = ''; |
| } |
} |
|
Line 401 sub date_setter {
|
Line 425 sub date_setter {
|
| $no_hh_mm_ss = 0; |
$no_hh_mm_ss = 0; |
| } |
} |
| if ($currentvalue eq 'now') { |
if ($currentvalue eq 'now') { |
| $currentvalue = $now; |
$currentvalue = $now; |
| } |
} |
| if ((!defined($currentvalue)) || ($currentvalue eq '')) { |
|
| $wasdefined=0; |
# Default value: Set empty date field to current time |
| if ($includeempty) { |
# unless empty inclusion is requested |
| $currentvalue = 0; |
if ((!$includeempty) && (!$currentvalue)) { |
| } else { |
$currentvalue = $now; |
| $currentvalue = $now; |
|
| } |
|
| } |
} |
| # other potentially useful values: wkday,yrday,is_daylight_savings |
# Do we have a date? Split it! |
| my $tzname; |
|
| my ($sec,$min,$hour,$mday,$month,$year)=('','',undef,'','',''); |
|
| if ($currentvalue) { |
if ($currentvalue) { |
| ($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue); |
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue); |
| } |
|
| unless ($wasdefined) { |
#No values provided for hour, min, sec? Use default 0 |
| ($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now); |
if (($defhour) || ($defmin) || ($defsec)) { |
| if (($defhour) || ($defmin) || ($defsec)) { |
$sec = ($defsec ? $defsec : 0); |
| $sec=($defsec?$defsec:0); |
$min = ($defmin ? $defmin : 0); |
| $min=($defmin?$defmin:0); |
$hour = ($defhour ? $defhour : 0); |
| $hour=($defhour?$defhour:0); |
} |
| } elsif (!$includeempty) { |
|
| $sec=0; |
|
| $min=0; |
|
| $hour=0; |
|
| } |
|
| } |
} |
| my $result = "\n<!-- $dname date setting form -->\n"; |
my $result = "\n<!-- $dname date setting form -->\n"; |
| $result .= <<ENDJS; |
$result .= <<ENDJS; |
|
Line 1117 sub r_print {
|
Line 1132 sub r_print {
|
| # ------------------------------------------------------- Puts directory header |
# ------------------------------------------------------- Puts directory header |
| |
|
| sub crumbs { |
sub crumbs { |
| my ($uri,$target,$prefix,$form,$size,$noformat,$skiplast)=@_; |
my ($uri,$target,$prefix,$form,$skiplast)=@_; |
| if (! defined($size)) { |
|
| $size = '+2'; |
|
| } |
|
| if ($target) { |
if ($target) { |
| $target = ' target="'. |
$target = ' target="'. |
| &Apache::loncommon::escape_single($target).'"'; |
&Apache::loncommon::escape_single($target).'"'; |
| } |
} |
| my $output=''; |
my $output='<span class="LC_filename">'; |
| unless ($noformat) { $output.='<br /><tt><b>'; } |
$output.=$prefix.'/'; |
| $output.='<font size="'.$size.'">'.$prefix.'/'; |
if (($env{'user.adv'}) || ($env{'user.author'})) { |
| if ($env{'user.adv'}) { |
my $path=$prefix.'/'; |
| my $path=$prefix.'/'; |
foreach my $dir (split('/',$uri)) { |
| foreach my $dir (split('/',$uri)) { |
|
| if (! $dir) { next; } |
if (! $dir) { next; } |
| $path .= $dir; |
$path .= $dir; |
| if ($path eq $uri) { |
if ($path eq $uri) { |
| if ($skiplast) { |
if ($skiplast) { |
| $output.=$dir; |
$output.=$dir; |
| last; |
last; |
| } |
} |
| } else { |
} else { |
| $path.='/'; |
$path.='/'; |
| } |
} |
| my $href_path = &HTML::Entities::encode($path,'<>&"'); |
my $href_path = &HTML::Entities::encode($path,'<>&"'); |
| &Apache::loncommon::inhibit_menu_check(\$href_path); |
&Apache::loncommon::inhibit_menu_check(\$href_path); |
| if ($form) { |
if ($form) { |
| my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();'; |
my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();'; |
| $output.=qq{<a href="$href" $target>$dir</a>/}; |
$output.=qq{<a href="$href"$target>$dir</a>/}; |
| } else { |
} else { |
| $output.=qq{<a href="$href_path" $target>$dir</a>/}; |
$output.=qq{<a href="$href_path"$target>$dir</a>/}; |
| } |
} |
| } |
} |
| } else { |
} else { |
| foreach my $dir (split('/',$uri)) { |
foreach my $dir (split('/',$uri)) { |
| if (! $dir) { next; } |
if (! $dir) { next; } |
| $output.=$dir.'/'; |
$output.=$dir.'/'; |
| } |
} |
| } |
} |
| if ($uri !~ m|/$|) { $output=~s|/$||; } |
if ($uri !~ m|/$|) { $output=~s|/$||; } |
| return $output.'</font>'.($noformat?'':'</b></tt><br />'); |
$output.='</span>'; |
| |
|
| |
return $output; |
| } |
} |
| |
|
| # --------------------- A function that generates a window for the spellchecker |
# --------------------- A function that generates a window for the spellchecker |
|
Line 1224 ENDLINK
|
Line 1237 ENDLINK
|
| } |
} |
| |
|
| sub htmlareaheaders { |
sub htmlareaheaders { |
| return if (&htmlareablocked()); |
my $s=""; |
| return if (!&htmlareabrowser()); |
if (&htmlareabrowser()) { |
| return (<<ENDHEADERS); |
$s.=(<<ENDEDITOR); |
| <script type="text/javascript" src="/fckeditor/fckeditor.js"></script> |
<script type="text/javascript" src="/fckeditor/fckeditor.js"></script> |
| ENDHEADERS |
<script type="text/javascript" src="/ckeditor/ckeditor.js"></script> |
| |
ENDEDITOR |
| |
} |
| |
$s.=(<<ENDJQUERY); |
| |
<script type="text/javascript" src="/adm/jQuery/js/jquery-1.3.2.min.js"></script> |
| |
<script type="text/javascript" src="/adm/jQuery/js/jquery-ui-1.7.2.custom.min.js"></script> |
| |
<link rel="stylesheet" type="text/css" href="/adm/jQuery/css/smoothness/jquery-ui-1.7.2.custom.css" /> |
| |
ENDJQUERY |
| |
return $s; |
| } |
} |
| |
|
| # ----------------------------------------------------------------- Preferences |
# ----------------------------------------------------------------- Preferences |
|
Line 1263 sub htmlarea_lang {
|
Line 1284 sub htmlarea_lang {
|
| sub htmlareaselectactive { |
sub htmlareaselectactive { |
| my @fields=@_; |
my @fields=@_; |
| unless (&htmlareabrowser()) { return ''; } |
unless (&htmlareabrowser()) { return ''; } |
| if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); } |
#if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); } |
| my $output='<script type="text/javascript" defer="1">'."\n" |
my $output='<script type="text/javascript" defer="1">'."\n" |
| .'// <![CDATA['."\n"; |
.'// <![CDATA['."\n"; |
| my $lang = &htmlarea_lang(); |
my $lang = &htmlarea_lang(); |
| |
$output.=' |
| |
|
| |
function containsBlockHtml(id) { |
| |
var re = $("#"+id).html().search(/(?:\<\;|\<)(br|h1|h2|h3|h4|h5|h6|p|ol|ul|table|pre|address|blockquote|center|div)[\s]*((?:\/[\s]*(?:\>\;|\>)|(?:\>\;|\>)[\s\S]*(?:\<\;|\<)\/[\s]*\1[\s]*\(?:\>\;|\>))/im); |
| |
return (re >= 0); |
| |
} |
| |
|
| |
function startRichEditor(id) { |
| |
CKEDITOR.replace(id, |
| |
{ |
| |
customConfig: "/ckeditor/loncapaconfig.js" |
| |
} |
| |
); |
| |
} |
| |
|
| |
function destroyRichEditor(id) { |
| |
CKEDITOR.instances[id].destroy(); |
| |
} |
| |
|
| |
function editorHandler(event) { |
| |
var rawid = $(this).attr("id"); |
| |
var id = new RegExp("LC_rt_(.*)").exec(rawid)[1] |
| |
event.preventDefault(); |
| |
if ($(this).hasClass("LC_enable_rt")) { |
| |
startRichEditor(id); |
| |
$("#LC_rt_"+id).html("<b>« Plain text</b>"); |
| |
$("#LC_rt_"+id).attr("title", "Disable rich text formatting and edit in plain text"); |
| |
$("#LC_rt_"+id).addClass("LC_disable_rt"); |
| |
$("#LC_rt_"+id).removeClass("LC_enable_rt"); |
| |
} else { |
| |
destroyRichEditor(id); |
| |
$("#LC_rt_"+id).html("<b>Rich formatting »</b>"); |
| |
$("#LC_rt_"+id).attr("title", "Enable rich text formatting (bold, italic, etc.)"); |
| |
$("#LC_rt_"+id).addClass("LC_enable_rt"); |
| |
$("#LC_rt_"+id).removeClass("LC_disable_rt"); |
| |
} |
| |
} |
| |
|
| |
$(document).ready(function(){ |
| |
$(".LC_richAlwaysOn").each(function() { |
| |
startRichEditor($(this).attr("id")); |
| |
}); |
| |
$(".LC_richDetectHtml").each(function() { |
| |
var id = $(this).attr("id"); |
| |
if(containsBlockHtml(id)) { |
| |
$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"Disable rich text formatting and edit in plain text\" class=\"LC_disable_rt\"><b>« Plain text</b></a></div>"); |
| |
startRichEditor(id); |
| |
$("#LC_rt_"+id).click(editorHandler); |
| |
} |
| |
else { |
| |
$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"Enable rich text formatting (bold, italic, etc.)\" class=\"LC_enable_rt\"><b>Rich formatting »</b></a></div>"); |
| |
$("#LC_rt_"+id).click(editorHandler); |
| |
} |
| |
}); |
| |
$(".LC_richDefaultOn").each(function() { |
| |
var id = $(this).attr("id"); |
| |
$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"Disable rich text formatting and edit in plain text\" class=\"LC_disable_rt\"><b>« Plain text</b></a></div>"); |
| |
startRichEditor(id); |
| |
$("#LC_rt_"+id).click(editorHandler); |
| |
}); |
| |
$(".LC_richDefaultOff").each(function() { |
| |
var id = $(this).attr("id"); |
| |
$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"Enable rich text formatting (bold, italic, etc.)\" class=\"LC_enable_rt\"><b>Rich formatting »</b></a></div>"); |
| |
$("#LC_rt_"+id).click(editorHandler); |
| |
}); |
| |
|
| |
}); |
| |
'; |
| |
|
| foreach my $field (@fields) { |
foreach my $field (@fields) { |
| $output.=" |
$output.=' |
| |
|
| { |
{ |
| var oFCKeditor = new FCKeditor('$field'); |
$(document).ready(function() { |
| oFCKeditor.Config['CustomConfigurationsPath'] = |
if (!($("#'.$field.'").hasClass("LC_richAlwaysOn"))) { |
| '/fckeditor/loncapaconfig.js'; |
if (!($("#'.$field.'").hasClass("LC_richAlwaysOff"))) { |
| oFCKeditor.ReplaceTextarea(); |
if (!($("#'.$field.'").hasClass("LC_richDetectHtml"))) { |
| oFCKeditor.Config['AutoDetectLanguage'] = false; |
if (!($("#'.$field.'").hasClass("LC_richDefaultOn"))) { |
| oFCKeditor.Config['DefaultLanguage'] = '$lang'; |
if (!($("#'.$field.'").hasClass("LC_richDefaultOff"))) { |
| }"; |
var oFCKeditor = new FCKeditor("'.$field.'"); |
| |
oFCKeditor.Config["CustomConfigurationsPath"] = |
| |
"/fckeditor/loncapaconfig.js"; |
| |
oFCKeditor.ReplaceTextarea(); |
| |
oFCKeditor.Config["AutoDetectLanguage"] = false; |
| |
oFCKeditor.Config["DefaultLanguage"] = "'.$lang.'"; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
}); |
| |
}'; |
| } |
} |
| $output.="\nwindow.status='Activated Editfields';\n" |
$output.="\nwindow.status='Activated Editfields';\n" |
| .'// ]]>'."\n" |
.'// ]]>'."\n" |
|
Line 1342 returns: nothing
|
Line 1445 returns: nothing
|
| ############################################################ |
############################################################ |
| { |
{ |
| my @Crumbs; |
my @Crumbs; |
| |
my %tools = (); |
| |
|
| sub breadcrumbs { |
sub breadcrumbs { |
| my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_; |
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_; |
|
Line 1382 returns: nothing
|
Line 1486 returns: nothing
|
| } |
} |
| } |
} |
| my $links = join "", |
my $links = join "", |
| map { |
map { |
| $faq = $_->{'faq'} if (exists($_->{'faq'})); |
$faq = $_->{'faq'} if (exists($_->{'faq'})); |
| $bug = $_->{'bug'} if (exists($_->{'bug'})); |
$bug = $_->{'bug'} if (exists($_->{'bug'})); |
| $help = $_->{'help'} if (exists($_->{'help'})); |
$help = $_->{'help'} if (exists($_->{'help'})); |
| |
|
| my $result = htmltag( 'a', |
my $result = $_->{no_mt} ? $_->{text} : mt($_->{text}); |
| $_->{no_mt} ? |
|
| $_->{text} : mt($_->{text}), |
if ($_->{href}){ |
| { |
$result = htmltag( 'a', $result, |
| href => $_->{href}, |
{ href => $_->{href}, |
| title => $_->{no_mt} ? |
title => $_->{no_mt} ? $_->{title} : mt($_->{title}), |
| $_->{title} : mt($_->{title}), |
target => $_->{target}, }); |
| target => $_->{target}, |
} |
| }); |
|
| $result = htmltag( 'li', "$result $crumbsymbol"); |
$result = htmltag( 'li', "$result $crumbsymbol"); |
| } @Crumbs; |
} @Crumbs; |
| |
|
| #should the last Element be translated? |
#should the last Element be translated? |
| $links .= htmltag( 'li', |
|
| htmltag( 'b', |
my $lasttext = $last->{'no_mt'} ? $last->{'text'} |
| $last->{'no_mt'} ? |
: mt( $last->{'text'} ); |
| $last->{'text'} : mt($last->{'text'}) )); |
|
| |
$links .= htmltag( 'li', htmltag('b', $lasttext), {title => $lasttext}); |
| |
|
| my $icons = ''; |
my $icons = ''; |
| $faq = $last->{'faq'} if (exists($last->{'faq'})); |
$faq = $last->{'faq'} if (exists($last->{'faq'})); |
|
Line 1438 returns: nothing
|
Line 1543 returns: nothing
|
| .$links; |
.$links; |
| } |
} |
| |
|
| |
render_tools(\$links); |
| $links = htmltag('div', $links, |
$links = htmltag('div', $links, |
| { id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ; |
{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ; |
| |
render_advtools(\$links); |
| |
|
| # Return the @Crumbs stack to what we started with |
# Return the @Crumbs stack to what we started with |
| push(@Crumbs,$last); |
push(@Crumbs,$last); |
|
Line 1450 returns: nothing
|
Line 1557 returns: nothing
|
| |
|
| sub clear_breadcrumbs { |
sub clear_breadcrumbs { |
| undef(@Crumbs); |
undef(@Crumbs); |
| |
undef(%tools); |
| } |
} |
| |
|
| sub add_breadcrumb { |
sub add_breadcrumb { |
| push (@Crumbs,@_); |
push(@Crumbs,@_); |
| |
} |
| |
|
| |
=item add_breadcrumb_tool($category, $html) |
| |
|
| |
Adds $html to $category of the breadcrumb toolbar container. |
| |
|
| |
$html is usually a link to a page that invokes a function on the currently |
| |
displayed data (e.g. print when viewing a problem) |
| |
|
| |
Currently there are 3 possible values for $category: |
| |
|
| |
=over |
| |
|
| |
=item navigation |
| |
left of breadcrumbs line |
| |
|
| |
=item tools |
| |
right of breadcrumbs line |
| |
|
| |
=item advtools |
| |
advanced tools shown in a separate box below breadcrumbs line |
| |
|
| |
=back |
| |
|
| |
returns: nothing |
| |
|
| |
=cut |
| |
|
| |
sub add_breadcrumb_tool { |
| |
my ($category, @html) = @_; |
| |
return unless @html; |
| |
if (!defined(%tools)) { |
| |
%tools = ( navigation => [], tools => [], advtools => []); |
| |
} |
| |
|
| |
#this cleans data received from lonmenu::innerregister |
| |
@html = grep {defined $_ && $_ ne ''} @html; |
| |
for (@html) { |
| |
s/align="(right|left)"//; |
| |
s/<span.*?\/span>// if $category ne 'advtools'; |
| |
} |
| |
|
| |
push @{$tools{$category}}, @html; |
| |
} |
| |
|
| |
=item clear_breadcrumb_tools() |
| |
|
| |
Clears the breadcrumb toolbar container. |
| |
|
| |
returns: nothing |
| |
|
| |
=cut |
| |
|
| |
sub clear_breadcrumb_tools { |
| |
undef(%tools); |
| |
} |
| |
|
| |
=item render_tools(\$breadcrumbs) |
| |
|
| |
Creates html for breadcrumb tools (categories navigation and tools) and inserts |
| |
\$breadcrumbs at the correct position. |
| |
|
| |
input: \$breadcrumbs - a reference to the string containing prepared |
| |
breadcrumbs. |
| |
|
| |
returns: nothing |
| |
=cut |
| |
|
| |
#TODO might split this in separate functions for each category |
| |
sub render_tools { |
| |
my ($breadcrumbs) = @_; |
| |
return unless defined %tools; |
| |
|
| |
my $navigation = list_from_array($tools{navigation}, |
| |
{ listattr => { class=>"LC_breadcrumb_tools_navigation" } }); |
| |
my $tools = list_from_array($tools{tools}, |
| |
{ listattr => { class=>"LC_breadcrumb_tools_tools" } }); |
| |
$$breadcrumbs = list_from_array([$navigation, $tools, $$breadcrumbs], |
| |
{ listattr => { class=>'LC_breadcrumb_tools_outerlist' } }); |
| |
} |
| |
|
| |
=item render_advtools(\$breadcrumbs) |
| |
|
| |
Creates html for advanced tools (category advtools) and inserts \$breadcrumbs |
| |
at the correct position. |
| |
|
| |
input: \$breadcrumbs - a reference to the string containing prepared |
| |
breadcrumbs (after render_tools call). |
| |
|
| |
returns: nothing |
| |
=cut |
| |
|
| |
sub render_advtools { |
| |
my ($breadcrumbs) = @_; |
| |
return unless (defined $tools{'advtools'}) |
| |
and (scalar(@{$tools{'advtools'}}) > 0); |
| |
|
| |
$$breadcrumbs .= Apache::loncommon::head_subbox( |
| |
funclist_from_array($tools{'advtools'}) ); |
| } |
} |
| |
|
| } # End of scope for @Crumbs |
} # End of scope for @Crumbs |
|
Line 1547 END
|
Line 1754 END
|
| } |
} |
| |
|
| sub row_title { |
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]++; |
$row_count[0]++; |
| my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row'; |
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row'; |
| $css_title_class ||= 'LC_pick_box_title'; |
$css_title_class ||= 'LC_pick_box_title'; |
|
Line 1559 sub row_title {
|
Line 1766 sub row_title {
|
| $title .= ':'; |
$title .= ':'; |
| } |
} |
| my $output = <<"ENDONE"; |
my $output = <<"ENDONE"; |
| <tr class="LC_pick_box_row"> |
<tr class="LC_pick_box_row" $css_value_furtherAttributes> |
| <td $css_title_class> |
<td $css_title_class> |
| $title |
$title |
| </td> |
</td> |
|
Line 1590 ENDTWO
|
Line 1797 ENDTWO
|
| |
|
| sub role_select_row { |
sub role_select_row { |
| my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_; |
my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_; |
| |
my $crstype = 'Course'; |
| |
if ($cdom ne '' && $cnum ne '') { |
| |
$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum); |
| |
} |
| my $output; |
my $output; |
| if (defined($title)) { |
if (defined($title)) { |
| $output = &row_title($title,$css_class); |
$output = &row_title($title,$css_class); |
|
Line 1614 sub role_select_row {
|
Line 1825 sub role_select_row {
|
| $plrole = &mt('Custom Role'); |
$plrole = &mt('Custom Role'); |
| } |
} |
| } else { |
} else { |
| $plrole=&Apache::lonnet::plaintext($role); |
$plrole=&Apache::lonnet::plaintext($role,$crstype); |
| } |
} |
| if (($role ne 'cr') || (!$show_separate_custom)) { |
if (($role ne 'cr') || (!$show_separate_custom)) { |
| $output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
$output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
|
Line 1629 sub role_select_row {
|
Line 1840 sub role_select_row {
|
| |
|
| sub course_select_row { |
sub course_select_row { |
| my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles, |
my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles, |
| $css_class) = @_; |
$css_class,$crstype) = @_; |
| my $output = &row_title($title,$css_class); |
my $output = &row_title($title,$css_class); |
| $output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles); |
$output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype); |
| $output .= &row_closure(); |
$output .= &row_closure(); |
| return $output; |
return $output; |
| } |
} |
| |
|
| sub course_selection { |
sub course_selection { |
| my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_; |
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype) = @_; |
| my $output = qq| |
my $output = qq| |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| // <![CDATA[ |
// <![CDATA[ |
|
Line 1666 sub course_selection {
|
Line 1877 sub course_selection {
|
| // ]]> |
// ]]> |
| </script> |
</script> |
| |; |
|; |
| |
|
| |
my ($allcrs,$pickspec); |
| |
if ($crstype eq 'Community') { |
| |
$allcrs = &mt('All communities'); |
| |
$pickspec = &mt('Pick specific communities:'); |
| |
} else { |
| |
$allcrs = &mt('All courses'); |
| |
$pickspec = &mt('Pick specific course(s):'); |
| |
} |
| |
|
| my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
| ($formname,'pickcourse','pickdomain','coursedesc','',1).'</b>'; |
($formname,'pickcourse','pickdomain','coursedesc','',1,$crstype).'</b>'; |
| $output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses').'<br />'; |
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.$allcrs.'<br />'; |
| if ($totcodes > 0) { |
if ($totcodes > 0) { |
| my $numtitles = @$codetitles; |
my $numtitles = @$codetitles; |
| if ($numtitles > 0) { |
if ($numtitles > 0) { |
|
Line 1713 sub course_selection {
|
Line 1934 sub course_selection {
|
| $output .= '</tr></table><br />'; |
$output .= '</tr></table><br />'; |
| } |
} |
| } |
} |
| $output .= '<input type="radio" name="coursepick" value="specific" onclick="coursePick(this.form);opencrsbrowser('."'".$formname."','dccourse','dcdomain','coursedesc','','1'".')" />'.&mt('Pick specific course(s):').' '.$courseform.' <input type="text" value="0" size="4" name="coursetotal" /><input type="hidden" name="courselist" value="" />selected.<br />'."\n"; |
$output .= '<input type="radio" name="coursepick" value="specific" onclick="coursePick(this.form);opencrsbrowser('."'".$formname."','dccourse','dcdomain','coursedesc','','1','$crstype'".')" />'.$pickspec.' '.$courseform.' <input type="text" value="0" size="4" name="coursetotal" /><input type="hidden" name="courselist" value="" />selected.<br />'."\n"; |
| return $output; |
return $output; |
| } |
} |
| |
|
|
Line 1801 sub course_custom_roles {
|
Line 2022 sub course_custom_roles {
|
| |
|
| # topic_bar |
# topic_bar |
| # |
# |
| # Generates a div containing a numbered (static image) followed by a title |
# Generates a div containing an (optional) number with a white background followed by a |
| # with a background color defined in the corresponding CSS: LC_topic_bar |
# title with a background color defined in the corresponding CSS: LC_topic_bar |
| # |
# Inputs: |
| |
# 1. number to display. |
| |
# If input for number is empty only the title will be displayed. |
| |
# 2. title text to display. |
| |
# Outputs - a scalar containing html mark-up for the div. |
| |
|
| sub topic_bar { |
sub topic_bar { |
| my ($imgnum,$title) = @_; |
my ($num,$title) = @_; |
| return '<div class="LC_topic_bar">' |
my $number = ''; |
| .'<img src="/res/adm/pages/bl_step'.$imgnum.'.gif"' |
if ($num ne '') { |
| .' alt="'.&mt('Step [_1]',$imgnum).'" />' |
$number = '<span>'.$num.'</span>'; |
| .' '.$title |
} |
| .'</div>'; |
return '<div class="LC_topic_bar">'.$number.$title.'</div>'; |
| } |
} |
| |
|
| ############################################## |
############################################## |
| ############################################## |
############################################## |
| |
|
| # echo_form_input |
# echo_form_input |
| # |
# |
| # Generates html markup to add form elements from the referrer page |
# Generates html markup to add form elements from the referrer page |
|
Line 1880 sub echo_form_input {
|
Line 2105 sub echo_form_input {
|
| |
|
| ############################################## |
############################################## |
| ############################################## |
############################################## |
| |
|
| # set_form_elements |
# set_form_elements |
| # |
# |
| # Generates javascript to set form elements to values based on |
# Generates javascript to set form elements to values based on |
|
Line 1945 sub set_form_elements {
|
Line 2169 sub set_form_elements {
|
| $values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g; |
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g; |
| $values{$name}[$i] =~ s/"/\\"/g; |
$values{$name}[$i] =~ s/"/\\"/g; |
| } |
} |
| if ($$elements{$name} eq 'text') { |
if (($$elements{$name} eq 'text') || ($$elements{$name} eq 'hidden')) { |
| my $numvalues = @{$values{$name}}; |
my $numvalues = @{$values{$name}}; |
| if ($numvalues > 1) { |
if ($numvalues > 1) { |
| my $valuestring = join('","',@{$values{$name}}); |
my $valuestring = join('","',@{$values{$name}}); |
|
Line 1980 sub set_form_elements {
|
Line 2204 sub set_form_elements {
|
| $output .= qq| |
$output .= qq| |
| if (courseForm.elements['$name'].value == "$value") { |
if (courseForm.elements['$name'].value == "$value") { |
| courseForm.elements['$name'].checked = true; |
courseForm.elements['$name'].checked = true; |
| |
} else { |
| |
courseForm.elements['$name'].checked = false; |
| }|; |
}|; |
| } |
} |
| } |
} |
|
Line 2021 sub set_form_elements {
|
Line 2247 sub set_form_elements {
|
| } |
} |
| } |
} |
| $output .= " |
$output .= " |
| |
return; |
| }\n"; |
}\n"; |
| return $output; |
return $output; |
| } |
} |
|
Line 2095 sub htmltag{
|
Line 2322 sub htmltag{
|
| # USAGE: inittags(@tags); |
# USAGE: inittags(@tags); |
| # |
# |
| # EXAMPLES: |
# EXAMPLES: |
| # - my ($h1, $h2, $h3) = initTags( qw( h1 h2 h3 ) ) |
# - my ($h1, $h2, $h3) = inittags( qw( h1 h2 h3 ) ) |
| # $h1->("This is a headline") #Returns: <h1>This is a headline</h1> |
# $h1->("This is a headline") #Returns: <h1>This is a headline</h1> |
| # |
# |
| # NOTES: See sub htmltag for further information. |
# NOTES: See sub htmltag for further information. |
|
Line 2144 sub scripttag {
|
Line 2371 sub scripttag {
|
| }; |
}; |
| |
|
| |
|
| |
=item list_from_array( \@array, { listattr =>{}, itemattr =>{} } ) |
| |
|
| |
Constructs a XHTML list from \@array. |
| |
|
| |
input: |
| |
|
| |
=over |
| |
|
| |
=item \@array |
| |
|
| |
A reference to the array containing text that will be wrapped in <li></li> tags. |
| |
|
| |
=item { listattr => {}, itemattr =>{} } |
| |
|
| |
Attributes for <ul> and <li> passed in as hash references. |
| |
See htmltag() for more details. |
| |
|
| |
=back |
| |
|
| |
returns: XHTML list as String. |
| |
|
| |
=cut |
| |
|
| |
# \@items, {listattr => { class => 'abc', id => 'xyx' }, itemattr => {class => 'abc', id => 'xyx'}} |
| |
sub list_from_array { |
| |
my ($items, $args) = @_; |
| |
my ($ul, $li) = inittags( qw(ul li) ); |
| |
my $listitems = join '', map { $li->($_, $args->{itemattr}) } @$items; |
| |
return $ul->( $listitems, $args->{listattr} ); |
| |
} |
| |
|
| |
|
| ############################################## |
############################################## |
| ############################################## |
############################################## |
| |
|
|
Line 2173 sub scripttag {
|
Line 2432 sub scripttag {
|
| # |
# |
| # Outputs: A scalar containing the html markup for the menu. |
# 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. |
|
| # -------------------------- |
|
| sub generate_menu { |
sub generate_menu { |
| my @menu = @_; |
my @menu = @_; |
| # subs for specific html elements |
# subs for specific html elements |
|
Line 2194 sub generate_menu {
|
Line 2447 sub generate_menu {
|
| # create the markup for the current $link and push it into @links. |
# create the markup for the current $link and push it into @links. |
| # each entry consists of an image and a text optionally followed |
# each entry consists of an image and a text optionally followed |
| # by a help link. |
# by a help link. |
| push @links, $li->( |
push(@links,$li->( |
| $a->( |
$a->( |
| $img->("", { |
$img->("", { |
| class => "LC_noBorder LC_middle", |
class => "LC_noBorder LC_middle", |
|
Line 2212 sub generate_menu {
|
Line 2465 sub generate_menu {
|
| }). |
}). |
| (defined($$link{help}) ? |
(defined($$link{help}) ? |
| Apache::loncommon::help_open_topic($$link{help}) : ''), |
Apache::loncommon::help_open_topic($$link{help}) : ''), |
| {class => "LC_menubuttons_inline_text"}); |
{class => "LC_menubuttons_inline_text"})); |
| } |
} |
| |
|
| # wrap categorytitle in <h3>, concatenate with |
# wrap categorytitle in <h3>, concatenate with |
|
Line 2222 sub generate_menu {
|
Line 2475 sub generate_menu {
|
| # such that each element looks like: |
# such that each element looks like: |
| # <div><h3>title</h3><ul><li>...</li>...</ul></div> |
# <div><h3>title</h3><ul><li>...</li>...</ul></div> |
| # the category won't be added if there aren't any links |
# the category won't be added if there aren't any links |
| push @categories, |
push(@categories, |
| $div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}). |
$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}). |
| $ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }), |
$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }), |
| {class=>"LC_Box LC_400Box"}) if scalar(@links); |
{class=>"LC_Box LC_400Box"})) if scalar(@links); |
| } |
} |
| |
|
| # wrap the joined @categories in another <div> (column layout) |
# wrap the joined @categories in another <div> (column layout) |
|
Line 2268 Returns: HTML code with function list st
|
Line 2521 Returns: HTML code with function list st
|
| sub start_funclist { |
sub start_funclist { |
| my($legendtext)=@_; |
my($legendtext)=@_; |
| $legendtext=&mt('Functions') if !$legendtext; |
$legendtext=&mt('Functions') if !$legendtext; |
| return "<fieldset>\n<legend>$legendtext</legend>\n" |
return '<ul class="LC_funclist"><li style="font-weight:bold; margin-left:0.8em;">'.$legendtext.'</li>'."\n"; |
| .'<ul class="LC_funclist">'."\n"; |
|
| } |
} |
| |
|
| |
|
|
Line 2302 sub add_item_funclist {
|
Line 2554 sub add_item_funclist {
|
| return '<li>'.$content.'</li>'."\n"; |
return '<li>'.$content.'</li>'."\n"; |
| } |
} |
| |
|
| ############################################## |
|
| ############################################## |
|
| |
|
| =pod |
=pod |
| |
|
| =item &end_funclist |
=item &end_funclist |
|
Line 2320 add_item_funclist
|
Line 2569 add_item_funclist
|
| Inputs: ./. |
Inputs: ./. |
| |
|
| Returns: HTML code with function list end |
Returns: HTML code with function list end |
| |
|
| =cut |
=cut |
| |
|
| ############################################## |
|
| ############################################## |
|
| |
|
| sub end_funclist { |
sub end_funclist { |
| my($r)=@_; |
return "</ul>\n"; |
| return "</ul>\n</fieldset>\n"; |
|
| } |
} |
| |
|
| |
=pod |
| |
|
| |
=item funclist_from_array( \@array, {legend => 'text for legend'} ) |
| |
|
| |
Constructs a XHTML list from \@array with the first item being visually |
| |
highlighted and set to the value of legend or 'Functions' if legend is |
| |
empty. |
| |
|
| |
=over |
| |
|
| |
=item \@array |
| |
|
| |
A reference to the array containing text that will be wrapped in <li></li> tags. |
| |
|
| |
=item { legend => 'text' } |
| |
|
| |
A string that's used as visually highlighted first item. 'Functions' is used if |
| |
it's value evaluates to false. |
| |
|
| |
=back |
| |
|
| |
returns: XHTML list as string. |
| |
|
| |
=back |
| |
|
| |
=cut |
| |
|
| |
sub funclist_from_array { |
| |
my ($items, $args) = @_; |
| |
$args->{legend} ||= mt('Functions'); |
| |
return list_from_array( [$args->{legend}, @$items], |
| |
{ listattr => {class => 'LC_funclist'} }); |
| |
} |
| |
|
| 1; |
1; |
| |
|
| __END__ |
__END__ |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface