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.148 and 1.169

version 1.148, 2006/07/31 18:43:12	version 1.169, 2007/11/06 04:39:19
Line 60 use Time::Local;	Line 60 use Time::Local;
use Time::HiRes;	use Time::HiRes;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

##############################################	##############################################
Line 78 use LONCAPA;	Line 77 use LONCAPA;
sub authorbombs {	sub authorbombs {
my $url=shift;	my $url=shift;
$url=&Apache::lonnet::declutter($url);	$url=&Apache::lonnet::declutter($url);
my ($udom,$uname)=($url=~/^(\w+)\/(\w+)\//);	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 (keys %bombs) {
if ($_=~/^$udom\/$uname\//) {	if ($_=~/^$udom\/$uname\//) {
Line 141 sub select_recent {	Line 140 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 481 ENDJS	Line 481 ENDJS
return $result;	return $result;
}	}


	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 682 Returns: a perl string as described.	Line 695 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';
$status = $env{'form.Status'} if (exists($env{'form.Status'}));	$status = $env{'form.Status'} if (exists($env{'form.Status'}));
}	}

my $OpSel1 = '';
my $OpSel2 = '';
my $OpSel3 = '';

if($status eq 'Any') { $OpSel3 = ' selected'; }
elsif($status eq 'Expired' ) { $OpSel2 = ' selected'; }
else { $OpSel1 = ' selected'; }

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 707 sub StatusOptions {	Line 715 sub StatusOptions {
}	}
$Str .= ' size="'.$size.'" ';	$Str .= ' size="'.$size.'" ';
$Str .= '>'."\n";	$Str .= '>'."\n";
$Str .= '<option value="Active" '.$OpSel1.'>'.	foreach my $type (['Active', &mt('Currently Has Access')],
&mt('Currently Enrolled').'</option>'."\n";	['Future', &mt('Will Have Future Access')],
$Str .= '<option value="Expired" '.$OpSel2.'>'.	['Expired', &mt('Previously Had Access')],
&mt('Previously Enrolled').'</option>'."\n";	['Any', &mt('Any Access Status')]) {
$Str .= '<option value="Any" '.$OpSel3.'>'.	my ($name,$label) = @$type;
&mt('Any Enrollment Status').'</option>'."\n";	$Str .= '<option value="'.$name.'" ';
	if ($status eq $name) {
	$Str .= 'selected="selected" ';
	}
	$Str .= '>'.$label.'</option>'."\n";
	}

$Str .= '</select>'."\n";	$Str .= '</select>'."\n";
}	}

Line 855 sub Create_PrgWin {	Line 869 sub Create_PrgWin {
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>$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.
"\');".	"\');".
Line 867 sub Create_PrgWin {	Line 881 sub Create_PrgWin {
$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;
}	}
Line 894 sub Create_PrgWin {	Line 908 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">'.$$prog_state{'window'}.'.document.'.
$$prog_state{'formname'}.'.'.	$$prog_state{'formname'}.'.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'inputname'}.'.value="'.
$displayString.'";</script>');	$displayString.'";</script>');
Line 1005 sub crumbs {	Line 1019 sub crumbs {
}	}
} else {	} else {
$path.='/';	$path.='/';
	}
	my $href_path = &HTML::Entities::encode($path,'<>&"');
	&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>/};
}	}
my $linkpath = &Apache::loncommon::escape_single($path);
if ($form) {
$linkpath=
qq{javascript:$form.action='$linkpath';$form.submit();};
}
$output.=qq{<a href="$linkpath" $target>$dir</a>/};
}	}
} else {	} else {
$output.=$uri;	foreach my $dir (split('/',$uri)) {
	if (! $dir) { next; }
	$output.=$dir.'/';
	}
}	}
unless ($uri=~/\/$/) { $output=~s/\/$//; }	if ($uri !~ m\|/$\|) { $output=~s\|/$\|\|; }
return $output.'</font>'.($noformat?'':'</b></tt><br />');	return $output.'</font>'.($noformat?'':'</b></tt><br />');
}	}

Line 1045 var checkwin;	Line 1064 var checkwin;
function spellcheckerwindow(string) {	function spellcheckerwindow(string) {
var esc_string = string.replace(/\"/g,'"');	var esc_string = string.replace(/\"/g,'"');
checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');	checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
checkwin.document.writeln('$start_page<form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="'+esc_string+'" /><\/form>$end_page');	checkwin.document.writeln('$start_page<form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="'+esc_string+'" /><\\/form>$end_page');
checkwin.document.close();	checkwin.document.close();
}	}
// END LON-CAPA Internal -->	// END LON-CAPA Internal -->
Line 1082 ENDLINK	Line 1101 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 1140 sub enablelink {	Line 1126 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();	my $lang = &htmlarea_lang();
foreach(@fields) {	foreach my $field (@fields) {
$output.="\nHTMLArea.replace('$_',config);";	$output.="
	{
	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 />".	$output.="\nwindow.status='Activated Editfields';\n</script><br />".
&disablelink(@fields);	&disablelink(@fields);
Line 1202 Pushes a breadcrumb on the stack of crum	Line 1205 Pushes a breadcrumb on the stack of crum

input: $breadcrumb, a hash reference. The keys 'href','title', and 'text'	input: $breadcrumb, a hash reference. The keys 'href','title', and 'text'
are required. If present the keys 'faq' and 'bug' will be used to provide	are required. If present the keys 'faq' and 'bug' will be used to provide
links to the FAQ and bug sites.	links to the FAQ and bug sites. If the key 'no_mt' is present the 'title'
	and 'text' values won't be sent through &mt()

returns: nothing	returns: nothing

Line 1252 returns: nothing	Line 1256 returns: nothing
if (defined($_->{'target'}) && $_->{'target'} ne '') {	if (defined($_->{'target'}) && $_->{'target'} ne '') {
$result .= 'target="'.$_->{'target'}.'" ';	$result .= 'target="'.$_->{'target'}.'" ';
}	}
$result .='title="'.&mt($_->{'title'}).'">'.	if ($_->{'no_mt'}) {
&mt($_->{'text'}).'</a>';	$result .='title="'.$_->{'title'}.'">'.
	$_->{'text'}.'</a>';
	} else {
	$result .='title="'.&mt($_->{'title'}).'">'.
	&mt($_->{'text'}).'</a>';
	}
$result;	$result;
} @Crumbs	} @Crumbs
);	);
$links .= '->' if ($links ne '');	$links .= '->' if ($links ne '');
$links .= '<b>'.&mt($last->{'text'}).'</b>';	if ($last->{'no_mt'}) {
	$links .= '<b>'.$last->{'text'}.'</b>';
	} else {
	$links .= '<b>'.&mt($last->{'text'}).'</b>';
	}
#	#
my $icons = '';	my $icons = '';
$faq = $last->{'faq'} if (exists($last->{'faq'}));	$faq = $last->{'faq'} if (exists($last->{'faq'}));
Line 1321 returns: nothing	Line 1334 returns: nothing
# row2	# row2
# row3 ... etc.	# row3 ... etc.
# &submit_row(0	# &submit_row(0
# &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 1460 sub course_select_row {	Line 1473 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">
function coursePick (formname) {	function coursePick (formname) {
for (var i=0; i<formname.coursepick.length; i++) {	for (var i=0; i<formname.coursepick.length; i++) {
Line 1533 sub course_select_row {	Line 1553 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 1559 sub status_select_row {	Line 1578 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 1830 sub set_form_elements {	Line 1848 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;
	}

1;	1;

__END__	__END__

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

Removed from v.1.148
changed lines
	Added in v.1.169