Found no analyzable parts in this problem,
- currently only Numerical, Formula and String response
- styles are supported.
');
+ $request->print('
'.&mt('Found no analyzable parts in this problem, currently only Numerical, Formula and String response styles are supported.').'
');
}
&Apache::lonhtmlcommon::Close_PrgWin($request,\%prog_state);
&analyze_footer($request);
@@ -455,115 +508,116 @@ sub analyze {
}
sub editxmlmode {
- my ($request,$file) = @_;
- my $result;
- my $problem=&Apache::lonnet::getfile($file);
- if ($problem eq -1) {
- &Apache::lonxml::error(" Unable to find $file");
- $problem='';
- }
- if (defined($ENV{'form.editxmltext'}) || defined($ENV{'form.Undo'})) {
- my $error=&handle_save_or_undo($request,\$problem,
- \$ENV{'form.editxmltext'});
- if (!$error) { $problem=&Apache::lonnet::getfile($file); }
- }
- &Apache::lonhomework::showhashsubset(\%ENV,'^form');
- if ( $ENV{'form.submit'} eq 'Submit Changes and View' ) {
+ my ($request,$file) = @_;
+ my $result;
+ my $problem=&Apache::lonnet::getfile($file);
+ if ($problem eq -1) {
+ &Apache::lonxml::error(" ".&mt('Unable to find').
+ " $file");
+ $problem='';
+ }
+ if (defined($ENV{'form.editxmltext'}) || defined($ENV{'form.Undo'})) {
+ my $error=&handle_save_or_undo($request,\$problem,
+ \$ENV{'form.editxmltext'});
+ if (!$error) { $problem=&Apache::lonnet::getfile($file); }
+ }
&Apache::lonhomework::showhashsubset(\%ENV,'^form');
- $ENV{'form.problemmode'}='View';
- &renderpage($request,$file);
- } else {
- my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);
- my $xml_help = Apache::loncommon::helpLatexCheatsheet("Problem_Editor_XML_Index",
- "Problem Editing Help");
- if ($cols > 80) { $cols = 80; }
- if ($cols < 70) { $cols = 70; }
- if ($rows < 20) { $rows = 20; }
- $result.='
+ if ( $ENV{'form.submit'} eq &mt('Submit Changes and View') ) {
+ &Apache::lonhomework::showhashsubset(\%ENV,'^form');
+ $ENV{'form.problemmode'}='View';
+ &renderpage($request,$file);
+ } else {
+ my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);
+ my $xml_help = Apache::loncommon::helpLatexCheatsheet("Problem_Editor_XML_Index",
+ "Problem Editing Help");
+ if ($cols > 80) { $cols = 80; }
+ if ($cols < 70) { $cols = 70; }
+ if ($rows < 20) { $rows = 20; }
+ $result.='
';
- $request->print($result);
- }
- return '';
+ $request->print($result);
+ }
+ return '';
}
sub renderpage {
- my ($request,$file) = @_;
+ my ($request,$file) = @_;
- my (@targets) = &get_target();
- &Apache::lonxml::debug("Running targets ".join(':',@targets));
- foreach my $target (@targets) {
- #my $t0 = [&gettimeofday()];
- my $problem=&Apache::lonnet::getfile($file);
- if ($problem eq -1) {
- &Apache::lonxml::error(" Unable to find $file");
- $problem='';
- }
+ my (@targets) = &get_target();
+ &Apache::lonxml::debug("Running targets ".join(':',@targets));
+ foreach my $target (@targets) {
+ #my $t0 = [&gettimeofday()];
+ my $problem=&Apache::lonnet::getfile($file);
+ if ($problem eq -1) {
+ &Apache::lonxml::error(" ".&mt('Unable to find')." $file");
+ $problem='';
+ }
- my %mystyle;
- my $result = '';
- if ($target eq 'analyze') { %Apache::lonhomework::analyze=(); }
- if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); }
- if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');}
-
- &Apache::lonxml::debug("Should be parsing now");
- $result = &Apache::lonxml::xmlparse($request, $target, $problem,
- &setup_vars($target),%mystyle);
- undef($Apache::lonhomework::parsing_a_problem);
- #$request->print("Result follows:");
- if ($target eq 'modified') {
- &handle_save_or_undo($request,\$problem,\$result);
- } else {
- if ($target eq 'analyze') {
- $result=&Apache::lonnet::hashref2str(\%Apache::lonhomework::analyze);
- undef(%Apache::lonhomework::analyze);
- }
- #my $td=&tv_interval($t0);
- #if ( $Apache::lonxml::debug) {
- #$result =~ s:::;
- #$result.=" Spent $td seconds processing target $target\n";
- #}
- $request->print($result);
- $request->rflush();
+ my %mystyle;
+ my $result = '';
+ if ($target eq 'analyze') { %Apache::lonhomework::analyze=(); }
+ if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); }
+ if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');}
+
+ &Apache::lonxml::debug("Should be parsing now");
+ $result = &Apache::lonxml::xmlparse($request, $target, $problem,
+ &setup_vars($target),%mystyle);
+ undef($Apache::lonhomework::parsing_a_problem);
+ #$request->print("Result follows:");
+ if ($target eq 'modified') {
+ &handle_save_or_undo($request,\$problem,\$result);
+ } else {
+ if ($target eq 'analyze') {
+ $result=&Apache::lonnet::hashref2str(\%Apache::lonhomework::analyze);
+ undef(%Apache::lonhomework::analyze);
+ }
+ #my $td=&tv_interval($t0);
+ #if ( $Apache::lonxml::debug) {
+ #$result =~ s:::;
+ #$result.=" Spent $td seconds processing target $target\n";
+ #}
+ $request->print($result);
+ $request->rflush();
+ }
+ #$request->print(":Result ends");
+ #my $td=&tv_interval($t0);
}
- #$request->print(":Result ends");
- #my $td=&tv_interval($t0);
- }
}
# with no arg it returns a HTML \n';
- }
- return $result;
+ if (@allnames && !$result) {
+ $result="\n';
+ }
+ return $result;
}
sub newproblem {
@@ -590,122 +644,141 @@ sub newproblem {
&renderpage($request,$dest);
} else {
my $url=$request->uri;
+ my $shownurl=$url;
+ $shownurl=~s-^/~-/priv/-;
my $dest = &Apache::lonnet::filelocation("",$request->uri);
my $errormsg;
if ($ENV{'form.newfile'}) {
- $errormsg='
You did not select a template.
'."\n";
+ $errormsg='
'.&mt('You did not select a template.').'
'."\n";
}
my $instructions;
- if ($templatelist) { $instructions=", select a template from the pull-down menu below. Then";}
+ if ($templatelist) { $instructions=&mt(", select a template from the pull-down menu below.").' '.&mt("Then");}
+ my %lt=&Apache::lonlocal::texthash( 'create' => 'Creating a new',
+ 'resource' => 'resource',
+ 'requested' => 'The requested file',
+ 'not exist' => 'currently does not exist',
+ 'createnew' => 'To create a new',
+ 'click' => 'click on the',
+ 'Create' => 'Create',
+ 'button' => 'button');
$request->print(<
-
Creating a new $extension resource
+
$lt{'create'} $extension $lt{'resource'}
$errormsg
-The requested file $url currently does not exist.
+$lt{'requested'} $shownurl $lt{'not exist'}.
-To create a new $extension$instructions click on the "Create $extension" button.
+$lt{'createnew'} $extension$instructions $lt{'click'} "$lt{'Create'} $extension" $lt{'button'}.
");
}
return '';
}
sub view_or_edit_menu {
- my ($request) = @_;
- my $url=$request->uri;
- $request->print(<