version 1.482, 2008/08/01 16:31:26
|
version 1.486, 2008/09/11 14:47:24
|
Line 486 sub inner_xmlparse {
|
Line 486 sub inner_xmlparse {
|
while ($token->[1] ne $$stack['-1'] && ($#$stack > -1)) { |
while ($token->[1] ne $$stack['-1'] && ($#$stack > -1)) { |
my $lasttag=$$stack[-1]; |
my $lasttag=$$stack[-1]; |
if ($token->[1] =~ /^\Q$lasttag\E$/i) { |
if ($token->[1] =~ /^\Q$lasttag\E$/i) { |
&Apache::lonxml::warning('Using tag </'.$token->[1].'> on line '.$token->[3].' as end tag to <'.$$stack[-1].'>'); |
&Apache::lonxml::warning(&mt('Using tag [_1] on line [_2] as end tag to [_3]','</'.$token->[1].'>','.$token->[3].','<'.$$stack[-1].'>')); |
last; |
last; |
} else { |
} else { |
&Apache::lonxml::warning('Found tag </'.$token->[1].'> on line '.$token->[3].' when looking for </'.$$stack[-1].'> in file'); |
&Apache::lonxml::warning(&mt('Found tag [_1] on line [_2] when looking for [_3] in file.','</'.$token->[1].'>',$token->[3],'</'.$$stack[-1].'>')); |
&end_tag($stack,$parstack,$token); |
&end_tag($stack,$parstack,$token); |
} |
} |
} |
} |
Line 1519 sub renderingoptions {
|
Line 1519 sub renderingoptions {
|
&mt('Math Rendering:').' '. |
&mt('Math Rendering:').' '. |
&Apache::loncommon::select_form($env{'form.texengine'},'texengine', |
&Apache::loncommon::select_form($env{'form.texengine'},'texengine', |
('' => '', |
('' => '', |
'tth' => 'tth (Tex-to-HTML)', |
'tth' => 'tth (TeX to HTML)', |
'jsMath' => 'jsMath', |
'jsMath' => 'jsMath', |
'mimetex' => 'mimetex (Convert to Images)')).' |
'mimetex' => 'mimetex (Convert to Images)')).' |
</span>'; |
</span>'; |
Line 1844 sub error {
|
Line 1844 sub error {
|
if ( &show_error_warn_msg() ) { |
if ( &show_error_warn_msg() ) { |
# If printing in construction space, put the error inside <pre></pre> |
# If printing in construction space, put the error inside <pre></pre> |
push(@Apache::lonxml::error_messages, |
push(@Apache::lonxml::error_messages, |
$Apache::lonxml::warnings_error_header. |
$Apache::lonxml::warnings_error_header |
"<b>".&mt('ERROR:')."</b>".join("<br />\n",@errors)."<br />\n"); |
.'<div class="LC_error">' |
|
.'<b>'.&mt('ERROR:').' </b>'.join("<br />\n",@errors) |
|
."</div>\n"); |
$Apache::lonxml::warnings_error_header=''; |
$Apache::lonxml::warnings_error_header=''; |
} else { |
} else { |
my $errormsg; |
my $errormsg; |
my ($symb)=&Apache::lonnet::symbread(); |
my ($symb)=&Apache::lonnet::symbread(); |
if ( !$symb ) { |
if ( !$symb ) { |
#public or browsers |
#public or browsers |
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
$errormsg=&mt("An error occurred while processing this resource. The author has been notified."); |
} |
} |
my $host=$Apache::lonnet::perlvar{'lonHostID'}; |
my $host=$Apache::lonnet::perlvar{'lonHostID'}; |
push(@errors, |
push(@errors, |
Line 1891 sub error {
|
Line 1893 sub error {
|
} |
} |
} |
} |
if ($env{'request.role.adv'}) { |
if ($env{'request.role.adv'}) { |
$errormsg=&mt("An error occured while processing this resource. The course personnel ([_1]) and the author have been notified.",join(', ',@userlist)); |
$errormsg=&mt("An error occurred while processing this resource. The course personnel ([_1]) and the author have been notified.",join(', ',@userlist)); |
} else { |
} else { |
$errormsg=&mt("An error occured while processing this resource. The instructor has been notified."); |
$errormsg=&mt("An error occurred while processing this resource. The instructor has been notified."); |
} |
} |
} |
} |
push(@Apache::lonxml::error_messages,"<b>$errormsg</b> <br />"); |
push(@Apache::lonxml::error_messages,"<b>$errormsg</b> <br />"); |
Line 1906 sub warning {
|
Line 1908 sub warning {
|
if ($env{'form.grade_target'} ne 'tex') { |
if ($env{'form.grade_target'} ne 'tex') { |
if ( &show_error_warn_msg() ) { |
if ( &show_error_warn_msg() ) { |
push(@Apache::lonxml::warning_messages, |
push(@Apache::lonxml::warning_messages, |
$Apache::lonxml::warnings_error_header. |
$Apache::lonxml::warnings_error_header |
'<span class="LC_warning">'. |
.'<div class="LC_warning">' |
&mt('[_1]W[_2]ARNING','<b>','</b>')."<b>:</b> ".join('<br />',@_)."<br />\n". |
.&mt('[_1]W[_2]ARNING','<b>','</b>')."<b>:</b> ".join('<br />',@_) |
'</span>' |
."</div>\n" |
); |
); |
$Apache::lonxml::warnings_error_header=''; |
$Apache::lonxml::warnings_error_header=''; |
} |
} |
Line 2135 sub get_tag {
|
Line 2137 sub get_tag {
|
return $insertlist{"$tagnum.tag"}; |
return $insertlist{"$tagnum.tag"}; |
} |
} |
|
|
|
############################################################ |
|
# PDF-FORM-METHODS |
|
|
|
=pod |
|
|
|
=item &print_pdf_radiobutton(fieldname, value, text) |
|
|
|
Returns a latexline to generate a PDF-Form-Radiobutton with Text. |
|
|
|
$fieldname: PDF internalname of the radiobutton |
|
$value: Value of radiobutton (read when dumping the PDF data) |
|
$text: Text on the rightside of the radiobutton |
|
|
|
=cut |
|
sub print_pdf_radiobutton { |
|
my $result = ''; |
|
my ($fieldName, $value, $text) = @_; |
|
$result .= '\begin{tabularx}{\textwidth}{p{0cm}X}'."\n"; |
|
$result .= '\radioButton[\symbolchoice{circle}]{'. |
|
$fieldName.'}{10bp}{10bp}{'.$value.'}&'.$text."\n"; |
|
$result .= '\end{tabularx}' . "\n"; |
|
$result .= '\hspace{2mm}' . "\n"; |
|
return $result; |
|
} |
|
|
|
|
|
=pod |
|
|
|
=item &print_pdf_start_combobox(fieldname) |
|
|
|
Starts a latexline to generate a PDF-Form-Combobox with text. |
|
|
|
$fieldname: PDF internal name of the Combobox |
|
|
|
=cut |
|
sub print_pdf_start_combobox { |
|
my $result; |
|
my ($fieldName) = @_; |
|
$result .= '\begin{tabularx}{\textwidth}{p{2.5cm}X}'."\n"; |
|
$result .= '\comboBox[]{'.$fieldName.'}{2.3cm}{14bp}{'; # |
|
|
|
return $result; |
|
} |
|
|
|
|
|
=pod |
|
|
|
=item &print_pdf_add_combobox_option(options) |
|
|
|
Generates a latexline to add Options to a PDF-Form-ComboBox. |
|
|
|
$option: PDF internal name of the Combobox-Option |
|
|
|
=cut |
|
sub print_pdf_add_combobox_option { |
|
|
|
my $result; |
|
my ($option) = @_; |
|
|
|
$result .= '('.$option.')'; |
|
|
|
return $result; |
|
} |
|
|
|
|
|
=pod |
|
|
|
=item &print_pdf_end_combobox(text) { |
|
|
|
Returns latexcode to end a PDF-Form-Combobox with text. |
|
|
|
=cut |
|
sub print_pdf_end_combobox { |
|
my $result; |
|
my ($text) = @_; |
|
|
|
$result .= '}&'.$text."\\\\\n"; |
|
$result .= '\end{tabularx}' . "\n"; |
|
$result .= '\hspace{2mm}' . "\n"; |
|
return $result; |
|
} |
|
|
|
|
|
=pod |
|
|
|
=item &print_pdf_hiddenField(fieldname, user, domain) |
|
|
|
Returns a latexline to generate a PDF-Form-hiddenField with userdata. |
|
|
|
$fieldname label for hiddentextfield |
|
$user: name of user |
|
$domain: domain of user |
|
|
|
=cut |
|
sub print_pdf_hiddenfield { |
|
my $result; |
|
my ($fieldname, $user, $domain) = @_; |
|
|
|
$result .= '\textField [\F{\FHidden}\F{-\FPrint}\V{'.$domain.'&'.$user.'}]{'.$fieldname.'}{0in}{0in}'."\n"; |
|
|
|
return $result; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|