Annotation of loncom/imspackages/imsimport.pm, revision 1.46
1.25 www 1: # The LearningOnline Network with CAPA
2: #
1.46 ! raeburn 3: # $Id: imsimport.pm,v 1.45 2013/09/30 17:42:12 bisitz Exp $
1.25 www 4: #
1.7 raeburn 5: # Copyright Michigan State University Board of Trustees
6: #
7: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
8: #
9: # LON-CAPA is free software; you can redistribute it and/or modify
10: # it under the terms of the GNU General Public License as published by
11: # the Free Software Foundation; either version 2 of the License, or
12: # (at your option) any later version.
13: #
14: # LON-CAPA is distributed in the hope that it will be useful,
15: # but WITHOUT ANY WARRANTY; without even the implied warranty of
16: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17: # GNU General Public License for more details.
18: #
19: # You should have received a copy of the GNU General Public License
20: # along with LON-CAPA; if not, write to the Free Software
21: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22: #
23: # /home/httpd/html/adm/gpl.txt
24: #
25: # http://www.lon-capa.org/
26: #
27:
1.1 raeburn 28: package Apache::imsimport;
29:
1.4 raeburn 30: use strict;
31: use Apache::Constants qw(:common :http :methods);
32: use Apache::loncommon();
33: use Apache::lonnet;
1.5 raeburn 34: use Apache::imsprocessor;
1.23 raeburn 35: use Apache::lonlocal;
1.4 raeburn 36: use HTML::Parser;
37: use HTML::Entities();
38: use Apache::lonlocal;
39: use Apache::lonupload;
1.5 raeburn 40: use File::Basename();
1.21 albertel 41: use LONCAPA;
42:
1.5 raeburn 43: # ---------------------------------------------------------------- Jscript One
44: sub jscript_one {
1.36 raeburn 45: my ($fullpath,$formname) = @_;
1.14 albertel 46:
1.20 albertel 47: my %body_layout = ('rightmargin' => "0",
48: 'leftmargin' => "0",
49: 'marginwidth' => "0",
50: 'topmargin' => "0",
51: 'marginheight' => "0");
1.14 albertel 52: my $start_page =
53: &Apache::loncommon::start_page('Create IMS import directory',undef,
54: {'only_body' => 1,
1.20 albertel 55: 'add_entries' => \%body_layout,
1.14 albertel 56: 'js_ready' => 1,});
57: my $end_page =
58: &Apache::loncommon::end_page({'js_ready' => 1,});
59:
1.23 raeburn 60: my %lt = &Apache::lonlocal::texthash(
61: ddir => 'You must choose a destination directory for the import',
62: cmss => 'You must choose the Course Management System from which the IMS package was exported',
63: loca => 'Location:',
64: newd => 'New Directory',
65: nndi => 'Enter the name of the new directory where you will store the contents of your IMS package.',
66: go => 'Go',
67: );
1.36 raeburn 68: return <<"END_OF_ONE";
1.1 raeburn 69: function verify() {
1.23 raeburn 70: if ((document.forms.$formname.newdir.value == '') || (!document.forms.$formname.newdir.value)) {
71: alert('$lt{'ddir'}')
1.1 raeburn 72: return false
73: }
1.23 raeburn 74: if (document.forms.$formname.source.selectedIndex == 0) {
75: alert('$lt{'cmss'}');
1.1 raeburn 76: return false
1.2 raeburn 77: }
1.1 raeburn 78: return true
79: }
1.2 raeburn 80:
1.1 raeburn 81: function nextPage() {
1.5 raeburn 82: if (verify()) {
1.23 raeburn 83: document.forms.$formname.submit();
1.5 raeburn 84: }
1.1 raeburn 85: }
86:
87: function createWin() {
1.23 raeburn 88: document.$formname.newdir.value = "";
1.1 raeburn 89: newWindow = window.open("","CreateDir","HEIGHT=400,WIDTH=750,scrollbars=yes")
90: newWindow.document.open()
1.14 albertel 91: newWindow.document.write('$start_page')
1.30 bisitz 92: newWindow.document.write("\\n<img border='0' src='/adm/lonInterFace/author.jpg' alt='[Author Header]' />\\n")
1.23 raeburn 93: newWindow.document.write("<table border='0' cellspacing='0' cellpadding='0' width='600'>\\n")
1.1 raeburn 94: newWindow.document.write("<tr><td width='2'> </td><td width='3'> </td>\\n")
1.23 raeburn 95: newWindow.document.write("<td><h3>$lt{'loca'} <tt>$fullpath</tt></h3><h3>$lt{'newd'}</h3></td></tr>\\n")
1.1 raeburn 96: newWindow.document.write("<tr><td width='2'> </td><td width='3'> </td>\\n")
97: newWindow.document.write("<td><form name='fileaction' action='/adm/cfile' method='post'>\\n")
1.23 raeburn 98: newWindow.document.write("$lt{'nndi'}<br /><br />")
1.15 albertel 99: newWindow.document.write("<input type='hidden' name='filename' value='$fullpath' />")
100: newWindow.document.write("<input type='hidden' name='action' value='newdir' />")
101: newWindow.document.write("<input type='hidden' name='callingmode' value='imsimport' />")
102: newWindow.document.write("$fullpath<input type='text' name='newfilename' value='' />")
1.41 bisitz 103: newWindow.document.write("<input type='button' value='$lt{'go'}' onclick='document.fileaction.submit();' />")
1.1 raeburn 104: newWindow.document.write("</td></tr>\\n")
1.14 albertel 105: newWindow.document.write("</table>")
106: newWindow.document.write('$end_page')
1.1 raeburn 107: newWindow.document.close()
108: newWindow.focus()
109: }
1.2 raeburn 110:
1.5 raeburn 111: END_OF_ONE
112:
113: }
114:
115: # ---------------------------------------------------------------- Jscript Two
116: sub jscript_two {
1.36 raeburn 117: my ($user,$dom,$numcrs) = @_;
1.5 raeburn 118: my %crsentry = ();
119: my $course_list;
120: my $title_list;
121: my @crslist = ();
122: &get_ccroles($user,$dom,\%crsentry,\@crslist);
123: if (@crslist > 0) {
124: $crsentry{$crslist[0]} =~ s/("|,)//g;
125: $title_list = '"'.$crsentry{$crslist[0]}.'"';
126: if (@crslist > 1) {
127: for (my $i=1; $i<@crslist; $i++) {
128: $crsentry{$crslist[$i]} =~ s/("|,)//g;
129: $title_list .= ',"'.$crsentry{$crslist[$i]}.'"';
130: }
131: }
132: }
133: $course_list = '"'.join('","',@crslist).'"';
134: $$numcrs = @crslist;
135:
1.45 bisitz 136: my %lt = &Apache::lonlocal::texthash(
137: sel => 'Please select',
138: impto => 'Import topics only',
139: imptpa => 'Import topics + posts (with author)',
140: imptpn => 'Import topics + posts (no author)',
141: enrst => 'Enroll students only',
142: enrall => 'Enroll all users',
143: notreq => 'Not required',
144: errao => 'You must select one of the additional options when importing Discussion Boards.',
145: errtd => 'You must select a target course when importing Discussion Boards.',
146: errap => 'You must select one of the additional options when importing Enrollment.',
147: errte => 'You must select a target course when importing enrollment information.',
148: errcc => 'You must check at least one Content Type.',
149: );
1.36 raeburn 150: return <<"END_OF_TWO";
1.5 raeburn 151:
152: function checkCourse() {
153: courseID_array = new Array($course_list)
154: courseTitle_array = new Array($title_list)
155: var step2Form = document.forms.pickoptions
156: var conditionType = step2Form.conditions.value
157: var curVal = step2Form.targetcourse.options[step2Form.targetcourse.selectedIndex].value
158: if (curVal == -1) {
159: if ( conditionType == 'both' ) {
160: if ( step2Form.board.checked == true || step2Form.users.checked == true ) {
161: setCourse(step2Form,'add')
162: }
163: }
164: if ( conditionType == 'users' ) {
165: if ( step2Form.users.checked == true ) {
166: setCourse(step2Form,'add')
167: }
168: }
169: if ( conditionType == 'board' ) {
170: if ( step2Form.board.checked == true ) {
171: setCourse(step2Form,'add')
172: }
173: }
174: }
175: else {
176: if ( conditionType == 'both' ) {
177: if ( step2Form.board.checked == false && step2Form.users.checked == false ) {
178: setCourse(step2Form,'clear')
179: }
180: }
181: if ( conditionType == 'users' ) {
182: if ( step2Form.users.checked == false ) {
183: setCourse(step2Form,'clear')
184: }
185: }
186: if ( conditionType == 'board' ) {
187: if ( step2Form.board.checked == false ) {
188: setCourse(step2Form,'clear')
189: }
190: }
191: }
192: }
193:
194: function setCourse(step2Form,call) {
195: step2Form.targetcourse.length = 0
196: if (call == 'add') {
197: step2Form.targetcourse.length = 0
1.45 bisitz 198: step2Form.targetcourse.options[0] = new Option("$lt{'sel'}","0",true,true)
1.5 raeburn 199: for (var i=0; i<courseID_array.length; i++) {
200: step2Form.targetcourse.options[i+1] = new Option(courseTitle_array[i],courseID_array[i],false,false)
201: }
202: step2Form.targetcourse.selectedIndex = 0
203: }
204: else {
205: step2Form.targetcourse.options[0] = new Option("Not required","-1",true,true)
206: step2Form.targetcourse.selectedIndex = 0
207: }
208: }
209:
210:
211: function setOptions(caller,itemnum) {
212: var numCrs = $$numcrs
213: var opForm = document.forms.pickoptions
214: var menu = 1 + itemnum*2
215: opForm.elements[menu].length = 0
216: if (opForm.elements[itemnum*2].checked == true) {
217: if (caller == "board") {
1.45 bisitz 218: opForm.elements[menu].options[0] = new Option("$lt{'sel'}","-1",true,true)
219: opForm.elements[menu].options[1] = new Option("$lt{'impto'}","topics",true,true)
220: opForm.elements[menu].options[2] = new Option("$lt{'imptpa'}","allpost",true,true)
221: opForm.elements[menu].options[3] = new Option("$lt{'imptpn'}","allanon",true,true)
1.5 raeburn 222: }
223: else {
224: if (caller == "users") {
225: opForm.elements[menu].length = 0
1.45 bisitz 226: opForm.elements[menu].options[0] = new Option("$lt{'sel'}","-1",true,true)
227: opForm.elements[menu].options[1] = new Option("$lt{'enrst'}","students",true,true)
228: opForm.elements[menu].options[2] = new Option("$lt{'enrall'}","all",true,true)
1.5 raeburn 229: }
230: }
231: }
232: else {
1.45 bisitz 233: opForm.elements[menu].options[0] = new Option("$lt{'notreq'}","0",true,true)
1.5 raeburn 234: }
235: opForm.elements[menu].selectedIndex = 0
236: if (numCrs > 0) {
237: checkCourse()
238: }
239: }
240:
241: function verify(caller) {
242: var numCrs = $$numcrs
243: var opForm = document.forms.pickoptions
244: var totcheck = 0;
245: var totchg = 0;
246: for (var i=0; i<caller; i++) {
247: if (opForm.elements[2*i].checked == true) {
248: totcheck ++
249: if (opForm.elements[2*i].name == "board") {
250: if (opForm.elements[2*i+1].selectedIndex == 0) {
1.45 bisitz 251: alert("$lt{'errao'}")
1.5 raeburn 252: return false
253: }
254: if (numCrs == 0) {
255: opForm.elements[2*i].checked = false
256: totchg ++
257: }
258: else {
259: if (opForm.targetcourse.selectedIndex == 0) {
1.45 bisitz 260: alert("$lt{'errtd'}")
1.5 raeburn 261: return false
262: }
263: }
264: }
265: if (opForm.elements[2*i].name == "users") {
266: if (opForm.elements[2*i+1].selectedIndex == 0) {
1.45 bisitz 267: alert("$lt{'errap'}")
1.5 raeburn 268: return false
269: }
270: if (numCrs == 0) {
271: opForm.elements[2*i].checked = false
272: totchg ++
273: }
274: else {
275: if (opForm.targetcourse.selectedIndex == 0) {
1.45 bisitz 276: alert("$lt{'errte'}")
1.5 raeburn 277: return false
278: }
279: }
280: }
281: }
282: }
283: if (totcheck == 0) {
1.45 bisitz 284: alert("$lt{'errcc'}");
1.5 raeburn 285: return false
286: }
287: return true
288: }
289:
290: function nextPage(caller) {
291: if (verify(caller)) {
292: document.forms.pickoptions.submit()
293: }
1.2 raeburn 294: }
295:
1.36 raeburn 296: END_OF_TWO
1.5 raeburn 297:
298: }
1.1 raeburn 299:
1.5 raeburn 300: # ---------------------------------------------------------------- Display One
301: sub display_one {
1.36 raeburn 302: my ($r,$fn,$fullpath,$formname) = @_;
1.42 bisitz 303: $r->print('<form name="'.$formname.'" method="post" action="">'.
1.23 raeburn 304: &Apache::lonhtmlcommon::topic_bar(1,&mt('Specify the Course Management system used to create the package')).
305: &mt('Choose the CMS used to create your IMS content package.').'
1.2 raeburn 306: <select name="source">
1.45 bisitz 307: <option value="-1" selected="selected">'.&mt('Please select').'</option>
1.23 raeburn 308: <option value="bb5">Blackboard 5</option>
309: <option value="bb6">Blackboard 6</option>
1.32 raeburn 310: <option value="angel5">ANGEL 5.5</option>
1.23 raeburn 311: <option value="webctce4">WebCT 4 Campus Edition</option>
312: <option value="webctvista4">WebCT Vista 4</option>
313: </select><br />'."\n".
314: &Apache::lonhtmlcommon::topic_bar(2,&mt('Create a directory where you will unpack your IMS package'))."\n".
1.45 bisitz 315: &mt('Create a destination LON-CAPA directory in which to store the contents of the IMS package file.').' <input type="button" name="createdir" value="'.&mt('Create Directory').'" onclick="javascript:createWin()" /><input type="hidden" name="newdir" value="" /><br /><br />
1.23 raeburn 316: <input type="hidden" name="filename" value="'.$fn.'" />
1.15 albertel 317: <input type="hidden" name="phase" value="three" />
1.41 bisitz 318: <input type="button" name="nextpage" value="'.&mt('Proceed').'" onclick="javascript:nextPage();" />
319: <input type="button" name="exitpage" value="'.&mt('Exit now').'" onclick="javascript:location.href='."'$fullpath'".'" />
1.23 raeburn 320: </form>');
1.5 raeburn 321: }
322:
323: # ---------------------------------------------------------------- Display Two
324: sub display_two {
1.36 raeburn 325: my ($r,$zipupload,$areas,$areaname,$cmsmap,$fn,$numcrs,$fullpath) = @_;
1.5 raeburn 326: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folder','source']);
1.11 albertel 327: my $cms = $env{'form.source'};
1.36 raeburn 328: my $tempdir = &Apache::imsprocessor::create_tempdir('CSTR',$env{'form.newdir'},'');
1.5 raeburn 329: my $fname = &Apache::imsprocessor::uploadzip('CSTR',$tempdir,$zipupload);
330: my $unzip_result = '';
331: my $manifest_result = '';
332: unless ($tempdir eq '') {
333: $unzip_result = &Apache::imsprocessor::expand_zip($tempdir,$fname);
334: }
335: my %resources = ();
1.9 raeburn 336: my %includedres = ();
337: my %includeditems = ();
1.5 raeburn 338: my %items = ();
339: my %hrefs = ();
340: my %resinfo = ();
341: my %count = ();
1.23 raeburn 342:
343: my %lt = &Apache::lonlocal::texthash(
344: cont => 'Choose which content types you wish to import',
345: impo => 'Import',
346: type => 'Content type',
347: addo => 'Additional options',
348: chec => 'Check Import first',
1.44 bisitz 349: bbus => 'Choose a course to receive discussion boards and user enrollment',
350: list => 'A listing of possible course targets will be displayed if import of discussion boards and/or enrollment is checked above (step 3). If you do not plan to import either of these content types, there is no need to specify a course.',
1.23 raeburn 351: chco => 'Choose course:',
352: nreq => 'Not required',
1.44 bisitz 353: yodo => 'You do not have active course coordinator status in any LON-CAPA courses currently, so discussion boards and enrollment information included in your IMS package will be discarded, regardless of your import choice for these two items above (step 3).',
354: ifyo => "If you wish to import discussion boards and/or user information into LON-CAPA please click 'Exit now' to quit the current IMS import process, and contact your domain coordinator and request a course coordinator role in a LON-CAPA course into which you can upload discussion boards and/or enroll users.",
1.23 raeburn 355: impa => 'Import package',
356: unpa => 'Unpacking of your IMS package failed because an IMS manifest file was not located in the package',
357: proc => 'Processing of your IMS package failed because the file you uploaded could not be unzipped',
358: exit => 'Exit now',
359: );
1.5 raeburn 360:
361: my $counter = 0;
362: my $iter = 0;
363: my %count = (
364: announce => 0,
365: board => 0,
366: doc => 0,
367: extlink => 0,
368: msg => 0,
369: pool => 0,
370: quiz => 0,
371: staff => 0,
372: survey => 0,
373: users => 0,
374: );
375: my $conditions;
376: if ($unzip_result eq 'ok') {
1.19 raeburn 377: $manifest_result = &Apache::imsprocessor::process_manifest($cms,
378: $tempdir,\%resources,\%items,\%hrefs,\%resinfo,
379: 'choose',\%includedres,\%includeditems);
1.5 raeburn 380: if ($manifest_result eq 'ok') {
1.46 ! raeburn 381: foreach my $res (sort(keys(%resources))) {
1.19 raeburn 382: if ($cms eq 'bb5' || $cms eq 'bb6' || $cms eq 'webctce4'
383: || $cms eq 'webctvista4') {
1.46 ! raeburn 384: foreach my $area (keys(%{$$cmsmap{$cms}})) {
1.5 raeburn 385: if ($resources{$res}{type} eq $$cmsmap{$cms}{$area}) {
386: $count{$area} ++;
387: }
388: }
1.32 raeburn 389: } elsif ($cms eq 'angel5') {
1.46 ! raeburn 390: foreach my $area (keys(%{$$cmsmap{$cms}})) {
1.5 raeburn 391: if ($area eq 'doc') {
392: if (grep/^$resources{$res}{type}$/,@{$$cmsmap{$cms}{doc}}) {
393: $count{$area} ++;
394: }
395: } elsif ($resources{$res}{type} eq $$cmsmap{$cms}{$area}) {
396: $count{$area} ++;
397: }
398: }
399: }
400: }
401: if ($count{board} > 0) {
402: if ($count{users} > 0) {
403: $conditions = 'both';
404: } else {
405: $conditions = 'board';
406: }
407: } elsif ($count{users} > 0) {
408: $conditions = 'users';
409: } else {
410: $conditions = 'none';
411: }
412:
1.42 bisitz 413: $r->print('<form name="pickoptions" method="post" action="">'.
1.23 raeburn 414: &Apache::lonhtmlcommon::topic_bar(3,$lt{'cont'}).
415: &Apache::loncommon::start_data_table().
416: &Apache::loncommon::start_data_table_header_row().
1.24 raeburn 417: '<th>'.$lt{'impo'}.'</th><th>'.$lt{'type'}.'</th><th>'.
1.23 raeburn 418: $lt{'addo'}.'</th>'.
419: &Apache::loncommon::end_data_table_header_row());
1.5 raeburn 420: foreach my $area (@{$areas}) {
421: if ($count{$area} > 0) {
422: my $count_tag = 'flag_'.$counter;
1.23 raeburn 423: $r->print(&Apache::loncommon::start_data_table_row()."\n".
424: '<td><input name="'.$area.'" type="checkbox" ');
1.5 raeburn 425: if ($area eq 'board' || $area eq 'users') {
1.41 bisitz 426: $r->print('onclick="javascript:setOptions('."'$area','$counter'".');" ');
1.5 raeburn 427: }
1.23 raeburn 428: $r->print('/></td>'.
429: '<td> '.$$areaname{$area}.' - '.
430: &mt('[quant,_1,item]',$count{$area}).'</td>');
1.5 raeburn 431: if ($area eq 'board') {
1.23 raeburn 432: $r->print('<td>
433: <select name="db_handling">
434: <option value="-2"><-- '.$lt{'chec'}.'</option>
435: </select>
436: </td>');
1.5 raeburn 437: } elsif ($area eq 'users') {
1.23 raeburn 438: $r->print('<td>
439: <select name="user_handling">
440: <option value="-2"><-- '.$lt{'chec'}.'</option>
1.2 raeburn 441: </select>
1.23 raeburn 442: </td>');
1.5 raeburn 443: } else {
1.23 raeburn 444: $r->print('<td> '.&mt('None')."\n".
445: '<input type="hidden" name="'.$count_tag.'" /></td>');
1.5 raeburn 446: }
447: $counter ++;
1.23 raeburn 448: $r->print(&Apache::loncommon::end_data_table_row());
1.5 raeburn 449: }
450: }
1.23 raeburn 451: $r->print(&Apache::loncommon::end_data_table());
1.5 raeburn 452: if ($count{board} + $count{users} > 0) {
1.23 raeburn 453: $r->print(&Apache::lonhtmlcommon::topic_bar(4,$lt{'bbus'}));
1.5 raeburn 454: if ($$numcrs > 0) {
1.23 raeburn 455: $r->print($lt{'list'}.'<br /><br />'.$lt{'chco'}.' '."\n".
456: '<select name="targetcourse">
457: <option value="-1">'.$lt{'nreq'}.'</option>
458: </select>');
1.5 raeburn 459: } else {
1.23 raeburn 460: $r->print($lt{'yodo'}.' '.$lt{'ifyo'});
461: }
462: }
463: $r->print('<br /><br />
464: <input type="hidden" name="newdir" value="'.$env{'form.newdir'}.'" />
465: <input type="hidden" name="conditions" value="'.$conditions.'" />
466: <input type="hidden" name="source" value="'.$cms.'" />
467: <input type="hidden" name="tempdir" value="'.$tempdir.'" />
1.36 raeburn 468: <input type="hidden" name="filename" value="'.$fn.'" />
1.23 raeburn 469: <input type="hidden" name="phase" value="four" />'."\n");
1.5 raeburn 470: if ($count{board} == 0) {
1.23 raeburn 471: $r->print('<input type="hidden" name="board" value="" />'."\n");
1.5 raeburn 472: }
473: if ($count{users} == 0) {
1.23 raeburn 474: $r->print('<input type="hidden" name="users" value="" />'."\n");
1.5 raeburn 475: }
1.41 bisitz 476: $r->print('<input type="button" name="nextpage" value="'.$lt{'impa'}.'" onclick="javascript:nextPage('."'$counter.'".')" />
477: <input type="button" name="exitpage" value="'.$lt{'exit'}.'" onclick="javascript:location.href='."'$fullpath'".'" /></form>');
1.5 raeburn 478: } else {
1.23 raeburn 479: $r->print($lt{'unpa'});
1.2 raeburn 480: }
1.4 raeburn 481: } else {
1.45 bisitz 482: $r->print(
483: '<br />'.&Apache::loncommon::confirmwrapper(
484: &Apache::lonhtmlcommon::confirm_success($lt{'proc'},1)
485: .'<br />'.&mt('Error: [_1]',$unzip_result))
486: );
1.5 raeburn 487: }
488: }
1.1 raeburn 489:
1.5 raeburn 490: # ---------------------------------------------------------------- Display Three
491: sub display_three {
1.36 raeburn 492: my ($r,$uname,$udom,$areas,$areaname,$cmsmap,$destdir,$dirpath) = @_;
1.5 raeburn 493: my $crs = '';
494: my $cdom = '';
495: my $db_handling = '';
496: my $timenow = time;
497: my $announce_handling = 'ok';
1.11 albertel 498: my $cms = $env{'form.source'};
499: if ( defined($env{'form.bb_crs'}) ) {
500: ($cdom,$crs) = split/\//,$env{'form.bb_crs'};
1.4 raeburn 501: }
1.5 raeburn 502: my $user_crs = '';
503: my $user_cdom = '';
504: my $user_handling = '';
1.11 albertel 505: if ( defined($env{'form.user_crs'}) ) {
506: ($user_cdom,$user_crs) = split/\//,$env{'form.user_crs'};
1.5 raeburn 507: }
1.36 raeburn 508: my $seqstem = "/res/$udom/$uname/$dirpath";
1.9 raeburn 509: my %importareas = ();
510: my %includedres = ();
511: my %includeditems = ();
1.10 raeburn 512: my %randompicks = ();
1.5 raeburn 513: my @targets = ();
514: my %resources = ();
515: my %items = ();
516: my %hrefs = ();
517: my %urls = ();
518: my %resinfo = ();
519: my %total = (
520: page => 0,
521: prob => 0,
522: seq => 0,
523: board => 0,
524: quiz => 0,
525: surv => 0,
1.23 raeburn 526: file => 0,
1.5 raeburn 527: );
528:
529: my @pages = ();
530: my @sequences = ();
531: my @resrcfiles = ();
1.19 raeburn 532: my @assessmentfiles = ();
1.5 raeburn 533:
1.11 albertel 534: my $tempdir = $env{'form.tempdir'};
1.5 raeburn 535:
536: foreach my $area (@{$areas}) {
1.11 albertel 537: if (defined($env{"form.$area"}) ) {
1.32 raeburn 538: if ($cms eq 'angel5' && $area eq 'doc') {
1.5 raeburn 539: foreach (@{$$cmsmap{$cms}{$area}}) {
1.9 raeburn 540: $importareas{$_} = 1;
1.1 raeburn 541: }
1.5 raeburn 542: } else {
1.9 raeburn 543: $importareas{$$cmsmap{$cms}{$area}} = 1;
1.2 raeburn 544: }
1.5 raeburn 545: if ($area eq 'board') {
1.11 albertel 546: $db_handling = $env{'form.db_handling'};
1.5 raeburn 547: } elsif ($area eq 'users') {
1.11 albertel 548: $user_handling = $env{'form.user_handling'};
1.4 raeburn 549: }
1.1 raeburn 550: }
551: }
1.9 raeburn 552:
1.23 raeburn 553: my %lt = &Apache::lonlocal::texthash (
554: yims => 'Your IMS package has been processed successfully.',
555: plsv => 'Please view the imported items and use the LON-CAPA editing tools to make changes.',
556: tseq => "The sequences directory contains a file named 'Top.sequence' which includes links to the items found at the top level of your IMS package. From there you can follow links to display all the imported items. Alternatively, you can browse the pages, sequences, problems and resfiles directories directly. Note if you rename a file, you will need to modify any .sequence files or .page files which include a reference to the renamed file.",
1.39 raeburn 557: tfin => 'The final step in the IMS import process is to publish the materials you have imported into your Authoring Space so that you can use them in a course. Once your files are published, subsequent re-publication will result in the storage of information about changes between the different versions.',
1.23 raeburn 558: disp => 'Display new directory',
559: proc => 'Processing of your IMS package failed, because the IMS content package did not contain an IMS manifest file.'
560: );
1.19 raeburn 561: my $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,
562: \%resources,\%items,\%hrefs,\%resinfo,'prepare',
563: \%includedres);
1.43 raeburn 564:
1.9 raeburn 565: if ($manifest_result eq 'ok') {
1.43 raeburn 566: my %possibledep;
1.46 ! raeburn 567: foreach my $res (sort(keys(%resources))) {
1.9 raeburn 568: if ($importareas{$resources{$res}{type}}) {
569: $includedres{$res} = 1;
1.19 raeburn 570: if ($resources{$res}{type} eq 'webct.manifest' ||
571: $resources{$res}{type} eq 'webct.assessment' ||
572: $resources{$res}{type} eq 'webct.question') {
573: push(@assessmentfiles,$res);
574: }
1.43 raeburn 575: } elsif ($resources{$res}{usedby}) {
576: $possibledep{$res} = 1;
577: }
578: }
579: foreach my $res (sort(keys(%possibledep))) {
580: if ($includedres{$resources{$res}{usedby}}) {
581: $includedres{$res} = 1;
1.9 raeburn 582: }
583: }
1.46 ! raeburn 584: foreach my $itm (sort(keys(%items))) {
1.9 raeburn 585: &Apache::imsprocessor::get_imports(\%includeditems,\%items,\%resources,\%importareas,$itm);
586: }
587: }
588:
1.46 ! raeburn 589: foreach my $itm (sort(keys(%includeditems))) {
1.9 raeburn 590: &Apache::imsprocessor::get_parents(\%includeditems,\%items,$itm);
591: }
592:
1.19 raeburn 593: $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,
594: \%resources,\%items,\%hrefs,\%resinfo,'build',
595: \%includedres,\%includeditems);
1.43 raeburn 596:
1.5 raeburn 597: if ($manifest_result eq 'ok') {
1.9 raeburn 598: &Apache::imsprocessor::target_resources(\%resources,\%importareas,\@targets);
1.5 raeburn 599:
600: my @boards = ();
601: my @announcements = ();
602: my @quizzes = ();
603: my @surveys = ();
1.9 raeburn 604: my @pools = ();
1.5 raeburn 605: my @groups = ();
606: my %messages = ();
607: my @timestamp = ();
608: my %boardnum = ();
609: my @topurls = ();
610: my @topnames = ();
1.7 raeburn 611: my @packages = ();
1.5 raeburn 612:
1.10 raeburn 613: &Apache::imsprocessor::process_resinfo($cms,'CSTR',$tempdir,$destdir,\%items,\%resources,\@targets,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\@groups,\%messages,\@timestamp,\%boardnum,\%resinfo,$udom,$uname,$cdom,$crs,$db_handling,$user_handling,\%total,$seqstem,$seqstem,\@resrcfiles,\@packages,\%hrefs,\@pages,\@sequences,\%randompicks);
1.7 raeburn 614:
1.43 raeburn 615: my $copy_result = &Apache::imsprocessor::copy_resources('CSTR',$cms,\%hrefs,\%resources,$tempdir,\@targets,\%urls,$crs,$cdom,$destdir,$timenow,\@assessmentfiles,\%total);
1.5 raeburn 616:
1.36 raeburn 617: &Apache::imsprocessor::build_structure($cms,'CSTR',$destdir,\%items,\%resinfo,\%resources,\@targets,\%hrefs,$udom,$uname,$dirpath,$timenow,$cdom,$crs,\@timestamp,\%total,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\%boardnum,\@pages,\@sequences,\@topurls,\@topnames,\@packages,\%includeditems,\%randompicks);
1.5 raeburn 618:
1.45 bisitz 619: my $message =
620: &Apache::lonhtmlcommon::confirm_success(
621: &mt('IMS import completed'))
622: .'<br />'.$lt{'yims'}.' ';
1.5 raeburn 623:
1.32 raeburn 624: if ($cms eq 'angel5') {
1.45 bisitz 625: $message .= &mt('A total of [quant,_1,sequence], [quant,_2,composite page], and [quant,_3,discussion board] have been created, and [quant,_4,file] copied.',$total{seq},$total{page},$total{board},$total{file})."\n";
1.23 raeburn 626: } else {
1.45 bisitz 627: $message .= &mt('A total of [quant,_1,sequence], [quant,_2,composite page], [quant,_3,discussion board], [quant,_4,quiz,quizzes], [quant,_5,survey], and [quant,_6,problem] have been created, and [quant,_7,file] copied.',$total{seq},$total{page},$total{board},$total{quiz},$total{surv},$total{prob},$total{file})."\n";
1.5 raeburn 628: }
1.45 bisitz 629: $r->print(
630: '<br />'.&Apache::loncommon::confirmwrapper($message)
631: .'<p>'.$lt{'plsv'}.' '.$lt{'tseq'}.'</p>'
632: .'<p>'.$lt{'tfin'}.'</p>'
633: .&Apache::lonhtmlcommon::actionbox(
634: ['<a href="/priv/'.$udom.'/'.$uname.'/'.$dirpath.'/">'.$lt{'disp'}.'</a>'])
635: );
1.36 raeburn 636: my $londocroot = $r->dir_config('lonDocRoot');
637: if ($destdir =~ m{^\Q$londocroot/priv/$udom/$uname/$dirpath\E}) {
1.9 raeburn 638: system (" rm -r -f $destdir/temp");
639: }
1.5 raeburn 640: } elsif ($manifest_result eq 'nomanifest') {
1.45 bisitz 641: $r->print(
642: '<br />'.&Apache::loncommon::confirmwrapper(
643: &Apache::lonhtmlcommon::confirm_success($lt{'proc'},1))
644: );
1.4 raeburn 645: }
1.5 raeburn 646: }
647:
648: # ---------------------------------------------------------------- Get LON-CAPA Course Coordinator roles for this user
649: sub get_ccroles {
650: my ($user,$dom,$crsentry,$crslist) = @_;
1.33 raeburn 651: my %roles;
1.5 raeburn 652: unless ($user eq '') {
1.33 raeburn 653: my $ccrole = 'cc';
654: %roles = &Apache::lonnet::get_my_roles($user,$dom,'userroles',undef,[$ccrole]);
1.4 raeburn 655: }
1.5 raeburn 656: my $iter = 0;
657: my @codes = ();
658: my %courses = ();
659: my @crslist = ();
660: my %descrip =();
1.33 raeburn 661: foreach my $key (keys(%roles)) {
1.21 albertel 662: if ($key =~ m{^/($LONCAPA::domain_re)/($LONCAPA::username_re)_cc$}) {
1.5 raeburn 663: my $cdom = $1;
664: my $crs = $2;
1.33 raeburn 665: my $currcode = '';
666: my %settings = &Apache::lonnet::get('environment',['internal.coursecode','description'],$cdom,$crs);
667: if (defined($settings{'description'}) ) {
668: $descrip{$crs} = $settings{'description'};
669: } else {
670: $descrip{$crs} = 'Unknown';
1.5 raeburn 671: }
1.33 raeburn 672: if (defined($settings{'internal.coursecode'}) ) {
673: $currcode = $settings{'internal.coursecode'};
674: if ($currcode eq '') {
1.5 raeburn 675: $currcode = "____".$iter;
676: $iter ++;
677: }
1.33 raeburn 678: } else {
679: $currcode = "____".$iter;
680: $iter ++;
681: }
682: unless (grep/^$currcode$/,@codes) {
683: push @codes,$currcode;
684: @{$courses{$currcode}} = ();
1.1 raeburn 685: }
1.33 raeburn 686: push @{$courses{$currcode}}, $cdom.'/'.$crs;
1.5 raeburn 687: }
688: }
1.46 ! raeburn 689: foreach my $code (sort(@codes)) {
1.5 raeburn 690: foreach my $crsdom (@{$courses{$code}}) {
1.2 raeburn 691: my ($cdom,$crs) = split/\//,$crsdom;
692: my $showcode = '';
693: unless ($code =~m/^____\d+$/) { $showcode = $code; }
694: $$crsentry{$crsdom} = $showcode.':'.$descrip{$crs};
1.5 raeburn 695: push @{$crslist}, $crsdom;
1.2 raeburn 696: }
697: }
1.5 raeburn 698: return;
1.2 raeburn 699: }
1.1 raeburn 700:
701: # ---------------------------------------------------------------- Main Handler
702: sub handler {
703: my $r=shift;
1.5 raeburn 704:
1.36 raeburn 705: my $fn=$env{'form.filename'};
1.5 raeburn 706:
1.36 raeburn 707: if ($env{'form.filename1'}) {
708: $fn=$env{'form.filename1'}.$env{'form.filename2'};
1.1 raeburn 709: }
1.36 raeburn 710: $fn=~s{\+}{}g;
711:
712: unless ($fn) {
1.11 albertel 713: $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.
1.1 raeburn 714: ' unspecified filename for upload', $r->filename);
715: return HTTP_NOT_FOUND;
716: }
1.36 raeburn 717:
1.38 raeburn 718: my ($uname,$udom) = &Apache::lonnet::constructaccess($fn);
1.36 raeburn 719: if (($uname eq '') || ($udom eq '')) {
720: $r->log_reason($uname.' at '.$udom.
721: ' trying to publish file '.$fn.' - not authorized',
722: $r->filename);
723: return HTTP_NOT_ACCEPTABLE;
724: }
725:
726: my $londocroot = $r->dir_config('lonDocRoot');
727: my $zipupload = $londocroot.$fn;
728: my $fullpath = &File::Basename::dirname($fn);
729: unless ($fullpath =~ m{/$}) {
1.1 raeburn 730: $fullpath .= '/';
731: }
1.5 raeburn 732:
1.36 raeburn 733: # get personal information for this user
734: my $user=$env{'user.name'};
735: my $dom=$env{'user.domain'};
736:
737: my $javascript = '';
738: my $page_name = '';
739: my $current_page = '';
740: my $qcount = '';
1.5 raeburn 741: my @areas = ();
742: my %cmsmap = ();
743: my %areaname = ();
744: my $numcrs = 0;
745:
746: &Apache::imsprocessor::ims_config(\@areas,\%cmsmap,\%areaname);
1.1 raeburn 747: # ----------------------------------------------------------- Start page output
748: &Apache::loncommon::content_type($r,'text/html');
749: $r->send_http_header;
1.5 raeburn 750:
1.23 raeburn 751: my $formname_one = 'info';
1.11 albertel 752: if ($env{'form.phase'} eq 'two') {
1.36 raeburn 753: $javascript = &jscript_one($fullpath,$formname_one);
1.11 albertel 754: } elsif ($env{'form.phase'} eq 'three') {
1.36 raeburn 755: $javascript = &jscript_two($user,$dom,\$numcrs);
756: }
757: if ($javascript ne '') {
758: $javascript = <<"END_JS";
759: <script type="text/javascript">
760: // <![CDATA[
761:
762: $javascript
763:
764: // ]]>
765: </script>
766: END_JS
1.1 raeburn 767: }
1.14 albertel 768:
1.39 raeburn 769: my $title = 'Upload IMS package to Authoring Space';
1.20 albertel 770: $r->print(&Apache::loncommon::start_page($title, $javascript));
1.14 albertel 771:
1.11 albertel 772: if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
1.37 bisitz 773: $r->print('<p><span class="LC_info">'
1.31 bisitz 774: .&mt('Co-Author [_1]',$uname.':'.$udom)
775: .'</span></p>'
1.29 bisitz 776: );
1.36 raeburn 777: }
1.11 albertel 778: if ($env{'form.phase'} eq 'two') {
1.36 raeburn 779: my $flag = &Apache::lonupload::phasetwo($r,$fn,'imsimport');
1.1 raeburn 780: if ($flag eq 'ok') {
1.36 raeburn 781: &display_one($r,$fn,$fullpath,$formname_one);
1.45 bisitz 782: } else {
783: $r->print(
784: '<br />'.&Apache::loncommon::confirmwrapper(
785: &Apache::lonhtmlcommon::confirm_success(
786: &mt('Error uploading IMS package'),1))
787: );
1.5 raeburn 788: }
1.11 albertel 789: } elsif ( ($env{'form.phase'} eq 'three') || ($env{'form.phase'} eq 'four') ) {
1.36 raeburn 790: my $destdir = $env{'form.newdir'};
791: my $dirpath = $destdir;
792: $dirpath =~ s{^\Q$londocroot/priv/$udom/$uname/\E}{};
793:
1.11 albertel 794: if ($env{'form.phase'} eq 'three') {
1.36 raeburn 795: &display_two($r,$zipupload,\@areas,\%areaname,\%cmsmap,$fn,\$numcrs,$fullpath);
1.11 albertel 796: } elsif ($env{'form.phase'} eq 'four') {
1.36 raeburn 797: &display_three($r,$uname,$udom,\@areas,\%areaname,\%cmsmap,$destdir,$dirpath);
1.1 raeburn 798: }
799: } else {
1.40 raeburn 800: &Apache::lonupload::phaseone($r,$fn,'imsimport',$uname,$udom);
1.1 raeburn 801: }
1.14 albertel 802: $r->print(&Apache::loncommon::end_page());
1.1 raeburn 803: return OK;
804: }
805: 1;
806: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to imsimport.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / imspackages