'."\n";
if ($target eq 'web' || $target eq 'webgrade') {
@@ -502,16 +456,33 @@ sub start_Task {
my (undef,undef,$domain,$user)=
&Apache::lonxml::whichuser();
my $files = '
';
+ my $msg;
foreach my $file (@files) {
my $url="/uploaded/$domain/$user/portfolio$file";
- if (! &Apache::lonnet::stat_file($url)) {
- $file = &mt(' Nonexistant file: [_1]',$file);
- } else {
- $file = ''.$file.'';
- }
+ $file = ''.$file.'';
$files .= '- '.$file.'
';
+ $msg .= "Submitted file $file
\n";
}
$files.='
';
+ my $subject = "Submission message for $title";
+ my ($message_status,$comment_status);
+ my $setting = $env{'course.'.$env{'request.course.id'}.'.task_messages'};
+ $setting =~ s/^\s*(\S*)\s*$/$1/;
+ $setting = lc($setting);
+ if ($setting eq 'only_student'
+ || $setting eq 'student_and_user_notes_screen') {
+ $message_status =
+ &Apache::lonmsg::user_normal_msg($user,$domain,$subject,$msg);
+ $message_status = '
'.&mt('Message sent to user: [_1]',
+ $message_status).'
';
+ }
+ if ($setting eq 'student_and_user_notes_screen') {
+ $comment_status =
+ &Apache::lonmsg::store_instructor_comment($subject.'
'.
+ $msg,$user,$domain);
+ $comment_status = '
'.&mt('Message sent to instructor: [_1]',
+ $comment_status).'
';
+ }
$result.=<
$title
@@ -520,6 +491,8 @@ sub start_Task {
Logout
Change to a different course
+$message_status
+$comment_status
DONESCREEN
} elsif ($status ne 'NOT_YET_VIEWED') {
$msg.=''.&mt('Not open to be viewed').'
';
@@ -547,7 +520,7 @@ DONESCREEN
}
} elsif ($target eq 'web') {
$result.="$head_tag_start
- $body_tag_start \n".&style();
+ $body_tag_start \n";
$result.=&preserve_grade_info();
$result.=&internal_location();
@@ -559,7 +532,11 @@ DONESCREEN
$target eq 'webgrade') {
my $webgrade='yes';
if ($target eq 'webgrade') {
- $result.=$head_tag_start.''.$body_tag_start;
+ $result.=$head_tag_start.
+ ''.$body_tag_start.
+ "\n".''."\n".
+ '';
#$result.='
Review'.&show_queue('reviewqueue');
#$result.='
Grade'.&show_queue('gradingqueue');
}
@@ -1019,7 +996,7 @@ DONEBUTTON
&Apache::structuretags::finalize_storage();
}
} elsif ($target eq 'webgrade') {
- $result.="
\n
";
+ $result.=" ";
#$result.='