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.157 and 1.221

version 1.157, 2007/03/12 18:09:36	version 1.221, 2009/06/04 16:47:25
Line 67 use LONCAPA;	Line 67 use LONCAPA;

=pod	=pod

	=item confirm_success

	Successful completion of an operation message

	=cut

	sub confirm_success {
	my ($message,$failure)=@_;
	if ($failure) {
	return '<span class="LC_error">'."\n"
	.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n"
	.$message."\n"
	.'</span>'."\n";
	} else {
	return '<span class="LC_success">'."\n"
	.'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('Ok').'" /> '."\n"
	.$message."\n"
	.'</span>'."\n";
	}
	}

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

	=pod

	=item dragmath_button

	Creates a button that launches a dragmath popup-window, in which an
	expression can be edited and pasted as LaTeX into a specified textarea.

	textarea - Name of the textarea to edit.
	helpicon - If true, show a help icon to the right of the button.

	=cut

	sub dragmath_button {
	my ($textarea,$helpicon) = @_;
	my $help_text;
	if ($helpicon) {
	$help_text = &Apache::loncommon::help_open_topic('Authoring_Math_Editor');
	}
	my $buttontext=&mt('Edit Math');
	return <<ENDDRAGMATH;
	<input type="button" value="$buttontext", onclick="javascript:mathedit('$textarea',document)" />$help_text
	ENDDRAGMATH
	}

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

	=pod

	=item dragmath_js

	Javascript used to open pop-up window containing dragmath applet which
	can be used to paste LaTeX into a textarea.

	=cut

	sub dragmath_js {
	my ($popup) = @_;
	return <<ENDDRAGMATHJS;
	<script type="text/javascript">
	// <![CDATA[
	function mathedit(textarea, doc) {
	targetEntry = textarea;
	targetDoc = doc;
	newwin = window.open("/adm/dragmath/applet/$popup.html","","width=565,height=500,resizable");
	}
	// ]]>
	</script>

	ENDDRAGMATHJS
	}


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

	=pod

=item authorbombs	=item authorbombs

=cut	=cut
Line 82 sub authorbombs {	Line 163 sub authorbombs {
foreach (keys %bombs) {	foreach (keys %bombs) {
if ($_=~/^$udom\/$uname\//) {	if ($_=~/^$udom\/$uname\//) {
return '<a href="/adm/bombs/'.$url.	return '<a href="/adm/bombs/'.$url.
'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/bomb.gif').'" 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 140 sub select_recent {	Line 221 sub select_recent {
foreach my $value (sort(keys(%recent))) {	foreach my $value (sort(keys(%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);
$return.="\n<option value='$escaped'>".	$return.="\n<option value='$escaped'>".
&unescape((split(/\&/,$recent{$value}))[1]).	&unescape((split(/\&/,$recent{$value}))[1]).
'</option>';	'</option>';
Line 230 sub checkbox {	Line 312 sub checkbox {
$Str .= 'value="'.$value.'"';	$Str .= 'value="'.$value.'"';
}	}
if ($checked) {	if ($checked) {
$Str .= ' checked="1"';	$Str .= ' checked="checked"';
}	}
$Str .= ' />';	$Str .= ' />';
return $Str;	return $Str;
Line 252 sub radio {	Line 334 sub radio {
$Str .= 'value="'.$value.'"';	$Str .= 'value="'.$value.'"';
}	}
if ($checked eq $value) {	if ($checked eq $value) {
$Str .= ' checked="1"';	$Str .= ' checked="checked"';
}	}
$Str .= ' />';	$Str .= ' />';
return $Str;	return $Str;
Line 310 The method used to restrict user input w	Line 392 The method used to restrict user input w
sub date_setter {	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 $wasdefined=1;	my $wasdefined=1;
if (! defined($state) \|\| $state ne 'disabled') {	if (! defined($state) \|\| $state ne 'disabled') {
$state = '';	$state = '';
Line 318 sub date_setter {	Line 401 sub date_setter {
$no_hh_mm_ss = 0;	$no_hh_mm_ss = 0;
}	}
if ($currentvalue eq 'now') {	if ($currentvalue eq 'now') {
$currentvalue=time;	$currentvalue = $now;
}	}
if ((!defined($currentvalue)) \|\| ($currentvalue eq '')) {	if ((!defined($currentvalue)) \|\| ($currentvalue eq '')) {
$wasdefined=0;	$wasdefined=0;
if ($includeempty) {	if ($includeempty) {
$currentvalue = 0;	$currentvalue = 0;
} else {	} else {
$currentvalue = time;	$currentvalue = $now;
}	}
}	}
# other potentially useful values: wkday,yrday,is_daylight_savings	# other potentially useful values: wkday,yrday,is_daylight_savings
	my $tzname;
my ($sec,$min,$hour,$mday,$month,$year)=('','',undef,'','','');	my ($sec,$min,$hour,$mday,$month,$year)=('','',undef,'','','');
if ($currentvalue) {	if ($currentvalue) {
($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) =	($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue);
localtime($currentvalue);
$year += 1900;
}	}
unless ($wasdefined) {	unless ($wasdefined) {
	($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now);
if (($defhour) \|\| ($defmin) \|\| ($defsec)) {	if (($defhour) \|\| ($defmin) \|\| ($defsec)) {
($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) =
localtime(time);
$year += 1900;
$sec=($defsec?$defsec:0);	$sec=($defsec?$defsec:0);
$min=($defmin?$defmin:0);	$min=($defmin?$defmin:0);
$hour=($defhour?$defhour:0);	$hour=($defhour?$defhour:0);
Line 352 sub date_setter {	Line 432 sub date_setter {
my $result = "\n<!-- $dname date setting form -->\n";	my $result = "\n<!-- $dname date setting form -->\n";
$result .= <<ENDJS;	$result .= <<ENDJS;
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function $dname\_checkday() {	function $dname\_checkday() {
var day = document.$formname.$dname\_day.value;	var day = document.$formname.$dname\_day.value;
var month = document.$formname.$dname\_month.value;	var month = document.$formname.$dname\_month.value;
Line 412 document.$formname.$dname\_year.value,	Line 493 document.$formname.$dname\_year.value,
}	}

}	}
	// ]]>
</script>	</script>
ENDJS	ENDJS
$result .= ' <span style="white-space: nowrap;">';	$result .= ' <span class="LC_nobreak">';
my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >};	my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >};
# Month	# Month
my @Months = qw/January February March April May June	my @Months = qw/January February March April May June
Line 462 ENDJS	Line 544 ENDJS
$cal_link = qq{<a href="javascript:$dname\_opencalendar()">};	$cal_link = qq{<a href="javascript:$dname\_opencalendar()">};
}	}
#	#
	my $tzone = ' '.$tzname.' ';
if ($no_hh_mm_ss) {	if ($no_hh_mm_ss) {
$result .= &mt('[_1] [_2] [_3] ',	$result .= &mt('[_1] [_2] [_3] ',
$monthselector,$dayselector,$yearselector);	$monthselector,$dayselector,$yearselector).
	$tzone;
if (!$nolink) {	if (!$nolink) {
$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');	$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');
}	}
} else {	} else {
$result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s ',	$result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s ',
$monthselector,$dayselector,$yearselector,	$monthselector,$dayselector,$yearselector,
$hourselector,$minuteselector,$secondselector);	$hourselector,$minuteselector,$secondselector).
	$tzone;
if (!$nolink) {	if (!$nolink) {
$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');	$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');
}	}
Line 480 ENDJS	Line 565 ENDJS
return $result;	return $result;
}	}

	sub get_timedates {
	my ($epoch) = @_;
	my $dt = DateTime->from_epoch(epoch => $epoch)
	->set_time_zone(&Apache::lonlocal::gettimezone());
	my $tzname = $dt->time_zone_short_name();
	my $sec = $dt->second;
	my $min = $dt->minute;
	my $hour = $dt->hour;
	my $mday = $dt->day;
	my $month = $dt->month;
	if ($month) {
	$month --;
	}
	my $year = $dt->year;
	return ($tzname,$sec,$min,$hour,$mday,$month,$year);
	}

	sub build_url {
	my ($base, $fields)=@_;
	my $url;
	$url = $base.'?';
	foreach my $key (keys(%$fields)) {
	$url.=&escape($key).'='.&escape($$fields{$key}).'&';
	}
	$url =~ s/&$//;
	return $url;
	}


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

Line 548 sub get_date_from_form {	Line 662 sub get_date_from_form {
if (defined($env{'form.'.$dname.'_month'})) {	if (defined($env{'form.'.$dname.'_month'})) {
my $tmpmonth = $env{'form.'.$dname.'_month'};	my $tmpmonth = $env{'form.'.$dname.'_month'};
if (($tmpmonth =~ /^\d+$/) && ($tmpmonth > 0) && ($tmpmonth < 13)) {	if (($tmpmonth =~ /^\d+$/) && ($tmpmonth > 0) && ($tmpmonth < 13)) {
$month = $tmpmonth - 1;	$month = $tmpmonth;
}	}
}	}
if (defined($env{'form.'.$dname.'_year'})) {	if (defined($env{'form.'.$dname.'_year'})) {
my $tmpyear = $env{'form.'.$dname.'_year'};	my $tmpyear = $env{'form.'.$dname.'_year'};
if (($tmpyear =~ /^\d+$/) && ($tmpyear > 1900)) {	if (($tmpyear =~ /^\d+$/) && ($tmpyear >= 1970)) {
$year = $tmpyear - 1900;	$year = $tmpyear;
}	}
}	}
if (($year<70) \|\| ($year>137)) { return undef; }	if (($year<1970) \|\| ($year>2037)) { return undef; }
if (defined($sec) && defined($min) && defined($hour) &&	if (defined($sec) && defined($min) && defined($hour) &&
defined($day) && defined($month) && defined($year) &&	defined($day) && defined($month) && defined($year)) {
eval('&timelocal($sec,$min,$hour,$day,$month,$year)')) {	my $timezone = &Apache::lonlocal::gettimezone();
return &timelocal($sec,$min,$hour,$day,$month,$year);	my $dt = DateTime->new( year => $year,
	month => $month,
	day => $day,
	hour => $hour,
	minute => $min,
	second => $sec,
	time_zone => $timezone,
	);
	my $epoch_time = $dt->epoch;
	if ($epoch_time ne '') {
	return $epoch_time;
	} else {
	return undef;
	}
} else {	} else {
return undef;	return undef;
}	}
Line 631 sub javascript_nothing {	Line 758 sub javascript_nothing {
##############################################	##############################################
##############################################	##############################################
sub javascript_docopen {	sub javascript_docopen {
	my ($mimetype) = @_;
	$mimetype \|\|= 'text/html';
# safari does not understand document.open() and loads "text/html"	# safari does not understand document.open() and loads "text/html"
my $nothing = "''";	my $nothing = "''";
my $user_browser;	my $user_browser;
Line 644 sub javascript_docopen {	Line 773 sub javascript_docopen {
if ($user_browser eq 'safari' && $user_os =~ 'mac') {	if ($user_browser eq 'safari' && $user_os =~ 'mac') {
$nothing = "document.clear()";	$nothing = "document.clear()";
} else {	} else {
$nothing = "document.open('text/html','replace')";	$nothing = "document.open('$mimetype','replace')";
}	}
return $nothing;	return $nothing;
}	}
Line 681 Returns: a perl string as described.	Line 810 Returns: a perl string as described.
##############################################	##############################################
##############################################	##############################################
sub StatusOptions {	sub StatusOptions {
my ($status, $formName,$size,$onchange)=@_;	my ($status, $formName,$size,$onchange,$mult)=@_;
$size = 1 if (!defined($size));	$size = 1 if (!defined($size));
if (! defined($status)) {	if (! defined($status)) {
$status = 'Active';	$status = 'Active';
Line 690 sub StatusOptions {	Line 819 sub StatusOptions {

my $Str = '';	my $Str = '';
$Str .= '<select name="Status"';	$Str .= '<select name="Status"';
	if (defined($mult)){
	$Str .= ' multiple="multiple" ';
	}
if(defined($formName) && $formName ne '' && ! defined($onchange)) {	if(defined($formName) && $formName ne '' && ! defined($onchange)) {
$Str .= ' onchange="document.'.$formName.'.submit()"';	$Str .= ' onchange="document.'.$formName.'.submit()"';
}	}
Line 847 sub Create_PrgWin {	Line 979 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,'<script type="text/javascript">'.
	'// <![CDATA['.
"var popwin;	"var popwin;
function openpopwin () {	function openpopwin () {
popwin=open(\'\',\'popwin\',\'width=400,height=100\');".	popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
"popwin.document.writeln(\'".$start_page.	"popwin.document.writeln(\'".$start_page.
"<h4>$heading<\/h4>".	"<h4>".&mt("$heading")."<\/h4>".
"<form name=\"popremain\" method=\"post\">".	"<form action=\"\" name=\"popremain\" method=\"post\">".
'<input type="text" size="'.$width.'" name="remaining" value="'.	'<input type="text" size="'.$width.'" name="remaining" value="'.
&mt('Starting').'" /><\\/form>'.$end_page.	&mt('Starting').'" /><\\/form>'.$end_page.
"\');".	"\');".
"popwin.document.close();}".	"popwin.document.close();}".
"\nwindow.setTimeout(openpopwin,0)</script>");	"\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') {
$prog_state{'window'}='window';	$prog_state{'window'}='window';
if (!$formname) {	if (!$formname) {
$prog_state{'formname'}=&get_uniq_name();	$prog_state{'formname'}=&get_uniq_name();
&r_print($r,'<form name="'.$prog_state{'formname'}.'">');	&r_print($r,'<form action="" name="'.$prog_state{'formname'}.'">');
} else {	} else {
$prog_state{'formname'}=$formname;	$prog_state{'formname'}=$formname;
}	}
if (!$inputname) {	if (!$inputname) {
$prog_state{'inputname'}=&get_uniq_name();	$prog_state{'inputname'}=&get_uniq_name();
&r_print($r,$heading.' <input type="text" name="'.$prog_state{'inputname'}.	&r_print($r,&mt("$heading [_1]",' <input type="text" name="'.$prog_state{'inputname'}.'" size="'.$width.'" />'));
'" size="'.$width.'" />');
} else {	} else {
$prog_state{'inputname'}=$inputname;	$prog_state{'inputname'}=$inputname;

Line 891 sub Create_PrgWin {	Line 1025 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>'.$$prog_state{'window'}.'.document.'.	&r_print($r,'<script type="text/javascript">'.
	'// <![CDATA['.
	$$prog_state{'window'}.'.document.'.
$$prog_state{'formname'}.'.'.	$$prog_state{'formname'}.'.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'inputname'}.'.value="'.
$displayString.'";</script>');	$displayString.'";'.
	'// ]]>'.
	'</script>');
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 947 sub Increment_PrgWin {	Line 1085 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>'.$$prog_state{'window'}.'.document.'.	&r_print($r,'<script>'.
	'// <![CDATA['.
	$$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.'";'.'</script>');	': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.
	'// ]]>'.
	'</script>');
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 959 sub Increment_PrgWin {	Line 1101 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>popwin.close()</script>'."\n");	&r_print($r,'<script>'.
	'// <![CDATA['.
	'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 1003 sub crumbs {	Line 1149 sub crumbs {
} else {	} else {
$path.='/';	$path.='/';
}	}
my $linkpath = &Apache::loncommon::escape_single($path);
if ($form) {
$linkpath=
qq{javascript:$form.action='$linkpath';$form.submit();};
}
my $href_path = &HTML::Entities::encode($path,'<>&"');	my $href_path = &HTML::Entities::encode($path,'<>&"');
$output.=qq{<a href="$path" $target>$dir</a>/};	&Apache::loncommon::inhibit_menu_check(\$href_path);
	if ($form) {
	my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();';
	$output.=qq{<a href="$href" $target>$dir</a>/};
	} else {
	$output.=qq{<a href="$href_path" $target>$dir</a>/};
	}
}	}
} else {	} else {
foreach my $dir (split('/',$uri)) {	foreach my $dir (split('/',$uri)) {
Line 1040 sub spellheader {	Line 1187 sub spellheader {
my $nothing=&javascript_nothing();	my $nothing=&javascript_nothing();
return (<<ENDCHECK);	return (<<ENDCHECK);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
//<!-- BEGIN LON-CAPA Internal	//<!-- BEGIN LON-CAPA Internal
var checkwin;	var checkwin;

Line 1050 function spellcheckerwindow(string) {	Line 1198 function spellcheckerwindow(string) {
checkwin.document.close();	checkwin.document.close();
}	}
// END LON-CAPA Internal -->	// END LON-CAPA Internal -->
	// ]]>
</script>	</script>
ENDCHECK	ENDCHECK
}	}
Line 1083 ENDLINK	Line 1232 ENDLINK
}	}

sub htmlareaheaders {	sub htmlareaheaders {
if (&htmlareablocked()) { return ''; }	return if (&htmlareablocked());
unless (&htmlareabrowser()) { return ''; }	return if (!&htmlareabrowser());
my $lang='en';
if (&mt('htmlarea_lang') ne 'htmlarea_lang') {
$lang=&mt('htmlarea_lang');
}
return (<<ENDHEADERS);	return (<<ENDHEADERS);
<script type="text/javascript">	<script type="text/javascript" src="/fckeditor/fckeditor.js"></script>
_editor_url='/htmlarea/';
_editor_lang='$lang';
</script>
<script type="text/javascript" src="/htmlarea/htmlarea.js"></script>
<link rel="stylesheet" type="text/css" href="/htmlarea/htmlarea.css" />
ENDHEADERS	ENDHEADERS
}	}

# ------------------------------------------------- Activate additional buttons

sub htmlareaaddbuttons {
if (&htmlareablocked()) { return ''; }
unless (&htmlareabrowser()) { return ''; }
return (<<ENDADDBUTTON);
var config=new HTMLArea.Config();
config.registerButton('ed_math','LaTeX Inline',
'/htmlarea/images/ed_math.gif',false,
function(editor,id) {
editor.surroundHTML(' <m>\$','\$</m> ');
}
);
config.registerButton('ed_math_eqn','LaTeX Equation',
'/htmlarea/images/ed_math_eqn.gif',false,
function(editor,id) {
editor.surroundHTML(
' \\n<center><m>\\\\[','\\\\]</m></center>\\n ');
}
);
config.toolbar.push(['ed_math','ed_math_eqn']);
ENDADDBUTTON
}

# ----------------------------------------------------------------- Preferences	# ----------------------------------------------------------------- Preferences

sub disablelink {	sub disablelink {
Line 1141 sub enablelink {	Line 1257 sub enablelink {
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=on&returnurl=','<>&"').&escape($ENV{'REQUEST_URI'}).'">'.&mt('Enable WYSIWYG Editor').'</a>';	return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=on&returnurl=','<>&"').&escape($ENV{'REQUEST_URI'}).'">'.&mt('Enable WYSIWYG Editor').'</a>';
}	}

	# ------------------------------------------------- lang to use in html editor
	sub htmlarea_lang {
	my $lang='en';
	if (&mt('htmlarea_lang') ne 'htmlarea_lang') {
	$lang=&mt('htmlarea_lang');
	}
	return $lang;
	}

# ----------------------------------------- Script to activate only some fields	# ----------------------------------------- Script to activate only some fields

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">'.	my $output='<script type="text/javascript" defer="1">'
&htmlareaaddbuttons();	.'// <![CDATA[';
foreach(@fields) {	my $lang = &htmlarea_lang();
$output.="\nHTMLArea.replace('$_',config);";	foreach my $field (@fields) {
}	$output.="
$output.="\nwindow.status='Activated Editfields';\n</script><br />".	{
	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"
	.'// ]]>'
	.'</script><br />'.
&disablelink(@fields);	&disablelink(@fields);
return $output;	return $output;
}	}
Line 1191 Inputs: $component (the large text on th	Line 1327 Inputs: $component (the large text on th
$menulink (boolean, controls whether to include a link to /adm/menu)	$menulink (boolean, controls whether to include a link to /adm/menu)
$helplink (if 'nohelp' don't include the orange help link)	$helplink (if 'nohelp' don't include the orange help link)
$css_class (optional name for the class to apply to the table for CSS)	$css_class (optional name for the class to apply to the table for CSS)
	$no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component
	when including the text on the right.
Returns a string containing breadcrumbs for the current page.	Returns a string containing breadcrumbs for the current page.

=item clear_breadcrumbs	=item clear_breadcrumbs
Line 1216 returns: nothing	Line 1354 returns: nothing
my @Crumbs;	my @Crumbs;

sub breadcrumbs {	sub breadcrumbs {
my ($component,$component_help,$menulink,$helplink,$css_class) = @_;	my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_;
#	#
$css_class \|\|= 'LC_breadcrumbs';	$css_class \|\|= 'LC_breadcrumbs';
my $Str = "\n".'<table class="'.$css_class.'"><tr><td>';	my $Str1 = '<div id="LC_head_subbox"><ol id="LC_MenuBreadcrumbs">';

	if($CourseBreadcrumbs){
	$Str1 = '<ul id="LC_CourseBreadcrumbs">';
	}

	my $Str = '';
#	#
# Make the faq and bug data cascade	# Make the faq and bug data cascade
my $faq = '';	my $faq = '';
my $bug = '';	my $bug = '';
my $help='';	my $help='';
	# Crumb Symbol
	my $crumbsymbol = '» ';
# The last breadcrumb does not have a link, so handle it separately.	# The last breadcrumb does not have a link, so handle it separately.
my $last = pop(@Crumbs);	my $last = pop(@Crumbs);
#	#
# 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';	my $description = 'Menu';
	my $no_mt_descr = 0;
if (exists($env{'request.course.id'}) &&	if (exists($env{'request.course.id'}) &&
$env{'request.course.id'} ne '') {	$env{'request.course.id'} ne '') {
$description =	$description =
$env{'course.'.$env{'request.course.id'}.'.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 {
	#only menulink crumb present
	$last = $menulink;
}	}
unshift(@Crumbs,{
href =>'/adm/menu',
title =>'Go to main menu',
target =>'_top',
text =>$description,
});
}	}
my $links .=	my $links = join "",
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 = '<a href="'.$_->{'href'}.'" ';
if (defined($_->{'target'}) && $_->{'target'} ne '') {	my $result = htmltag( 'a',
$result .= 'target="'.$_->{'target'}.'" ';	$_->{no_mt} ? $_->{text} : mt($_->{text}),
}	{
if ($_->{'no_mt'}) {	href => $_->{href},
$result .='title="'.$_->{'title'}.'">'.	title => $_->{no_mt} ? $_->{title} : mt($_->{title}),
$_->{'text'}.'</a>';	target => $_->{target},
} else {	});
$result .='title="'.&mt($_->{'title'}).'">'.	$result = htmltag( 'li', $crumbsymbol.$result);
&mt($_->{'text'}).'</a>';	} @Crumbs;
}	#Workaround for edit course.
$result;	if(@Crumbs == 0 ){
} @Crumbs	$links .= '<li>' if ($links ne '');
);	} else {
$links .= '->' if ($links ne '');	$links .= '<li>'.$crumbsymbol if ($links ne '');
	}
	#should the last Element be translated?
if ($last->{'no_mt'}) {	if ($last->{'no_mt'}) {
$links .= '<b>'.$last->{'text'}.'</b>';	$links .= '<b>'.$last->{'text'}.'</b>';
} else {	} else {
$links .= '<b>'.&mt($last->{'text'}).'</b>';	$links .= '<b>'.&mt($last->{'text'}).'</b>';
}	}
#	$links .= '</li>';
my $icons = '';	my $icons = '';
$faq = $last->{'faq'} if (exists($last->{'faq'}));	$faq = $last->{'faq'} if (exists($last->{'faq'}));
$bug = $last->{'bug'} if (exists($last->{'bug'}));	$bug = $last->{'bug'} if (exists($last->{'bug'}));
Line 1288 returns: nothing	Line 1443 returns: nothing
$faq,$bug);	$faq,$bug);
}	}
#	#
$Str .= $links.'</td>';

	if($CourseBreadcrumbs){
	$Str1 .= $links.'</ul>';
	} else {
	$Str1 .= $links.'</ol></div>';
	}
#	#
if (defined($component)) {	if (defined($component)) {
$Str .= '<td class="'.$css_class.'_component">'.	$Str .= "\n".'<table class="'.$css_class.'">'
&mt($component);	.'<tr><td class="'.$css_class.'_component">';
	if ($no_mt) {
	$Str .= $component;
	} else {
	$Str .= &mt($component);
	}
if ($icons ne '') {	if ($icons ne '') {
$Str .= ' '.$icons;	$Str .= ' '.$icons;
}	}
$Str .= '</td>';	$Str .= '</td></tr></table>'."\n";
}	}
$Str .= '</tr></table>'."\n";
#	#
# Return the @Crumbs stack to what we started with	# Return the @Crumbs stack to what we started with
push(@Crumbs,$last);	push(@Crumbs,$last);
shift(@Crumbs);	shift(@Crumbs);
#	# Return a table and after that the breadcrumb's line
return $Str;	return "$Str\n$Str1";
}	}

sub clear_breadcrumbs {	sub clear_breadcrumbs {
Line 1331 returns: nothing	Line 1496 returns: nothing
# row1	# row1
# row2	# row2
# row3 ... etc.	# row3 ... etc.
# &submit_row(0	# &submit_row()
# &end_pickbox()	# &end_pick_box()
#	#
# where row1, row 2 etc. are chosen from &role_select_row,&course_select_row,	# where row1, row 2 etc. are chosen from &role_select_row,&course_select_row,
# &status_select_row and &email_default_row	# &status_select_row and &email_default_row
Line 1373 returns: nothing	Line 1538 returns: nothing
# routines, but can also be called directly to start and end rows which have	# routines, but can also be called directly to start and end rows which have
# needs that are not accommodated by the *_select_row() routines.	# needs that are not accommodated by the *_select_row() routines.

	{ # Start: row_count block for pick_box
	my @row_count;

sub start_pick_box {	sub start_pick_box {
my ($css_class) = @_;	my ($css_class) = @_;
if (defined($css_class)) {	if (defined($css_class)) {
Line 1380 sub start_pick_box {	Line 1548 sub start_pick_box {
} else {	} else {
$css_class= 'class="LC_pick_box"';	$css_class= 'class="LC_pick_box"';
}	}
	unshift(@row_count,0);
my $output = <<"END";	my $output = <<"END";
<table $css_class>	<table $css_class>
END	END
Line 1387 END	Line 1556 END
}	}

sub end_pick_box {	sub end_pick_box {
	shift(@row_count);
my $output = <<"END";	my $output = <<"END";
</table>	</table>
END	END
return $output;	return $output;
}	}

	sub row_headline {
	my $output = <<"END";
	<tr><td colspan="2">
	END
	return $output;
	}

sub row_title {	sub row_title {
my ($title,$css_title_class,$css_value_class) = @_;	my ($title,$css_title_class,$css_value_class) = @_;
	$row_count[0]++;
	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';
$css_title_class = 'class="'.$css_title_class.'"';	$css_title_class = 'class="'.$css_title_class.'"';

$css_value_class \|\|= 'LC_pick_box_value';	$css_value_class \|\|= 'LC_pick_box_value';
$css_value_class = 'class="'.$css_value_class.'"';

	if ($title ne '') {
	$title .= ':';
	}
my $output = <<"ENDONE";	my $output = <<"ENDONE";
<tr class="LC_pick_box_row">	<tr class="LC_pick_box_row">
<td $css_title_class>	<td $css_title_class>
$title:	$title
</td>	</td>
<td $css_value_class>	<td class="$css_value_class $css_class">
ENDONE	ENDONE
return $output;	return $output;
}	}
Line 1428 ENDTWO	Line 1609 ENDTWO
return $output;	return $output;
}	}

	} # 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 $output;	my $output;
Line 1435 sub role_select_row {	Line 1619 sub role_select_row {
$output = &row_title($title,$css_class);	$output = &row_title($title,$css_class);
}	}
$output .= qq\|	$output .= qq\|
<select name="roles" multiple >\n\|;	<select name="roles" multiple="multiple">\n\|;
foreach my $role (@$roles) {	foreach my $role (@$roles) {
my $plrole;	my $plrole;
if ($role eq 'ow') {	if ($role eq 'ow') {
Line 1471 sub course_select_row {	Line 1655 sub course_select_row {
my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles,	my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles,
$css_class) = @_;	$css_class) = @_;
my $output = &row_title($title,$css_class);	my $output = &row_title($title,$css_class);
$output .= qq\|	$output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles);
	$output .= &row_closure();
	return $output;
	}

	sub course_selection {
	my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_;
	my $output = qq\|
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function coursePick (formname) {	function coursePick (formname) {
for (var i=0; i<formname.coursepick.length; i++) {	for (var i=0; i<formname.coursepick.length; i++) {
if (formname.coursepick[i].value == 'category') {	if (formname.coursepick[i].value == 'category') {
Line 1495 sub course_select_row {	Line 1687 sub course_select_row {
formname.courselist = '';	formname.courselist = '';
}	}
}	}
	// ]]>
</script>	</script>
\|;	\|;
my $courseform='<b>'.&Apache::loncommon::selectcourse_link	my $courseform='<b>'.&Apache::loncommon::selectcourse_link
Line 1544 sub course_select_row {	Line 1737 sub course_select_row {
$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'".')" />'.&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 .= &row_closure();
return $output;	return $output;
}	}

Line 1556 sub status_select_row {	Line 1748 sub status_select_row {
$output = &row_title($title,$css_class,'LC_pick_box_select');	$output = &row_title($title,$css_class,'LC_pick_box_select');
}	}
$output .= qq\|	$output .= qq\|
<select name="types" multiple>\n\|;	<select name="types" multiple="multiple">\n\|;
foreach my $status_type (sort(keys(%{$types}))) {	foreach my $status_type (sort(keys(%{$types}))) {
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>';	$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>';
}	}
Line 1570 sub status_select_row {	Line 1762 sub status_select_row {
sub email_default_row {	sub email_default_row {
my ($authtypes,$title,$descrip,$css_class) = @_;	my ($authtypes,$title,$descrip,$css_class) = @_;
my $output = &row_title($title,$css_class);	my $output = &row_title($title,$css_class);
my @rowcols = ('#eeeeee','#dddddd');
$output .= $descrip.	$output .= $descrip.
&Apache::loncommon::start_data_table().	&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
Line 1631 sub course_custom_roles {	Line 1822 sub course_custom_roles {

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

	# topic_bar
	#
	# Generates a div containing a numbered (static image) followed by a title
	# with a background color defined in the corresponding CSS: LC_topic_bar
	#
	sub topic_bar {
	my ($imgnum,$title) = @_;
	return '<div class="LC_topic_bar">'
	.'<img src="/res/adm/pages/bl_step'.$imgnum.'.gif"'
	.' alt="'.&mt('Step [_1]',$imgnum).'" />'
	.' '.$title
	.'</div>';
	}

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

# echo_form_input	# echo_form_input
#	#
Line 1841 sub set_form_elements {	Line 2049 sub set_form_elements {
return $output;	return $output;
}	}

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

	# javascript_valid_email
	#
	# Generates javascript to validate an e-mail address.
	# Returns a javascript function which accetps a form field as argumnent, and
	# returns false if field.value does not satisfy two regular expression matches
	# for a valid e-mail address. Backwards compatible with old browsers without
	# support for javascript RegExp (just checks for @ in field.value in this case).

	sub javascript_valid_email {
	my $scripttag .= <<'END';
	function validmail(field) {
	var str = field.value;
	if (window.RegExp) {
	var reg1str = "(@.*@)\|(\\.\\.)\|(@\\.)\|(\\.@)\|(^\\.)";
	var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}\|[0-9]{1,3})(\\]?)$"; //"
	var reg1 = new RegExp(reg1str);
	var reg2 = new RegExp(reg2str);
	if (!reg1.test(str) && reg2.test(str)) {
	return true;
	}
	return false;
	}
	else
	{
	if(str.indexOf("@") >= 0) {
	return true;
	}
	return false;
	}
	}
	END
	return $scripttag;
	}


	# USAGE: htmltag(element, content, {attribute => value,...});
	#
	# EXAMPLES:
	# - htmltag('a', 'this is an anchor', {href => 'www.example.com',
	# title => 'this is a title'})
	#
	# - You might want to set up needed tags like:
	#
	# my $h3 = sub { return htmltag( "h3", @_ ) };
	#
	# ... and use them: $h3->("This is a headline")
	#
	# - To set up a couple of tags, see sub inittags
	#
	# NOTES:
	# - Empty elements, such as <br/> are correctly terminated,
	# i.e. htmltag('br') returns <br/>
	# - Empty attributes (title="") are filtered out.
	# - The function will not check for deprecated attributes.
	#
	# OUTPUT: content enclosed in xhtml conform tags
	sub htmltag{
	return
	qq\|<$_[0]\|
	. join( '', map { qq\| $_="${$_[2]}{$_}"\| if ${$_[2]}{$_} } keys %{ $_[2] } )
	. ($_[1] ? qq\|>$_[1]</$_[0]>\| : qq\|/>\|). "\n";
	};


	# USAGE: inittags(@tags);
	#
	# EXAMPLES:
	# - my ($h1, $h2, $h3) = initTags( qw( h1 h2 h3 ) )
	# $h1->("This is a headline") #Returns: <h1>This is a headline</h1>
	#
	# NOTES: See sub htmltag for further information.
	#
	# OUTPUT: List of subroutines.
	sub inittags {
	my @tags = @_;
	return map { my $tag = $_;
	sub { return htmltag( $tag, @_ ) }
	} @tags;
	}


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

	# generate_menu
	#
	# Generates html markup for a menu.
	#
	# Inputs:
	# An array of following structure:
	# ({ categorytitle => 'Categorytitle',
	# items => [
	# {
	# linktext => 'Text to be displayed',
	# url => 'URL the link is pointing to, i.e. /adm/site?action=dosomething',
	# permission => 'Contains permissions as returned from lonnet::allowed(),
	# must evaluate to true in order to activate the link',
	# icon => 'icon filename',
	# alttext => 'alt text for the icon',
	# help => 'Name of the corresponding helpfile',
	# linktitle => 'Description of the link (used for title tag)'
	# },
	# ...
	# ]
	# },
	# ...
	# )
	#
	# Outputs: A scalar containing the html markup for the menu.

	# ---- Remove when done ----
	# This routine is part of the redesign of LON-CAPA and it's
	# subject to change during this project.
	# Don't rely on its current functionality as it might be
	# changed or removed.
	# --------------------------
	sub generate_menu {
	my @menu = @_;
	# subs for specific html elements
	my ($h3, $div, $ul, $li, $a, $img) = inittags( qw(h3 div ul li a img) );

	my @categories; # each element represents the entire markup for a category

	foreach my $category (@menu) {
	my @links; # contains the links for the current $category
	foreach my $link (@{$$category{items}}) {
	next unless $$link{permission};

	# create the markup for the current $link and push it into @links.
	# each entry consists of an image and a text optionally followed
	# by a help link.
	push @links, $li->(
	$a->(
	$img->("", {
	class => "LC_noBorder LC_middle",
	src => "/res/adm/pages/$$link{icon}",
	alt => mt(defined($$link{alttext}) ?
	$$link{alttext} : $$link{linktext})
	}), {
	href => $$link{url},
	title => mt($$link{linktitle})
	}).
	$a->(mt($$link{linktext}), {
	href => $$link{url},
	title => mt($$link{linktitle}),
	class => "LC_menubuttons_link"
	}).
	(defined($$link{help}) ?
	Apache::loncommon::help_open_topic($$link{help}) : ''),
	{class => "LC_menubuttons_inline_text"});
	}

	# wrap categorytitle in <h3>, concatenate with
	# joined and in <ul> tags wrapped @links
	# and wrap everything in an enclosing <div> and push it into
	# @categories
	# such that each element looks like:
	# <div><h3>title</h3><ul><li>...</li>...</ul></div>
	# the category won't be added if there aren't any links
	push @categories,
	$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
	$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),
	{class=>"LC_ContentBoxSpecial LC_400Box"}) if scalar(@links);
	}

	# wrap the joined @categories in another <div> (column layout)
	return $div->(join('', @categories), {class => "LC_columnSection"});
	}

1;	1;

__END__	__END__

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

Removed from v.1.157
changed lines
	Added in v.1.221