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.124 and 1.146

version 1.124, 2006/04/18 22:35:41	version 1.146, 2006/07/27 22:27:08
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;

##############################################	##############################################
##############################################	##############################################
Line 93 sub authorbombs {	Line 95 sub authorbombs {

sub recent_filename {	sub recent_filename {
my $area=shift;	my $area=shift;
return 'nohist_recent_'.&Apache::lonnet::escape($area);	return 'nohist_recent_'.&escape($area);
}	}

sub store_recent {	sub store_recent {
my ($area,$name,$value)=@_;	my ($area,$name,$value,$freeze)=@_;
my $file=&recent_filename($area);	my $file=&recent_filename($area);
my %recent=&Apache::lonnet::dump($file);	my %recent=&Apache::lonnet::dump($file);
if (scalar(keys(%recent))>20) {	if (scalar(keys(%recent))>20) {
# remove oldest value	# remove oldest value
my $oldest=time;	my $oldest=time();
my $delkey='';	my $delkey='';
foreach (keys %recent) {	foreach my $item (keys(%recent)) {
my $thistime=(split(/\&/,$recent{$_}))[0];	my $thistime=(split(/\&/,$recent{$item}))[0];
if ($thistime<$oldest) {	if (($thistime ne "always_include") && ($thistime<$oldest)) {
$oldest=$thistime;	$oldest=$thistime;
$delkey=$_;	$delkey=$item;
}	}
}	}
&Apache::lonnet::del($file,[$delkey]);	&Apache::lonnet::del($file,[$delkey]);
}	}
# store new value	# store new value
	my $timestamp;
	if ($freeze) {
	$timestamp = "always_include";
	} else {
	$timestamp = time();
	}
&Apache::lonnet::put($file,{ $name =>	&Apache::lonnet::put($file,{ $name =>
time.'&'.&Apache::lonnet::escape($value) });	$timestamp.'&'.&escape($value) });
}	}

sub remove_recent {	sub remove_recent {
Line 130 sub select_recent {	Line 138 sub select_recent {
my $return="\n<select name='$fieldname'".	my $return="\n<select name='$fieldname'".
($event?" onchange='$event'":'').	($event?" onchange='$event'":'').
">\n<option value=''>--- ".&mt('Recent')." ---</option>";	">\n<option value=''>--- ".&mt('Recent')." ---</option>";
foreach (sort keys %recent) {	foreach my $value (sort(keys(%recent))) {
unless ($_=~/^error\:/) {	unless ($value =~/^error\:/) {
my $escaped = &Apache::loncommon::escape_url($_);	my $escaped = &Apache::loncommon::escape_url($value);
$return.="\n<option value='$escaped'>".	$return.="\n<option value='$escaped'>".
&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]).	&unescape((split(/\&/,$recent{$value}))[1]).
'</option>';	'</option>';
}	}
}	}
Line 147 sub get_recent {	Line 155 sub get_recent {
my %recent=&Apache::lonnet::dump(&recent_filename($area));	my %recent=&Apache::lonnet::dump(&recent_filename($area));

# Create hash with key as time and recent as value	# Create hash with key as time and recent as value
	# Begin filling return_hash with any 'always_include' option
my %time_hash = ();	my %time_hash = ();
foreach (keys %recent) {	my %return_hash = ();
my $thistime=(split(/\&/,$recent{$_}))[0];	foreach my $item (keys %recent) {
$time_hash{$thistime} = $_;	my ($thistime,$thisvalue)=(split(/\&/,$recent{$item}));
	if ($thistime eq 'always_include') {
	$return_hash{$item} = &unescape($thisvalue);
	$n--;
	} else {
	$time_hash{$thistime} = $item;
	}
}	}

# Sort by decreasing time and return key value pairs	# Sort by decreasing time and return key value pairs
my %return_hash = ();
my $idx = 1;	my $idx = 1;
foreach (reverse sort keys %time_hash) {	foreach my $item (reverse(sort(keys(%time_hash)))) {
$return_hash{$time_hash{$_}} =	$return_hash{$time_hash{$item}} =
&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]);	&unescape((split(/\&/,$recent{$time_hash{$item}}))[1]);
if ($n && ($idx++ >= $n)) {last;}	if ($n && ($idx++ >= $n)) {last;}
}	}

return %return_hash;	return %return_hash;
}	}

	sub get_recent_frozen {
	my ($area) = @_;
	my %recent=&Apache::lonnet::dump(&recent_filename($area));

	# Create hash with all 'frozen' items
	my %return_hash = ();
	foreach my $item (keys(%recent)) {
	my ($thistime,$thisvalue)=(split(/\&/,$recent{$item}));
	if ($thistime eq 'always_include') {
	$return_hash{$item} = &unescape($thisvalue);
	}
	}
	return %return_hash;
	}



=pod	=pod
Line 178 sub get_recent {	Line 207 sub get_recent {
sub textbox {	sub textbox {
my ($name,$value,$size,$special) = @_;	my ($name,$value,$size,$special) = @_;
$size = 40 if (! defined($size));	$size = 40 if (! defined($size));
	$value = &HTML::Entities::encode($value,'<>&"');
my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '.	my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '.
'value="'.$value.'" '.$special.' />';	'value="'.$value.'" '.$special.' />';
return $Str;	return $Str;
Line 280 The method used to restrict user input w	Line 310 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) = @_;	$no_hh_mm_ss,$defhour,$defmin,$defsec,$nolink) = @_;
my $wasdefined=1;	my $wasdefined=1;
if (! defined($state) \|\| $state ne 'disabled') {	if (! defined($state) \|\| $state ne 'disabled') {
$state = '';	$state = '';
Line 322 sub date_setter {	Line 352 sub date_setter {
}	}
my $result = "\n<!-- $dname date setting form -->\n";	my $result = "\n<!-- $dname date setting form -->\n";
$result .= <<ENDJS;	$result .= <<ENDJS;
<script language="Javascript">	<script type="text/javascript">
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 385 document.$formname.$dname\_year.value,	Line 415 document.$formname.$dname\_year.value,
}	}
</script>	</script>
ENDJS	ENDJS
$result .= ' <nobr>';	$result .= ' <span style="white-space: nowrap;">';
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 428 ENDJS	Line 458 ENDJS
$hourselector .= " </select>\n";	$hourselector .= " </select>\n";
my $minuteselector = qq{<input type="text" name="$dname\_minute" $special $state value="$min" size="3" />};	my $minuteselector = qq{<input type="text" name="$dname\_minute" $special $state value="$min" size="3" />};
my $secondselector= qq{<input type="text" name="$dname\_second" $special $state value="$sec" size="3" />};	my $secondselector= qq{<input type="text" name="$dname\_second" $special $state value="$sec" size="3" />};
my $cal_link = qq{<a href="javascript:$dname\_opencalendar()">};	my $cal_link;
	if (!$nolink) {
	$cal_link = qq{<a href="javascript:$dname\_opencalendar()">};
	}
#	#
if ($no_hh_mm_ss) {	if ($no_hh_mm_ss) {
$result .= &mt('[_1] [_2] [_3] [_4]Select Date[_5]',	$result .= &mt('[_1] [_2] [_3] ',
$monthselector,$dayselector,$yearselector,	$monthselector,$dayselector,$yearselector);
$cal_link,'</a>');	if (!$nolink) {
	$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');
	}
} else {	} else {
$result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s [_7]Select Date[_8]',	$result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s ',
$monthselector,$dayselector,$yearselector,	$monthselector,$dayselector,$yearselector,
$hourselector,$minuteselector,$secondselector,	$hourselector,$minuteselector,$secondselector);
$cal_link,'</a>');	if (!$nolink) {
	$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');
	}
}	}
$result .= "</nobr>\n<!-- end $dname date setting form -->\n";	$result .= "</span>\n<!-- end $dname date setting form -->\n";
return $result;	return $result;
}	}

Line 524 sub get_date_from_form {	Line 561 sub get_date_from_form {
if (($year<70) \|\| ($year>137)) { return undef; }	if (($year<70) \|\| ($year>137)) { 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))) {	eval('&timelocal($sec,$min,$hour,$day,$month,$year)')) {
return &timelocal($sec,$min,$hour,$day,$month,$year);	return &timelocal($sec,$min,$hour,$day,$month,$year);
} else {	} else {
return undef;	return undef;
Line 817 sub Create_PrgWin {	Line 854 sub Create_PrgWin {
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>$heading<\/h4>".
"<form name=popremain>".	"<form 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>");
Line 945 sub r_print {	Line 982 sub r_print {
# ------------------------------------------------------- Puts directory header	# ------------------------------------------------------- Puts directory header

sub crumbs {	sub crumbs {
my ($uri,$target,$prefix,$form,$size,$noformat)=@_;	my ($uri,$target,$prefix,$form,$size,$noformat,$skiplast)=@_;
if (! defined($size)) {	if (! defined($size)) {
$size = '+2';	$size = '+2';
}	}
Line 961 sub crumbs {	Line 998 sub crumbs {
foreach my $dir (split('/',$uri)) {	foreach my $dir (split('/',$uri)) {
if (! $dir) { next; }	if (! $dir) { next; }
$path .= $dir;	$path .= $dir;
unless ($path eq $uri) { $path.='/'; }	if ($path eq $uri) {
	if ($skiplast) {
	$output.=$dir;
	last;
	}
	} else {
	$path.='/';
	}
my $linkpath = &Apache::loncommon::escape_single($path);	my $linkpath = &Apache::loncommon::escape_single($path);
if ($form) {	if ($form) {
$linkpath=	$linkpath=
Line 981 sub crumbs {	Line 1025 sub crumbs {
sub spellheader {	sub spellheader {
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Speller Suggestions',undef,	&Apache::loncommon::start_page('Speller Suggestions',undef,
{'only_body' => 1,	{'only_body' => 1,
'js_ready' => 1,	'js_ready' => 1,
'bgcolor' => '#DDDDDD',});	'bgcolor' => '#DDDDDD',
	'add_entries' => {
	'onload' =>
	'document.forms.spellcheckform.submit()',
	}
	});
my $end_page=	my $end_page=
&Apache::loncommon::end_page({'js_ready' => 1});	&Apache::loncommon::end_page({'js_ready' => 1});

Line 993 sub spellheader {	Line 1042 sub spellheader {
//<!-- BEGIN LON-CAPA Internal	//<!-- BEGIN LON-CAPA Internal
var checkwin;	var checkwin;

function spellcheckerwindow() {	function spellcheckerwindow(string) {
	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="" /></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 1009 sub spelllink {	Line 1059 sub spelllink {
my ($form,$field)=@_;	my ($form,$field)=@_;
my $linktext=&mt('Check Spelling');	my $linktext=&mt('Check Spelling');
return (<<ENDLINK);	return (<<ENDLINK);
<a href="javascript:if (typeof(document.$form.onsubmit)!='undefined') { if (document.$form.onsubmit!=null) { document.$form.onsubmit();}};spellcheckerwindow();checkwin.document.forms.spellcheckform.text.value=this.document.forms.$form.$field.value;checkwin.document.forms.spellcheckform.submit();">$linktext</a>	<a href="javascript:if (typeof(document.$form.onsubmit)!='undefined') { if (document.$form.onsubmit!=null) { document.$form.onsubmit();}};spellcheckerwindow(this.document.forms.$form.$field.value);">$linktext</a>
ENDLINK	ENDLINK
}	}

Line 1044 _editor_url='/htmlarea/';	Line 1094 _editor_url='/htmlarea/';
_editor_lang='$lang';	_editor_lang='$lang';
</script>	</script>
<script type="text/javascript" src="/htmlarea/htmlarea.js"></script>	<script type="text/javascript" src="/htmlarea/htmlarea.js"></script>
	<link rel="stylesheet" type="text/css" href="/htmlarea/htmlarea.css" />
ENDHEADERS	ENDHEADERS
}	}

Line 1078 sub disablelink {	Line 1129 sub disablelink {
if (defined($#fields)) {	if (defined($#fields)) {
unless ($#fields>=0) { return ''; }	unless ($#fields>=0) { return ''; }
}	}
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=off&returnurl=','<>&"').&Apache::lonnet::escape($ENV{'REQUEST_URI'}).'">'.&mt('Disable WYSIWYG Editor').'</a>';	return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=off&returnurl=','<>&"').&escape($ENV{'REQUEST_URI'}).'">'.&mt('Disable WYSIWYG Editor').'</a>';
}	}

sub enablelink {	sub enablelink {
Line 1086 sub enablelink {	Line 1137 sub enablelink {
if (defined($#fields)) {	if (defined($#fields)) {
unless ($#fields>=0) { return ''; }	unless ($#fields>=0) { return ''; }
}	}
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=on&returnurl=','<>&"').&Apache::lonnet::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>';
}	}

# ----------------------------------------- Script to activate only some fields	# ----------------------------------------- Script to activate only some fields
Line 1134 A link to help for the component will be	Line 1185 A link to help for the component will be

All inputs can be undef without problems.	All inputs can be undef without problems.

Inputs: $color (the background color of the table returned),	Inputs: $component (the large text on the right side of the table),
$component (the large text on the right side of the table),
$component_help	$component_help
$function (role to get colors from)
$domain (domian of role)
$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)
	$css_class (optional name for the class to apply to the table for CSS)
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 1165 returns: nothing	Line 1214 returns: nothing
my @Crumbs;	my @Crumbs;

sub breadcrumbs {	sub breadcrumbs {
my ($color,$component,$component_help,$function,$domain,$menulink,	my ($component,$component_help,$menulink,$helplink,$css_class) = @_;
$helplink) = @_;
if (! defined($color)) {
if (! defined($function)) {
$function = &Apache::loncommon::get_users_function();
}
$color = &Apache::loncommon::designparm($function.'.tabbg',
$domain);
}
#	#
my $Str = "\n".	$css_class \|\|= 'LC_breadcrumbs';
'<table width="100%" border="0" cellpadding="0" cellspacing="0">'.	my $Str = "\n".'<table class="'.$css_class.'"><tr><td>';
'<tr><td bgcolor="'.$color.'">'.
'<font size="-1">';
#	#
# Make the faq and bug data cascade	# Make the faq and bug data cascade
my $faq = '';	my $faq = '';
Line 1232 returns: nothing	Line 1271 returns: nothing
# if ($bug ne '') {	# if ($bug ne '') {
# $icons .= &Apache::loncommon::help_open_bug($bug);	# $icons .= &Apache::loncommon::help_open_bug($bug);
# }	# }
if ($helplink ne 'nohelp') {	if ($faq ne '' \|\| $component_help ne '' \|\| $bug ne '') {
$icons .= &Apache::loncommon::help_open_menu($color,$component,$component_help,$function,$faq,$bug);	$icons .= &Apache::loncommon::help_open_menu($component,
	$component_help,
	$faq,$bug);
}	}
if ($icons ne '') {
$Str .= $icons.' ';
}
#	#
$Str .= $links.'</font></td>';	$Str .= $links.'</td>';
#	#
if (defined($component)) {	if (defined($component)) {
$Str .= '<td align="right" bgcolor="'.$color.'">'.	$Str .= '<td class="'.$css_class.'_component">'.
'<font size="+1">'.&mt($component).'</font></td>';	&mt($component);
	if ($icons ne '') {
	$Str .= ' '.$icons;
	}
	$Str .= '</td>';
}	}
$Str .= '</tr></table>'."\n";	$Str .= '</tr></table>'."\n";
#	#
Line 1321 returns: nothing	Line 1363 returns: nothing
# needs that are not accommodated by the *_select_row() routines.	# needs that are not accommodated by the *_select_row() routines.

sub start_pick_box {	sub start_pick_box {
my ($table_width) = @_;	my ($css_class) = @_;
	if (defined($css_class)) {
	$css_class = 'class="'.$css_class.'"';
	} else {
	$css_class= 'class="LC_pick_box"';
	}
my $output = <<"END";	my $output = <<"END";
<table width="$table_width" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">	<table $css_class>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
END	END
return $output;	return $output;
}	}
Line 1337 END	Line 1378 END
sub end_pick_box {	sub end_pick_box {
my $output = <<"END";	my $output = <<"END";
</table>	</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
END	END
return $output;	return $output;
}	}

sub row_title {	sub row_title {
my ($col_width,$tablecolor,$title) = @_;	my ($title,$css_title_class,$css_value_class) = @_;
	$css_title_class \|\|= 'LC_pick_box_title';
	$css_title_class = 'class="'.$css_title_class.'"';

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

my $output = <<"ENDONE";	my $output = <<"ENDONE";
<tr>	<tr class="LC_pick_box_row">
<td width="$col_width" bgcolor="$tablecolor">	<td $css_title_class>
<table width="$col_width" border="0" cellpadding="8" cellspacing="0">	$title:
<tr>
<td align="right"><b>$title:</b>
</td>
</tr>
</table>
</td>	</td>
<td width="100%" valign="top">	<td $css_value_class>
<table width="100%" border="0" cellpadding="8" cellspacing="0">
<tr>
ENDONE	ENDONE
return $output;	return $output;
}	}

sub row_closure {	sub row_closure {
	my ($no_separator) =@_;
my $output = <<"ENDTWO";	my $output = <<"ENDTWO";
</tr>
</table>
</td>	</td>
</tr>	</tr>
	ENDTWO
	if (!$no_separator) {
	$output .= <<"ENDTWO";
<tr>	<tr>
<td width="100%" colspan="2" bgcolor="#000000">	<td colspan="2" class="LC_pick_box_separator">
<img src="/adm/lonMisc/blackdot.gif" /><br />
</td>	</td>
</tr>	</tr>
ENDTWO	ENDTWO
	}
return $output;	return $output;
}	}

sub role_select_row {	sub role_select_row {
my ($roles,$col_width,$tablecolor,$title) = @_;	my ($roles,$title,$css_class) = @_;
my $output;	my $output;
if (defined($title)) {	if (defined($title)) {
$output = &row_title($col_width,$tablecolor,$title);	$output = &row_title($title,$css_class);
}	}
$output .= qq\| <td valign="top">	$output .= qq\|
<select name="roles" multiple >\n\|;	<select name="roles" multiple >\n\|;
foreach my $role (@$roles) {	foreach my $role (@$roles) {
my $plrole;	my $plrole;
Line 1398 sub role_select_row {	Line 1434 sub role_select_row {
}	}
$output .= ' <option value="'.$role.'">'.$plrole.'</option>';	$output .= ' <option value="'.$role.'">'.$plrole.'</option>';
}	}
$output .= qq\| </select>	$output .= qq\| </select>\n\|;
</td>\n\|;
if (defined($title)) {	if (defined($title)) {
$output .= &row_closure();	$output .= &row_closure();
}	}
Line 1407 sub role_select_row {	Line 1442 sub role_select_row {
}	}

sub course_select_row {	sub course_select_row {
my ($col_width,$tablecolor,$title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_;	my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles,
my $output = &row_title($col_width,$tablecolor,$title);	$css_class) = @_;
$output .= " <td>\n";	my $output = &row_title($title,$css_class);
$output .= qq\|	$output .= qq\|
<script type="text/javascript" language="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++) {
if (formname.coursepick[i].value == 'category') {	if (formname.coursepick[i].value == 'category') {
Line 1438 sub course_select_row {	Line 1473 sub course_select_row {
\|;	\|;
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).'</b>';
	$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses').'<br />';
if ($totcodes > 0) {	if ($totcodes > 0) {
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses');
my $numtitles = @$codetitles;	my $numtitles = @$codetitles;
if ($numtitles > 0) {	if ($numtitles > 0) {
$output .= '<br /><input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').' <br />';	$output .= '<input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').' <br />';
$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n".	$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n".
'<select name="'.$$codetitles[0].	'<select name="'.$$codetitles[0].
'" onChange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n".	'" onChange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n".
Line 1483 sub course_select_row {	Line 1518 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 /></td>'."\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();	$output .= &row_closure();
return $output;	return $output;
}	}

sub status_select_row {	sub status_select_row {
my ($types,$col_width,$tablecolor,$title) = @_;	my ($types,$title,$css_class) = @_;
my $output;	my $output;
if (defined($title)) {	if (defined($title)) {
$output = &row_title($col_width,$tablecolor,$title);	$output = &row_title($title,$css_class,'LC_pick_box_select');
}	}
$output .= qq\| <td valign="top">	$output .= qq\|
<select name="types" multiple>\n\|;	<select name="types" 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>';
}	}
$output .= qq\| </select>	$output .= qq\| </select>\n\|;
</td>\n\|;
if (defined($title)) {	if (defined($title)) {
$output .= &row_closure();	$output .= &row_closure();
}	}
Line 1508 sub status_select_row {	Line 1542 sub status_select_row {
}	}

sub email_default_row {	sub email_default_row {
my ($authtypes,$col_width,$tablecolor,$title,$descrip) = @_;	my ($authtypes,$title,$descrip,$css_class) = @_;
my $output = &row_title($col_width,$tablecolor,$title);	my $output = &row_title($title,$css_class);
my @rowcols = ('#eeeeee','#dddddd');	my @rowcols = ('#eeeeee','#dddddd');
$output .= ' <td>'.$descrip;	$output .= $descrip.
$output .= &start_pick_box('');	&Apache::loncommon::start_data_table().
$output .= ' <tr bgcolor="'.$tablecolor.'">	&Apache::loncommon::start_data_table_header_row().
<td><b>'.&mt('Authentication Method').'</b></td><td align="right"><b>'.&mt('Username -> e-mail conversion').'</b></td>	'<th>'.&mt('Authentication Method').'</th>'.
</tr>'."\n";	'<th align="right">'.&mt('Username -> e-mail conversion').'</th>'."\n".
	&Apache::loncommon::end_data_table_header_row();
my $rownum = 0;	my $rownum = 0;
foreach my $auth (sort(keys(%{$authtypes}))) {	foreach my $auth (sort(keys(%{$authtypes}))) {
my ($userentry,$size);	my ($userentry,$size);
my $rowiter = $rownum%2;
if ($auth =~ /^krb/) {	if ($auth =~ /^krb/) {
$userentry = '';	$userentry = '';
$size = 25;	$size = 25;
Line 1527 sub email_default_row {	Line 1561 sub email_default_row {
$userentry = 'username@';	$userentry = 'username@';
$size = 15;	$size = 15;
}	}
$output .= '<tr bgcolor="'.$rowcols[$rowiter].'"><td> '.$$authtypes{$auth}.'</td><td align="right">'.$userentry.'<input type="text" name="'.$auth.'" size="'.$size.'" /></td></tr>';	$output .= &Apache::loncommon::start_data_table_row().
$rownum ++;	'<td> '.$$authtypes{$auth}.'</td>'.
	'<td align="right">'.$userentry.
	'<input type="text" name="'.$auth.'" size="'.$size.'" /></td>'.
	&Apache::loncommon::end_data_table_row();
}	}
$output .= &end_pick_box();	$output .= &Apache::loncommon::end_data_table();
$output .= " <br /></td>\n";
$output .= &row_closure();	$output .= &row_closure();
return $output;	return $output;
}	}


sub submit_row {	sub submit_row {
my ($col_width,$tablecolor,$title,$cmd,$submit_text) = @_;	my ($title,$cmd,$submit_text,$css_class) = @_;
my $output = &row_title($col_width,$tablecolor,$title);	my $output = &row_title($title,$css_class,'LC_pick_box_submit');
$output .= qq\|	$output .= qq\|
<td width="100%" valign="top" align="right">
<br />	<br />
<input type="hidden" name="command" value="$cmd" />	<input type="hidden" name="command" value="$cmd" />
<input type="submit" value="$submit_text"/>	<input type="submit" value="$submit_text"/>
<br /><br />	<br /><br />
</td>\n\|;	\n\|;
return $output;	return $output;
}	}

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

Removed from v.1.124
changed lines
	Added in v.1.146