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

Diff for /loncom/publisher/lonupload.pm between versions 1.24 and 1.25

version 1.24, 2003/11/08 11:13:50 version 1.25, 2004/02/17 15:23:53
Line 79  sub upfile_store { Line 79  sub upfile_store {
   
   
 sub phaseone {  sub phaseone {
     my ($r,$fn,$uname,$udom)=@_;      my ($r,$fn,$uname,$udom,$mode)=@_;
       my $action = '/adm/upload';
       if ($mode eq 'testbank') {
           $action = '/adm/testbank';
       } elsif ($mode eq 'imsimport') {
           $action = '/adm/imsimport';
       }
     $ENV{'form.upfile.filename'}=~s/\\/\//g;      $ENV{'form.upfile.filename'}=~s/\\/\//g;
     $ENV{'form.upfile.filename'}=~s/^.*\/([^\/]+)$/$1/;      $ENV{'form.upfile.filename'}=~s/^.*\/([^\/]+)$/$1/;
     if ($ENV{'form.upfile.filename'}) {      if ($ENV{'form.upfile.filename'}) {
Line 94  sub phaseone { Line 100  sub phaseone {
   
  &Debug($r, "Filename for upload: $fn");   &Debug($r, "Filename for upload: $fn");
  if (($fn) && ($fn!~/\/$/)) {   if (($fn) && ($fn!~/\/$/)) {
     $r->print('<form action="/adm/upload" method="post">'.      $r->print('<form action="'.$action.'" method="post">'.
       '<input type="hidden" name="phase" value="two" />'.        '<input type="hidden" name="phase" value="two" />'.
       '<input type="hidden" name="datatoken" value="'.        '<input type="hidden" name="datatoken" value="'.
       &upfile_store.'" />'.        &upfile_store.'" />'.
       '<input type="hidden" name="uploaduname" value="'.$uname.        '<input type="hidden" name="uploaduname" value="'.$uname.
       '" />'.&mt('Store uploaded file as ').        '" />'.&mt('Store uploaded file as ').
       "<tt>/priv/$uname/</tt>".                        "<tt>/priv/$uname/</tt>".
       '<input type="text" size="50" name="filename" value="'.$fn.                        '<input type="text" size="50" name="filename" value="'.$fn.
       '" /><br />'.                        '" /><br />');
       '<input type="submit" value="'.&mt('Store').'" /></form>');              $r->print('<br />'.&mt('Please indicate the type of file you are uploading. The possible types of file are as follows:').'
   <ul>
    <li><b>'.&mt('Regular file:').'</b>'.&mt(' A file that requires no special handling during upload. The "Regular file" designation applies to html files, image files etc., as well as to zip, tar or gzip files that you wish to decompress after upload. In the case of a zip/tar/gz file etc., once the file has been uploaded, a "Decompress" link will automatically be displayed adjacent to the name of the file in the display of construction space directory contents. You will be able to decompress this file by clicking the link.').'</li>     
    <li><b>'.&mt('Testbank file:').'</b>'.&mt(' a testbank file containing plain text (ascii) questions and answers, which you plan to convert to LON-CAPA problems. The following question types can be converted: 1 of N multiple choice questions, individual True/False questions, groups of True/False questions, Fill-in-the-blank questions, Ranking questions, and Essay/short answer questions. Specific information about the format of the questions, foils, and correct answers is available ').'<a href="javascript:testbankWin()">'.&mt('here').'</a>,'.&mt(' and is also included in the pages displayed during step-by-step conversion of the testbank. The original testbank file can be removed from your construction space later, once the testbank questions have been converted.').'</li>
   <li><b>'.&mt('IMS package').':</b>'.&mt(' a file containing course content from another Course Management System (e.g., Blackboard or ANGEL) packaged according to the IMS 1.1 specification.  The original IMS package file can be removed from your construction space later, once the package has been decompressed and the files converted to LON-CAPA sequence, page, problem, or bulletin board files, or stored as html, image or movie files etc., as appropriate.').'</li>
   </ul>
   <br />'.&mt('Choose file type:').'
   <select name="filetype">
    <option value="standard" selected>'.&mt('Regular file').'
    <option value="testbank">'.&mt('Testbank file').'
    <option value="imsimport">'.&mt('IMS package').'
   </select>
   <br />
   <br />
   ');
               $r->print('<input type="button" value="'.&mt('Store').'" onClick="javascript:verifyForm()"/></form>');
     # Check for bad extension and warn user      # Check for bad extension and warn user
     if ($fn=~/\.(\w+)$/ &&       if ($fn=~/\.(\w+)$/ && 
  (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {   (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
Line 126  sub phaseone { Line 147  sub phaseone {
 }  }
   
 sub phasetwo {  sub phasetwo {
     my ($r,$tfn,$uname,$udom)=@_;      my ($r,$tfn,$uname,$udom,$mode)=@_;
       my $action = '/adm/upload';
       my $returnflag = '';
       if ($mode eq 'testbank') {
           $action = '/adm/testbank';
       } elsif ($mode eq 'imsimport') {
           $action = '/adm/imsimport';
       }
     my $fn='/priv/'.$uname.'/'.$tfn;      my $fn='/priv/'.$uname.'/'.$tfn;
     $fn=~s/\/+/\//g;      $fn=~s/\/+/\//g;
     &Debug($r, "Filename is ".$tfn);      &Debug($r, "Filename is ".$tfn);
Line 143  sub phasetwo { Line 171  sub phasetwo {
  my $datatoken=$ENV{'form.datatoken'};   my $datatoken=$ENV{'form.datatoken'};
  if (($fn) && ($datatoken)) {   if (($fn) && ($datatoken)) {
     if ((-e $target) && ($ENV{'form.override'} ne 'Yes')) {      if ((-e $target) && ($ENV{'form.override'} ne 'Yes')) {
  $r->print('<form action="/adm/upload" method="post">'.   $r->print('<form action="'.$action.'" method="post">'.
   &mt('File').' <tt>'.$fn.'</tt> '.    &mt('File').' <tt>'.$fn.'</tt> '.
   &mt('exists. Overwrite?').' '.    &mt('exists. Overwrite?').' '.
   '<input type="hidden" name="phase" value="two" />'.    '<input type="hidden" name="phase" value="two" />'.
Line 180  sub phasetwo { Line 208  sub phasetwo {
       &mt('Back to Directory').'</a></font>');        &mt('Back to Directory').'</a></font>');
  } elsif (copy($source,$target)) {   } elsif (copy($source,$target)) {
     chmod(0660, $target); # Set permissions to rw-rw---.      chmod(0660, $target); # Set permissions to rw-rw---.
     $r->print(&mt('File copied.'));                      if ($mode eq 'testbank' || $mode eq 'imsimport') {
     $r->print('<br /><font size="+2"><a href="'.$url.'">'.                          $r->print(&mt("Your file - $fn - was uploaded successfully")."<br /><br />");
                           $returnflag = 'ok';
                       } else {
                           $r->print(&mt('File copied.'));
           $r->print('<br /><font size="+2"><a href="'.$url.'">'.
       &mt('View file').'</a></font>');        &mt('View file').'</a></font>');
     $r->print('<br /><font size="+2"><a href="'.$path.'">'.          $r->print('<br /><font size="+2"><a href="'.$path.'">'.
       &mt('Back to Directory').'</a></font><br />');        &mt('Back to Directory').'</a></font><br />');
                       }
  } else {   } else {
     $r->print('Failed to copy: '.$!);      $r->print('Failed to copy: '.$!);
     $r->print('<br /><font size="+2"><a href="'.$path.'">'.      $r->print('<br /><font size="+2"><a href="'.$path.'">'.
Line 201  sub phasetwo { Line 234  sub phasetwo {
   &mt('Please use browser "Back" button and pick a filename').    &mt('Please use browser "Back" button and pick a filename').
   '</font><br />>');    '</font><br />>');
     }      }
       return $returnflag;
 }  }
   
 # ---------------------------------------------------------------- Main Handler  # ---------------------------------------------------------------- Main Handler
Line 210  sub handler { Line 244  sub handler {
   
     my $uname;      my $uname;
     my $udom;      my $udom;
       my $javascript = '';
 #  #
 # phase two: re-attach user  # phase two: re-attach user
 #  #
Line 217  sub handler { Line 252  sub handler {
  $ENV{'form.filename'}='/priv/'.$ENV{'form.uploaduname'}.'/'.   $ENV{'form.filename'}='/priv/'.$ENV{'form.uploaduname'}.'/'.
     $ENV{'form.filename'};      $ENV{'form.filename'};
     }      }
 #  
   
       unless ($ENV{'form.phase'} eq 'two') {
           $javascript = qq|
   function verifyForm() {
       var mode = document.forms[0].filetype.options[document.forms[0].filetype.selectedIndex].value
       if (mode == "testbank") {
           document.forms[0].action = "/adm/testbank";
       }
       if (mode == "imsimport") {
           document.forms[0].action = "/adm/imsimport";
       }
       if (mode == "standard") {
           document.forms[0].action = "/adm/upload";
       }
       document.forms[0].submit();
   }
   
   function testbankWin() {
     newWindow = window.open("","testbankinfo","HEIGHT=400,WIDTH=750,scrollbars=yes")
     newWindow.document.open()
     newWindow.document.write("<html><head><title>'Importing a Testbank file into LON-CAPA</title><meta http-equiv='pragma' content='no-cache'>\\n")
     newWindow.document.write("</head><body bgcolor='#CCFFDD' topmargin='0' leftmargin='0' marginheight='0'marginwidth='0' rightmargin='0'>\\n")
     newWindow.document.write("<img border='0' src='/adm/lonInterFace/author.jpg' alt='[Author Header]'>\\n")
     newWindow.document.write("<table border='0' cellspacing='0' cellpadding='0' width='95%' bgcolor='#CCFFDD'>\\n")
     newWindow.document.write("<tr><td width='2'>&nbsp;</td><td width='3'>&nbsp;</td>\\n")
     newWindow.document.write("<td><font face='arial,helvetica,sans-serif'><h3>Importing Testbank questions into LON-CAPA</h3>")
     newWindow.document.write("<font face='arial,helvetica,sans-serif'><br />Four requirements must be met to ensure that you will succeed in building LON-CAPA problem files using your plain text file containing testbank questions.")
     newWindow.document.write("<ol><li>The questions and answers you upload must be in plain text format.  Any header lines should occur before the text containing the questions and answers.</li>")
     newWindow.document.write("<li>All questions must occur before any of the answers.  Each question should be numbered sequentially using a number followed immediately by a space, a period, or enclosed in parentheses, i.e., 1 , 1., (1), 1), or (1 .</li>")
      newWindow.document.write("<li>One or more correct answers should be provided for all questions (although blank answers may be provided for <i>essay</i> questions).  Answers should be numbered sequentially, using the same scheme as used for the questions, and must occur after all the questions.")
       newWindow.document.write("<li><i>Multiple choice</i> and <i>multiple answer correct</i> questions should consist of (i) the question number followed by (ii) a question stem beginning on the same line and (iii) two or more foils, with each foil beginning on a new line and prefixed by a unique letter, or Roman numeral, listed in alphabetic or numeric order, beginning at a (alphabetic) or i (Roman numeral), followed by a period, or enclosed in parentheses, i.e., a., (a), i., or (i) .</li>")
        newWindow.document.write("<li>If <i>fill-in-the-blank</i> or <i>multiple answer</i> questions have more than one correct answer, each answer should appear in a comma-, tab-, space-, or new line-delimited list. </li></ol>")
     newWindow.document.write("</td></tr>\\n")
     newWindow.document.write("</table></body></html>")
     newWindow.document.close()
     newWindow.focus()
   }
   |;
       }
     ($uname,$udom)=      ($uname,$udom)=
  &Apache::loncacc::constructaccess($ENV{'form.filename'},   &Apache::loncacc::constructaccess($ENV{'form.filename'},
   $r->dir_config('lonDefDomain'));    $r->dir_config('lonDefDomain'));
Line 249  sub handler { Line 321  sub handler {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
   
     $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');      $r->print("<html><head><title>LON-CAPA Construction Space</title><script type=\"text/javascript\">\n//<!--\n$javascript\n// --></script>\n</head>");
   
     $r->print(&Apache::loncommon::bodytag('Upload file to Construction Space'));      $r->print(&Apache::loncommon::bodytag('Upload file to Construction Space'));
       
Removed from v.1.24  
changed lines
  Added in v.1.25

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