[BACK]Return to essayresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/essayresponse.pm between versions 1.34 and 1.36

version 1.34, 2004/03/31 05:23:59 version 1.36, 2004/09/01 19:42:26
Line 73  sub start_essayresponse { Line 73  sub start_essayresponse {
  &mt('Allowed filetypes: <b>[_1]</b>',$uploadedfiletypes).   &mt('Allowed filetypes: <b>[_1]</b>',$uploadedfiletypes).
  '<br />';   '<br />';
            if ($uploadedfile) {             if ($uploadedfile) {
        my $curfile='<a href="'.&Apache::lonnet::tokenwrapper($Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}).         my $url=$Apache::lonhomework::history{"resource.$part.$id.uploadedurl"};
          push (@Apache::lonxml::extlinks,$url);
          &Apache::lonnet::allowuploaded('/adm/essayresponse',$url);
          my $curfile='<a href="'.$url.
    '"><img src="/adm/lonIcons/unknown.gif" border=0" /> '.     '"><img src="/adm/lonIcons/unknown.gif" border=0" /> '.
    $uploadedfile.'</a>';     $uploadedfile.'</a>';
        $result.=&mt('Currently submitted: <tt>[_1]</tt>',$curfile);         $result.=&mt('Currently submitted: <tt>[_1]</tt>',$curfile);
Line 122  sub end_essayresponse { Line 125  sub end_essayresponse {
            if ($uploadedfiletypes=~/\,$extension\,/i) {             if ($uploadedfiletypes=~/\,$extension\,/i) {
               $Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename;                $Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename;
                       $Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=                        $Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=
                          &Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id);                           &Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id,undef,'essayresponse');
                       $uploadedflag=1;                        $uploadedflag=1;
    } else {     } else {
       $award='INVALID_FILETYPE';        $award='INVALID_FILETYPE';
Line 158  sub end_essayresponse { Line 161  sub end_essayresponse {
  if ($Apache::lonhomework::type eq 'exam') {   if ($Apache::lonhomework::type eq 'exam') {
     my $repetition=&Apache::response::repetition();      my $repetition=&Apache::response::repetition();
     $result.='\begin{enumerate}';      $result.='\begin{enumerate}';
       if ($ENV{'request.state'} eq "construct" ) {$result.='\item[\strut]';}
     for (my $i=0;$i<$repetition;$i++) {      for (my $i=0;$i<$repetition;$i++) {
  $result.='\item[\textbf{'.($Apache::lonxml::counter+$i).   $result.='\item[\textbf{'.($Apache::lonxml::counter+$i).
     '}.]\textit{'.&mt('Leave blank on scoring form').      '}.]\textit{'.&mt('Leave blank on scoring form').
Removed from v.1.34  
changed lines
  Added in v.1.36

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