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

Diff for /loncom/imspackages/imsimportdocs.pm between versions 1.25 and 1.26

version 1.25, 2009/11/20 11:16:59 version 1.26, 2009/11/20 14:39:32
Line 269  sub display_two { Line 269  sub display_two {
     my %hrefs = ();      my %hrefs = ();
     my %resinfo = ();      my %resinfo = ();
     my %count = ();      my %count = ();
     my @bgcolors = ("#eeeeee","#dddddd");  
   
     my $counter = 0;      my $counter = 0;
     my $iter = 0;  
     my %count = (      my %count = (
                 announce => 0,                  announce => 0,
                 board => 0,                  board => 0,
Line 337  sub display_two { Line 334  sub display_two {
         }          }
     }      }
   
             $r->print(<<ENDBLOCK);  
 <form name="pickoptions" method="post">      # Start output: Step 3 and step 4
   <table border='0' bgcolor='#F6F6F6'' cellspacing='0' cellpadding ='0' width='100%'>  
    <tr>      $r->print(
     <td colspan='2'>          '<form name="pickoptions" method="post">'
      <table border='0' cellspacing='0' cellpadding='0'>         .&Apache::lonhtmlcommon::topic_bar(
       <tr>              3,&mt('Choose which content types you wish to import'))
        <td colspan='2'  align='left'>&nbsp;         .'<p>'
        </td>         .&mt('Check the checkboxes for all areas you wish to import from the IMS package:')
       </tr>         .'</p>'
       <tr bgcolor='#CCCCFF'>      );
        <td valign="middle"><img src="/res/adm/pages/bl_step3.gif" alt="3" />  
        </td>      $r->print(
        <td width='100%' align='left'>&nbsp;&nbsp;          &Apache::loncommon::start_data_table()
         <font face='arial,helvetica,sans-serif'><b>Choose which content types you wish to import</b></font>         .&Apache::loncommon::start_data_table_header_row()
        </td>         .'<th>'.&mt('Import?').'</th>'
       </tr>         .'<th>'.&mt('Content type').'</th>'
       <tr>         .'<th>'.&mt('Additional options').'</th>'
        <td colspan='2'>&nbsp;</td>         .&Apache::loncommon::end_data_table_header_row()
       </tr>      );
       <tr>  
        <td>&nbsp;</td>      # Display import row for each area/content type
        <td>      foreach my $area (@{$areasref}) {
         <table border='0' cellspacing='0' cellpadding='1' bgcolor='#000000'>          unless ($count{$area} > 0) { next };
          <tr>  
           <td>          my $count_tag = 'flag_'.$counter;
            <table border='0' cellspacing='0' cellpadding='0' bgcolor='#ffffff' width='100%'>  
             <tr>          # Checkbox: Import?
              <td>          $r->print(
               <table border='0' cellspacing='1' cellpadding='1' bgcolor='#ffffff' width='100%'>              &Apache::loncommon::start_data_table_row()
                <tr bgcolor='#CCCCFF'>             .'<td><input name="'.$area.'" type="checkbox"'
                 <td align='center'><font face='arial,helvetica,sans-serif'><b>Import?</b></font></td>                     );
                 <td align='center'><font face='arial,helvetica,sans-serif'><b>Content type</b></font></td>          if ($area eq 'board' || $area eq 'users') {
                 <td align='center'><font face='arial,helvetica,sans-serif'><b>Additional options</b></font></td>              $r->print(qq| onclick='javascript:setOptions("$area","$counter")'|);
                </tr>          }
 ENDBLOCK  
             foreach my $area (@{$areasref}) {          $r->print(' /></td>');
                 if ($count{$area} > 0) {  
                     my $count_tag = 'flag_'.$counter;          # Content Type
                     $r->print("               <tr bgcolor='@bgcolors[$iter]'>          $r->print(
                 <td align='left'><font face='arial,helvetica,sans-serif'><input name='$area' type='checkbox' ");              '<td>'
                     if ($area eq 'board' || $area eq 'users') {             .$$areaname{$area}.'&nbsp;&nbsp; - '
                         $r->print(qq|onClick='javascript:setOptions("$area","$counter")'|);             .&mt('[quant,_1,item]',$count{$area})
                     }             .'</td>'
                     $r->print("/></font></td>          );
                 <td align='left'><font face='arial,helvetica,sans-serif'>&nbsp;&nbsp;$$areaname{$area}&nbsp;&nbsp; - $count{$area} item(s)</font></td>");  
                     if ($area eq 'board') {          # Additional Options
                         $r->print("            <td align='left'><font face='arial,helvetica,sans-serif'>&nbsp;&nbsp;          $r->print('<td>');
                  <select name='db_handling'>          if ($area eq 'board') {
                   <option value='-2'>&lt;-- Check Import first</option>              $r->print(
                  </select></font>                  '<select name="db_handling">'
                 </td>");                 .'<option value="-2">&lt;-- '.&mt('Check Import first').'</option>'
                     } elsif ($area eq 'users') {                 .'</select>'
                         $r->print("            <td align='left'><font face='arial,helvetica,sans-serif'>&nbsp;&nbsp;              );
                  <select name='user_handling'>          } elsif ($area eq 'users') {
                   <option value='-2'>&lt;-- Check Import first</option>              $r->print(
                  </select>                  '<select name="user_handling">'
                  </font>                         .'<option value="-2">&lt;-- '.&mt('Check Import first').'</option>'
                 </td>");                 .'</select>'
                     } else {              );
                         $r->print("            <td align='left'><font face='arial,helvetica,sans-serif'>&nbsp;&nbsp;None<input type='hidden' name='$count_tag' /></font></td>");          } else {
                     }              $r->print(
                     $counter ++;                  &mt('None')
                     $iter = $counter%2;                 .'<input type="hidden" name="'.$count_tag.'" />'
                 }              );
             }          }
             $r->print(<<ENDDOCUMENT);          $r->print('</td>');
                </tr>  
               </table>          $r->print(&Apache::loncommon::end_data_table_row());
              </td>          $counter ++;
             </tr>      }
            </table>  
           </td>      $r->print(&Apache::loncommon::end_data_table());
          </tr>  
         </table>      $r->print(
        </td>          &Apache::lonhtmlcommon::topic_bar(
       </tr>              4,&mt('Choose display options for listing of contents of top level of package'))
       <tr>         .'<p>'
        <td colspan='2'>&nbsp;<br /><br /></td>         .&mt('Select a display option for the package content:')
       </tr>         .'</p>'
       <tr bgcolor='#CCCCFF'>      );
        <td valign="middle"><img src="/res/adm/pages/bl_step4.gif" alt="4" />      $r->print(
        </td>          '<label>'
        <td width='100%' align='left'>&nbsp;&nbsp;         .'<input type="radio" name="toplevel" value="newfolder" />'
         <font face='arial,helvetica,sans-serif'><b>Choose display options for listing of contents of top level of package</b></font>         .&mt('Display listing of contents in a new folder, with folder name:')
        </td>         .'</label>'
       </tr>         .' <input type="text" name="foldername" size="15" value="'.&mt('Type Name Here').'" />'
       <tr>         .'<br />'
        <td colspan='2'>&nbsp;</td>         .'<label>'
       </tr>         .'<input type="radio" name="toplevel" value="oldfolder" />'
       <tr>         .&mt('Append listing of contents of top level of package to contents list for the current folder.')
        <td>&nbsp;</td>         .'</label>'
        <td>      );
         <table border='0'>  
          <tr>      # Buttons
           <td><font face='arial,helvetica,sans-serif'><label><input type="radio" name="toplevel" value="newfolder" />Display listing of contents in a new folder, with folder name:</label>&nbsp;&nbsp;&nbsp;<input type="text" name="foldername" size="15" value="Type Name Here" /></font></td>      $r->print(
          </tr>          '<input type="hidden" name="folder" value="'.$env{'form.folder'}.'" />'
          <tr>         .'<input type="hidden" name="source" value="'.$cms.'" />'
           <td><font face='arial,helvetica,sans-serif'><label><input type="radio" name="toplevel" value="oldfolder" />Append listing of contents of top level of package to contents list for the current folder.</label></font></td>         .'<input type="hidden" name="tempdir" value="'.$tempdir.'" />'
          </tr>         .'<input type="hidden" name="phase" value="three" />'
         </table>      );
        </td>      $r->print(
       </tr>          '<hr />'
       <tr>         .'<p>'
        <td colspan='2'>&nbsp;</td>         .'<input type="button" name="exitpage" value="'.&mt('Cancel').'"'
       </tr>         .' onclick="javascript:self.close()" />'
       <tr>         .' '
        <td>&nbsp;</td>         .'<input type="button" name="nextpage" value="'.&mt('Finish Import').'"'
        <td><font face='arial,helvetica,sans-serif'>Once you have checked the checkboxes for all areas you wish to import from the IMS package, selected options (if available), and selected a display option for the package contents you should click the 'Complete Import' button.</font></td>         .' onclick="javascript:nextPage('.$counter.')" />'
       </tr>         .'</p>'
       <tr>      );
        <td colspan='2'>&nbsp;  
           <input type="hidden" name="folder" value="$env{'form.folder'}" />     $r->print('</form>');
           <input type="hidden" name="source" value="$cms" />  
           <input type="hidden" name="tempdir" value="$tempdir" />  
           <input type="hidden" name="phase" value="three" />  
        </td>  
       </tr>  
       <tr>  
        <td colspan='2'>  
         <table border='0' cellspacing='0' cellpadding='0' width="100%">  
          <tr>  
           <td align='left'>  
            <input type='button' name='exitpage' value='Cancel' onClick="javascript:self.close()" />  
           </td>  
           <td align='right'>  
            <input type="button" name="nextpage" value="Complete Import" onClick="javascript:nextPage($counter)" />  
           </td>  
          </tr>  
         </table>  
        </td>  
       </tr>  
      </table>  
     </td>  
    </tr>  
   </table>  
 ENDDOCUMENT  
 }  }
   
   
Removed from v.1.25  
changed lines
  Added in v.1.26

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