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.741 and 1.758

version 1.741, 2009/02/03 19:36:19	version 1.758, 2009/02/26 22:22:51
Line 923 sub help_open_topic {	Line 923 sub help_open_topic {
}	}

# Add the text	# Add the text
if ($text ne "") {	if ($text ne "") {
$template .=	$template.="<a style=\"background-color:#3333AA;\" target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF;\">$text</span></a>";
"<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>".
"<td bgcolor='#5555FF'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF;font-size:10pt;\">$text</span></a>";
}	}

# Add the graphic	# Add the graphic
Line 935 sub help_open_topic {	Line 933 sub help_open_topic {
$template .= <<"ENDTEMPLATE";	$template .= <<"ENDTEMPLATE";
<a target="_top" href="$link" title="$title"><img src="$helpicon" border="0" alt="(Help: $topic)" /></a>	<a target="_top" href="$link" title="$title"><img src="$helpicon" border="0" alt="(Help: $topic)" /></a>
ENDTEMPLATE	ENDTEMPLATE
if ($text ne '') { $template.='</td></tr></table>' };
return $template;	return $template;

}	}
Line 1746 sub select_level_form {	Line 1744 sub select_level_form {

=pod	=pod

=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc)	=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$autosubmit)

Returns a string containing a <select name='$name' size='1'> form to	Returns a string containing a <select name='$name' size='1'> form to
allow a user to select the domain to preform an operation in.	allow a user to select the domain to preform an operation in.
Line 1755 See loncreateuser.pm for an example invo	Line 1753 See loncreateuser.pm for an example invo
If the $includeempty flag is set, it also includes an empty choice ("no domain	If the $includeempty flag is set, it also includes an empty choice ("no domain
selected");	selected");

If the $showdomdesc flag is set, the domain name is followed by the domain description.	If the $showdomdesc flag is set, the domain name is followed by the domain description.

	If the $autosubmit flag is set, the form containing the domain selector will be auto-submitted by an onchange action.

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub select_dom_form {	sub select_dom_form {
my ($defdom,$name,$includeempty,$showdomdesc) = @_;	my ($defdom,$name,$includeempty,$showdomdesc,$autosubmit) = @_;
	my $onchange;
	if ($autosubmit) {
	$onchange = ' onchange="this.form.submit()"';
	}
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains());	my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains());
if ($includeempty) { @domains=('',@domains); }	if ($includeempty) { @domains=('',@domains); }
my $selectdomain = "<select name=\"$name\" size=\"1\">\n";	my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n";
foreach my $dom (@domains) {	foreach my $dom (@domains) {
$selectdomain.="<option value=\"$dom\" ".	$selectdomain.="<option value=\"$dom\" ".
($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;	($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;
Line 2804 sub aboutmewrapper {	Line 2808 sub aboutmewrapper {
return;	return;
}	}
return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.	return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.
($target?' target="$target"':'').' title="'.&mt("View this user's personal page").'">'.$link.'</a>';	($target?' target="$target"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';
}	}

# ------------------------------------------------------------ Syllabus Wrapper	# ------------------------------------------------------------ Syllabus Wrapper
Line 3073 sub languages {	Line 3077 sub languages {
return $preferred_possibilities[0];	return $preferred_possibilities[0];
}	}

	sub user_lang {
	my ($touname,$toudom,$fromcid) = @_;
	my @userlangs;
	if (($fromcid ne '') && ($env{'course.'.$fromcid.'.languages'} ne '')) {
	@userlangs=(@userlangs,split(/\s(\,\|\;\|\:)\s/,
	$env{'course.'.$fromcid.'.languages'}));
	} else {
	my %langhash = &getlangs($touname,$toudom);
	if ($langhash{'languages'} ne '') {
	@userlangs = split(/\s(\,\|\;\|\:)\s/,$langhash{'languages'});
	} else {
	my %domdefs = &Apache::lonnet::get_domain_defaults($toudom);
	if ($domdefs{'lang_def'} ne '') {
	@userlangs = ($domdefs{'lang_def'});
	}
	}
	}
	my @languages=&Apache::lonlocal::get_genlanguages(@userlangs);
	my $user_lh = Apache::localize->get_handle(@languages);
	return $user_lh;
	}


###############################################################	###############################################################
## Student Answer Attempts ##	## Student Answer Attempts ##
###############################################################	###############################################################
Line 4496 form, .inline { display: inline; }	Line 4523 form, .inline { display: inline; }

/* just for tests */	/* just for tests */
.LC_300Box { width:300px; }	.LC_300Box { width:300px; }
.LC_200Box {width:200px; }	.LC_400Box {width:400px; }
.LC_500Box {width:500px; }	.LC_500Box {width:500px; }
.LC_600Box {width:600px; }	.LC_600Box {width:600px; }
.LC_800Box {width:800px;}	.LC_800Box {width:800px;}
Line 5589 ol.LC_smallMenu a {	Line 5616 ol.LC_smallMenu a {
color: RGB(80, 80, 80);	color: RGB(80, 80, 80);
text-decoration: none;	text-decoration: none;
}	}
ol#LC_TabMainMenueContent, ul.LC_TabContent,	ol#LC_TabMainMenueContent, ul.LC_TabContent ,
ul.LC_TabContentBigger {	ul.LC_TabContentBigger {
display:block;	display:block;
list-style:none;	list-style:none;
Line 5597 ul.LC_TabContentBigger {	Line 5624 ul.LC_TabContentBigger {
padding: 0px;	padding: 0px;
}	}

ol#LC_TabMainMenuContent li, ul.LC_TabContent,	ol#LC_TabMainMenuContent li, ul.LC_TabContent li,
ul.LC_TabContentBigger li{	ul.LC_TabContentBigger li{
display: inline;	display: inline;
border-right: solid 1px $lg_border_color;	border-right: solid 1px $lg_border_color;
Line 5621 ol#LC_TabMainMenuContent li a{	Line 5648 ol#LC_TabMainMenuContent li a{
}	}
ul.LC_TabContent {	ul.LC_TabContent {
min-height:1.6em;	min-height:1.6em;
border-bottom:solid 1px $lg_border_color;
}	}
ul.LC_TabContent li{	ul.LC_TabContent li{
vertical-align:middle;	vertical-align:middle;
padding:0px 10px 0px 10px;	padding:0px 10px 0px 10px;
	background-color:$tabbg;
	border-bottom:solid 1px $lg_border_color;
}	}
ul.LC_TabContent li a, ul.LC_TabContent li{	ul.LC_TabContent li a, ul.LC_TabContent li{
color:rgb(47,47,47);	color:rgb(47,47,47);
text-decoration:none;	text-decoration:none;
font-size:95%;	font-size:95%;
font-weight:bold;	font-weight:bold;
}	}
	ul.LC_TabContent li:hover, ul.LC_TabContent li.active{
	background-color:#FFFFFF;
	border-bottom:solid 1px #FFFFFF;
	}
ul.LC_TabContentBigger li{	ul.LC_TabContentBigger li{
vertical-align:bottom;	vertical-align:bottom;
border-top:solid 1px $lg_border_color;	border-top:solid 1px $lg_border_color;
Line 5641 ul.LC_TabContentBigger li{	Line 5673 ul.LC_TabContentBigger li{
margin-left:2px;	margin-left:2px;
background:url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;	background:url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
}	}
	ul.LC_TabContentBigger li:hover, ul.LC_TabContentBigger li.active{
	background:url(/adm/lonIcons/lightGreyBG.png) repeat-x right bottom;
	}
ul.LC_TabContentBigger li, ul.LC_TabContentBigger li a{	ul.LC_TabContentBigger li, ul.LC_TabContentBigger li a{
font-size:110%;	font-size:110%;
font-weight:bold;	font-weight:bold;
Line 5690 ol#LC_PathBreadcrumbs li a{	Line 5725 ol#LC_PathBreadcrumbs li a{
{	{
border: solid 1px $lg_border_color;	border: solid 1px $lg_border_color;
}	}
	.LC_ContentBoxSpecialContactInfo
	{
	border: solid 1px $lg_border_color;
	max-width:25%;
	min-width:25%;
	}
	.LC_AboutMe_Image
	{
	float:left;
	margin-right:10px;
	}
	.LC_Clear_AboutMe_Image
	{
	clear:left;
	}
dl.LC_ListStyleClean dt {	dl.LC_ListStyleClean dt {
padding-right: 5px;	padding-right: 5px;
display: table-header-group;	display: table-header-group;
Line 5766 div.LC_columnSection {	Line 5815 div.LC_columnSection {
div.LC_columnSection>* {	div.LC_columnSection>* {
float: left;	float: left;
margin: 10px 20px 10px 0px;	margin: 10px 20px 10px 0px;
overflow:hidden;	overflow:hidden;
}
div.LC_columnSection > .LC_ContentBox,
div.LC_columnSection > .LC_ContentBoxSpecial
{
width: 400px;
}	}

.ContentBoxSpecialTemplate	.ContentBoxSpecialTemplate
Line 5786 div.LC_columnSection > .ContentBoxTempla	Line 5830 div.LC_columnSection > .ContentBoxTempla
div.LC_columnSection > .ContentBoxSpecialTemplate	div.LC_columnSection > .ContentBoxSpecialTemplate
{	{
width: 600px;	width: 600px;

}	}

.clear{	.clear{
Line 5837 div.LC_columnSection > .ContentBoxSpecia	Line 5880 div.LC_columnSection > .ContentBoxSpecia
}	}

.LC_loginpage_space {	.LC_loginpage_space {
clear:both;	clear: both;
margin-bottom:20px;	margin-bottom: 20px;
border-bottom: 1px solid #CCCCCC;	border-bottom: 1px solid #CCCCCC;
}	}

	table em{
	font-weight: bold;
	font-style: normal;
	}

	table#LC_tableOfContent{
	border-collapse: collapse;
	border-spacing: 0;
	padding: 3px;
	border: 0;
	background-color: #FFFFFF;
	font-size: 90%;
	}
	table#LC_tableOfContent a {
	text-decoration: none;
	}

	table#LC_tableOfContent tr.LC_trOdd{
	background-color: #EEEEEE;
	}

	table#LC_tableOfContent img{
	border: none;
	height: 1.3em;
	vertical-align: text-bottom;
	margin-right: 0.3em;
	}

	a#LC_content_toolbar_firsthomework{
	background-image:url(/res/adm/pages/open-first-problem.gif);
	}

	a#LC_content_toolbar_launchnav{
	background-image:url(/res/adm/pages/start-navigation.gif);
	}

	a#LC_content_toolbar_closenav{
	background-image:url(/res/adm/pages/close-navigation.gif);
	}

	a#LC_content_toolbar_everything{
	background-image:url(/res/adm/pages/show-all.gif);
	}

	a#LC_content_toolbar_uncompleted{
	background-image:url(/res/adm/pages/show-incomplete-problems.gif);
	}

	#LC_content_toolbar_clearbubbles{
	background-image:url(/res/adm/pages/mark-discussionentries-read.gif);
	}

	a#LC_content_toolbar_changefolder{
	background : url(/res/adm/pages/close-all-folders.gif) top center ;
	}

	a#LC_content_toolbar_changefolder_toggled{
	background-image:url(/res/adm/pages/open-all-folders.gif);
	}

	ul#LC_toolbar li a:hover{
	background-position: bottom center;
	}

	ul#LC_toolbar{
	padding:0;
	margin: 2px;
	list-style:none;
	position:relative;
	background-color:white;
	}

	ul#LC_toolbar li{
	border:1px solid white;
	padding:0;
	margin: 0;
	display:inline-block;
	vertical-align:middle;
	}

	a.LC_toolbarItem{
	display:inline-block;
	padding:0;
	margin:0;
	height: 32px;
	width: 32px;
	color:white;
	border:0 none;
	background-repeat:no-repeat;
	background-color:transparent;
	}


END	END
}	}

Line 6111 sub start_page {	Line 6247 sub start_page {
$result = &html_encode($result);	$result = &html_encode($result);
}	}

if (exists($args->{'bread_crumbs'})) {	#Breadcrumbs
&Apache::lonhtmlcommon::clear_breadcrumbs();	if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {
if (ref($args->{'bread_crumbs'}) eq 'ARRAY') {	&Apache::lonhtmlcommon::clear_breadcrumbs();
foreach my $crumb (@{$args->{'bread_crumbs'}}){	#if any br links exists, add them to the breadcrumbs
&Apache::lonhtmlcommon::add_breadcrumb($crumb);	if (exists($args->{'bread_crumbs'}) and ref($args->{'bread_crumbs'}) eq 'ARRAY') {
}	foreach my $crumb (@{$args->{'bread_crumbs'}}){
}	&Apache::lonhtmlcommon::add_breadcrumb($crumb);
$result .= &Apache::lonhtmlcommon::breadcrumbs();	}
}	}

	#if bread_crumbs_component exists show it as headline else show only the breadcrumbs
	if(exists($args->{'bread_crumbs_component'})){
	$result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});
	}else{
	$result .= &Apache::lonhtmlcommon::breadcrumbs();
	}
	}
return $result;	return $result;
}	}

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

Removed from v.1.741
changed lines
	Added in v.1.758