loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.228 and 1.257

version 1.228, 2009/08/03 16:34:16	version 1.257, 2009/12/22 17:27:28
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;
	}

##############################################	##############################################
##############################################	##############################################

Line 82 sub confirm_success {	Line 98 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 127 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 160 sub authorbombs {	Line 176 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 238 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 258 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 383 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 394 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 416 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 428 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 978 sub Create_PrgWin {	Line 996 sub Create_PrgWin {

#the whole function called through timeout is due to issues	#the whole function called through timeout is due to issues
#in mozilla Read BUG #2665 if you want to know the whole story	#in mozilla Read BUG #2665 if you want to know the whole story
&r_print($r,'<script type="text/javascript">'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
'// <![CDATA['.
"var popwin;	"var popwin;
function openpopwin () {	function openpopwin () {
popwin=open(\'\',\'popwin\',\'width=400,height=100\');".	popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
Line 990 sub Create_PrgWin {	Line 1007 sub Create_PrgWin {
&mt('Starting').'" /><\\/form>'.$end_page.	&mt('Starting').'" /><\\/form>'.$end_page.
"\');".	"\');".
"popwin.document.close();}".	"popwin.document.close();}".
"\nwindow.setTimeout(openpopwin,0)".	"\nwindow.setTimeout(openpopwin,0)"
'// ]]>'.	));
'</script>');
$prog_state{'formname'}='popremain';	$prog_state{'formname'}='popremain';
$prog_state{'inputname'}="remaining";	$prog_state{'inputname'}="remaining";
} elsif ($type eq 'inline') {	} elsif ($type eq 'inline') {
Line 1025 sub Create_PrgWin {	Line 1041 sub Create_PrgWin {
# update progress	# update progress
sub Update_PrgWin {	sub Update_PrgWin {
my ($r,$prog_state,$displayString)=@_;	my ($r,$prog_state,$displayString)=@_;
&r_print($r,'<script type="text/javascript">'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
'// <![CDATA['.
$$prog_state{'window'}.'.document.'.	$$prog_state{'window'}.'.document.'.
$$prog_state{'formname'}.'.'.	$$prog_state{'formname'}.'.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'inputname'}.'.value="'.
$displayString.'";'.	$displayString.'";'
'// ]]>'.	));
'</script>');
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1085 sub Increment_PrgWin {	Line 1099 sub Increment_PrgWin {
if ($user_browser eq 'explorer' && $user_os =~ 'mac') {	if ($user_browser eq 'explorer' && $user_os =~ 'mac') {
$lasttime = '';	$lasttime = '';
}	}
&r_print($r,'<script>'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
'// <![CDATA['.
$$prog_state{'window'}.'.document.'.	$$prog_state{'window'}.'.document.'.
$$prog_state{'formname'}.'.'.	$$prog_state{'formname'}.'.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'inputname'}.'.value="'.
$$prog_state{'done'}.'/'.$$prog_state{'max'}.	$$prog_state{'done'}.'/'.$$prog_state{'max'}.
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.	': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'
'// ]]>'.	));
'</script>');
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1101 sub Increment_PrgWin {	Line 1113 sub Increment_PrgWin {
sub Close_PrgWin {	sub Close_PrgWin {
my ($r,$prog_state)=@_;	my ($r,$prog_state)=@_;
if ($$prog_state{'type'} eq 'popup') {	if ($$prog_state{'type'} eq 'popup') {
&r_print($r,'<script>'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
'// <![CDATA['.	'popwin.close()'
'popwin.close()'.	));
'// ]]>'.
'</script>'."\n");
} elsif ($$prog_state{'type'} eq 'inline') {	} elsif ($$prog_state{'type'} eq 'inline') {
&Update_PrgWin($r,$prog_state,&mt('Done'));	&Update_PrgWin($r,$prog_state,&mt('Done'));
}	}
Line 1125 sub r_print {	Line 1135 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 1232 ENDLINK	Line 1240 ENDLINK
}	}

sub htmlareaheaders {	sub htmlareaheaders {
return if (&htmlareablocked());	my $s="";
return if (!&htmlareabrowser());	if (!&htmlareablocked() && &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>
	ENDJQUERY
	return $s;
}	}

# ----------------------------------------------------------------- Preferences	# ----------------------------------------------------------------- Preferences
Line 1272 sub htmlareaselectactive {	Line 1287 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">'	my $output='<script type="text/javascript" defer="1">'."\n"
.'// <![CDATA[';	.'// <![CDATA['."\n";
my $lang = &htmlarea_lang();	my $lang = &htmlarea_lang();
	$output.='

	function containsBlockHtml(id) {
	var re = $("#"+id).html().search(/(?:\&lt\;\|\<)(br\|h1\|h2\|h3\|h4\|h5\|h6\|p\|ol\|ul\|table\|pre\|address\|blockquote\|center\|div)[\s]((?:\/[\s](?:\&gt\;\|\>)\|(?:\&gt\;\|\>)[\s\S](?:\&lt\;\|\<)\/[\s]\1[\s]*\(?:\&gt\;\|\>))/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"
.'</script><br />'.	.'</script><br />'.
&disablelink(@fields);	&disablelink(@fields);
return $output;	return $output;
Line 1350 returns: nothing	Line 1447 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 1446 returns: nothing	Line 1544 returns: nothing
.$links;	.$links;
}	}

	#SD START (work in progress!)
	add_tools(\$links);
	#SD END
$links = htmltag('div', $links,	$links = htmltag('div', $links,
{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;	{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;
	add_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 1458 returns: nothing	Line 1560 returns: nothing

sub clear_breadcrumbs {	sub clear_breadcrumbs {
undef(@Crumbs);	undef(@Crumbs);
	undef(%tools);
}	}

sub add_breadcrumb {	sub add_breadcrumb {
push (@Crumbs,@_);	push(@Crumbs,@_);
}	}


	#SD START (work in progress!)
	sub add_breadcrumb_tool {
	my ($category, $html) = @_;
	return unless $html;
	if (!defined(%tools)) {
	my %tools = ( A => [], B => [], C => []);
	}
	push @{$tools{$category}}, $html;
	}

	sub clear_breadcrumb_tools {
	undef(%tools);
	}

	sub add_tools {
	my ($links) = @_;
	return unless defined %tools;
	my $html = '<ul class="LC_bct">';
	for my $category ('A','B') {
	$html .= '<li class="LC_breadcrumb_tools">'
	. '<ul class="LC_breadcrumb_tools'
	. " LC_breadcrumb_tools_$category\">";
	for my $item (@{$tools{$category}}){
	#SD ugly! I'll fix that later on
	$item =~ s/align="(right\|left)"//;
	$item =~ s/<span(.*?)\/span>//;
	$html .= "<li>$item</li>";
	}
	$html .= '</ul></li>';
	if ($category eq 'A') { $html .= "<li>$$links</li>"; }
	}
	$$links = $html.'</ul>';
	}

	sub add_advtools {
	my ($links) = @_;
	return unless (defined $tools{'C'}) and (scalar (@{$tools{'C'}}) > 0);
	my $html = start_funclist();
	for my $item (@{$tools{'C'}}){
	next unless $item;
	$item =~ s/align="(right\|left)"//;
	$html .= add_item_funclist($item);
	}
	$html .= end_funclist();
	$html = Apache::loncommon::head_subbox($html);
	$$links .= $html;
	}
	#SD END

} # End of scope for @Crumbs	} # End of scope for @Crumbs

Line 1555 END	Line 1708 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 1567 sub row_title {	Line 1720 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 1598 ENDTWO	Line 1751 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 1622 sub role_select_row {	Line 1779 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 1637 sub role_select_row {	Line 1794 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 1674 sub course_selection {	Line 1831 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 1721 sub course_selection {	Line 1888 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 1809 sub course_custom_roles {	Line 1976 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>';
}	}

##############################################	##############################################
Line 1953 sub set_form_elements {	Line 2125 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 1988 sub set_form_elements {	Line 2160 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 2029 sub set_form_elements {	Line 2203 sub set_form_elements {
}	}
}	}
$output .= "	$output .= "
	return;
}\n";	}\n";
return $output;	return $output;
}	}
Line 2117 sub inittags {	Line 2292 sub inittags {
}	}


	# USAGE: scripttag(scriptcode, [start\|end\|both]);
	#
	# EXAMPLES:
	# - scripttag("alert('Hello World!')", 'both')
	# returns:
	# <script type="text/javascript">
	# // BEGIN LON-CAPA Internal
	# alert(Hello World!')
	# // END LON-CAPA Internal
	# </script>
	#
	# NOTES:
	# - works currently only for javascripts
	#
	# OUTPUT:
	# Scriptcode properly enclosed in <script> and CDATA tags (and LC
	# Internal markers if 2nd argument is given)
	sub scripttag {
	my ( $content, $marker ) = @_;
	return unless defined $content;

	my $begin = "\n// BEGIN LON-CAPA Internal\n";
	my $end = "\n// END LON-CAPA Internal\n";

	if ($marker) {
	$content = $begin . $content if $marker eq 'start' or $marker eq 'both';
	$content .= $end if $marker eq 'end' or $marker eq 'both';
	}

	$content = "\n// <![CDATA[\n$content\n// ]]>\n";

	return htmltag('script', $content, {type => 'text/javascript'});
	};


##############################################	##############################################
##############################################	##############################################

Line 2167 sub generate_menu {	Line 2377 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 2185 sub generate_menu {	Line 2395 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 2195 sub generate_menu {	Line 2405 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 2241 Returns: HTML code with function list st	Line 2451 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 2300 Returns: HTML code with function list en	Line 2509 Returns: HTML code with function list en
##############################################	##############################################

sub end_funclist {	sub end_funclist {
my($r)=@_;	return "</ul>\n";
return "</ul>\n</fieldset>\n";
}	}

1;	1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.228
changed lines
	Added in v.1.257