loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.1459 and 1.1469

version 1.1459, 2025/02/20 03:05:34	version 1.1469, 2025/03/07 02:13:40
Line 966 ENDSCRT	Line 966 ENDSCRT

sub select_timezone {	sub select_timezone {
my ($name,$selected,$onchange,$includeempty,$id,$disabled)=@_;	my ($name,$selected,$onchange,$includeempty,$id,$disabled)=@_;
my $output='<select name="'.$name.'" '.$id.$onchange.$disabled.'>'."\n";	my $labeltext = &HTML::Entities::encode(&mt('Select Time Zone'));
	my $output='<select name="'.$name.'" '.$id.$onchange.$disabled.
	' aria-label="'.$labeltext.'">'."\n";
if ($includeempty) {	if ($includeempty) {
$output .= '<option value=""';	$output .= '<option value=""';
if (($selected eq '') \|\| ($selected eq 'local')) {	if (($selected eq '') \|\| ($selected eq 'local')) {
Line 1351 sub help_open_topic {	Line 1353 sub help_open_topic {
}	}
$template.=' <a'.$target.' href="'.$link.'" title="'.$title.'">'	$template.=' <a'.$target.' href="'.$link.'" title="'.$title.'">'
.'<img src="'.$helpicon.'" border="0"'	.'<img src="'.$helpicon.'" border="0"'
.' alt="'.&mt('Help: [_1]',$topic).'"'	.' alt="'.&mt('Help icon').'"'
.' title="'.$title.'" style="vertical-align:middle;"'.$imgid	.' title="'.$title.'" style="vertical-align:middle;"'.$imgid
.' /></a>';	.' /></a>';
if ($text ne "") {	if ($text ne "") {
Line 5345 sub get_student_view {	Line 5347 sub get_student_view {
$userview=~s/\<\/html\>//gi;	$userview=~s/\<\/html\>//gi;
$userview=~s/\<head\>//gi;	$userview=~s/\<head\>//gi;
$userview=~s/\<\/head\>//gi;	$userview=~s/\<\/head\>//gi;
	$userview=~s/\Q<div class="LC_landmark" role="main"\E/<div class="LC_landmark"/;
$userview=~s/action\s*\=/would_be_action\=/gi;	$userview=~s/action\s*\=/would_be_action\=/gi;
$userview=&relative_to_absolute($feedurl,$userview);	$userview=&relative_to_absolute($feedurl,$userview);
if (wantarray) {	if (wantarray) {
Line 7038 sub bodytag {	Line 7041 sub bodytag {
my $alttext = &mt('menu state: '.$menustate);	my $alttext = &mt('menu state: '.$menustate);
my $tooltip = &mt($tiptext.' standard menus');	my $tooltip = &mt($tiptext.' standard menus');
$bodytag .= <<"END";	$bodytag .= <<"END";
<div id="LC_expandingContainer" style="display:inline;">	<div id="LC_expandingContainer" style="display:inline;" role="navigation">
<div id="LC_collapsible" class="LC_collapse_trigger" style="position: absolute;top: -5px;left: 0px; z-index:101; display:inline;">	<div id="LC_collapsible" class="LC_collapse_trigger" style="position: absolute;top: -5px;left: 0px; z-index:101; display:inline;">
<a href="#" style="text-decoration:none;"><img class="LC_collapsible_indicator" alt="$alttext" title="$tooltip" src="/res/adm/pages/$menustate.png" style="border:0;margin:0;padding:0;max-width:100%;height:auto" /></a></div>	<a href="#" style="text-decoration:none;"><img class="LC_collapsible_indicator" alt="$alttext" title="$tooltip" src="/res/adm/pages/$menustate.png" style="border:0;margin:0;padding:0;max-width:100%;height:auto" /></a></div>
<div class="LC_menus_content $divclass">	<div class="LC_menus_content $divclass">
Line 7096 END	Line 7099 END
$menucoll,$menuref,	$menucoll,$menuref,
$args->{'links_disabled'},	$args->{'links_disabled'},
$args->{'links_target'}).	$args->{'links_target'}).
'</div>';	'</div>';
}	}
$bodytag .= Apache::lonmenu::serverform();	$bodytag .= Apache::lonmenu::serverform();
if ($need_endlcint) {	if ($need_endlcint) {
Line 7505 div.LC_confirm_box .LC_success img {	Line 7508 div.LC_confirm_box .LC_success img {
padding: 4px;	padding: 4px;
}	}

table.LC_pastsubmission {	.LC_pastsubmission {
border: 1px solid black;	border: 1px solid black;
margin: 2px;	margin: 2px;
	padding: 2px;
}	}

table#LC_menubuttons {	table#LC_menubuttons {
Line 7761 table.LC_nested tr.LC_empty_row td {	Line 7765 table.LC_nested tr.LC_empty_row td {
table.LC_caption {	table.LC_caption {
}	}

	caption.LC_caption_prefs {
	font-weight: normal;
	text-align: left;
	padding-bottom: 0.8em;
	}

table.LC_nested tr.LC_empty_row td {	table.LC_nested tr.LC_empty_row td {
padding: 4ex	padding: 4ex
}	}
Line 7931 table.LC_data_table tr > td.LC_roles_sel	Line 7941 table.LC_data_table tr > td.LC_roles_sel
border-right: 8px solid #11CC55;	border-right: 8px solid #11CC55;
}	}

	table.LC_data_table tr.LC_prefs_row {
	line-height: 250%;
	}

span.LC_current_location {	span.LC_current_location {
font-size:larger;	font-size:larger;
background: $pgbg;	background: $pgbg;
Line 8295 table.LC_prior_tries td {	Line 8309 table.LC_prior_tries td {
padding: 6px;	padding: 6px;
}	}

.LC_prob_status {	span.LC_prob_status {
margin-top: 5px;	margin: 5px 0 0 0;
padding-top: 0;	padding: 0 5px 0 0;
padding-left: 0;	vertical-align: middle;
padding-bottom: 0;	}
padding-right: 5px;
	div.LC_prob_status_outer {
	display: inline-block;
	margin: -5px 0 0 0;
	padding: 0;
	}

	div.LC_prob_status_inner {
	display: inline-block;
	margin: 0 5px 0 0;
	padding: 5px;
	}

	caption.LC_filesub_status {
	text-align: left;
	font-weight: bold;
}	}

.LC_mail_actions {	.LC_mail_actions {
Line 8471 div.LC_grade_show_user div.LC_Box {	Line 8500 div.LC_grade_show_user div.LC_Box {
margin-right: 50px;	margin-right: 50px;
}	}

	div.LC_grade_show_user div.LC_Box table tr th {
	font-weight: normal;
	}

div.LC_grade_submissions,	div.LC_grade_submissions,
div.LC_grade_message_center,	div.LC_grade_message_center,
div.LC_grade_info_links {	div.LC_grade_info_links {
Line 8501 table.LC_scantron_action tr th {	Line 8534 table.LC_scantron_action tr th {
font-style:normal;	font-style:normal;
}	}

	div.LC_edit_problem_daxe_header {
	padding: 3px;
	background: $tabbg;
	z-index: 100;
	}

.LC_edit_problem_header,	.LC_edit_problem_header,
div.LC_edit_problem_footer {	div.LC_edit_problem_footer {
font-weight: normal;	font-weight: normal;
Line 8566 img.stift {	Line 8605 img.stift {
vertical-align: middle;	vertical-align: middle;
}	}

table td.LC_mainmenu_col_fieldset {	div.LC_mainmenu {
vertical-align: top;	margin: 3px 2px 2px 1px;
	float: left;
}	}

div.LC_createcourse {	div.LC_createcourse {
Line 8649 fieldset {	Line 8689 fieldset {
}	}

fieldset#LC_selectuser {	fieldset#LC_selectuser {
margin: 0;	margin: -1px 0 0 0;
padding: 0;	padding: 0;
	border: 0;
}	}

article.geogebraweb div {	article.geogebraweb div {
Line 9347 pre.LC_wordwrap {	Line 9388 pre.LC_wordwrap {
/*	/*
styles used for response display	styles used for response display
*/	*/
div.LC_radiofoil, div.LC_rankfoil {	div.LC_radiofoil, div.LC_rankfoil, div.LC_optionfoil, div.LC_matchfoil, div.LC_login_links {
margin: .5em 0em .5em 0em;	margin: .5em 0em .5em 0em;
}	}
table.LC_itemgroup {	table.LC_itemgroup {
margin-top: 1em;	margin-top: 1em;
}	}

	table.LC_itemgroup tr th {
	font-weight: normal;
	}

	fieldset.LC_webbubbles {
	margin: 2px 0 0 0;
	padding: 0;
	border: 0;
	}

	ul.LC_webbubbles {
	list-style: none;
	padding: 0;
	margin: 0;
	text-align: left;
	float: left;
	}

	ul.LC_webbubbles li {
	line-height: 1.8em;
	border: 1px solid black;
	padding: 0 2px 0 5px;
	margin: 0 0 0 -1px;
	float: left;
	}

/*	/*
styles used by TTH when "Default set of options to pass to tth/m	styles used by TTH when "Default set of options to pass to tth/m
when converting TeX" in course settings has been set	when converting TeX" in course settings has been set
Line 10826 sub simple_error_page {	Line 10893 sub simple_error_page {

my $page =	my $page =
&Apache::loncommon::start_page($title,'',\%displayargs)."\n".	&Apache::loncommon::start_page($title,'',\%displayargs)."\n".
'<div class="LC_landmark" style="clear:both" role="main">'.	'<div class="LC_landmark" style="clear:both" role="main">'.
'<p class="LC_error">'.$msg.'</p>'.	'<p class="LC_error">'.$msg.'</p>'.
'</div>'.	'</div>'.
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
Line 10850 sub simple_error_page {	Line 10917 sub simple_error_page {
return;	return;
}	}

	sub set_data_table_count {
	my ($count) = @_;
	unshift(@row_count,$count);
	}

sub start_data_table {	sub start_data_table {
my ($add_class,$id) = @_;	my ($add_class,$id) = @_;
my $css_class = (join(' ','LC_data_table',$add_class));	my $css_class = (join(' ','LC_data_table',$add_class));
Line 10897 sub simple_error_page {	Line 10969 sub simple_error_page {
}	}

sub start_data_table_header_row {	sub start_data_table_header_row {
return '<tr class="LC_header_row">'."\n";;	my ($add_class,$id) = @_;
	my $css_class = 'LC_header_row';
	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
	$id = (' id="'.$id.'"') unless ($id eq '');
	return '<tr class="'.$css_class.'"'.$id.'>'."\n";
}	}

sub end_data_table_header_row {	sub end_data_table_header_row {
Line 10905 sub simple_error_page {	Line 10981 sub simple_error_page {
}	}

sub data_table_caption {	sub data_table_caption {
my $caption = shift;	my ($caption,$css_class) = @_;
return "<caption class=\"LC_caption\">$caption</caption>";	return "<caption class=\"LC_caption $css_class\">$caption</caption>";
}	}
}	}

Line 19024 Returns: HTML to display with informatio	Line 19100 Returns: HTML to display with informatio
sub check_release_result {	sub check_release_result {
my ($switchwarning,$switchserver) = @_;	my ($switchwarning,$switchserver) = @_;
my $output = &start_page('Selected course unavailable on this server').	my $output = &start_page('Selected course unavailable on this server').
'<p class="LC_warning">';	'<div class="LC_landmark" role="main"><p class="LC_warning">';
if ($switchwarning) {	if ($switchwarning) {
$output .= $switchwarning.'<br /><a href="/adm/roles">';	$output .= $switchwarning.'<br /><a href="/adm/roles">';
if (&show_course()) {	if (&show_course()) {
Line 19040 sub check_release_result {	Line 19116 sub check_release_result {
&mt('Switch Server').	&mt('Switch Server').
'</a>';	'</a>';
}	}
$output .= '</p>'.&end_page();	$output .= '</p></div>'.&end_page();
return $output;	return $output;
}	}

Line 19657 sub create_captcha {	Line 19733 sub create_captcha {
$output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".	$output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".
'<span class="LC_nobreak">'.	'<span class="LC_nobreak">'.
'<label>'.&mt('Type in the letters/numbers shown below').' '.	'<label>'.&mt('Type in the letters/numbers shown below').' '.
'<input type="text" size="5" name="code" value="" autocomplete="new-password" />'.	'<input type="text" size="5" name="code" value="" autocomplete="new-password" aria-required="true" />'.
'</label></span><br />'.	'</label></span><br />'.
'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" alt="captcha" />';	'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" alt="captcha" />';
last;	last;

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

Removed from v.1.1459
changed lines
	Added in v.1.1469