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.226 and 1.253.2.5

version 1.226, 2009/07/02 17:22:33	version 1.253.2.5, 2010/11/08 23:27:58
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 505 ENDJS	Line 524 ENDJS
unshift(@Months,'If you can read this an error occurred');	unshift(@Months,'If you can read this an error occurred');
if ($includeempty) { $monthselector.="<option value=''></option>"; }	if ($includeempty) { $monthselector.="<option value=''></option>"; }
for(my $m = 1;$m <=$#Months;$m++) {	for(my $m = 1;$m <=$#Months;$m++) {
$monthselector .= qq{ <option value="$m" };	$monthselector .= qq{ <option value="$m"};
$monthselector .= "selected " if ($m-1 eq $month);	$monthselector .= ' selected="selected"' if ($m-1 eq $month);
$monthselector .= '> '.&mt($Months[$m]).' </option>';	$monthselector .= '> '.&mt($Months[$m]).' </option>'."\n";
}	}
$monthselector.= ' </select>';	$monthselector.= ' </select>';
# Day	# Day
Line 520 ENDJS	Line 539 ENDJS
$hourselector.=qq{<option value=''></option>};	$hourselector.=qq{<option value=''></option>};
}	}
for (my $h = 0;$h<24;$h++) {	for (my $h = 0;$h<24;$h++) {
$hourselector .= qq{<option value="$h" };	$hourselector .= qq{<option value="$h"};
$hourselector .= "selected " if (defined($hour) && $hour == $h);	$hourselector .= ' selected="selected"' if (defined($hour) && $hour == $h);
$hourselector .= ">";	$hourselector .= ">";
my $timest='';	my $timest='';
if ($h == 0) {	if ($h == 0) {
Line 978 sub Create_PrgWin {	Line 997 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 1008 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 1042 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 1100 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 1114 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 1136 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 1272 sub htmlareaselectactive {	Line 1281 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();
foreach my $field (@fields) {	foreach my $field (@fields) {
$output.="	$output.="
Line 1287 sub htmlareaselectactive {	Line 1296 sub htmlareaselectactive {
}";	}";
}	}
$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 1359 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 1368 returns: nothing	Line 1378 returns: nothing
# The first one should be the course or a menu link	# The first one should be the course or a menu link
if (!defined($menulink)) { $menulink=1; }	if (!defined($menulink)) { $menulink=1; }
if ($menulink) {	if ($menulink) {
my $description = 'Menu';	if ($menulink eq '_nomenu') {
my $no_mt_descr = 0;	return unless($last);
if (exists($env{'request.course.id'}) &&
$env{'request.course.id'} ne '') {
$description =
$env{'course.'.$env{'request.course.id'}.'.description'};
$no_mt_descr = 1;
}
$menulink = { href =>'/adm/menu',
title =>'Go to main menu',
target =>'_top',
text =>$description,
no_mt =>$no_mt_descr, };
if($last) {
#$last set, so we have some crumbs
unshift(@Crumbs,$menulink);
} else {	} else {
#only menulink crumb present	my $description = 'Menu';
$last = $menulink;	my $href = '/adm/menu';
	my $tooltip = 'Go to main menu';
	my $no_mt_descr = 0;
	if ((exists($env{'request.course.id'})) &&
	($env{'request.course.id'} ne '') &&
	!($env{'form.context'} eq 'requestcrs')) {
	if ((&Apache::loncommon::needs_gci_custom()) \|\| ($env{'user.domain'} eq 'gcitest')) {
	if ($env{'environment.remotenavmap'} eq 'on') {
	# open link using javascript when remote navmap is activated
	$href = "javascript:gonav('/adm/navmaps');";
	} else {
	$href = '/adm/navmaps';
	}
	$tooltip = 'Contents';
	}
	if ($env{'course.'.$env{'request.course.id'}.'.description'} ne '') {
	$description =
	$env{'course.'.$env{'request.course.id'}.'.description'};
	$no_mt_descr = 1;
	}
	}
	$menulink = { href => $href,
	title => $tooltip,
	target => '_top',
	text => $description,
	no_mt => $no_mt_descr, };
	if ($last) {
	#$last set, so we have some crumbs
	unshift(@Crumbs,$menulink);
	} else {
	#only menulink crumb present
	$last = $menulink;
	}
}	}
}	}
my $links = join "",	my $links = join "",
Line 1395 returns: nothing	Line 1423 returns: nothing
$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'}) ));
	# last breadcrumb is the first order heading of a page
	# for course breadcrumbs it's just bold
	$links .= htmltag( 'li', htmltag($CourseBreadcrumbs ? 'b' : 'h1',
	$lasttext), {title => $lasttext});

my $icons = '';	my $icons = '';
$faq = $last->{'faq'} if (exists($last->{'faq'}));	$faq = $last->{'faq'} if (exists($last->{'faq'}));
Line 1435 returns: nothing	Line 1470 returns: nothing
unless ($CourseBreadcrumbs) {	unless ($CourseBreadcrumbs) {
$links = htmltag('ol', $links, { id => "LC_MenuBreadcrumbs" });	$links = htmltag('ol', $links, { id => "LC_MenuBreadcrumbs" });
} else {	} else {
$links = htmltag('ul', $links, { id => "LC_CourseBreadcrumbs" });	$links = htmltag('ul', $links, { class => "LC_CourseBreadcrumbs" });
}	}

if ($component) {	if ($component) {
Line 1446 returns: nothing	Line 1481 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 1458 returns: nothing	Line 1495 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,$legend)

	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,$legend) = @_;
	return unless (defined $tools{'advtools'})
	and (scalar(@{$tools{'advtools'}}) > 0);
	my $args;
	if ($legend) {
	$args = {legend => $legend};
	}
	$$breadcrumbs .= Apache::loncommon::head_subbox(
	funclist_from_array($tools{'advtools'},$args));
}	}

} # End of scope for @Crumbs	} # End of scope for @Crumbs
Line 1555 END	Line 1695 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 1707 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 1595 ENDTWO	Line 1735 ENDTWO

} # End: row_count block for pick_box	} # End: row_count block for pick_box


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 1765 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 1780 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 1817 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 1874 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 1962 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 1888 sub echo_form_input {	Line 2045 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 1953 sub set_form_elements {	Line 2109 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 2144 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 2187 sub set_form_elements {
}	}
}	}
$output .= "	$output .= "
	return;
}\n";	}\n";
return $output;	return $output;
}	}
Line 2103 sub htmltag{	Line 2262 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 2117 sub inittags {	Line 2276 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'});
	};


	=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) = @_;
	return unless scalar @$items;
	my ($ul, $li) = inittags( qw(ul li) );
	my $listitems = join '', map { $li->($_, $args->{itemattr}) } @$items;
	return $ul->( $listitems, $args->{listattr} );
	}


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

Line 2146 sub inittags {	Line 2373 sub inittags {
#	#
# 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 2167 sub generate_menu {	Line 2388 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->(	my $src;
	if ($$link{icon} ne '') {
	$src = '/res/adm/pages/'.$$link{icon};
	}
	push(@links,$li->(
$a->(	$a->(
$img->("", {	$img->("", {
class => "LC_noBorder LC_middle",	class => "LC_noBorder LC_middle",
src => "/res/adm/pages/$$link{icon}",	src => $src,
alt => mt(defined($$link{alttext}) ?	alt => mt(defined($$link{alttext}) ?
$$link{alttext} : $$link{linktext})	$$link{alttext} : $$link{linktext})
}), {	}), {
Line 2185 sub generate_menu {	Line 2410 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 2420 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 2466 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 2275 sub add_item_funclist {	Line 2499 sub add_item_funclist {
return '<li>'.$content.'</li>'."\n";	return '<li>'.$content.'</li>'."\n";
}	}

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

=pod	=pod

=item &end_funclist	=item &end_funclist
Line 2293 add_item_funclist	Line 2514 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;

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

Removed from v.1.226
changed lines
	Added in v.1.253.2.5