loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.444.4.1 and 1.444.4.4

version 1.444.4.1, 2009/08/12 22:57:14	version 1.444.4.4, 2010/01/29 15:33:02
Line 243 sub page_start {	Line 243 sub page_start {

my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser();	my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser();
if ($symb eq '' && !$publicuser) {	if ($symb eq '' && !$publicuser) {
if ($symb eq '' && !$publicuser) {
$page_start .= '<p class="LC_info">'	$page_start .= '<p class="LC_info">'
.&mt('Browsing resource, all submissions are temporary.')	.&mt('Browsing resource, all submissions are temporary.')
.'</p>';	.'</p>';
Line 1107 sub end_problem {	Line 1106 sub end_problem {
'\textit{'.$duedate_text.'} '.$toc_line;	'\textit{'.$duedate_text.'} '.$toc_line;
} else {	} else {
$frontmatter.= $begin_doc.$toc_line;	$frontmatter.= $begin_doc.$toc_line;
if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';}	if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) {
	$frontmatter .= '\fbox{\textit{'.$weight.' pt}}';
	}
}	}
} else {	} else {
$frontmatter .= '\vskip 1mm\textit{'.$duedate_text.'} \\\\\\\\'.$startminipage;	$frontmatter .= '\vskip 1mm\textit{'.$duedate_text.'} \\\\\\\\'.$startminipage;
Line 1115 sub end_problem {	Line 1116 sub end_problem {
} else {	} else {
if (not $env{'request.symb'} =~ m/\.page_/) {	if (not $env{'request.symb'} =~ m/\.page_/) {
$frontmatter .= $begin_doc.$toc_line;	$frontmatter .= $begin_doc.$toc_line;
if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';}	if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) {
	$frontmatter .= '\fbox{\textit{'.$weight.' pt}}';
	}
} else {	} else {
$frontmatter .= '\vskip 1mm \\\\\\\\'.$startminipage;	$frontmatter .= '\vskip 1mm \\\\\\\\'.$startminipage;
}	}
Line 1757 sub start_part {	Line 1760 sub start_part {
'.disableexampointprint'}) eq 'yes') {	'.disableexampointprint'}) eq 'yes') {
$allow_print_points=0;	$allow_print_points=0;
}	}
if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}	if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) {
	$result .= '\vskip 10mm\fbox{\textit{'.$weight.' pt}}';
	}
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
$result.='<a name="'.&escape($Apache::inputtags::part).'" />';	$result.='<a name="'.&escape($Apache::inputtags::part).'" />';
}	}
Line 2044 sub start_simpleeditbutton {	Line 2049 sub start_simpleeditbutton {
# .&mt('Note: it can take up to 10 minutes for changes to take effect for all users.')	# .&mt('Note: it can take up to 10 minutes for changes to take effect for all users.')
# .&Apache::loncommon::help_open_topic('Caching')	# .&Apache::loncommon::help_open_topic('Caching')
# .'</p>';	# .'</p>';
$result.=&Apache::lontemplate::start_functionslist()	$result .= '<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
.&Apache::lontemplate::item_functionslist(	'<a href="'.$url.'/smpedit?symb='.&escape($symb).'">'.
'<a href="'.$url.'/smpedit?symb='.&escape($symb).'">'.&mt('Edit').'</a>')	&mt('Edit').'</a>.'</td></tr></table><br />';
.&Apache::lontemplate::end_functionslist();

}	}
return $result;	return $result;

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

Removed from v.1.444.4.1
changed lines
	Added in v.1.444.4.4