Annotation of loncom/interface/londocs.pm, revision 1.380
1.329 droeschl 1: # The LearningOnline Network
2: # Documents
3: #
1.380 ! bisitz 4: # $Id: londocs.pm,v 1.379 2009/07/13 17:34:28 bisitz Exp $
1.329 droeschl 5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
10: # LON-CAPA is free software; you can redistribute it and/or modify
11: # it under the terms of the GNU General Public License as published by
12: # the Free Software Foundation; either version 2 of the License, or
13: # (at your option) any later version.
14: #
15: # LON-CAPA is distributed in the hope that it will be useful,
16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: # GNU General Public License for more details.
19: #
20: # You should have received a copy of the GNU General Public License
21: # along with LON-CAPA; if not, write to the Free Software
22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23: #
24: # /home/httpd/html/adm/gpl.txt
25: #
26: # http://www.lon-capa.org/
27: #
28:
29:
30:
31: package Apache::londocs;
32:
33: use strict;
34: use Apache::Constants qw(:common :http);
35: use Apache::imsexport;
36: use Apache::lonnet;
37: use Apache::loncommon;
38: use LONCAPA::map();
39: use Apache::lonratedt();
40: use Apache::lonxml;
41: use Apache::lonclonecourse;
42: use Apache::lonnavmaps;
43: use HTML::Entities;
44: use GDBM_File;
45: use Apache::lonlocal;
46: use Cwd;
47: use LONCAPA qw(:DEFAULT :match);
48:
49: my $iconpath;
50:
51: my %hash;
52:
53: my $hashtied;
54: my %alreadyseen=();
55:
56: my $hadchanges;
57:
58:
59: my %help=();
60:
61:
62: sub mapread {
63: my ($coursenum,$coursedom,$map)=@_;
64: return
65: &LONCAPA::map::mapread('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
66: $map);
67: }
68:
69: sub storemap {
70: my ($coursenum,$coursedom,$map)=@_;
71: my ($outtext,$errtext)=
72: &LONCAPA::map::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
73: $map,1);
74: if ($errtext) { return ($errtext,2); }
1.364 bisitz 75:
1.329 droeschl 76: $hadchanges=1;
77: return ($errtext,0);
78: }
79:
80:
81:
82: sub authorhosts {
83: my %outhash=();
84: my $home=0;
85: my $other=0;
86: foreach my $key (keys(%env)) {
87: if ($key=~/^user\.role\.(au|ca)\.(.+)$/) {
88: my $role=$1;
89: my $realm=$2;
90: my ($start,$end)=split(/\./,$env{$key});
91: if (($start) && ($start>time)) { next; }
92: if (($end) && (time>$end)) { next; }
93: my ($ca,$cd);
94: if ($1 eq 'au') {
95: $ca=$env{'user.name'};
96: $cd=$env{'user.domain'};
97: } else {
98: ($cd,$ca)=($realm=~/^\/($match_domain)\/($match_username)$/);
99: }
100: my $allowed=0;
101: my $myhome=&Apache::lonnet::homeserver($ca,$cd);
102: my @ids=&Apache::lonnet::current_machine_ids();
103: foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }
104: if ($allowed) {
105: $home++;
106: $outhash{'home_'.$ca.'@'.$cd}=1;
107: } else {
108: $outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;
109: $other++;
110: }
111: }
112: }
113: return ($home,$other,%outhash);
114: }
115:
116:
117: sub dumpbutton {
118: my ($home,$other,%outhash)=&authorhosts();
119: my $type = &Apache::loncommon::course_type();
120: if ($home+$other==0) { return ''; }
121: if ($home) {
122: return '<input type="submit" name="dumpcourse" value="'.
123: &mt('Dump '.$type.' DOCS to Construction Space').'" />'.
1.362 ehlerst 124: &Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs').'<br />';
1.329 droeschl 125: } else {
126: return '<div>'.
127: &mt('Dump '.$type.
128: ' DOCS to Construction Space: available on other servers').
129: '</div>';
130: }
131: }
132:
133: sub clean {
134: my ($title)=@_;
135: $title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\|\`\~]+/\_/gs;
1.344 bisitz 136: return $title;
1.329 droeschl 137: }
138:
139:
140:
141: sub dumpcourse {
142: my ($r) = @_;
143: my $type = &Apache::loncommon::course_type();
144: $r->print(&Apache::loncommon::start_page('Dump '.$type.' DOCS to Construction Space').
1.369 bisitz 145: '<form name="dumpdoc" action="" method="post">');
1.329 droeschl 146: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Dump '.$type.' DOCS to Construction Space'));
147: my ($home,$other,%outhash)=&authorhosts();
148: unless ($home) { return ''; }
149: my $origcrsid=$env{'request.course.id'};
150: my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
151: if (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {
152: # Do the dumping
153: unless ($outhash{'home_'.$env{'form.authorspace'}}) { return ''; }
154: my ($ca,$cd)=split(/\@/,$env{'form.authorspace'});
155: $r->print('<h3>'.&mt('Copying Files').'</h3>');
156: my $title=$env{'form.authorfolder'};
157: $title=&clean($title);
158: my %replacehash=();
159: foreach my $key (keys(%env)) {
160: if ($key=~/^form\.namefor\_(.+)/) {
161: $replacehash{$1}=$env{$key};
162: }
163: }
164: my $crs='/uploaded/'.$env{'request.course.id'}.'/';
165: $crs=~s/\_/\//g;
166: foreach my $item (keys(%replacehash)) {
167: my $newfilename=$title.'/'.$replacehash{$item};
168: $newfilename=~s/\.(\w+)$//;
169: my $ext=$1;
170: $newfilename=&clean($newfilename);
171: $newfilename.='.'.$ext;
172: my @dirs=split(/\//,$newfilename);
173: my $path='/home/'.$ca.'/public_html';
174: my $makepath=$path;
175: my $fail=0;
176: for (my $i=0;$i<$#dirs;$i++) {
177: $makepath.='/'.$dirs[$i];
1.344 bisitz 178: unless (-e $makepath) {
179: unless(mkdir($makepath,0777)) { $fail=1; }
1.329 droeschl 180: }
181: }
182: $r->print('<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ');
183: if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
184: if ($item=~/\.(sequence|page|html|htm|xml|xhtml)$/) {
185: print $fh &Apache::lonclonecourse::rewritefile(
186: &Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
187: (%replacehash,$crs => '')
188: );
189: } else {
190: print $fh
191: &Apache::lonclonecourse::readfile($env{'request.course.id'},$item);
192: }
193: $fh->close();
194: } else {
195: $fail=1;
196: }
197: if ($fail) {
198: $r->print('<span class="LC_error">'.&mt('fail').'</span>');
199: } else {
200: $r->print('<span class="LC_success">'.&mt('ok').'</span>');
201: }
202: }
203: } else {
204: # Input form
205: unless ($home==1) {
206: $r->print(
207: '<h3>'.&mt('Select the Construction Space').'</h3><select name="authorspace">');
208: }
209: foreach my $key (sort(keys(%outhash))) {
210: if ($key=~/^home_(.+)$/) {
211: if ($home==1) {
212: $r->print(
213: '<input type="hidden" name="authorspace" value="'.$1.'" />');
214: } else {
215: $r->print('<option value="'.$1.'">'.$1.' - '.
216: &Apache::loncommon::plainname(split(/\@/,$1)).'</option>');
217: }
218: }
219: }
220: unless ($home==1) {
221: $r->print('</select>');
222: }
223: my $title=$origcrsdata{'description'};
224: $title=~s/[\/\s]+/\_/gs;
225: $title=&clean($title);
226: $r->print('<h3>'.&mt('Folder in Construction Space').'</h3>'
227: .'<input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
228: &tiehash();
229: $r->print('<h3>'.&mt('Filenames in Construction Space').'</h3>'
230: .&Apache::loncommon::start_data_table()
231: .&Apache::loncommon::start_data_table_header_row()
232: .'<th>'.&mt('Internal Filename').'</th>'
233: .'<th>'.&mt('Title').'</th>'
234: .'<th>'.&mt('Save as ...').'</th>'
235: .&Apache::loncommon::end_data_table_header_row());
236: foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {
237: $r->print(&Apache::loncommon::start_data_table_row()
238: .'<td>'.$file.'</td>');
239: my ($ext)=($file=~/\.(\w+)$/);
240: my $title=$hash{'title_'.$hash{
241: 'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};
242: $r->print('<td>'.($title?$title:' ').'</td>');
243: if (!$title) {
244: $title=$file;
245: } else {
246: $title=~s|/|_|g;
247: }
248: $title=~s/\.(\w+)$//;
249: $title=&clean($title);
250: $title.='.'.$ext;
251: $r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"
252: .&Apache::loncommon::end_data_table_row());
253: }
254: $r->print(&Apache::loncommon::end_data_table());
255: &untiehash();
256: $r->print(
257: '<p><input type="submit" name="dumpcourse" value="'.&mt("Dump $type DOCS").'" /></p></form>');
258: }
259: }
260:
261:
262:
263: sub exportbutton {
264: my $type = &Apache::loncommon::course_type();
1.377 bisitz 265: return '<input type="submit" name="exportcourse"'
266: .' value="'.&mt('IMS Export').'"'
267: .' title="'.&mt('Export '.$type.' to IMS Package').'" />'.
1.362 ehlerst 268: &Apache::loncommon::help_open_topic('Docs_Export_Course_Docs').'<br />';
1.329 droeschl 269: }
270:
271:
272:
273: sub exportcourse {
274: my $r=shift;
275: my $type = &Apache::loncommon::course_type();
276: my %discussiontime = &Apache::lonnet::dump('discussiontimes',
277: $env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});
278: my $numdisc = keys(%discussiontime);
279: my $navmap = Apache::lonnavmaps::navmap->new();
280: if (!defined($navmap)) {
1.377 bisitz 281: $r->print(&Apache::loncommon::start_page('Export '.$type.' to IMS Package').
1.376 bisitz 282: '<h2>'.&mt('IMS Export Failed').'</h2>'.
1.329 droeschl 283: '<div class="LC_error">'.
284: &mt('Unable to retrieve information about course contents').
285: '</div><a href="/adm/coursedocs">'.&mt('Return to Course Editor').'</a>');
286: &Apache::lonnet::logthis('IMS export failed - could not create navmap object in '.lc($type).':'.$env{'request.course.id'});
287: return;
288: }
289: my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
290: my $curRes;
291: my $outcome;
292:
293: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
294: ['finishexport']);
295: if ($env{'form.finishexport'}) {
296: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
297: ['archive','discussion']);
298:
299: my @exportitems = &Apache::loncommon::get_env_multiple('form.archive');
300: my @discussions = &Apache::loncommon::get_env_multiple('form.discussion');
301: if (@exportitems == 0 && @discussions == 0) {
1.377 bisitz 302: $outcome =
303: '<p class="LC_warning">'
304: .&mt('As you did not select any content items or discussions'
305: .' for export, an IMS package has not been created.')
306: .'</p>'
307: .'<p>'
308: .&mt('Please [_1]go back[_2] to select either content items'
309: .' or discussions for export.'
310: ,'<a href="javascript:history.go(-1)">'
311: ,'</a>')
312: .'</p>';
1.329 droeschl 313: } else {
314: my $now = time;
315: my %symbs;
316: my $manifestok = 0;
317: my $imsresources;
318: my $tempexport;
319: my $copyresult;
320: my $ims_manifest = &create_ims_store($now,\$manifestok,\$outcome,\$tempexport);
321: if ($manifestok) {
322: &build_package($now,$navmap,\@exportitems,\@discussions,\$outcome,$tempexport,\$copyresult,$ims_manifest);
323: close($ims_manifest);
324:
325: #Create zip file in prtspool
326: my $imszipfile = '/prtspool/'.
327: $env{'user.name'}.'_'.$env{'user.domain'}.'_'.
328: time.'_'.rand(1000000000).'.zip';
329: my $cwd = &Cwd::getcwd();
330: my $imszip = '/home/httpd/'.$imszipfile;
331: chdir $tempexport;
332: open(OUTPUT, "zip -r $imszip * 2> /dev/null |");
333: close(OUTPUT);
334: chdir $cwd;
335: if ($copyresult) {
1.369 bisitz 336: $outcome .= '<p class="LC_error">'
337: .&mt('The following errors occurred during export - [_1]'
338: ,$copyresult)
339: .'</p>';
1.329 droeschl 340: }
1.377 bisitz 341: $outcome .= '<p>'
342: .&mt('[_1]Your IMS package[_2] is ready for download.'
343: ,'<a href="'.$imszipfile.'">','</a>')
344: .'</p>';
1.329 droeschl 345: } else {
1.377 bisitz 346: $outcome = '<p class="LC_error">'
347: .&mt('Unfortunately you will not be able to retrieve'
348: .' an IMS archive of this posts at this time,'
349: .' because there was a problem creating a'
350: .' manifest file.')
351: .'</p>'
352: .'<p><a href="javascript:history.go(-1)">'
353: .&mt('Go Back')
354: .'</a></p>';
1.329 droeschl 355: }
356: }
1.377 bisitz 357: $r->print(&Apache::loncommon::start_page('Export '.$type.' to IMS Package'));
358: $r->print(&Apache::lonhtmlcommon::breadcrumbs('IMS Export'));
1.329 droeschl 359: $r->print($outcome);
360: $r->print(&Apache::loncommon::end_page());
361: } else {
362: my $display;
1.369 bisitz 363: $display = '<form name="exportdoc" action="" method="post">'."\n";
364: $display .= '<p>'
365: .&mt('Choose which items you wish to export from your '.$type.'.')
366: .'</p>';
367: $display .= '<div class="LC_columnSection"><fieldset>'.
368: '<legend>'.&mt('Content items').'</legend>'.
369: '<input type="button" value="'.&mt('check all').'" '.
1.329 droeschl 370: 'onclick="javascript:checkAll(document.exportdoc.archive)" />'.
1.369 bisitz 371: ' <input type="button" value="'.&mt('uncheck all').'"'.
372: ' onclick="javascript:uncheckAll(document.exportdoc.archive)" /></fieldset>'.
373: '<fieldset>'.
374: '<legend>'.&mt('Discussion posts').'</legend>'.
375: '<input type="button" value="'.&mt('check all').'"'.
1.329 droeschl 376: ' onclick="javascript:checkAll(document.exportdoc.discussion)" />'.
1.369 bisitz 377: ' <input type="button" value="'.&mt('uncheck all').'"'.
378: ' onclick="javascript:uncheckAll(document.exportdoc.discussion)" />'.
379: '</fieldset></div>';
1.329 droeschl 380: my $curRes;
381: my $depth = 0;
382: my $count = 0;
383: my $boards = 0;
384: my $startcount = 5;
385: my %parent = ();
386: my %children = ();
387: my $lastcontainer = $startcount;
1.369 bisitz 388: $display .= &Apache::loncommon::start_data_table()
389: .&Apache::loncommon::start_data_table_header_row()
390: .'<th>'.&mt('Export content item?').'</th>'
391: .'<th>';
1.329 droeschl 392: if ($numdisc > 0) {
1.369 bisitz 393: $display .= &mt('Export discussion posts?');
394: } else {
395: $display .= ' ';
1.329 droeschl 396: }
1.369 bisitz 397: $display .= '</th>'
398: .&Apache::loncommon::end_data_table_header_row();
1.329 droeschl 399: while ($curRes = $it->next()) {
400: if (ref($curRes)) {
401: $count ++;
402: }
403: if ($curRes == $it->BEGIN_MAP()) {
404: $depth++;
405: $parent{$depth} = $lastcontainer;
406: }
407: if ($curRes == $it->END_MAP()) {
408: $depth--;
409: $lastcontainer = $parent{$depth};
410: }
411: if (ref($curRes)) {
412: my $symb = $curRes->symb();
413: my $ressymb = $symb;
414: if ($ressymb =~ m|adm/($match_domain)/($match_username)/(\d+)/bulletinboard$|) {
415: unless ($ressymb =~ m|adm/wrapper/adm|) {
416: $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';
417: }
418: }
1.369 bisitz 419: $display .= &Apache::loncommon::start_data_table_row()
420: .'<td>'."\n"
421: .'<input type="checkbox" name="archive" value="'.$count.'" ';
1.329 droeschl 422: if (($curRes->is_sequence()) || ($curRes->is_page())) {
423: my $checkitem = $count + $boards + $startcount;
1.369 bisitz 424: $display .= 'onclick="javascript:propagateCheck('."'$checkitem'".')"';
1.329 droeschl 425: }
426: $display .= ' />'."\n";
427: for (my $i=0; $i<$depth; $i++) {
1.369 bisitz 428: $display .= '<img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" alt="" />'
429: .'<img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" alt="" />'."\n";
1.329 droeschl 430: }
431: if ($curRes->is_sequence()) {
1.365 bisitz 432: $display .= '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" /> '."\n";
1.329 droeschl 433: $lastcontainer = $count + $startcount + $boards;
434: } elsif ($curRes->is_page()) {
1.365 bisitz 435: $display .= '<img src="/adm/lonIcons/navmap.page.open.gif" alt="" /> '."\n";
1.329 droeschl 436: $lastcontainer = $count + $startcount + $boards;
437: }
438: my $currelem = $count+$boards+$startcount;
439: $children{$parent{$depth}} .= $currelem.':';
1.369 bisitz 440: $display .= ' '.$curRes->title().'</td>'."\n";
441:
442: # Existing discussion posts?
1.329 droeschl 443: if ($discussiontime{$ressymb} > 0) {
444: $boards ++;
445: $currelem = $count+$boards+$startcount;
1.369 bisitz 446: $display .= '<td align="right">'
447: .'<input type="checkbox" name="discussion" value="'.$count.'" />'
448: .'</td>'."\n";
1.329 droeschl 449: } else {
1.369 bisitz 450: $display .= '<td> </td>'."\n";
1.329 droeschl 451: }
1.369 bisitz 452: $display .= &Apache::loncommon::end_data_table_row();
1.329 droeschl 453: }
454: }
1.369 bisitz 455: $display .= &Apache::loncommon::end_data_table();
1.329 droeschl 456: my $scripttag = qq|
1.369 bisitz 457: <script type="text/javascript">
458: // <![CDATA[
1.329 droeschl 459: function checkAll(field) {
460: if (field.length > 0) {
461: for (i = 0; i < field.length; i++) {
462: field[i].checked = true ;
463: }
464: } else {
465: field.checked = true
466: }
467: }
1.364 bisitz 468:
1.329 droeschl 469: function uncheckAll(field) {
470: if (field.length > 0) {
471: for (i = 0; i < field.length; i++) {
472: field[i].checked = false ;
473: }
474: } else {
475: field.checked = false ;
476: }
477: }
478:
479: function propagateCheck(item) {
480: if (document.exportdoc.elements[item].checked == true) {
481: containerCheck(item)
482: }
1.364 bisitz 483: }
1.329 droeschl 484:
485: function containerCheck(item) {
486: document.exportdoc.elements[item].checked = true
487: var numitems = $count + $boards + $startcount
488: var parents = new Array(numitems)
489: for (var i=$startcount; i<numitems; i++) {
490: parents[i] = new Array
491: }
492: |;
493:
494: foreach my $container (sort { $a <=> $b } (keys(%children))) {
495: my @contents = split(/:/,$children{$container});
496: for (my $i=0; $i<@contents; $i ++) {
497: $scripttag .= ' parents['.$container.']['.$i.'] = '.$contents[$i]."\n";
498: }
499: }
500:
501: $scripttag .= qq|
502: if (parents[item].length > 0) {
503: for (var j=0; j<parents[item].length; j++) {
504: containerCheck(parents[item][j])
505: }
1.364 bisitz 506: }
1.329 droeschl 507: }
1.369 bisitz 508: // ]]>
1.329 droeschl 509: </script>
510: |;
1.377 bisitz 511: $r->print(&Apache::loncommon::start_page('Export '.$type.' to IMS Package',
1.329 droeschl 512: $scripttag));
1.377 bisitz 513: $r->print(&Apache::lonhtmlcommon::breadcrumbs('IMS Export'));
1.369 bisitz 514: $r->print($display.
1.361 bisitz 515: '<p><input type="hidden" name="finishexport" value="1" />'.
1.329 droeschl 516: '<input type="submit" name="exportcourse" value="'.
1.377 bisitz 517: &mt('Export').'" /></p></form>');
1.329 droeschl 518: }
519: }
520:
521: sub create_ims_store {
522: my ($now,$manifestok,$outcome,$tempexport) = @_;
523: $$tempexport = $Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/ims_exports';
524: my $ims_manifest;
525: if (!-e $$tempexport) {
526: mkdir($$tempexport,0700);
527: }
528: $$tempexport .= '/'.$now;
529: if (!-e $$tempexport) {
530: mkdir($$tempexport,0700);
531: }
532: $$tempexport .= '/'.$env{'user.domain'}.'_'.$env{'user.name'};
533: if (!-e $$tempexport) {
534: mkdir($$tempexport,0700);
535: }
536: if (!-e "$$tempexport/resources") {
537: mkdir("$$tempexport/resources",0700);
538: }
539: # open manifest file
540: my $manifest = '/imsmanifest.xml';
541: my $manifestfilename = $$tempexport.$manifest;
542: if ($ims_manifest = Apache::File->new('>'.$manifestfilename)) {
543: $$manifestok=1;
544: print $ims_manifest
545: '<?xml version="1.0" encoding="UTF-8"?>'."\n".
546: '<manifest xmlns="http://www.imsglobal.org/xsd/imscp_v1p1"'.
547: ' xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2"'.
548: ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'.
549: ' identifier="MANIFEST-'.$env{'request.course.id'}.'-'.$now.'"'.
550: ' xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1imscp_v1p1.xsd'.
551: ' http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2p2.xsd">'."\n".
552: ' <metadata>
553: <schema></schema>
554: <imsmd:lom>
555: <imsmd:general>
556: <imsmd:identifier>'.$env{'request.course.id'}.'</imsmd:identifier>
557: <imsmd:title>
558: <imsmd:langstring xml:lang="en">'.$env{'course.'.$env{'request.course.id'}.'.description'}.'</imsmd:langstring>
559: </imsmd:title>
560: </imsmd:general>
561: </imsmd:lom>
562: </metadata>'."\n".
563: ' <organizations default="ORG-'.$env{'request.course.id'}.'-'.$now.'">'."\n".
564: ' <organization identifier="ORG-'.$env{'request.course.id'}.'-'.$now.'"'.
565: ' structure="hierarchical">'."\n".
566: ' <title>'.$env{'course.'.$env{'request.course.id'}.'.description'}.'</title>'
567: } else {
568: $$outcome .= 'An error occurred opening the IMS manifest file.<br />'
569: ;
570: }
571: return $ims_manifest;
572: }
573:
574: sub build_package {
575: my ($now,$navmap,$exportitems,$discussions,$outcome,$tempexport,$copyresult,$ims_manifest) = @_;
576: # first iterator to look for dependencies
577: my $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);
578: my $curRes;
579: my $count = 0;
580: my $depth = 0;
581: my $lastcontainer = 0;
582: my %parent = ();
583: my @dependencies = ();
584: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
585: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
586: while ($curRes = $it->next()) {
587: if (ref($curRes)) {
588: $count ++;
589: }
590: if ($curRes == $it->BEGIN_MAP()) {
591: $depth++;
592: $parent{$depth} = $lastcontainer;
593: }
594: if ($curRes == $it->END_MAP()) {
595: $depth--;
596: $lastcontainer = $parent{$depth};
597: }
598: if (ref($curRes)) {
599: if ($curRes->is_sequence() || $curRes->is_page()) {
600: $lastcontainer = $count;
601: }
602: if (grep(/^$count$/,@$exportitems)) {
603: &get_dependencies($exportitems,\%parent,$depth,\@dependencies);
604: }
605: }
606: }
607: # second iterator to build manifest and store resources
608: $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);
609: $depth = 0;
610: my $prevdepth;
611: $count = 0;
612: my $imsresources;
613: my $pkgdepth;
614: while ($curRes = $it->next()) {
615: if ($curRes == $it->BEGIN_MAP()) {
616: $prevdepth = $depth;
617: $depth++;
618: }
619: if ($curRes == $it->END_MAP()) {
620: $prevdepth = $depth;
621: $depth--;
622: }
623:
624: if (ref($curRes)) {
625: $count ++;
626: if ((grep(/^$count$/,@$exportitems)) || (grep(/^$count$/,@dependencies))) {
627: my $symb = $curRes->symb();
628: my $isvisible = 'true';
629: my $resourceref;
630: if ($curRes->randomout()) {
631: $isvisible = 'false';
632: }
633: unless ($curRes->is_sequence()) {
634: $resourceref = 'identifierref="RES-'.$env{'request.course.id'}.'-'.$count.'"';
635: }
636: my $step = $prevdepth - $depth;
637: if (($step >= 0) && ($count > 1)) {
638: while ($step >= 0) {
639: print $ims_manifest "\n".' </item>'."\n";
640: $step --;
641: }
642: }
643: $prevdepth = $depth;
644:
645: my $itementry =
646: '<item identifier="ITEM-'.$env{'request.course.id'}.'-'.$count.
647: '" isvisible="'.$isvisible.'" '.$resourceref.'>'.
648: '<title>'.$curRes->title().'</title>';
649: print $ims_manifest "\n".$itementry;
650:
651: unless ($curRes->is_sequence()) {
652: my $content_file;
653: my @hrefs = ();
654: &process_content($count,$curRes,$cdom,$cnum,$symb,\$content_file,\@hrefs,$copyresult,$tempexport);
655: if ($content_file) {
656: $imsresources .= "\n".
657: ' <resource identifier="RES-'.$env{'request.course.id'}.'-'.$count.
658: '" type="webcontent" href="'.$content_file.'">'."\n".
659: ' <file href="'.$content_file.'" />'."\n";
660: foreach my $item (@hrefs) {
661: $imsresources .=
662: ' <file href="'.$item.'" />'."\n";
663: }
664: if (grep(/^$count$/,@$discussions)) {
665: my $ressymb = $symb;
666: my $mode;
667: if ($ressymb =~ m|adm/($match_domain)/($match_username)/(\d+)/bulletinboard$|) {
668: unless ($ressymb =~ m|adm/wrapper/adm|) {
669: $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';
670: }
671: $mode = 'board';
672: }
673: my %extras = (
674: caller => 'imsexport',
675: tempexport => $tempexport.'/resources',
676: count => $count
677: );
678: my $discresult = &Apache::lonfeedback::list_discussion($mode,undef,$ressymb,\%extras);
679: }
680: $imsresources .= ' </resource>'."\n";
681: }
682: }
683: $pkgdepth = $depth;
684: }
685: }
686: }
687: while ($pkgdepth > 0) {
688: print $ims_manifest " </item>\n";
689: $pkgdepth --;
690: }
691: my $resource_text = qq|
692: </organization>
693: </organizations>
694: <resources>
695: $imsresources
696: </resources>
697: </manifest>
698: |;
699: print $ims_manifest $resource_text;
700: }
701:
702: sub get_dependencies {
703: my ($exportitems,$parent,$depth,$dependencies) = @_;
704: if ($depth > 1) {
705: if ((!grep(/^$$parent{$depth}$/,@$exportitems)) && (!grep(/^$$parent{$depth}$/,@$dependencies))) {
706: push(@{$dependencies},$$parent{$depth});
707: if ($depth > 2) {
708: &get_dependencies($exportitems,$parent,$depth-1,$dependencies);
709: }
710: }
711: }
712: }
713:
714: sub process_content {
715: my ($count,$curRes,$cdom,$cnum,$symb,$content_file,$href,$copyresult,$tempexport) = @_;
716: my $content_type;
717: my $message;
718: my @uploads = ();
719: if ($curRes->is_sequence()) {
720: $content_type = 'sequence';
721: } elsif ($curRes->is_page()) {
722: $content_type = 'page'; # need to handle individual items in pages.
723: } elsif ($symb =~ m-public/$cdom/$cnum/syllabus$-) {
724: $content_type = 'syllabus';
725: my $contents = &Apache::imsexport::templatedpage($content_type);
726: if ($contents) {
727: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
728: }
729: } elsif ($symb =~ m-\.sequence___\d+___ext-) {
730: $content_type = 'external';
731: my $title = $curRes->title;
732: my $contents = &Apache::imsexport::external($symb,$title);
733: if ($contents) {
734: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
735: }
736: } elsif ($symb =~ m-adm/navmaps$-) {
737: $content_type = 'navmap';
738: } elsif ($symb =~ m-adm/[^/]+/[^/]+/(\d+)/smppg$-) {
739: $content_type = 'simplepage';
740: my $contents = &Apache::imsexport::templatedpage($content_type,$1,$count,\@uploads);
741: if ($contents) {
742: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
743: }
744: } elsif ($symb =~ m-lib/templates/simpleproblem\.problem$-) {
745: $content_type = 'simpleproblem';
746: my $contents = &Apache::imsexport::simpleproblem($symb);
747: if ($contents) {
748: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
749: }
750: } elsif ($symb =~ m-lib/templates/examupload\.problem$-) {
751: $content_type = 'examupload';
752: } elsif ($symb =~ m-adm/($match_domain)/($match_username)/(\d+)/bulletinboard$-) {
753: $content_type = 'bulletinboard';
754: my $contents = &Apache::imsexport::templatedpage($content_type,$3,$count,\@uploads,$1,$2);
755: if ($contents) {
756: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
757: }
758: } elsif ($symb =~ m-adm/([^/]+)/([^/]+)/aboutme$-) {
759: $content_type = 'aboutme';
760: my $contents = &Apache::imsexport::templatedpage($content_type,undef,$count,\@uploads,$1,$2);
761: if ($contents) {
762: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
763: }
764: } elsif ($symb =~ m-\.(sequence|page)___\d+___uploaded/$cdom/$cnum/-) {
765: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');
766: } elsif ($symb =~ m-\.(sequence|page)___\d+___([^/]+)/([^/]+)-) {
767: my $canedit = 0;
768: if ($2 eq $env{'user.domain'} && $3 eq $env{'user.name'}) {
769: $canedit= 1;
770: }
771: # only include problem code where current user is author
772: if ($canedit) {
773: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource');
774: } else {
775: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'noedit');
776: }
777: } elsif ($symb =~ m-uploaded/$cdom/$cnum-) {
778: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');
779: }
780: if (@uploads > 0) {
781: foreach my $item (@uploads) {
782: my $uploadmsg = '';
783: &replicate_content($cdom,$cnum,$tempexport,$item,$count,\$uploadmsg,$href,'templateupload');
784: if ($uploadmsg) {
785: $$copyresult .= $uploadmsg."\n";
786: }
787: }
788: }
789: if ($message) {
790: $$copyresult .= $message."\n";
791: }
792: }
793:
794: sub replicate_content {
795: my ($cdom,$cnum,$tempexport,$symb,$count,$message,$href,$caller) = @_;
796: my ($map,$ind,$url);
797: if ($caller eq 'templateupload') {
798: $url = $symb;
799: $url =~ s#//#/#g;
1.344 bisitz 800: } else {
1.329 droeschl 801: ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
802: }
803: my $content;
804: my $filename;
805: my $repstatus;
806: my $content_name;
807: if ($url =~ m-/([^/]+)$-) {
808: $filename = $1;
809: if (!-e $tempexport.'/resources') {
810: mkdir($tempexport.'/resources',0700);
811: }
812: if (!-e $tempexport.'/resources/'.$count) {
813: mkdir($tempexport.'/resources/'.$count,0700);
814: }
815: my $destination = $tempexport.'/resources/'.$count.'/'.$filename;
816: my $copiedfile;
817: if ($copiedfile = Apache::File->new('>'.$destination)) {
818: my $content;
819: if ($caller eq 'resource') {
820: my $respath = $Apache::lonnet::perlvar{'lonDocRoot'}.'/res';
821: my $filepath = &Apache::lonnet::filelocation($respath,$url);
822: $content = &Apache::lonnet::getfile($filepath);
823: if ($content eq -1) {
824: $$message = 'Could not copy file '.$filename;
825: } else {
826: &extract_media($url,$cdom,$cnum,\$content,$count,$tempexport,$href,$message,'resource');
827: $repstatus = 'ok';
828: }
829: } elsif ($caller eq 'uploaded' || $caller eq 'templateupload') {
830: my $rtncode;
831: $repstatus = &Apache::lonnet::getuploaded('GET',$url,$cdom,$cnum,\$content,$rtncode);
832: if ($repstatus eq 'ok') {
833: if ($url =~ /\.html?$/i) {
834: &extract_media($url,$cdom,$cnum,\$content,$count,$tempexport,$href,$message,'uploaded');
835: }
836: } else {
837: $$message = 'Could not render '.$url.' server message - '.$rtncode."<br />\n";
838: }
839: } elsif ($caller eq 'noedit') {
1.344 bisitz 840: # Need to render the resource without the LON-CAPA Internal header and the Post discussion footer, and then set $content equal to this.
1.329 droeschl 841: $repstatus = 'ok';
1.344 bisitz 842: $content = 'Not the owner of this resource';
1.329 droeschl 843: }
844: if ($repstatus eq 'ok') {
845: print $copiedfile $content;
846: }
847: close($copiedfile);
848: } else {
849: $$message = 'Could not open destination file for '.$filename."<br />\n";
850: }
851: } else {
852: $$message = 'Could not determine name of file for '.$symb."<br />\n";
853: }
854: if ($repstatus eq 'ok') {
855: $content_name = 'resources/'.$count.'/'.$filename;
856: }
857: return $content_name;
858: }
859:
860: sub extract_media {
861: my ($url,$cdom,$cnum,$content,$count,$tempexport,$href,$message,$caller) = @_;
862: my ($dirpath,$container);
863: my %allfiles = ();
864: my %codebase = ();
865: if ($url =~ m-(.*/)([^/]+)$-) {
866: $dirpath = $1;
867: $container = $2;
868: } else {
869: $dirpath = $url;
870: $container = '';
871: }
872: &Apache::lonnet::extract_embedded_items(undef,\%allfiles,\%codebase,$content);
873: foreach my $embed_file (keys(%allfiles)) {
874: my $filename;
875: if ($embed_file =~ m#([^/]+)$#) {
876: $filename = $1;
877: } else {
878: $filename = $embed_file;
879: }
880: my $newname = 'res/'.$filename;
881: my ($rtncode,$embed_content,$repstatus);
882: my $embed_url;
883: if ($embed_file =~ m-^/-) {
884: $embed_url = $embed_file; # points to absolute path
885: } else {
886: if ($embed_file =~ m-https?://-) {
887: next; # points to url
888: } else {
889: $embed_url = $dirpath.$embed_file; # points to relative path
890: }
891: }
892: if ($caller eq 'resource') {
1.344 bisitz 893: my $respath = $Apache::lonnet::perlvar{'lonDocRoot'}.'/res';
894: my $embed_path = &Apache::lonnet::filelocation($respath,$embed_url);
1.329 droeschl 895: $embed_content = &Apache::lonnet::getfile($embed_path);
896: unless ($embed_content eq -1) {
897: $repstatus = 'ok';
898: }
899: } elsif ($caller eq 'uploaded') {
1.364 bisitz 900:
1.329 droeschl 901: $repstatus = &Apache::lonnet::getuploaded('GET',$embed_url,$cdom,$cnum,\$embed_content,$rtncode);
902: }
903: if ($repstatus eq 'ok') {
904: my $destination = $tempexport.'/resources/'.$count.'/res';
905: if (!-e "$destination") {
906: mkdir($destination,0755);
907: }
908: $destination .= '/'.$filename;
909: my $copiedfile;
910: if ($copiedfile = Apache::File->new('>'.$destination)) {
911: print $copiedfile $embed_content;
912: push(@{$href},'resources/'.$count.'/res/'.$filename);
913: my $attrib_regexp = '';
914: if (@{$allfiles{$embed_file}} > 1) {
915: $attrib_regexp = join('|',@{$allfiles{$embed_file}});
916: } else {
917: $attrib_regexp = $allfiles{$embed_file}[0];
918: }
919: $$content =~ s#($attrib_regexp\s*=\s*['"]?)\Q$embed_file\E(['"]?)#$1$newname$2#gi;
920: if ($caller eq 'resource' && $container =~ /\.(problem|library)$/) {
921: $$content =~ s#\Q$embed_file\E#$newname#gi;
922: }
923: }
924: } else {
925: $$message .= 'replication of embedded file - '.$embed_file.' in '.$url.' failed, reason -'.$rtncode."<br />\n";
926: }
927: }
928: return;
929: }
930:
931: sub store_template {
932: my ($contents,$tempexport,$count,$content_type) = @_;
933: if ($contents) {
934: if ($tempexport) {
935: if (!-e $tempexport.'/resources') {
936: mkdir($tempexport.'/resources',0700);
937: }
938: if (!-e $tempexport.'/resources/'.$count) {
939: mkdir($tempexport.'/resources/'.$count,0700);
940: }
941: my $destination = $tempexport.'/resources/'.$count.'/'.$content_type.'.xml';
942: my $storetemplate;
943: if ($storetemplate = Apache::File->new('>'.$destination)) {
944: print $storetemplate $contents;
945: close($storetemplate);
946: }
947: if ($content_type eq 'external') {
948: return 'resources/'.$count.'/'.$content_type.'.html';
949: } else {
950: return 'resources/'.$count.'/'.$content_type.'.xml';
951: }
952: }
953: }
954: }
955:
956:
957: sub group_import {
958: my ($coursenum, $coursedom, $folder, $container, $caller, @files) = @_;
959:
960: while (@files) {
961: my ($name, $url, $residx) = @{ shift(@files) };
1.344 bisitz 962: if (($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page|sequence)$})
1.329 droeschl 963: && ($caller eq 'londocs')
964: && (!&Apache::lonnet::stat_file($url))) {
1.364 bisitz 965:
1.329 droeschl 966: my $errtext = '';
967: my $fatal = 0;
968: my $newmapstr = '<map>'."\n".
969: '<resource id="1" src="" type="start"></resource>'."\n".
970: '<link from="1" to="2" index="1"></link>'."\n".
971: '<resource id="2" src="" type="finish"></resource>'."\n".
972: '</map>';
973: $env{'form.output'}=$newmapstr;
974: my $result=&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,
975: 'output',$1.$2);
976: if ($result != m|^/uploaded/|) {
977: $errtext.='Map not saved: A network error occurred when trying to save the new map. ';
978: $fatal = 2;
979: }
980: if ($fatal) {
981: return ($errtext,$fatal);
982: }
983: }
984: if ($url) {
1.344 bisitz 985: if (!$residx
1.329 droeschl 986: || defined($LONCAPA::map::zombies[$residx])) {
987: $residx = &LONCAPA::map::getresidx($url,$residx);
988: push(@LONCAPA::map::order, $residx);
989: }
990: my $ext = 'false';
991: if ($url=~m{^http://} || $url=~m{^https://}) { $ext = 'true'; }
992: $url = &LONCAPA::map::qtunescape($url);
993: $name = &LONCAPA::map::qtunescape($name);
1.344 bisitz 994: $LONCAPA::map::resources[$residx] =
1.329 droeschl 995: join(':', ($name, $url, $ext, 'normal', 'res'));
996: }
997: }
998: return &storemap($coursenum, $coursedom, $folder.'.'.$container);
999: }
1000:
1001: sub breadcrumbs {
1002: my ($where,$allowed,$type)=@_;
1003: &Apache::lonhtmlcommon::clear_breadcrumbs();
1004: my (@folders);
1005: if ($env{'form.pagepath'}) {
1006: @folders = split('&',$env{'form.pagepath'});
1007: } else {
1008: @folders=split('&',$env{'form.folderpath'});
1009: }
1010: my $folderpath;
1011: my $cpinfo='';
1012: my $plain='';
1013: my $randompick=-1;
1014: my $isencrypted=0;
1015: my $ishidden=0;
1016: my $is_random_order=0;
1017: while (@folders) {
1018: my $folder=shift(@folders);
1019: my $foldername=shift(@folders);
1020: if ($folderpath) {$folderpath.='&';}
1021: $folderpath.=$folder.'&'.$foldername;
1022: my $url='/adm/coursedocs?folderpath='.
1023: &escape($folderpath);
1024: my $name=&unescape($foldername);
1.344 bisitz 1025: # randompick number, hidden, encrypted, random order, is appended with ":"s to the foldername
1.329 droeschl 1026: $name=~s/\:(\d*)\:(\w*)\:(\w*):(\d*)$//;
1.344 bisitz 1027: if ($1 ne '') {
1.329 droeschl 1028: $randompick=$1;
1029: } else {
1030: $randompick=-1;
1031: }
1032: if ($2) { $ishidden=1; }
1033: if ($3) { $isencrypted=1; }
1034: if ($4 ne '') { $is_random_order = 1; }
1035: if ($folder eq 'supplemental') {
1036: if ($allowed) {
1037: $name = &mt('Supplemental '.$type.' Documents');
1038: } else {
1039: $name = &mt($type.' Documents');
1040: }
1041: }
1042: &Apache::lonhtmlcommon::add_breadcrumb(
1043: {'href'=>$url.$cpinfo,
1044: 'title'=>$name,
1.367 droeschl 1045: 'text'=>$name,
1.329 droeschl 1046: 'no_mt'=>1,
1047: });
1048: $plain.=$name.' > ';
1049: }
1050: $plain=~s/\>\;\s*$//;
1051: return (&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp',
1.379 bisitz 1052: undef, undef, 1 ),$randompick,$ishidden,$isencrypted,$plain,$is_random_order);
1.329 droeschl 1053: }
1054:
1055: sub log_docs {
1056: return &Apache::lonnet::instructor_log('docslog',@_);
1057: }
1058:
1059: {
1060: my @oldresources=();
1061: my @oldorder=();
1062: my $parmidx;
1063: my %parmaction=();
1064: my %parmvalue=();
1065: my $changedflag;
1066:
1067: sub snapshotbefore {
1068: @oldresources=@LONCAPA::map::resources;
1069: @oldorder=@LONCAPA::map::order;
1070: $parmidx=undef;
1071: %parmaction=();
1072: %parmvalue=();
1073: $changedflag=0;
1074: }
1075:
1076: sub remember_parms {
1077: my ($idx,$parameter,$action,$value)=@_;
1078: $parmidx=$idx;
1079: $parmaction{$parameter}=$action;
1080: $parmvalue{$parameter}=$value;
1081: $changedflag=1;
1082: }
1083:
1084: sub log_differences {
1085: my ($plain)=@_;
1086: my %storehash=('folder' => $plain,
1087: 'currentfolder' => $env{'form.folder'});
1088: if ($parmidx) {
1089: $storehash{'parameter_res'}=$oldresources[$parmidx];
1090: foreach my $parm (keys(%parmaction)) {
1091: $storehash{'parameter_action_'.$parm}=$parmaction{$parm};
1092: $storehash{'parameter_value_'.$parm}=$parmvalue{$parm};
1093: }
1094: }
1095: my $maxidx=$#oldresources;
1096: if ($#LONCAPA::map::resources>$#oldresources) {
1097: $maxidx=$#LONCAPA::map::resources;
1098: }
1099: for (my $idx=0; $idx<=$maxidx; $idx++) {
1100: if ($LONCAPA::map::resources[$idx] ne $oldresources[$idx]) {
1101: $storehash{'before_resources_'.$idx}=$oldresources[$idx];
1102: $storehash{'after_resources_'.$idx}=$LONCAPA::map::resources[$idx];
1103: $changedflag=1;
1104: }
1105: if ($LONCAPA::map::order[$idx] ne $oldorder[$idx]) {
1106: $storehash{'before_order_res_'.$idx}=$oldresources[$oldorder[$idx]];
1107: $storehash{'after_order_res_'.$idx}=$LONCAPA::map::resources[$LONCAPA::map::order[$idx]];
1108: $changedflag=1;
1109: }
1110: }
1111: $storehash{'maxidx'}=$maxidx;
1112: if ($changedflag) { &log_docs(\%storehash); }
1113: }
1114: }
1115:
1116:
1117:
1118:
1119:
1120: sub docs_change_log {
1121: my ($r)=@_;
1122: my $folder=$env{'form.folder'};
1123: $r->print(&Apache::loncommon::start_page('Course Document Change Log'));
1124: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Document Change Log'));
1125: my %docslog=&Apache::lonnet::dump('nohist_docslog',
1126: $env{'course.'.$env{'request.course.id'}.'.domain'},
1127: $env{'course.'.$env{'request.course.id'}.'.num'});
1128:
1129: if ((keys(%docslog))[0]=~/^error\:/) { undef(%docslog); }
1130:
1131: $r->print('<form action="/adm/coursedocs" method="post" name="docslog">'.
1132: '<input type="hidden" name="docslog" value="1" />');
1133:
1134: my %saveable_parameters = ('show' => 'scalar',);
1135: &Apache::loncommon::store_course_settings('docs_log',
1136: \%saveable_parameters);
1137: &Apache::loncommon::restore_course_settings('docs_log',
1138: \%saveable_parameters);
1139: if (!$env{'form.show'}) { $env{'form.show'}=10; }
1140: my %lt=('hiddenresource' => 'Resources hidden',
1141: 'encrypturl' => 'URL hidden',
1142: 'randompick' => 'Randomly pick',
1143: 'randomorder' => 'Randomly ordered',
1144: 'set' => 'set to',
1145: 'del' => 'deleted');
1146: $r->print(&Apache::loncommon::display_filter().
1147: '<input type="hidden" name="folder" value="'.$folder.'" />'.
1148: '<input type="submit" value="'.&mt('Display').'" /></form>');
1149: $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
1150: '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Folder').'</th><th>'.&mt('Before').'</th><th>'.
1151: &mt('After').'</th>'.
1152: &Apache::loncommon::end_data_table_header_row());
1153: my $shown=0;
1154: foreach my $id (sort { $docslog{$b}{'exe_time'}<=>$docslog{$a}{'exe_time'} } (keys(%docslog))) {
1155: if ($env{'form.displayfilter'} eq 'currentfolder') {
1156: if ($docslog{$id}{'logentry'}{'currentfolder'} ne $folder) { next; }
1157: }
1158: my @changes=keys(%{$docslog{$id}{'logentry'}});
1159: if ($env{'form.displayfilter'} eq 'containing') {
1160: my $wholeentry=$docslog{$id}{'exe_uname'}.':'.$docslog{$id}{'exe_udom'}.':'.
1161: &Apache::loncommon::plainname($docslog{$id}{'exe_uname'},$docslog{$id}{'exe_udom'});
1162: foreach my $key (@changes) {
1163: $wholeentry.=':'.$docslog{$id}{'logentry'}{$key};
1164: }
1.344 bisitz 1165: if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }
1.329 droeschl 1166: }
1167: my $count = 0;
1168: my $time =
1169: &Apache::lonlocal::locallocaltime($docslog{$id}{'exe_time'});
1170: my $plainname =
1171: &Apache::loncommon::plainname($docslog{$id}{'exe_uname'},
1172: $docslog{$id}{'exe_udom'});
1173: my $about_me_link =
1174: &Apache::loncommon::aboutmewrapper($plainname,
1175: $docslog{$id}{'exe_uname'},
1176: $docslog{$id}{'exe_udom'});
1177: my $send_msg_link='';
1178: if ((($docslog{$id}{'exe_uname'} ne $env{'user.name'})
1179: || ($docslog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
1180: $send_msg_link ='<br />'.
1181: &Apache::loncommon::messagewrapper(&mt('Send message'),
1182: $docslog{$id}{'exe_uname'},
1183: $docslog{$id}{'exe_udom'});
1184: }
1185: $r->print(&Apache::loncommon::start_data_table_row());
1186: $r->print('<td>'.$time.'</td>
1187: <td>'.$about_me_link.
1188: '<br /><tt>'.$docslog{$id}{'exe_uname'}.
1189: ':'.$docslog{$id}{'exe_udom'}.'</tt>'.
1190: $send_msg_link.'</td><td>'.
1191: $docslog{$id}{'logentry'}{'folder'}.'</td><td>');
1192: # Before
1193: for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
1194: my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];
1195: my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];
1196: if ($oldname ne $newname) {
1197: $r->print(&LONCAPA::map::qtescape($oldname));
1198: }
1199: }
1200: $r->print('<ul>');
1201: for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
1202: if ($docslog{$id}{'logentry'}{'before_order_res_'.$idx}) {
1203: $r->print('<li>'.&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'before_order_res_'.$idx}))[0]).'</li>');
1204: }
1205: }
1206: $r->print('</ul>');
1207: # After
1208: $r->print('</td><td>');
1209:
1210: for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
1211: my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];
1212: my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];
1213: if ($oldname ne '' && $oldname ne $newname) {
1214: $r->print(&LONCAPA::map::qtescape($newname));
1215: }
1.364 bisitz 1216: }
1.329 droeschl 1217: $r->print('<ul>');
1218: for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
1219: if ($docslog{$id}{'logentry'}{'after_order_res_'.$idx}) {
1220: $r->print('<li>'.&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'after_order_res_'.$idx}))[0]).'</li>');
1221: }
1222: }
1223: $r->print('</ul>');
1224: if ($docslog{$id}{'logentry'}{'parameter_res'}) {
1225: $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');
1226: foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder') {
1227: if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {
1228: $r->print('<li>'.
1229: &mt($lt{$parameter}.' '.$lt{$docslog{$id}{'logentry'}{'parameter_action_'.$parameter}}.' [_1]',
1230: $docslog{$id}{'logentry'}{'parameter_value_'.$parameter})
1231: .'</li>');
1232: }
1233: }
1234: $r->print('</ul>');
1235: }
1236: # End
1237: $r->print('</td>'.&Apache::loncommon::end_data_table_row());
1238: $shown++;
1239: if (!($env{'form.show'} eq &mt('all')
1240: || $shown<=$env{'form.show'})) { last; }
1241: }
1242: $r->print(&Apache::loncommon::end_data_table());
1243: }
1244:
1245: sub update_paste_buffer {
1246: my ($coursenum,$coursedom) = @_;
1247:
1248: return if (!defined($env{'form.markcopy'}));
1249: return if (!defined($env{'form.copyfolder'}));
1250: return if ($env{'form.markcopy'} < 0);
1251:
1252: my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
1253: $env{'form.copyfolder'});
1.364 bisitz 1254:
1.329 droeschl 1255: return if ($fatal);
1256:
1257: # Mark for copying
1258: my ($title,$url)=split(':',$LONCAPA::map::resources[$LONCAPA::map::order[$env{'form.markcopy'}]]);
1259: if (&is_supplemental_title($title)) {
1260: &Apache::lonnet::appenv({'docs.markedcopy_supplemental' => $title});
1261: ($title) = &parse_supplemental_title($title);
1262: } elsif ($env{'docs.markedcopy_supplemental'}) {
1.346 raeburn 1263: &Apache::lonnet::delenv('docs.markedcopy_supplemental');
1.329 droeschl 1264: }
1265: $url=~s{http(:|:)//https(:|:)//}{https$2//};
1266:
1267: &Apache::lonnet::appenv({'docs.markedcopy_title' => $title,
1268: 'docs.markedcopy_url' => $url});
1269: delete($env{'form.markcopy'});
1270: }
1271:
1272: sub print_paste_buffer {
1273: my ($r,$container) = @_;
1274: return if (!defined($env{'docs.markedcopy_url'}));
1275:
1276: $r->print(<<ENDPASTE);
1277: <form name="pasteform" action="/adm/coursedocs" method="post"><p>
1278: ENDPASTE
1279: $r->print('<input type="submit" name="pastemarked" value="'.&mt('Paste').'" /> ');
1280:
1281: my $type;
1282: if ($env{'docs.markedcopy_url'} =~ m{^(?:/adm/wrapper/ext|(?:http|https)(?::|:))//} ) {
1283: $type = &mt('External Resource');
1284: $r->print($type.': '.
1285: &LONCAPA::map::qtescape($env{'docs.markedcopy_title'}).' ('.
1286: &LONCAPA::map::qtescape($env{'docs.markedcopy_url'}).')');
1287: } else {
1288: my $extension = (split(/\./,$env{'docs.markedcopy_url'}))[-1];
1289: my $icon = &Apache::loncommon::icon($extension);
1290: if ($extension eq 'sequence' &&
1291: $env{'docs.markedcopy_url'} =~ m{/default_\d+\.sequence$ }x) {
1292: $icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));
1.380 ! bisitz 1293: $icon .= '/navmap.folder.closed.gif';
1.329 droeschl 1294: }
1295: $icon = '<img src="'.$icon.'" alt="" class="LC_icon" />';
1296: $r->print($icon.$type.': '. &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'})));
1297: }
1298: if ($container eq 'page') {
1299: $r->print('
1300: <input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />
1301: <input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />
1302: ');
1303: } else {
1304: $r->print('
1305: <input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />
1306: ');
1307: }
1308: $r->print('</p></form>');
1309: }
1310:
1311: sub do_paste_from_buffer {
1312: my ($coursenum,$coursedom,$folder) = @_;
1313:
1314: if (!$env{'form.pastemarked'}) {
1315: return;
1316: }
1317:
1318: # paste resource to end of list
1319: my $url=&LONCAPA::map::qtescape($env{'docs.markedcopy_url'});
1320: my $title=&LONCAPA::map::qtescape($env{'docs.markedcopy_title'});
1321: # Maps need to be copied first
1322: if (($url=~/\.(page|sequence)$/) && ($url=~/^\/uploaded\//)) {
1323: $title=&mt('Copy of').' '.$title;
1324: my $newid=$$.int(rand(100)).time;
1325: my ($oldid,$ext) = ($url=~/^(.+)\.(\w+)$/);
1326: if ($oldid =~ m{^(/uploaded/\Q$coursedom\E/\Q$coursenum\E/)(\D+)(\d+)$}) {
1327: my $path = $1;
1328: my $prefix = $2;
1329: my $ancestor = $3;
1330: if (length($ancestor) > 10) {
1331: $ancestor = substr($ancestor,-10,10);
1332: }
1333: $oldid = $path.$prefix.$ancestor;
1334: }
1335: my $counter = 0;
1336: my $newurl=$oldid.$newid.'.'.$ext;
1337: my $is_unique = &uniqueness_check($newurl);
1338: while (!$is_unique && $counter < 100) {
1339: $counter ++;
1340: $newid ++;
1341: $newurl = $oldid.$newid;
1342: $is_unique = &uniqueness_check($newurl);
1343: }
1344: if (!$is_unique) {
1345: if ($url=~/\.page$/) {
1346: return &mt('Paste failed: an error occurred creating a unique URL for the composite page');
1347: } else {
1348: return &mt('Paste failed: an error occurred creating a unique URL for the folder');
1349: }
1350: }
1351: my $storefn=$newurl;
1352: $storefn=~s{^/\w+/$match_domain/$match_username/}{};
1353: my $paste_map_result =
1354: &Apache::lonclonecourse::writefile($env{'request.course.id'},$storefn,
1355: &Apache::lonnet::getfile($url));
1356: if ($paste_map_result eq '/adm/notfound.html') {
1357: if ($url=~/\.page$/) {
1358: return &mt('Paste failed: an error occurred saving the composite page');
1359: } else {
1360: return &mt('Paste failed: an error occurred saving the folder');
1361: }
1362: }
1363: $url = $newurl;
1364: }
1365: # published maps can only exists once, so remove it from paste buffer when done
1366: if (($url=~/\.(page|sequence)$/) && ($url=~m {^/res/})) {
1.346 raeburn 1367: &Apache::lonnet::delenv('docs.markedcopy');
1.329 droeschl 1368: }
1369: if ($url=~ m{/smppg$}) {
1370: my $db_name = &Apache::lonsimplepage::get_db_name($url);
1371: if ($db_name =~ /^smppage_/) {
1372: #simple pages, need to copy the db contents to a new one.
1373: my %contents=&Apache::lonnet::dump($db_name,$coursedom,$coursenum);
1374: my $now = time();
1375: $db_name =~ s{_\d*$ }{_$now}x;
1376: my $result=&Apache::lonnet::put($db_name,\%contents,
1377: $coursedom,$coursenum);
1.344 bisitz 1378: $url =~ s{/(\d*)/smppg$ }{/$now/smppg}x;
1.329 droeschl 1379: $title=&mt('Copy of').' '.$title;
1380: }
1381: }
1382: $title = &LONCAPA::map::qtunescape($title);
1383: my $ext='false';
1384: if ($url=~m{^http(|s)://}) { $ext='true'; }
1385: $url = &LONCAPA::map::qtunescape($url);
1386: # Now insert the URL at the bottom
1387: my $newidx = &LONCAPA::map::getresidx($url);
1388: if ($env{'docs.markedcopy_supplemental'}) {
1389: if ($folder =~ /^supplemental/) {
1390: $title = $env{'docs.markedcopy_supplemental'};
1391: } else {
1.344 bisitz 1392: (undef,undef,$title) =
1.329 droeschl 1393: &parse_supplemental_title($env{'docs.markedcopy_supplemental'});
1394: }
1395: } else {
1396: if ($folder=~/^supplemental/) {
1397: $title=time.'___&&&___'.$env{'user.name'}.'___&&&___'.
1398: $env{'user.domain'}.'___&&&___'.$title;
1399: }
1400: }
1401:
1402: $LONCAPA::map::resources[$newidx]= $title.':'.$url.':'.$ext.':normal:res';
1403: push(@LONCAPA::map::order, $newidx);
1404: return 'ok';
1405: # Store the result
1406: }
1407:
1408: sub uniqueness_check {
1409: my ($newurl) = @_;
1410: my $unique = 1;
1411: foreach my $res (@LONCAPA::map::order) {
1412: my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
1413: $url=&LONCAPA::map::qtescape($url);
1414: if ($newurl eq $url) {
1415: $unique = 0;
1.344 bisitz 1416: last;
1.329 droeschl 1417: }
1418: }
1419: return $unique;
1420: }
1421:
1422: my %parameter_type = ( 'randompick' => 'int_pos',
1423: 'hiddenresource' => 'string_yesno',
1424: 'encrypturl' => 'string_yesno',
1425: 'randomorder' => 'string_yesno',);
1426: my $valid_parameters_re = join('|',keys(%parameter_type));
1427: # set parameters
1428: sub update_parameter {
1429:
1430: return 0 if ($env{'form.changeparms'} !~ /^($valid_parameters_re)$/);
1431:
1432: my $which = $env{'form.changeparms'};
1433: my $idx = $env{'form.setparms'};
1434: if ($env{'form.'.$which.'_'.$idx}) {
1435: my $value = ($which eq 'randompick') ? $env{'form.'.$which.'_'.$idx}
1436: : 'yes';
1437: &LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $value,
1438: $parameter_type{$which});
1439: &remember_parms($idx,$which,'set',$value);
1440: } else {
1441: &LONCAPA::map::delparameter($idx,'parameter_'.$which);
1.364 bisitz 1442:
1.329 droeschl 1443: &remember_parms($idx,$which,'del');
1444: }
1445: return 1;
1446: }
1447:
1448:
1449: sub handle_edit_cmd {
1450: my ($coursenum,$coursedom) =@_;
1451:
1452: my ($cmd,$idx)=split('_',$env{'form.cmd'});
1453:
1454: my $ratstr = $LONCAPA::map::resources[$LONCAPA::map::order[$idx]];
1455: my ($title, $url, @rrest) = split(':', $ratstr);
1456:
1457: if ($cmd eq 'del') {
1458: if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) &&
1459: ($url!~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library|task)$/)) {
1460: &Apache::lonnet::removeuploadedurl($url);
1461: } else {
1462: &LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
1463: }
1464: splice(@LONCAPA::map::order, $idx, 1);
1465:
1466: } elsif ($cmd eq 'cut') {
1467: &LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
1468: splice(@LONCAPA::map::order, $idx, 1);
1469:
1.344 bisitz 1470: } elsif ($cmd eq 'up'
1.329 droeschl 1471: && ($idx) && (defined($LONCAPA::map::order[$idx-1]))) {
1472: @LONCAPA::map::order[$idx-1,$idx] = @LONCAPA::map::order[$idx,$idx-1];
1473:
1474: } elsif ($cmd eq 'down'
1475: && defined($LONCAPA::map::order[$idx+1])) {
1476: @LONCAPA::map::order[$idx+1,$idx] = @LONCAPA::map::order[$idx,$idx+1];
1477:
1478: } elsif ($cmd eq 'rename') {
1479:
1480: my $comment = &LONCAPA::map::qtunescape($env{'form.title'});
1481: if ($comment=~/\S/) {
1482: $LONCAPA::map::resources[$LONCAPA::map::order[$idx]]=
1483: $comment.':'.join(':', $url, @rrest);
1484: }
1485: # Devalidate title cache
1486: my $renamed_url=&LONCAPA::map::qtescape($url);
1487: &Apache::lonnet::devalidate_title_cache($renamed_url);
1488: } else {
1489: return 0;
1490: }
1491: return 1;
1492: }
1493:
1494: sub editor {
1495: my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$type)=@_;
1496:
1497: my $container= ($env{'form.pagepath'}) ? 'page'
1498: : 'sequence';
1499:
1500: my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
1501: $folder.'.'.$container);
1502: return $errtext if ($fatal);
1503:
1504: if ($#LONCAPA::map::order<1) {
1505: my $idx=&LONCAPA::map::getresidx();
1506: if ($idx<=0) { $idx=1; }
1507: $LONCAPA::map::order[0]=$idx;
1508: $LONCAPA::map::resources[$idx]='';
1509: }
1.364 bisitz 1510:
1.329 droeschl 1511: my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order)=
1512: &breadcrumbs($folder,$allowed,$type);
1513: $r->print($breadcrumbtrail);
1.364 bisitz 1514:
1.329 droeschl 1515: # ------------------------------------------------------------ Process commands
1516:
1517: # ---------------- if they are for this folder and user allowed to make changes
1518: if (($allowed) && ($env{'form.folder'} eq $folder)) {
1519: # set parameters and change order
1520: &snapshotbefore();
1521:
1522: if (&update_parameter()) {
1523: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1524: return $errtext if ($fatal);
1525: }
1526:
1527: if ($env{'form.newpos'} && $env{'form.currentpos'}) {
1528: # change order
1529: my $res = splice(@LONCAPA::map::order,$env{'form.currentpos'}-1,1);
1530: splice(@LONCAPA::map::order,$env{'form.newpos'}-1,0,$res);
1531:
1532: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1533: return $errtext if ($fatal);
1534: }
1.364 bisitz 1535:
1.329 droeschl 1536: if ($env{'form.pastemarked'}) {
1.344 bisitz 1537: my $paste_res =
1.329 droeschl 1538: &do_paste_from_buffer($coursenum,$coursedom,$folder);
1539: if ($paste_res eq 'ok') {
1540: ($errtext,$fatal) = &storemap($coursenum,$coursedom,$folder.'.'.$container);
1541: return $errtext if ($fatal);
1542: } elsif ($paste_res ne '') {
1543: $r->print('<p><span class="LC_error">'.$paste_res.'</span></p>');
1544: }
1545: }
1546:
1547: $r->print($upload_output);
1548:
1549: if (&handle_edit_cmd()) {
1550: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1551: return $errtext if ($fatal);
1552: }
1553: # Group import/search
1554: if ($env{'form.importdetail'}) {
1555: my @imports;
1556: foreach my $item (split(/\&/,$env{'form.importdetail'})) {
1557: if (defined($item)) {
1558: my ($name,$url,$residx)=
1559: map {&unescape($_)} split(/\=/,$item);
1560: push(@imports, [$name, $url, $residx]);
1561: }
1562: }
1563: ($errtext,$fatal)=&group_import($coursenum, $coursedom, $folder,
1564: $container,'londocs',@imports);
1565: return $errtext if ($fatal);
1566: }
1567: # Loading a complete map
1568: if ($env{'form.loadmap'}) {
1569: if ($env{'form.importmap'}=~/\w/) {
1570: foreach my $res (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$env{'form.importmap'}))) {
1571: my ($title,$url,$ext,$type)=split(/\:/,$res);
1572: my $idx=&LONCAPA::map::getresidx($url);
1573: $LONCAPA::map::resources[$idx]=$res;
1574: $LONCAPA::map::order[$#LONCAPA::map::order+1]=$idx;
1575: }
1576: ($errtext,$fatal)=&storemap($coursenum,$coursedom,
1577: $folder.'.'.$container);
1578: return $errtext if ($fatal);
1579: } else {
1580: $r->print('<p><span class="LC_error">'.&mt('No map selected.').'</span></p>');
1.364 bisitz 1581:
1.329 droeschl 1582: }
1583: }
1584: &log_differences($plain);
1585: }
1586: # ---------------------------------------------------------------- End commands
1587: # ---------------------------------------------------------------- Print screen
1588: my $idx=0;
1589: my $shown=0;
1590: if (($ishidden) || ($isencrypted) || ($randompick>=0) || ($is_random_order)) {
1591: $r->print('<p>'.&mt('Parameters').':<ul>'.
1592: ($randompick>=0?'<li>'.&mt('randomly pick [_1] resources',$randompick).'</li>':'').
1593: ($ishidden?'<li>'.&mt('contents hidden').'</li>':'').
1594: ($isencrypted?'<li>'.&mt('URLs hidden').'</li>':'').
1595: '</ul></p>');
1.364 bisitz 1596: }
1.329 droeschl 1597: if ($randompick>=0) {
1598: $r->print('<p>'.&mt('Caution: this folder is set to randomly pick a subset of resources. Adding or removing resources from this folder will change the set of resources that the students see, resulting in spurious or missing credit for completed problems, not limited to ones you modify. Do not modify the contents of this folder if it is in active student use.').'</p>');
1599: }
1600: if ($is_random_order) {
1601: $r->print('<p>'.&mt('Caution: this folder is set to randomly order its contents. Adding or removing resources from this folder will change the order of resources shown.').'</p>');
1602: }
1.379 bisitz 1603: $r->print(&Apache::loncommon::start_data_table());
1.329 droeschl 1604: foreach my $res (@LONCAPA::map::order) {
1605: my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
1606: $name=&LONCAPA::map::qtescape($name);
1607: $url=&LONCAPA::map::qtescape($url);
1608: unless ($name) { $name=(split(/\//,$url))[-1]; }
1609: unless ($name) { $idx++; next; }
1610: $r->print(&entryline($idx,$name,$url,$folder,$allowed,$res,
1611: $coursenum));
1612: $idx++;
1613: $shown++;
1614: }
1615: unless ($shown) {
1.379 bisitz 1616: $r->print('<tr><td><p class="LC_info">'
1617: .&mt('Currently no documents.')
1618: .'</p></td></tr>');
1.329 droeschl 1619: }
1.379 bisitz 1620: $r->print(&Apache::loncommon::end_data_table());
1.329 droeschl 1621: if ($allowed) {
1622: &print_paste_buffer($r,$container);
1623: }
1624: return;
1625: }
1626:
1627: sub process_file_upload {
1628: my ($upload_output,$coursenum,$coursedom,$allfiles,$codebase,$uploadcmd) = @_;
1629: # upload a file, if present
1630: my $parseaction;
1631: if ($env{'form.parserflag'}) {
1632: $parseaction = 'parse';
1633: }
1634: my $phase_status;
1635: my $folder=$env{'form.folder'};
1636: if ($folder eq '') {
1637: $folder='default';
1638: }
1639: if ( ($folder=~/^$uploadcmd/) || ($uploadcmd eq 'default') ) {
1640: my $errtext='';
1641: my $fatal=0;
1642: my $container='sequence';
1643: if ($env{'form.pagepath'}) {
1644: $container='page';
1645: }
1646: ($errtext,$fatal)=
1647: &mapread($coursenum,$coursedom,$folder.'.'.$container);
1648: if ($#LONCAPA::map::order<1) {
1649: $LONCAPA::map::order[0]=1;
1650: $LONCAPA::map::resources[1]='';
1651: }
1652: if ($fatal) {
1653: return 'failed';
1654: }
1655: my $destination = 'docs/';
1656: if ($folder =~ /^supplemental/) {
1657: $destination = 'supplemental/';
1658: }
1659: if (($folder eq 'default') || ($folder eq 'supplemental')) {
1660: $destination .= 'default/';
1661: } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {
1662: $destination .= $2.'/';
1663: }
1664: # this is for a course, not a user, so set coursedoc flag
1665: # probably the only place in the system where this should be "1"
1666: my $newidx=&LONCAPA::map::getresidx();
1667: $destination .= $newidx;
1668: my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,
1669: $parseaction,$allfiles,
1670: $codebase);
1671: my $ext='false';
1672: if ($url=~m{^http://}) { $ext='true'; }
1673: $url = &LONCAPA::map::qtunescape($url);
1674: my $comment=$env{'form.comment'};
1675: $comment = &LONCAPA::map::qtunescape($comment);
1676: if ($folder=~/^supplemental/) {
1677: $comment=time.'___&&&___'.$env{'user.name'}.'___&&&___'.
1678: $env{'user.domain'}.'___&&&___'.$comment;
1679: }
1680:
1681: $LONCAPA::map::resources[$newidx]=
1682: $comment.':'.$url.':'.$ext.':normal:res';
1683: $LONCAPA::map::order[$#LONCAPA::map::order+1]= $newidx;
1684: ($errtext,$fatal)=&storemap($coursenum,$coursedom,
1685: $folder.'.'.$container);
1686: if ($fatal) {
1687: $$upload_output .= '<p><span class="LC_error">'.$errtext.'</span></p>';
1688: return 'failed';
1689: } else {
1690: if ($parseaction eq 'parse') {
1691: my $total_embedded = keys(%{$allfiles});
1692: if ($total_embedded > 0) {
1693: my $num = 0;
1694: my $state = '
1695: <input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />
1696: <input type="hidden" name="cmd" value="upload_embedded" />
1697: <input type="hidden" name="newidx" value="'.$newidx.'" />
1698: <input type="hidden" name="primaryurl" value="'.&escape($url).'" />
1699: <input type="hidden" name="phasetwo" value="'.$total_embedded.'" />';
1700: $phase_status = 'phasetwo';
1701:
1.344 bisitz 1702: $$upload_output .=
1.329 droeschl 1703: 'This file contains embedded multimedia objects, which need to be uploaded to LON-CAPA.<br />'.
1704: &Apache::loncommon::ask_for_embedded_content(
1705: '/adm/coursedocs',$state,$allfiles,$codebase);
1706: } else {
1707: $$upload_output .= 'No embedded items identified<br />';
1708: }
1709: }
1710: }
1711: }
1712: return $phase_status;
1713: }
1714:
1715: sub process_secondary_uploads {
1716: my ($upload_output,$coursedom,$coursenum,$formname,$num,$newidx) = @_;
1717: my $folder=$env{'form.folder'};
1718: my $destination = 'docs/';
1719: if ($folder =~ /^supplemental/) {
1720: $destination = 'supplemental/';
1721: }
1722: if (($folder eq 'default') || ($folder eq 'supplemental')) {
1723: $destination .= 'default/';
1724: } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {
1725: $destination .= $2.'/';
1726: }
1727: $destination .= $newidx;
1728: my ($url,$filename);
1729: $url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);
1730: ($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});
1731: return $filename;
1732: }
1733:
1734: sub is_supplemental_title {
1735: my ($title) = @_;
1736: return scalar($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/);
1737: }
1738:
1739: sub parse_supplemental_title {
1740: my ($title) = @_;
1741:
1742: my ($foldertitle,$renametitle);
1743: if ($title =~ /&&&/) {
1744: $title = &HTML::Entites::decode($title);
1745: }
1746: if ($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/) {
1747: $renametitle=$4;
1748: my ($time,$uname,$udom) = ($1,$2,$3);
1749: $foldertitle=&Apache::lontexconvert::msgtexconverted($4);
1750: my $name = &Apache::loncommon::plainname($uname,$udom);
1751: $name = &HTML::Entities::encode($name,'"<>&\'');
1752: $title='<i>'.&Apache::lonlocal::locallocaltime($time).'</i> '.
1753: $name.': <br />'.$foldertitle;
1754: }
1755: if (wantarray) {
1756: return ($title,$foldertitle,$renametitle);
1.364 bisitz 1757: }
1.329 droeschl 1758: return $title;
1759: }
1760:
1761: # --------------------------------------------------------------- An entry line
1762:
1763: sub entryline {
1764: my ($index,$title,$url,$folder,$allowed,$residx,$coursenum)=@_;
1765:
1766: my ($foldertitle,$pagetitle,$renametitle);
1767: if (&is_supplemental_title($title)) {
1768: ($title,$foldertitle,$renametitle) = &parse_supplemental_title($title);
1769: $pagetitle = $foldertitle;
1770: } else {
1771: $title=&HTML::Entities::encode($title,'"<>&\'');
1772: $renametitle=$title;
1773: $foldertitle=$title;
1774: $pagetitle=$title;
1775: }
1776:
1777: my $orderidx=$LONCAPA::map::order[$index];
1.364 bisitz 1778:
1.329 droeschl 1779:
1780: $renametitle=~s/\\/\\\\/g;
1781: $renametitle=~s/\"\;/\\\"/g;
1782: $renametitle=~s/ /%20/g;
1.379 bisitz 1783: my $line=&Apache::loncommon::start_data_table_row();
1.329 droeschl 1784: my ($form_start,$form_end);
1785: # Edit commands
1786: my ($container, $type, $esc_path, $path, $symb);
1787: if ($env{'form.folderpath'}) {
1788: $type = 'folder';
1789: $container = 'sequence';
1790: $esc_path=&escape($env{'form.folderpath'});
1791: $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
1792: # $htmlfoldername=&HTML::Entities::encode($env{'form.foldername'},'<>&"');
1793: }
1794: if ($env{'form.pagepath'}) {
1795: $type = $container = 'page';
1796: $esc_path=&escape($path = $env{'form.pagepath'});
1797: $path = &HTML::Entities::encode($env{'form.pagepath'},'<>&"');
1798: $symb=&escape($env{'form.pagesymb'});
1799: }
1800: my $cpinfo='';
1801: if ($allowed) {
1802: my $incindex=$index+1;
1803: my $selectbox='';
1804: if (($folder!~/^supplemental/) &&
1.344 bisitz 1805: ($#LONCAPA::map::order>0) &&
1.329 droeschl 1806: ((split(/\:/,
1.344 bisitz 1807: $LONCAPA::map::resources[$LONCAPA::map::order[0]]))[1]
1808: ne '') &&
1.329 droeschl 1809: ((split(/\:/,
1.344 bisitz 1810: $LONCAPA::map::resources[$LONCAPA::map::order[1]]))[1]
1.329 droeschl 1811: ne '')) {
1812: $selectbox=
1813: '<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
1.373 bisitz 1814: '<select name="newpos" onchange="this.form.submit()">';
1.329 droeschl 1815: for (my $i=1;$i<=$#LONCAPA::map::order+1;$i++) {
1816: if ($i==$incindex) {
1.358 bisitz 1817: $selectbox.='<option value="" selected="selected">('.$i.')</option>';
1.329 droeschl 1818: } else {
1819: $selectbox.='<option value="'.$i.'">'.$i.'</option>';
1820: }
1821: }
1822: $selectbox.='</select>';
1823: }
1824: my %lt=&Apache::lonlocal::texthash(
1825: 'up' => 'Move Up',
1826: 'dw' => 'Move Down',
1827: 'rm' => 'Remove',
1828: 'ct' => 'Cut',
1829: 'rn' => 'Rename',
1830: 'cp' => 'Copy');
1831: my $nocopy=0;
1832: my $nocut=0;
1833: if ($url=~/\.(page|sequence)$/) {
1834: if ($url =~ m{/res/}) {
1835: # no copy for published maps
1836: $nocopy = 1;
1837: } else {
1838: foreach my $item (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$url),1)) {
1839: my ($title,$url,$ext,$type)=split(/\:/,$item);
1840: if (($url=~/\.(page|sequence)/) && ($type ne 'zombie')) {
1841: $nocopy=1;
1842: last;
1843: }
1844: }
1845: }
1846: }
1.344 bisitz 1847: if ($url=~/^\/res\/lib\/templates\//) {
1848: $nocopy=1;
1.329 droeschl 1849: $nocut=1;
1850: }
1851: my $copylink=' ';
1852: my $cutlink=' ';
1.364 bisitz 1853:
1.329 droeschl 1854: my $skip_confirm = 0;
1855: if ( $folder =~ /^supplemental/
1856: || ($url =~ m{( /smppg$
1857: |/syllabus$
1858: |/aboutme$
1859: |/navmaps$
1860: |/bulletinboard$
1861: |\.html$
1862: |^/adm/wrapper/ext)}x)) {
1863: $skip_confirm = 1;
1864: }
1865:
1866: if (!$nocopy) {
1867: $copylink=(<<ENDCOPY);
1868: <a href='javascript:markcopy("$esc_path","$index","$renametitle","$container","$symb","$folder");' class="LC_docs_copy">$lt{'cp'}</a>
1869: ENDCOPY
1870: }
1871: if (!$nocut) {
1872: $cutlink=(<<ENDCUT);
1873: <a href='javascript:cutres("$esc_path","$index","$renametitle","$container","$symb","$folder",$skip_confirm);' class="LC_docs_cut">$lt{'ct'}</a>
1874: ENDCUT
1875: }
1876: $form_start = (<<END);
1877: <form action="/adm/coursedocs" method="post">
1878: <input type="hidden" name="${type}path" value="$path" />
1879: <input type="hidden" name="${type}symb" value="$symb" />
1880: <input type="hidden" name="setparms" value="$orderidx" />
1881: <input type="hidden" name="changeparms" value="0" />
1882: END
1883: $form_end = '</form>';
1884: $line.=(<<END);
1885: <td>
1.379 bisitz 1886: <div class="LC_docs_entry_move">
1887: <a href='/adm/coursedocs?cmd=up_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'>
1888: <img src="${iconpath}move_up.gif" alt='$lt{'up'}' class="LC_icon" />
1889: </a>
1890: </div>
1891: <div class="LC_docs_entry_move">
1892: <a href='/adm/coursedocs?cmd=down_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'>
1893: <img src="${iconpath}move_down.gif" alt='$lt{'dw'}' class="LC_icon" />
1894: </a>
1895: </div>
1.329 droeschl 1896: </td>
1897: <td>
1898: $form_start
1899: $selectbox
1900: $form_end
1901: </td>
1902: <td class="LC_docs_entry_commands">
1903: <a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>
1904: $cutlink
1905: <a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>
1906: $copylink
1907: </td>
1908: END
1909:
1910: }
1911: # Figure out what kind of a resource this is
1912: my ($extension)=($url=~/\.(\w+)$/);
1913: my $uploaded=($url=~/^\/*uploaded\//);
1914: my $icon=&Apache::loncommon::icon($url);
1915: my $isfolder=0;
1916: my $ispage=0;
1917: my $folderarg;
1918: my $pagearg;
1919: my $pagefile;
1920: if ($uploaded) {
1921: if ($extension eq 'sequence') {
1.380 ! bisitz 1922: $icon=$iconpath.'/navmap.folder.closed.gif';
1.329 droeschl 1923: $url=~/\Q$coursenum\E\/([\/\w]+)\.sequence$/;
1924: $url='/adm/coursedocs?';
1925: $folderarg=$1;
1926: $isfolder=1;
1927: } elsif ($extension eq 'page') {
1928: $icon=$iconpath.'/page.gif';
1929: $url=~/\Q$coursenum\E\/([\/\w]+)\.page$/;
1930: $pagearg=$1;
1931: $url='/adm/coursedocs?';
1932: $ispage=1;
1933: } else {
1934: &Apache::lonnet::allowuploaded('/adm/coursedoc',$url);
1935: }
1936: }
1.364 bisitz 1937:
1.329 droeschl 1938: my $orig_url = $url;
1.340 raeburn 1939: $orig_url=~s{http(:|:)//https(:|:)//}{https$2//};
1.329 droeschl 1940: my $external = ($url=~s{^http(|s)(:|:)//}{/adm/wrapper/ext/});
1941: if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) {
1942: my $symb=&Apache::lonnet::symbclean(
1943: &Apache::lonnet::declutter('uploaded/'.
1944: $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.
1945: $env{'course.'.$env{'request.course.id'}.'.num'}.'/'.$folder.
1946: '.sequence').
1947: '___'.$residx.'___'.
1948: &Apache::lonnet::declutter($url));
1949: (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
1950: $url=&Apache::lonnet::clutter($url);
1951: if ($url=~/^\/*uploaded\//) {
1952: $url=~/\.(\w+)$/;
1953: my $embstyle=&Apache::loncommon::fileembstyle($1);
1954: if (($embstyle eq 'img') || ($embstyle eq 'emb')) {
1955: $url='/adm/wrapper'.$url;
1956: } elsif ($embstyle eq 'ssi') {
1957: #do nothing with these
1958: } elsif ($url!~/\.(sequence|page)$/) {
1959: $url='/adm/coursedocs/showdoc'.$url;
1960: }
1.344 bisitz 1961: } elsif ($url=~m|^/ext/|) {
1.329 droeschl 1962: $url='/adm/wrapper'.$url;
1963: $external = 1;
1964: }
1965: if (&Apache::lonnet::symbverify($symb,$url)) {
1966: $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
1967: } else {
1968: $url='';
1969: }
1970: if ($container eq 'page') {
1971: my $symb=$env{'form.pagesymb'};
1.364 bisitz 1972:
1.329 droeschl 1973: $url=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);
1974: $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
1975: }
1976: }
1977: my ($parameterset,$rand_order_text) = (' ', ' ');
1978: if ($isfolder || $extension eq 'sequence') {
1979: my $foldername=&escape($foldertitle);
1980: my $folderpath=$env{'form.folderpath'};
1981: if ($folderpath) { $folderpath.='&' };
1.344 bisitz 1982: # Append randompick number, hidden, and encrypted with ":" to foldername,
1.329 droeschl 1983: # so it gets transferred between levels
1984: $folderpath.=$folderarg.'&'.$foldername.':'.(&LONCAPA::map::getparameter($orderidx,
1985: 'parameter_randompick'))[0]
1986: .':'.((&LONCAPA::map::getparameter($orderidx,
1987: 'parameter_hiddenresource'))[0]=~/^yes$/i)
1988: .':'.((&LONCAPA::map::getparameter($orderidx,
1989: 'parameter_encrypturl'))[0]=~/^yes$/i)
1990: .':'.((&LONCAPA::map::getparameter($orderidx,
1991: 'parameter_randomorder'))[0]=~/^yes$/i);
1992: $url.='folderpath='.&escape($folderpath).$cpinfo;
1993: $parameterset='<label>'.&mt('Randomly Pick: ').
1.373 bisitz 1994: '<input type="text" size="4" onchange="this.form.changeparms.value='."'randompick'".';this.form.submit()" name="randompick_'.$orderidx.'" value="'.
1.329 droeschl 1995: (&LONCAPA::map::getparameter($orderidx,
1996: 'parameter_randompick'))[0].
1997: '" />'.
1998: '<a href="javascript:void(0)">'.&mt('Save').'</a></label>';
1999: my $ro_set=
2000: ((&LONCAPA::map::getparameter($orderidx,'parameter_randomorder'))[0]=~/^yes$/i?' checked="checked"':'');
2001: $rand_order_text ='
1.369 bisitz 2002: <span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" onclick="this.form.changeparms.value=\'randomorder\';this.form.submit()" '.$ro_set.' /> '.&mt('Random Order').' </label></span>';
1.329 droeschl 2003: }
2004: if ($ispage) {
2005: my $pagename=&escape($pagetitle);
2006: my $pagepath;
2007: my $folderpath=$env{'form.folderpath'};
2008: if ($folderpath) { $pagepath = $folderpath.'&' };
2009: $pagepath.=$pagearg.'&'.$pagename;
2010: my $symb=$env{'form.pagesymb'};
2011: if (!$symb) {
2012: my $path='uploaded/'.
2013: $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.
2014: $env{'course.'.$env{'request.course.id'}.'.num'}.'/';
2015: $symb=&Apache::lonnet::encode_symb($path.$folder.'.sequence',
2016: $residx,
2017: $path.$pagearg.'.page');
2018: }
2019: $url.='pagepath='.&escape($pagepath).
2020: '&pagesymb='.&escape($symb).$cpinfo;
2021: }
2022: if ($external) {
2023: my $form = ($folder =~ /^default/)? 'newext' : 'supnewext';
2024: $external = ' <a class="LC_docs_ext_edit" href="javascript:edittext(\''.$form.'\',\''.$residx.'\',\''.&escape($title).'\',\''.&escape($orig_url).'\');" >'.&mt('Edit').'</a>';
2025: } else {
2026: undef($external);
2027: }
2028: $line.='
1.379 bisitz 2029: <td>
1.329 droeschl 2030: '.($url?'<a href="'.$url.'">':'').'<img src="'.$icon.'" alt="" class="LC_icon" />'.($url?'</a>':'').'
2031: </td>
1.379 bisitz 2032: <td>
1.329 droeschl 2033: '.($url?"<a href=\"$url\">":'').$title.($url?'</a>':' <span class="LC_docs_reinit_warn">'.&mt('(re-initialize course to access)').'</span>').$external."
2034: </td>";
2035: if (($allowed) && ($folder!~/^supplemental/)) {
2036: my %lt=&Apache::lonlocal::texthash(
2037: 'hd' => 'Hidden',
2038: 'ec' => 'URL hidden');
2039: my $enctext=
1.358 bisitz 2040: ((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i?' checked="checked"':'');
1.329 droeschl 2041: my $hidtext=
1.358 bisitz 2042: ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i?' checked="checked"':'');
1.329 droeschl 2043: $line.=(<<ENDPARMS);
2044: <td class="LC_docs_entry_parameter">
2045: $form_start
1.369 bisitz 2046: <label><input type="checkbox" name="hiddenresource_$orderidx" onclick="this.form.changeparms.value='hiddenresource';this.form.submit()" $hidtext /> $lt{'hd'}</label>
1.329 droeschl 2047: $form_end
2048: </td>
2049: <td class="LC_docs_entry_parameter">
2050: $form_start
1.369 bisitz 2051: <label><input type="checkbox" name="encrypturl_$orderidx" onclick="this.form.changeparms.value='encrypturl';this.form.submit()" $enctext /> $lt{'ec'}</label>
1.329 droeschl 2052: $form_end
2053: </td>
2054: <td class="LC_docs_entry_parameter">$form_start $rand_order_text $form_end</td>
2055: <td class="LC_docs_entry_parameter">$form_start $parameterset $form_end</td>
2056: ENDPARMS
2057: }
1.379 bisitz 2058: $line.=&Apache::loncommon::end_data_table_row();
1.329 droeschl 2059: return $line;
2060: }
2061:
2062: =pod
2063:
2064: =item tiehash()
2065:
2066: tie the hash
2067:
2068: =cut
2069:
2070: sub tiehash {
2071: my ($mode)=@_;
2072: $hashtied=0;
2073: if ($env{'request.course.fn'}) {
2074: if ($mode eq 'write') {
2075: if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.".db",
2076: &GDBM_WRCREAT(),0640)) {
2077: $hashtied=2;
2078: }
2079: } else {
2080: if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.".db",
2081: &GDBM_READER(),0640)) {
2082: $hashtied=1;
2083: }
2084: }
1.364 bisitz 2085: }
1.329 droeschl 2086: }
2087:
2088: sub untiehash {
2089: if ($hashtied) { untie %hash; }
2090: $hashtied=0;
2091: return OK;
2092: }
2093:
2094:
2095:
2096:
2097: sub checkonthis {
2098: my ($r,$url,$level,$title)=@_;
2099: $url=&unescape($url);
2100: $alreadyseen{$url}=1;
2101: $r->rflush();
2102: if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {
2103: $r->print("\n<br />");
2104: if ($level==0) {
2105: $r->print("<br />");
2106: }
2107: for (my $i=0;$i<=$level*5;$i++) {
2108: $r->print(' ');
2109: }
2110: $r->print('<a href="'.$url.'" target="cat">'.
2111: ($title?$title:$url).'</a> ');
2112: if ($url=~/^\/res\//) {
2113: my $result=&Apache::lonnet::repcopy(
2114: &Apache::lonnet::filelocation('',$url));
2115: if ($result eq 'ok') {
2116: $r->print('<span class="LC_success">'.&mt('ok').'</span>');
2117: $r->rflush();
2118: &Apache::lonnet::countacc($url);
2119: $url=~/\.(\w+)$/;
2120: if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
2121: $r->print('<br />');
2122: $r->rflush();
2123: for (my $i=0;$i<=$level*5;$i++) {
2124: $r->print(' ');
2125: }
2126: $r->print('- '.&mt('Rendering:').' ');
2127: my ($errorcount,$warningcount)=split(/:/,
2128: &Apache::lonnet::ssi_body($url,
2129: ('grade_target'=>'web',
2130: 'return_only_error_and_warning_counts' => 1)));
2131: if (($errorcount) ||
2132: ($warningcount)) {
2133: if ($errorcount) {
1.369 bisitz 2134: $r->print('<img src="/adm/lonMisc/bomb.gif" alt="'.&mt('bomb').'" /><span class="LC_error">'.
1.329 droeschl 2135: &mt('[quant,_1,error]',$errorcount).'</span>');
2136: }
2137: if ($warningcount) {
2138: $r->print('<span class="LC_warning">'.
2139: &mt('[quant,_1,warning]',$warningcount).'</span>');
2140: }
2141: } else {
2142: $r->print('<span class="LC_success">'.&mt('ok').'</span>');
2143: }
2144: $r->rflush();
2145: }
2146: my $dependencies=
2147: &Apache::lonnet::metadata($url,'dependencies');
2148: foreach my $dep (split(/\,/,$dependencies)) {
2149: if (($dep=~/^\/res\//) && (!$alreadyseen{$dep})) {
2150: &checkonthis($r,$dep,$level+1);
2151: }
2152: }
2153: } elsif ($result eq 'unavailable') {
2154: $r->print('<span class="LC_error">'.&mt('connection down').'</span>');
2155: } elsif ($result eq 'not_found') {
2156: unless ($url=~/\$/) {
2157: $r->print('<span class="LC_error">'.&mt('not found').'</b></span>');
2158: } else {
1.366 bisitz 2159: $r->print('<span class="LC_error">'.&mt('unable to verify variable URL').'</span>');
1.329 droeschl 2160: }
2161: } else {
2162: $r->print('<span class="LC_error">'.&mt('access denied').'</span>');
2163: }
2164: }
2165: }
2166: }
2167:
2168:
2169:
2170: =pod
2171:
2172: =item list_symbs()
2173:
2174: List Symbs
2175:
2176: =cut
2177:
2178: sub list_symbs {
2179: my ($r) = @_;
2180:
2181: my $type = &Apache::loncommon::course_type();
2182: $r->print(&Apache::loncommon::start_page('Symb List'));
2183: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List'));
2184: my $navmap = Apache::lonnavmaps::navmap->new();
2185: if (!defined($navmap)) {
2186: $r->print('<h2>'.&mt('Retrieval of List Failed').'</h2>'.
2187: '<div class="LC_error">'.
2188: &mt('Unable to retrieve information about course contents').
2189: '</div>');
2190: &Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($type).':'.$env{'request.course.id'});
2191: } else {
2192: $r->print("<pre>\n");
2193: foreach my $res ($navmap->retrieveResources()) {
2194: $r->print($res->compTitle()."\t".$res->symb()."\n");
2195: }
2196: $r->print("\n</pre>\n");
2197: }
2198: $r->print('<a href="/adm/coursedocs">'.&mt('Return to DOCS').'</a>');
2199: }
2200:
2201:
2202: sub verifycontent {
2203: my ($r) = @_;
2204: my $type = &Apache::loncommon::course_type();
2205: my $loaderror=&Apache::lonnet::overloaderror($r);
2206: if ($loaderror) { return $loaderror; }
2207: $r->print(&Apache::loncommon::start_page('Verify '.$type.' Documents'));
2208: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$type.' Documents'));
2209: $hashtied=0;
2210: undef %alreadyseen;
2211: %alreadyseen=();
2212: &tiehash();
2213: foreach my $key (keys(%hash)) {
2214: if ($hash{$key}=~/\.(page|sequence)$/) {
2215: if (($key=~/^src_/) && ($alreadyseen{&unescape($hash{$key})})) {
2216: $r->print('<hr /><span class="LC_error">'.
2217: &mt('The following sequence or page is included more than once in your '.$type.': ').
2218: &unescape($hash{$key}).'</span><br />'.
2219: &mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />'));
2220: }
2221: }
2222: if (($key=~/^src\_(.+)$/) && (!$alreadyseen{&unescape($hash{$key})})) {
2223: &checkonthis($r,$hash{$key},0,$hash{'title_'.$1});
2224: }
2225: }
2226: &untiehash();
2227: $r->print('<h1>'.&mt('Done').'.</h1>'.'<a href="/adm/coursedocs">'.
2228: &mt('Return to DOCS').'</a>');
2229: }
2230:
2231:
2232: sub devalidateversioncache {
2233: my $src=shift;
2234: &Apache::lonnet::devalidate_cache_new('courseresversion',$env{'request.course.id'}.'_'.
2235: &Apache::lonnet::clutter($src));
2236: }
2237:
2238: sub checkversions {
2239: my ($r) = @_;
2240: my $type = &Apache::loncommon::course_type();
2241: $r->print(&Apache::loncommon::start_page("Check $type Document Versions"));
2242: $r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $type Document Versions"));
2243: my $header='';
2244: my $startsel='';
2245: my $monthsel='';
2246: my $weeksel='';
2247: my $daysel='';
2248: my $allsel='';
2249: my %changes=();
2250: my $starttime=0;
2251: my $haschanged=0;
2252: my %setversions=&Apache::lonnet::dump('resourceversions',
2253: $env{'course.'.$env{'request.course.id'}.'.domain'},
2254: $env{'course.'.$env{'request.course.id'}.'.num'});
2255:
2256: $hashtied=0;
2257: &tiehash();
2258: my %newsetversions=();
2259: if ($env{'form.setmostrecent'}) {
2260: $haschanged=1;
2261: foreach my $key (keys(%hash)) {
2262: if ($key=~/^ids\_(\/res\/.+)$/) {
2263: $newsetversions{$1}='mostrecent';
2264: &devalidateversioncache($1);
2265: }
2266: }
2267: } elsif ($env{'form.setcurrent'}) {
2268: $haschanged=1;
2269: foreach my $key (keys(%hash)) {
2270: if ($key=~/^ids\_(\/res\/.+)$/) {
2271: my $getvers=&Apache::lonnet::getversion($1);
2272: if ($getvers>0) {
2273: $newsetversions{$1}=$getvers;
2274: &devalidateversioncache($1);
2275: }
2276: }
2277: }
2278: } elsif ($env{'form.setversions'}) {
2279: $haschanged=1;
2280: foreach my $key (keys(%env)) {
2281: if ($key=~/^form\.set_version_(.+)$/) {
2282: my $src=$1;
2283: if (($env{$key}) && ($env{$key} ne $setversions{$src})) {
2284: $newsetversions{$src}=$env{$key};
2285: &devalidateversioncache($src);
2286: }
2287: }
2288: }
2289: }
2290: if ($haschanged) {
2291: if (&Apache::lonnet::put('resourceversions',\%newsetversions,
2292: $env{'course.'.$env{'request.course.id'}.'.domain'},
1.344 bisitz 2293: $env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {
1.329 droeschl 2294: $r->print('<h1>'.&mt('Your Version Settings have been Saved').'</h1>');
2295: } else {
2296: $r->print('<h1><span class="LC_error">'.&mt('An Error Occured while Attempting to Save your Version Settings').'</span></h1>');
2297: }
2298: &mark_hash_old();
2299: }
2300: &changewarning($r,'');
2301: if ($env{'form.timerange'} eq 'all') {
2302: # show all documents
2303: $header=&mt('All Documents in '.$type);
2304: $allsel=1;
2305: foreach my $key (keys(%hash)) {
2306: if ($key=~/^ids\_(\/res\/.+)$/) {
2307: my $src=$1;
2308: $changes{$src}=1;
2309: }
2310: }
2311: } else {
2312: # show documents which changed
2313: %changes=&Apache::lonnet::dump
2314: ('versionupdate',$env{'course.'.$env{'request.course.id'}.'.domain'},
2315: $env{'course.'.$env{'request.course.id'}.'.num'});
2316: my $firstkey=(keys(%changes))[0];
2317: unless ($firstkey=~/^error\:/) {
2318: unless ($env{'form.timerange'}) {
2319: $env{'form.timerange'}=604800;
2320: }
2321: my $seltext=&mt('during the last').' '.$env{'form.timerange'}.' '
2322: .&mt('seconds');
2323: if ($env{'form.timerange'}==-1) {
2324: $seltext='since start of course';
2325: $startsel='selected';
2326: $env{'form.timerange'}=time;
2327: }
2328: $starttime=time-$env{'form.timerange'};
2329: if ($env{'form.timerange'}==2592000) {
2330: $seltext=&mt('during the last month').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
2331: $monthsel='selected';
2332: } elsif ($env{'form.timerange'}==604800) {
2333: $seltext=&mt('during the last week').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
2334: $weeksel='selected';
2335: } elsif ($env{'form.timerange'}==86400) {
2336: $seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
2337: $daysel='selected';
2338: }
2339: $header=&mt('Content changed').' '.$seltext;
2340: } else {
2341: $header=&mt('No content modifications yet.');
2342: }
2343: }
2344: %setversions=&Apache::lonnet::dump('resourceversions',
2345: $env{'course.'.$env{'request.course.id'}.'.domain'},
2346: $env{'course.'.$env{'request.course.id'}.'.num'});
2347: my %lt=&Apache::lonlocal::texthash
2348: ('st' => 'Version changes since start of '.$type,
2349: 'lm' => 'Version changes since last Month',
2350: 'lw' => 'Version changes since last Week',
2351: 'sy' => 'Version changes since Yesterday',
2352: 'al' => 'All Resources (possibly large output)',
2353: 'sd' => 'Display',
2354: 'fi' => 'File',
2355: 'md' => 'Modification Date',
2356: 'mr' => 'Most recently published Version',
2357: 've' => 'Version used in '.$type,
2358: 'vu' => 'Set Version to be used in '.$type,
2359: 'sv' => 'Set Versions to be used in '.$type.' according to Selections below',
2360: 'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',
2361: 'sc' => 'Set all Resource Versions to current Version (Fix Versions)',
2362: 'di' => 'Differences');
2363: $r->print(<<ENDHEADERS);
2364: <form action="/adm/coursedocs" method="post">
2365: <input type="hidden" name="versions" value="1" />
2366: <input type="submit" name="setmostrecent" value="$lt{'sm'}" />
2367: <input type="submit" name="setcurrent" value="$lt{'sc'}" /><hr />
2368: <select name="timerange">
2369: <option value='all' $allsel>$lt{'al'}</option>
2370: <option value="-1" $startsel>$lt{'st'}</option>
2371: <option value="2592000" $monthsel>$lt{'lm'}</option>
2372: <option value="604800" $weeksel>$lt{'lw'}</option>
2373: <option value="86400" $daysel>$lt{'sy'}</option>
2374: </select>
2375: <input type="submit" name="display" value="$lt{'sd'}" />
2376: <h3>$header</h3>
2377: <input type="submit" name="setversions" value="$lt{'sv'}" />
2378: <table border="0">
2379: ENDHEADERS
2380: foreach my $key (sort(keys(%changes))) {
2381: if ($changes{$key}>$starttime) {
2382: my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);
2383: my $currentversion=&Apache::lonnet::getversion($key);
2384: if ($currentversion<0) {
2385: $currentversion=&mt('Could not be determined.');
2386: }
2387: my $linkurl=&Apache::lonnet::clutter($key);
2388: $r->print(
2389: '<tr><td colspan="5"><br /><br /><font size="+1"><b>'.
2390: &Apache::lonnet::gettitle($linkurl).
2391: '</b></font></td></tr>'.
2392: '<tr><td> </td>'.
2393: '<td colspan="4">'.
2394: '<a href="'.$linkurl.'" target="cat">'.$linkurl.
2395: '</a></td></tr>'.
2396: '<tr><td></td>'.
2397: '<td title="'.$lt{'md'}.'">'.
2398: &Apache::lonlocal::locallocaltime(
2399: &Apache::lonnet::metadata($root.'.'.$extension,
2400: 'lastrevisiondate')
2401: ).
2402: '</td>'.
2403: '<td title="'.$lt{'mr'}.'"><span class="LC_nobreak">Most Recent: '.
2404: '<font size="+1">'.$currentversion.'</font>'.
2405: '</span></td>'.
2406: '<td title="'.$lt{'ve'}.'"><span class="LC_nobreak">In '.$type.': '.
2407: '<font size="+1">');
2408: # Used in course
2409: my $usedversion=$hash{'version_'.$linkurl};
2410: if (($usedversion) && ($usedversion ne 'mostrecent')) {
2411: $r->print($usedversion);
2412: } else {
2413: $r->print($currentversion);
2414: }
2415: $r->print('</font></span></td><td title="'.$lt{'vu'}.'">'.
2416: '<span class="LC_nobreak">Use: ');
2417: # Set version
2418: $r->print(&Apache::loncommon::select_form($setversions{$linkurl},
2419: 'set_version_'.$linkurl,
2420: ('select_form_order' =>
2421: ['',1..$currentversion,'mostrecent'],
2422: '' => '',
2423: 'mostrecent' => 'most recent',
2424: map {$_,$_} (1..$currentversion))));
2425: $r->print('</span></td></tr><tr><td></td>');
2426: my $lastold=1;
2427: for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
2428: my $url=$root.'.'.$prevvers.'.'.$extension;
2429: if (&Apache::lonnet::metadata($url,'lastrevisiondate')<
2430: $starttime) {
2431: $lastold=$prevvers;
2432: }
2433: }
1.364 bisitz 2434: #
1.329 droeschl 2435: # Code to figure out how many version entries should go in
2436: # each of the four columns
2437: my $entries_per_col = 0;
2438: my $num_entries = ($currentversion-$lastold);
2439: if ($num_entries % 4 == 0) {
2440: $entries_per_col = $num_entries/4;
2441: } else {
2442: $entries_per_col = $num_entries/4 + 1;
2443: }
2444: my $entries_count = 0;
1.344 bisitz 2445: $r->print('<td valign="top"><font size="-2">');
1.329 droeschl 2446: my $cols_output = 1;
2447: for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
2448: my $url=$root.'.'.$prevvers.'.'.$extension;
2449: $r->print('<span class="LC_nobreak"><a href="'.&Apache::lonnet::clutter($url).
2450: '">'.&mt('Version').' '.$prevvers.'</a> ('.
2451: &Apache::lonlocal::locallocaltime(
2452: &Apache::lonnet::metadata($url,
2453: 'lastrevisiondate')
2454: ).
2455: ')');
2456: if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
2457: $r->print(' <a href="/adm/diff?filename='.
2458: &Apache::lonnet::clutter($root.'.'.$extension).
2459: '&versionone='.$prevvers.
2460: '">'.&mt('Diffs').'</a>');
2461: }
2462: $r->print('</span><br />');
2463: if (++$entries_count % $entries_per_col == 0) {
2464: $r->print('</font></td>');
2465: if ($cols_output != 4) {
2466: $r->print('<td valign="top"><font size="-2">');
2467: $cols_output++;
2468: }
2469: }
2470: }
2471: while($cols_output++ < 4) {
2472: $r->print('</font></td><td><font>')
2473: }
2474: $r->print('</font></td></tr>'."\n");
2475: }
2476: }
2477: $r->print('</table></form>');
2478: $r->print('<h1>'.&mt('Done').'.</h1>');
2479:
2480: &untiehash();
2481: }
2482:
2483: sub mark_hash_old {
2484: my $retie_hash=0;
2485: if ($hashtied) {
2486: $retie_hash=1;
2487: &untiehash();
2488: }
2489: &tiehash('write');
2490: $hash{'old'}=1;
2491: &untiehash();
2492: if ($retie_hash) { &tiehash(); }
2493: }
2494:
2495: sub is_hash_old {
2496: my $untie_hash=0;
2497: if (!$hashtied) {
2498: $untie_hash=1;
2499: &tiehash();
2500: }
2501: my $return=$hash{'old'};
2502: if ($untie_hash) { &untiehash(); }
2503: return $return;
2504: }
2505:
2506: sub changewarning {
2507: my ($r,$postexec,$message,$url)=@_;
2508: if (!&is_hash_old()) { return; }
2509: my $pathvar='folderpath';
2510: my $path=&escape($env{'form.folderpath'});
2511: if (!defined($url)) {
2512: if (defined($env{'form.pagepath'})) {
2513: $pathvar='pagepath';
2514: $path=&escape($env{'form.pagepath'});
2515: $path.='&pagesymb='.&escape($env{'form.pagesymb'});
2516: }
2517: $url='/adm/coursedocs?'.$pathvar.'='.$path;
2518: }
2519: my $course_type = &Apache::loncommon::course_type();
2520: if (!defined($message)) {
2521: $message='Changes will become active for your current session after [_1], or the next time you log in.';
2522: }
2523: $r->print("\n\n".
1.372 bisitz 2524: '<script type="text/javascript">'."\n".
2525: '// <![CDATA['."\n".
2526: 'function reinit(tf) { tf.submit();'.$postexec.' }'."\n".
2527: '// ]]>'."\n".
1.369 bisitz 2528: '</script>'."\n".
1.375 tempelho 2529: '<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.
1.329 droeschl 2530: '<input type="hidden" name="orgurl" value="'.$url.
1.372 bisitz 2531: '" /><input type="hidden" name="selectrole" value="1" /><p class="LC_warning">'.
1.329 droeschl 2532: &mt($message,' <input type="hidden" name="'.
2533: $env{'request.role'}.'" value="1" /><input type="button" value="'.
1.369 bisitz 2534: &mt('re-initializing '.$course_type).'" onclick="reinit(this.form)" />').
1.372 bisitz 2535: $help{'Caching'}.'</p></form>'."\n\n");
1.329 droeschl 2536: }
2537:
2538:
2539: sub init_breadcrumbs {
2540: my ($form,$text)=@_;
2541: &Apache::lonhtmlcommon::clear_breadcrumbs();
2542: &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs",
2543: text=>"Edit ".&Apache::loncommon::course_type(),
2544: faq=>273,
2545: bug=>'Instructor Interface',
2546: help => 'Docs_Adding_Course_Doc'});
2547: &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?".$form.'=1',
2548: text=>$text,
2549: faq=>273,
2550: bug=>'Instructor Interface'});
2551: }
2552:
2553:
2554:
2555:
2556: sub handler {
2557: my $r = shift;
2558: &Apache::loncommon::content_type($r,'text/html');
2559: $r->send_http_header;
2560: return OK if $r->header_only;
2561: my $type = &Apache::loncommon::course_type();
2562:
2563:
2564: # --------------------------------------------- Initialize help topics for this
2565: foreach my $topic ('Adding_Course_Doc','Main_Course_Documents',
2566: 'Adding_External_Resource','Navigate_Content',
2567: 'Adding_Folders','Docs_Overview', 'Load_Map',
2568: 'Supplemental','Score_Upload_Form','Adding_Pages',
2569: 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive',
2570: 'Check_Resource_Versions','Verify_Content') {
2571: $help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);
2572: }
2573: # Composite help files
2574: $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
2575: 'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
2576: $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
2577: 'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
2578: $help{'Simple Problem'} = &Apache::loncommon::help_open_topic(
2579: 'Option_Response_Simple');
2580: $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
2581: 'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
1.347 weissno 2582: $help{'My Personal Information Page'} = &Apache::loncommon::help_open_topic(
1.329 droeschl 2583: 'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
1.353 weissno 2584: $help{'Group Portfolio'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');
1.329 droeschl 2585: $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
2586:
2587: # does this user have privileges to modify docs
2588: my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
2589: if ($allowed && $env{'form.verify'}) {
2590: &init_breadcrumbs('verify','Verify Content');
2591: &verifycontent($r);
2592: } elsif ($allowed && $env{'form.listsymbs'}) {
2593: &init_breadcrumbs('listsymbs','List Symbs');
2594: &list_symbs($r);
2595: } elsif ($allowed && $env{'form.docslog'}) {
2596: &init_breadcrumbs('docslog','Show Log');
2597: &docs_change_log($r);
2598: } elsif ($allowed && $env{'form.versions'}) {
2599: &init_breadcrumbs('versions','Check/Set Resource Versions');
2600: &checkversions($r);
2601: } elsif ($allowed && $env{'form.dumpcourse'}) {
2602: &init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' DOCS to Construction Space');
2603: &dumpcourse($r);
2604: } elsif ($allowed && $env{'form.exportcourse'}) {
1.377 bisitz 2605: &init_breadcrumbs('exportcourse','IMS Export');
1.329 droeschl 2606: &exportcourse($r);
2607: } else {
2608: # is this a standard course?
2609:
2610: my $standard=($env{'request.course.uri'}=~/^\/uploaded\//);
2611: my $forcestandard = 0;
2612: my $forcesupplement;
2613: my $script='';
2614: my $showdoc=0;
2615: my $containertag;
2616: my $uploadtag;
2617:
2618:
2619: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
2620: ['folderpath','pagepath',
2621: 'pagesymb']);
2622: # No folderpath, no pagepath, see if we have something stored
2623: if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'})) {
2624: &Apache::loncommon::restore_course_settings('docs_folderpath',
2625: {'folderpath' => 'scalar'});
2626: }
2627: if (!$env{'form.folderpath'}) {
2628: &Apache::loncommon::restore_course_settings('docs_folderpath',
2629: {'pagepath' => 'scalar'});
2630: }
2631: if ($env{'form.pagepath'}) {
2632: $env{'form.folderpath'}='';
2633: }
2634: if ($env{'form.folderpath'} =~ /^supplemental_\d+/) {
2635: $env{'form.folderpath'} = 'supplemental&'.
2636: &escape(&mt('Supplemental '.$type.' Documents')).'&'.
2637: $env{'form.folderpath'};
2638: }
2639: &Apache::loncommon::store_course_settings('docs_folderpath',
2640: {'pagepath' => 'scalar',
2641: 'folderpath' => 'scalar'});
2642: if ($env{'form.folderpath'}) {
2643: my (@folderpath)=split('&',$env{'form.folderpath'});
2644: $env{'form.foldername'}=&unescape(pop(@folderpath));
2645: $env{'form.folder'}=pop(@folderpath);
2646: }
2647: if ($env{'form.pagepath'}) {
2648: my (@pagepath)=split('&',$env{'form.pagepath'});
2649: $env{'form.pagename'}=&unescape(pop(@pagepath));
2650: $env{'form.folder'}=pop(@pagepath);
2651: $containertag = '<input type="hidden" name="pagepath" value="" />'.
2652: '<input type="hidden" name="pagesymb" value="" />';
2653: $uploadtag = '<input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />'.
2654: '<input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />';
2655: }
2656: if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
2657: $showdoc='/'.$1;
2658: }
2659: unless ($showdoc) { # got called from remote
1.344 bisitz 2660: if (($env{'form.folder'}=~/^(?:group|default)_/) ||
1.329 droeschl 2661: ($env{'form.folder'} =~ m:^\d+/(pages|sequences)/:)) {
2662: $forcestandard = 1;
1.364 bisitz 2663: }
1.329 droeschl 2664: $forcesupplement=($env{'form.folder'}=~/^supplemental_/);
2665:
1.344 bisitz 2666: if ($allowed) {
1.329 droeschl 2667: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
1.344 bisitz 2668: $script=&Apache::lonratedt::editscript('simple');
1.329 droeschl 2669: }
2670: } else { # got called in sequence from course
2671: $allowed=0;
2672: }
2673:
2674: # get course data
2675: my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};
2676: my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};
2677:
1.344 bisitz 2678: # get personal data
1.329 droeschl 2679: my $uname=$env{'user.name'};
2680: my $udom=$env{'user.domain'};
2681: my $plainname=&escape(&Apache::loncommon::plainname($uname,$udom));
2682:
2683: # graphics settings
2684:
2685: $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/");
2686:
2687: if ($allowed) {
2688: $script .= &editing_js($udom,$uname);
2689: }
2690: # -------------------------------------------------------------------- Body tag
1.369 bisitz 2691: $script = '<script type="text/javascript">'."\n"
1.372 bisitz 2692: .'// <![CDATA['."\n"
2693: .$script."\n"
2694: .'// ]]>'."\n"
2695: .'</script>'."\n";
1.329 droeschl 2696: my $brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}];
2697: $r->print(&Apache::loncommon::start_page("$type Documents", $script,
2698: {'force_register' => $showdoc,
2699: 'bread_crumbs' => $brcrum}).
2700: &Apache::loncommon::help_open_menu('','',273,'RAT'));
1.364 bisitz 2701:
1.329 droeschl 2702: my %allfiles = ();
2703: my %codebase = ();
2704: my ($upload_result,$upload_output);
2705: if ($allowed) {
2706: if (($env{'form.uploaddoc.filename'}) &&
2707: ($env{'form.cmd'}=~/^upload_(\w+)/)) {
1.344 bisitz 2708: # Process file upload - phase one - upload and parse primary file.
1.329 droeschl 2709: undef($hadchanges);
2710: $upload_result = &process_file_upload(\$upload_output,$coursenum,
2711: $coursedom,\%allfiles,
2712: \%codebase,$1);
2713: if ($hadchanges) {
2714: &mark_hash_old();
2715: }
2716: if ($upload_result eq 'phasetwo') {
2717: $r->print($upload_output);
2718: }
2719: } elsif ($env{'form.phasetwo'}) {
2720: my %newname = ();
2721: my %origname = ();
2722: my %attribs = ();
2723: my $updateflag = 0;
2724: my $residx = $env{'form.newidx'};
2725: my $primary_url = &unescape($env{'form.primaryurl'});
2726: # Process file upload - phase two - gather secondary files.
2727: for (my $i=0; $i<$env{'form.phasetwo'}; $i++) {
2728: if ($env{'form.embedded_item_'.$i.'.filename'}) {
2729: my $javacodebase;
2730: $newname{$i} = &process_secondary_uploads(\$upload_output,$coursedom,$coursenum,'embedded_item_',$i,$residx);
2731: $origname{$i} = &unescape($env{'form.embedded_orig_'.$i});
2732: if (exists($env{'form.embedded_codebase_'.$i})) {
1.344 bisitz 2733: $javacodebase = &unescape($env{'form.embedded_codebase_'.$i});
2734: $origname{$i} =~ s#^\Q$javacodebase\E/##;
1.329 droeschl 2735: }
2736: my @attributes = ();
2737: if ($env{'form.embedded_attrib_'.$i} =~ /:/) {
2738: @attributes = split(/:/,$env{'form.embedded_attrib_'.$i});
2739: } else {
2740: @attributes = ($env{'form.embedded_attrib_'.$i});
2741: }
2742: foreach my $attr (@attributes) {
2743: push(@{$attribs{$i}},&unescape($attr));
2744: }
2745: if ($javacodebase) {
2746: $codebase{$i} = $javacodebase;
2747: $codebase{$i} =~ s#/$##;
2748: $updateflag = 1;
2749: }
2750: }
2751: unless ($newname{$i} eq $origname{$i}) {
2752: $updateflag = 1;
2753: }
2754: }
2755: # Process file upload - phase three - modify primary file
2756: if ($updateflag) {
2757: my ($content,$rtncode);
2758: my $updateflag = 0;
2759: my $getstatus = &Apache::lonnet::getuploaded('GET',$primary_url,$coursedom,$coursenum,\$content,\$rtncode);
2760: if ($getstatus eq 'ok') {
2761: foreach my $item (keys(%newname)) {
2762: if ($newname{$item} ne $origname{$item}) {
2763: my $attrib_regexp = '';
2764: if (@{$attribs{$item}} > 1) {
2765: $attrib_regexp = join('|',@{$attribs{$item}});
2766: } else {
2767: $attrib_regexp = $attribs{$item}[0];
2768: }
2769: if ($content =~ m#($attrib_regexp\s*=\s*['"]?)\Q$origname{$item}\E(['"]?)#) {
1.364 bisitz 2770: }
1.344 bisitz 2771: $content =~ s#($attrib_regexp\s*=\s*['"]?)\Q$origname{$item}\E(['"]?)#$1$newname{$item}$2#gi;
1.329 droeschl 2772: }
2773: if (exists($codebase{$item})) {
2774: $content =~ s/(codebase\s*=\s*["']?)\Q$codebase{$item}\E(["']?)/$1.$2/i; #' stupid emacs
2775: }
2776: }
2777: # Save edited file.
2778: my $saveresult;
2779: my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
2780: my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
2781: my $url = &Apache::lonnet::store_edited_file($primary_url,$content,$docudom,$docuname,\$saveresult);
2782: } else {
1.344 bisitz 2783: &Apache::lonnet::logthis('retrieval of uploaded file - '.$primary_url.' - for editing, failed: '.$getstatus);
1.329 droeschl 2784: }
2785: }
2786: }
2787: }
2788:
2789: unless ($showdoc || $upload_result eq 'phasetwo') {
2790: # -----------------------------------------------------------------------------
2791: my %lt=&Apache::lonlocal::texthash(
2792: 'uplm' => 'Upload a new main '.lc($type).' document',
2793: 'upls' => 'Upload a new supplemental '.lc($type).' document',
2794: 'impp' => 'Import a document',
2795: 'copm' => 'All documents out of a published map into this folder',
2796: 'upld' => 'Upload Document',
2797: 'srch' => 'Search',
2798: 'impo' => 'Import',
2799: 'book' => 'Import Bookmarks',
2800: 'selm' => 'Select Map',
2801: 'load' => 'Load Map',
2802: 'reco' => 'Recover Deleted Resources',
2803: 'newf' => 'New Folder',
2804: 'newp' => 'New Composite Page',
2805: 'extr' => 'External Resource',
2806: 'syll' => 'Syllabus',
2807: 'navc' => 'Navigate Contents',
1.343 biermanm 2808: 'sipa' => 'Simple Course Page',
1.329 droeschl 2809: 'sipr' => 'Simple Problem',
2810: 'drbx' => 'Drop Box',
2811: 'scuf' => 'Score Upload Form',
1.336 schafran 2812: 'bull' => 'Discussion Board',
1.347 weissno 2813: 'mypi' => 'My Personal Information Page',
1.353 weissno 2814: 'grpo' => 'Group Portfolio',
1.329 droeschl 2815: 'rost' => 'Course Roster',
1.348 weissno 2816: 'abou' => 'Personal Information Page for a User',
1.377 bisitz 2817: 'imsf' => 'IMS Import',
2818: 'imsl' => 'Import IMS package',
1.329 droeschl 2819: 'file' => 'File',
2820: 'title' => 'Title',
2821: 'comment' => 'Comment',
2822: 'parse' => 'Upload embedded images/multimedia files if HTML file!',
1.368 truskell 2823: 'nd' => 'Upload Document',
1.329 droeschl 2824: 'pm' => 'Published Map',
2825: 'sd' => 'Special Document',
2826: 'mo' => 'More Options',
2827: );
2828: # -----------------------------------------------------------------------------
2829: my $fileupload=(<<FIUP);
2830: $lt{'file'}:<br />
2831: <input type="file" name="uploaddoc" size="40" />
2832: FIUP
2833:
2834: my $checkbox=(<<CHBO);
2835: <!-- <label>$lt{'parse'}?
2836: <input type="checkbox" name="parserflag" />
2837: </label> -->
2838: <label>
2839: <input type="checkbox" name="parserflag" checked="checked" /> $lt{'parse'}
2840: </label>
2841: CHBO
2842:
2843: my $fileuploadform=(<<FUFORM);
2844: <form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">
1.371 tempelho 2845: <input type="hidden" name="active" value="aa" />
1.329 droeschl 2846: $fileupload
2847: <br />
2848: $lt{'title'}:<br />
2849: <input type="text" size="50" name="comment" />
2850: $uploadtag
2851: <input type="hidden" name="cmd" value="upload_default" />
2852: <br />
2853: <span class="LC_nobreak">
2854: $checkbox
2855: </span>
2856: <br />
2857: <br />
2858: <span class="LC_nobreak">
2859: <input type="submit" value="$lt{'upld'}" />
2860: $help{'Uploading_From_Harddrive'}
2861: </span>
2862: </form>
2863: FUFORM
2864:
2865: my $simpleeditdefaultform=(<<SEDFFORM);
2866: <form action="/adm/coursedocs" method="post" name="simpleeditdefault">
1.371 tempelho 2867: <input type="hidden" name="active" value="bb" />
1.329 droeschl 2868: $uploadtag
1.369 bisitz 2869: <input type="button" onclick="javascript:groupsearch()" value="$lt{'srch'}" />
1.329 droeschl 2870: <br />
2871: <span class="LC_nobreak">
1.369 bisitz 2872: <input type="button" onclick="javascript:groupimport();" value="$lt{'impo'}" />
1.329 droeschl 2873: $help{'Importing_LON-CAPA_Resource'}
2874: </span>
2875: <br />
1.369 bisitz 2876: <input type="button" onclick="javascript:groupopen(0,1,1);" value="$lt{'book'}" />
1.329 droeschl 2877: <hr />
2878: <p>
2879: $lt{'copm'}<br />
2880: <input type="text" size="40" name="importmap" /><br />
1.344 bisitz 2881: <span class="LC_nobreak"><input type="button"
1.369 bisitz 2882: onclick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
1.329 droeschl 2883: value="$lt{'selm'}" /> <input type="submit" name="loadmap" value="$lt{'load'}" />
2884: $help{'Load_Map'}</span>
2885: </p>
2886: </form>
2887: SEDFFORM
2888:
2889: my $extresourcesform=(<<ERFORM);
2890: <form action="/adm/coursedocs" method="post" name="newext">
2891: $uploadtag
2892: <input type="hidden" name="importdetail" value="" />
2893: <span class="LC_nobreak">
1.369 bisitz 2894: <input name="newext" type="button" onclick="javascript:makenewext('newext');"
1.329 droeschl 2895: value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
2896: </span>
2897: </form>
2898: ERFORM
2899:
2900: if ($allowed) {
2901: &update_paste_buffer($coursenum,$coursedom);
2902: my %lt=&Apache::lonlocal::texthash(
2903: 'vc' => 'Verify Content',
2904: 'cv' => 'Check/Set Resource Versions',
2905: 'ls' => 'List Symbs',
2906: 'sl' => 'Show Log'
2907: );
2908:
2909: my $folderpath=$env{'form.folderpath'};
2910: if (!$folderpath) {
2911: if ($env{'form.folder'} eq '' ||
2912: $env{'form.folder'} eq 'supplemental') {
2913: $folderpath='default&'.
2914: &escape(&mt('Main '.$type.' Documents'));
2915: }
2916: }
2917: unless ($env{'form.pagepath'}) {
2918: $containertag = '<input type="hidden" name="folderpath" value="" />';
2919: $uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
2920: }
1.337 ehlerst 2921: $r->print(<<HIDDENFORM);
2922: <form name="renameform" method="post" action="/adm/coursedocs">
2923: <input type="hidden" name="title" />
2924: <input type="hidden" name="cmd" />
2925: <input type="hidden" name="markcopy" />
2926: <input type="hidden" name="copyfolder" />
2927: $containertag
2928: </form>
2929: <form name="simpleedit" method="post" action="/adm/coursedocs">
2930: <input type="hidden" name="importdetail" value="" />
2931: $uploadtag
2932: </form>
2933: HIDDENFORM
1.329 droeschl 2934: }
1.335 ehlerst 2935: # --------------------------------------------------------- Main tab structure
2936: my $activeClass = 1;
1.355 ehlerst 2937: my $active = '';
1.339 ehlerst 2938: $r->print('<ul class="LC_TabContentBigger" id="mainnav">');
1.378 tempelho 2939: if (($standard) && ($allowed) && (!$forcesupplement) && (($env{'form.folderpath'}=~/^default/) || $env{'form.folderpath'}eq"" || ($env{'form.pagepath'}))) {
1.335 ehlerst 2940: if($activeClass == 1){
2941: $active = 'class="active"';
2942: $activeClass = 0;
2943: }
2944: }
1.373 bisitz 2945: $r->print('<li '.$active.' onclick="javascript:showPage(this,\'mainCourseDocuments\',\'mainnav\',\'maincoursedoc\');">'.&mt('Main Course Documents').'</li>');
1.355 ehlerst 2946: $active = '';
1.356 tempelho 2947: if (!$forcestandard || ($env{'form.folderpath'}=~/^supplemental/)) {
1.335 ehlerst 2948: if($activeClass == 1){
2949: $active = 'class="active"';
2950: }
2951: }
1.373 bisitz 2952: $r->print('<li '.$active.' onclick="javascript:showPage(this,\'supplCourseDocuments\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>');
1.376 bisitz 2953: $r->print('</ul>'
2954: .'<div class="LC_Box" style="clear:both;margin:0;">'
2955: .'<div id="maincoursedoc" style="margin:0 0;padding:0 0;">');
1.329 droeschl 2956: # --------------------------------------------------------- Standard documents
1.356 tempelho 2957: my $savefolderpath;
1.335 ehlerst 2958: my $active = 'style="display: none;"';
2959: if($activeClass == 0){
2960: $active = 'style="display: block;"';
2961: }
1.359 tempelho 2962: $r->print('<div class="LC_ContentBox" id="mainCourseDocuments" '.$active.'>');
1.329 droeschl 2963: my $folder=$env{'form.folder'};
1.356 tempelho 2964: if ($folder eq '' || $folder=~/^supplemental/) {
1.329 droeschl 2965: $folder='default';
1.356 tempelho 2966: $savefolderpath = $env{'form.folderpath'};
1.329 droeschl 2967: $env{'form.folderpath'}='default&'.&escape(&mt('Main '.$type.' Documents'));
2968: $uploadtag = '<input type="hidden" name="folderpath" value="'.
2969: &HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
2970: }
2971: my $postexec='';
2972: if ($folder eq 'default') {
1.372 bisitz 2973: $r->print('<script type="text/javascript">'."\n"
2974: .'// <![CDATA['."\n"
2975: .'this.window.name="loncapaclient";'."\n"
2976: .'// ]]>'."\n"
2977: .'</script>'."\n"
1.369 bisitz 2978: );
1.329 droeschl 2979: } else {
2980: #$postexec='self.close();';
2981: }
2982: my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
2983: '.sequence';
2984: my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
2985: '.page';
2986: my $container='sequence';
2987: if ($env{'form.pagepath'}) {
2988: $container='page';
2989: }
2990: my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;
2991:
2992:
2993:
2994: my $recoverform=(<<RFORM);
2995: <form action="/adm/groupsort" method="post" name="recover">
1.369 bisitz 2996: <input type="button" name="recovermap" onclick="javascript:groupopen('$readfile',1,0)" value="$lt{'reco'}" />
1.329 droeschl 2997: </form>
2998: RFORM
2999:
3000: my $imspform=(<<IMSPFORM);
3001: <form action="/adm/imsimportdocs" method="post" name="ims">
3002: <input type="hidden" name="folder" value="$folder" />
1.377 bisitz 3003: <input name="imsimport" type="button" value="$lt{'imsf'}" title="$lt{imsl}" onclick="javascript:makeims();" />
1.329 droeschl 3004: </form>
3005: IMSPFORM
3006:
3007: my $newnavform=(<<NNFORM);
3008: <form action="/adm/coursedocs" method="post" name="newnav">
1.371 tempelho 3009: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3010: $uploadtag
3011: <input type="hidden" name="importdetail"
3012: value="$lt{'navc'}=/adm/navmaps" />
3013: <span class="LC_nobreak">
3014: <input name="newnav" type="submit" value="$lt{'navc'}" />
3015: $help{'Navigate_Content'}
3016: </span>
3017: </form>
3018: NNFORM
3019: my $newsmppageform=(<<NSPFORM);
3020: <form action="/adm/coursedocs" method="post" name="newsmppg">
1.371 tempelho 3021: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3022: $uploadtag
3023: <input type="hidden" name="importdetail" value="" />
3024: <span class="LC_nobreak">
3025: <input name="newsmppg" type="button" value="$lt{'sipa'}"
1.369 bisitz 3026: onclick="javascript:makesmppage();" /> $help{'Simple Page'}
1.329 droeschl 3027: </span>
3028: </form>
3029: NSPFORM
3030:
3031: my $newsmpproblemform=(<<NSPROBFORM);
3032: <form action="/adm/coursedocs" method="post" name="newsmpproblem">
1.371 tempelho 3033: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3034: $uploadtag
3035: <input type="hidden" name="importdetail" value="" />
3036: <span class="LC_nobreak">
3037: <input name="newsmpproblem" type="button" value="$lt{'sipr'}"
1.369 bisitz 3038: onclick="javascript:makesmpproblem();" />$help{'Simple Problem'}
1.329 droeschl 3039: </span>
3040: </form>
3041:
3042: NSPROBFORM
3043:
3044: my $newdropboxform=(<<NDBFORM);
3045: <form action="/adm/coursedocs" method="post" name="newdropbox">
1.371 tempelho 3046: <input type="hidden" name="active" value="cc" />
1.344 bisitz 3047: $uploadtag
1.329 droeschl 3048: <input type="hidden" name="importdetail" value="" />
1.344 bisitz 3049: <span class="LC_nobreak">
1.329 droeschl 3050: <input name="newdropbox" type="button" value="$lt{'drbx'}"
1.369 bisitz 3051: onclick="javascript:makedropbox();" />
1.344 bisitz 3052: </span>
3053: </form>
1.329 droeschl 3054: NDBFORM
3055:
3056: my $newexuploadform=(<<NEXUFORM);
3057: <form action="/adm/coursedocs" method="post" name="newexamupload">
1.371 tempelho 3058: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3059: $uploadtag
3060: <input type="hidden" name="importdetail" value="" />
3061: <span class="LC_nobreak">
3062: <input name="newexamupload" type="button" value="$lt{'scuf'}"
1.369 bisitz 3063: onclick="javascript:makeexamupload();" />
1.329 droeschl 3064: $help{'Score_Upload_Form'}
3065: </span>
3066: </form>
3067: NEXUFORM
3068:
3069: my $newbulform=(<<NBFORM);
3070: <form action="/adm/coursedocs" method="post" name="newbul">
1.371 tempelho 3071: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3072: $uploadtag
3073: <input type="hidden" name="importdetail" value="" />
3074: <span class="LC_nobreak">
3075: <input name="newbulletin" type="button" value="$lt{'bull'}"
1.369 bisitz 3076: onclick="javascript:makebulboard();" />
1.329 droeschl 3077: $help{'Bulletin Board'}
3078: </span>
3079: </form>
3080: NBFORM
3081:
3082: my $newaboutmeform=(<<NAMFORM);
3083: <form action="/adm/coursedocs" method="post" name="newaboutme">
1.371 tempelho 3084: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3085: $uploadtag
3086: <input type="hidden" name="importdetail"
3087: value="$plainname=/adm/$udom/$uname/aboutme" />
3088: <span class="LC_nobreak">
3089: <input name="newaboutme" type="submit" value="$lt{'mypi'}" />
1.347 weissno 3090: $help{'My Personal Information Page'}
1.329 droeschl 3091: </span>
3092: </form>
3093: NAMFORM
3094:
3095: my $newaboutsomeoneform=(<<NASOFORM);
3096: <form action="/adm/coursedocs" method="post" name="newaboutsomeone">
1.371 tempelho 3097: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3098: $uploadtag
3099: <input type="hidden" name="importdetail" value="" />
3100: <span class="LC_nobreak">
3101: <input name="newaboutsomeone" type="button" value="$lt{'abou'}"
1.369 bisitz 3102: onclick="javascript:makeabout();" />
1.329 droeschl 3103: </span>
3104: </form>
3105: NASOFORM
3106:
3107:
3108: my $newrosterform=(<<NROSTFORM);
3109: <form action="/adm/coursedocs" method="post" name="newroster">
1.371 tempelho 3110: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3111: $uploadtag
3112: <input type="hidden" name="importdetail"
3113: value="$lt{'rost'}=/adm/viewclasslist" />
3114: <span class="LC_nobreak">
3115: <input name="newroster" type="submit" value="$lt{'rost'}" />
3116: $help{'Course Roster'}
3117: </span>
3118: </form>
3119: NROSTFORM
3120:
1.342 ehlerst 3121: my $specialdocumentsform;
1.351 ehlerst 3122: my $newfolderform;
1.342 ehlerst 3123:
1.329 droeschl 3124: unless ($env{'form.pagepath'}) {
3125: my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
3126:
3127: my $newpageform=(<<NPFORM);
3128: <form action="/adm/coursedocs" method="post" name="newpage">
3129: <input type="hidden" name="folderpath" value="$path" />
3130: <input type="hidden" name="importdetail" value="" />
1.371 tempelho 3131: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3132: <span class="LC_nobreak">
3133: <input name="newpage" type="button"
1.369 bisitz 3134: onclick="javascript:makenewpage(this.form,'$pageseq');"
1.329 droeschl 3135: value="$lt{'newp'}" />$help{'Adding_Pages'}
3136: </span>
3137: </form>
3138: NPFORM
3139:
1.351 ehlerst 3140: $newfolderform=(<<NFFORM);
1.329 droeschl 3141: <form action="/adm/coursedocs" method="post" name="newfolder">
3142: <input type="hidden" name="folderpath" value="$path" />
3143: <input type="hidden" name="importdetail" value="" />
1.371 tempelho 3144: <input type="hidden" name="active" value="aa" />
1.329 droeschl 3145: <span class="LC_nobreak">
3146: <input name="newfolder" type="button"
1.369 bisitz 3147: onclick="javascript:makenewfolder(this.form,'$folderseq');"
1.329 droeschl 3148: value="$lt{'newf'}" />$help{'Adding_Folders'}
3149: </span>
3150: </form>
3151: NFFORM
3152:
3153: my $newsylform=(<<NSYLFORM);
3154: <form action="/adm/coursedocs" method="post" name="newsyl">
1.371 tempelho 3155: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3156: $uploadtag
3157: <input type="hidden" name="importdetail"
3158: value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />
3159: <span class="LC_nobreak">
3160: <input name="newsyl" type="submit" value="$lt{'syll'}" />
3161: $help{'Syllabus'}
3162: </span>
3163: </form>
3164: NSYLFORM
1.364 bisitz 3165:
1.329 droeschl 3166: my $newgroupfileform=(<<NGFFORM);
3167: <form action="/adm/coursedocs" method="post" name="newgroupfiles">
1.371 tempelho 3168: <input type="hidden" name="active" value="cc" />
1.329 droeschl 3169: $uploadtag
3170: <input type="hidden" name="importdetail"
3171: value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />
3172: <span class="LC_nobreak">
3173: <input name="newgroupfiles" type="submit" value="$lt{'grpo'}" />
1.353 weissno 3174: $help{'Group Portfolio'}
1.329 droeschl 3175: </span>
3176: </form>
3177: NGFFORM
3178:
1.351 ehlerst 3179: $specialdocumentsform="<br />$newpageform<br />$newsylform<br />$newgroupfileform";
1.342 ehlerst 3180: }
3181: $specialdocumentsform.="<br />$newnavform<br />$newsmppageform
3182: <br />$newsmpproblemform<br />$newdropboxform
3183: <br />$newexuploadform<br />$newbulform
3184: <br />$newaboutmeform<br />$newaboutsomeoneform
3185: <br />$newrosterform";
3186: if($env{'form.pagepath'}) {
3187: $specialdocumentsform="<br />$newsmpproblemform<br />$newexuploadform";
3188: }
1.331 muellerd 3189:
1.330 tempelho 3190: my %orderhash = (
1.368 truskell 3191: 'aa' => ['Upload Document',$fileuploadform.'<br />'.$newfolderform],
1.377 bisitz 3192: 'bb' => ['Published Resources',$simpleeditdefaultform],
1.363 ehlerst 3193: 'cc' => ['Special Documents',$specialdocumentsform],
3194: 'dd' => ['Tools',$extresourcesform.'<br />'.$imspform.'<br />'.$recoverform.'<br />'.&generate_admin_options($containertag,$uploadtag,\%help,\%env)],
1.377 bisitz 3195: 'zz' => ['Hide'],
1.330 tempelho 3196: );
1.334 muellerd 3197: my $tid='1';
3198: my $varcd = 'Main Course Documents';
1.363 ehlerst 3199: $r->print(&generate_edit_table($tid,$varcd,\%orderhash));
1.341 ehlerst 3200: $hadchanges=0;
3201: my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
1.335 ehlerst 3202: if ($error) {
3203: $r->print('<p><span class="LC_error">'.$error.'</span></p>');
3204: }
1.341 ehlerst 3205: if ($hadchanges) {
3206: &mark_hash_old();
3207: }
3208:
3209: &changewarning($r,'');
1.371 tempelho 3210: $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
3211: &mt('Editing the Table of Contents for your '.$type)));
1.335 ehlerst 3212: $r->print('</div>');
1.329 droeschl 3213: if ($env{'form.pagepath'}) {
3214: }
3215: # ----------------------------------------------------- Supplemental documents
1.335 ehlerst 3216: my $active = 'style="display: none;"';
3217: if($activeClass == 1){
3218: $active = 'style="display: block;"';
3219: }
1.373 bisitz 3220: $r->print('<div class="LC_ContentBox" id="supplCourseDocuments" '.$active.'>');
1.329 droeschl 3221: my $folder=$env{'form.folder'};
3222: unless ($folder=~/^supplemental/) {
3223: $folder='supplemental';
3224: }
3225: if ($folder =~ /^supplemental$/ &&
3226: (($env{'form.folderpath'} =~ /^default\&/) || ($env{'form.folderpath'} eq ''))) {
3227: $env{'form.folderpath'} = 'supplemental&'.
3228: &escape(&mt('Supplemental '.$type.' Documents'));
1.356 tempelho 3229: }else{
3230: $env{'form.folderpath'} = $savefolderpath;
1.329 droeschl 3231: }
1.362 ehlerst 3232: $env{'form.pagepath'} = '';
1.329 droeschl 3233: if ($allowed) {
3234: my $folderseq=
3235: '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_'.time.
3236: '.sequence';
3237:
3238: my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
3239:
3240: my $supupdocform=(<<SUPDOCFORM);
3241: <form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
1.371 tempelho 3242: <input type="hidden" name="active" value="ee" />
1.329 droeschl 3243: $fileupload
3244: <br />
3245: <br />
3246: <span class="LC_nobreak">
3247: $checkbox
3248: </span>
3249: <br /><br />
3250: $lt{'comment'}:<br />
1.358 bisitz 3251: <textarea cols="50" rows="4" name="comment">
1.329 droeschl 3252: </textarea>
3253: <br />
3254: <input type="hidden" name="folderpath" value="$path" />
3255: <input type="hidden" name="cmd" value="upload_supplemental" />
3256: <span class="LC_nobreak">
3257: <input type="submit" value="$lt{'upld'}" />
3258: $help{'Uploading_From_Harddrive'}
3259: </span>
3260: </form>
3261: SUPDOCFORM
3262:
3263: my $supnewfolderform=(<<SNFFORM);
3264: <form action="/adm/coursedocs" method="post" name="supnewfolder">
1.371 tempelho 3265: <input type="hidden" name="active" value="ee" />
1.329 droeschl 3266: <input type="hidden" name="folderpath" value="$path" />
3267: <input type="hidden" name="importdetail" value="" />
3268: <span class="LC_nobreak">
3269: <input name="newfolder" type="button"
1.369 bisitz 3270: onclick="javascript:makenewfolder(this.form,'$folderseq');"
1.329 droeschl 3271: value="$lt{'newf'}" /> $help{'Adding_Folders'}
3272: </span>
3273: </form>
3274: SNFFORM
3275:
3276:
3277: my $supnewextform=(<<SNEFORM);
3278: <form action="/adm/coursedocs" method="post" name="supnewext">
1.371 tempelho 3279: <input type="hidden" name="active" value="ff" />
1.329 droeschl 3280: <input type="hidden" name="folderpath" value="$path" />
3281: <input type="hidden" name="importdetail" value="" />
3282: <span class="LC_nobreak">
3283: <input name="newext" type="button"
1.369 bisitz 3284: onclick="javascript:makenewext('supnewext');"
1.329 droeschl 3285: value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
3286: </span>
3287: </form>
3288: SNEFORM
3289:
3290: my $supnewsylform=(<<SNSFORM);
3291: <form action="/adm/coursedocs" method="post" name="supnewsyl">
1.371 tempelho 3292: <input type="hidden" name="active" value="ff" />
1.329 droeschl 3293: <input type="hidden" name="folderpath" value="$path" />
3294: <input type="hidden" name="importdetail"
3295: value="Syllabus=/public/$coursedom/$coursenum/syllabus" />
3296: <span class="LC_nobreak">
3297: <input name="newsyl" type="submit" value="$lt{'syll'}" />
3298: $help{'Syllabus'}
3299: </span>
3300: </form>
3301: SNSFORM
3302:
3303: my $supnewaboutmeform=(<<SNAMFORM);
3304: <form action="/adm/coursedocs" method="post" name="subnewaboutme">
1.371 tempelho 3305: <input type="hidden" name="active" value="ff" />
1.329 droeschl 3306: <input type="hidden" name="folderpath" value="$path" />
3307: <input type="hidden" name="importdetail"
3308: value="$plainname=/adm/$udom/$uname/aboutme" />
3309: <span class="LC_nobreak">
3310: <input name="newaboutme" type="submit" value="$lt{'mypi'}" />
1.347 weissno 3311: $help{'My Personal Information Page'}
1.329 droeschl 3312: </span>
3313: </form>
3314: SNAMFORM
3315:
1.333 muellerd 3316:
3317:
3318: my %suporderhash = (
1.368 truskell 3319: 'ee' => ['Upload Document',$supupdocform.'<br />'.$supnewfolderform],
1.363 ehlerst 3320: 'ff' => ['Special Documents',$supnewextform.'<br />'.$supnewsylform.'<br />'.$supnewaboutmeform],
1.377 bisitz 3321: 'zz' => ['Hide'],
1.333 muellerd 3322: );
1.334 muellerd 3323:
1.333 muellerd 3324: my $tid='2';
1.374 tempelho 3325: my $varscd = 'Supplemental Course Documents';
1.333 muellerd 3326:
1.363 ehlerst 3327: $r->print(&generate_edit_table($tid,$varscd,\%suporderhash));
1.335 ehlerst 3328: my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
3329: if ($error) {
3330: $r->print('<p><span class="LC_error">'.$error.'</span></p>');
3331: }
1.337 ehlerst 3332: $r->print('</div>');
1.364 bisitz 3333: }
1.335 ehlerst 3334: $r->print('</div>');
1.329 droeschl 3335: if ($allowed) {
3336: $r->print('
3337: <form method="post" name="extimport" action="/adm/coursedocs">
3338: <input type="hidden" name="title" />
3339: <input type="hidden" name="url" />
3340: <input type="hidden" name="useform" />
3341: <input type="hidden" name="residx" />
3342: </form>');
3343: }
3344: } else {
3345: unless ($upload_result eq 'phasetwo') {
3346: # -------------------------------------------------------- This is showdoc mode
3347: $r->print("<h1>".&mt('Uploaded Document').' - '.
3348: &Apache::lonnet::gettitle($r->uri).'</h1><p>'.
3349: &mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><table>".
3350: &entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table>');
3351: }
3352: }
3353: }
3354: $r->print(&Apache::loncommon::end_page());
3355: return OK;
1.364 bisitz 3356: }
1.329 droeschl 3357:
3358: sub generate_admin_options {
1.337 ehlerst 3359: my ($containertag,$uploadtag,$help_ref,$env_ref) = @_;
3360: my %lt=&Apache::lonlocal::texthash(
3361: 'vc' => 'Verify Content',
3362: 'cv' => 'Check/Set Resource Versions',
3363: 'ls' => 'List Symbs',
3364: 'sl' => 'Show Log'
3365: );
1.329 droeschl 3366: my %help = %{$help_ref};
3367: my %env = %{$env_ref};
3368: my $dumpbut=&dumpbutton();
3369: my $exportbut=&exportbutton();
3370: return (<<ENDOPTIONFORM);
3371: <form action="/adm/coursedocs" method="post" name="courseverify">
1.354 tempelho 3372: <input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}<br />
1.357 bisitz 3373: <input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}<br />
1.362 ehlerst 3374: $dumpbut
3375: $exportbut
1.329 droeschl 3376: <input type="submit" name="listsymbs" value="$lt{'ls'}" />
1.354 tempelho 3377: <input type="hidden" name="folder" value="$env{'form.folder'}" /><br />
1.329 droeschl 3378: <input type="submit" name="docslog" value="$lt{'sl'}" />
3379: </form>
3380: ENDOPTIONFORM
1.330 tempelho 3381:
1.329 droeschl 3382: }
3383:
1.330 tempelho 3384:
1.329 droeschl 3385: sub generate_edit_table {
1.363 ehlerst 3386: my ($tid,$varcd,$orderhash_ref) = @_;
1.342 ehlerst 3387: my %orderhash = %{$orderhash_ref};
1.344 bisitz 3388: my $form;
1.371 tempelho 3389: my $activetab;
3390: my $active;
3391: if($env{'form.active'} ne ''){
3392: $activetab = $env{'form.active'};
3393: }
1.370 bisitz 3394: $form = '<div class="LC_Box"><h4 class="LC_hcell">'.&mt($varcd).'</h4>';
1.359 tempelho 3395: $form .= '<ul id="navigation'.$tid.'" class="LC_TabContent">';
1.329 droeschl 3396: foreach my $name (sort(keys(%orderhash))){
1.332 tempelho 3397: if($name eq 'zz'){
1.371 tempelho 3398: if($activetab ne ''){
1.374 tempelho 3399: $active = 'class="right"';
1.371 tempelho 3400: }else{
1.374 tempelho 3401: $active = 'class="right active"';
1.371 tempelho 3402: }
1.374 tempelho 3403: $form .= '<li onclick="javascript:hideAll(this, \'navigation'.$tid.'\' ,\'content'.$tid.'\');" '.$active.'>'.&mt(${$orderhash{$name}}[0]).'</li>';
1.329 droeschl 3404: }else{
1.371 tempelho 3405: if($activetab eq '' || $activetab ne $name){
3406: $active = '';
3407: }elsif($activetab eq $name){
3408: $active = 'class="active"';
3409: }
1.374 tempelho 3410: $form .= '<li '.$active.' onclick="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');">'.&mt(${$orderhash{$name}}[0]).'</li>';
1.329 droeschl 3411: }
3412: }
1.339 ehlerst 3413: $form .= '</ul>';
1.359 tempelho 3414: $form .= '<div id="content'.$tid.'" style="padding: 0 0; margin: 0 0;">';
1.363 ehlerst 3415: foreach my $field (keys(%orderhash)){
3416: if($field ne 'zz'){
1.371 tempelho 3417: if($activetab eq '' || $activetab ne $field){
3418: $active = 'style="display: none;"';
3419: }elsif($activetab eq $field){
3420: $active = 'style="display:block;"';
3421: }
1.374 tempelho 3422: $form .= '<div id="'.$field.$tid.'"'
1.373 bisitz 3423: .' class="LC_ContentBox" '.$active.'>'.${$orderhash{$field}}[1]
3424: .'</div>';
1.363 ehlerst 3425: }
3426: }
1.330 tempelho 3427: $form .= '</div></div>';
1.364 bisitz 3428:
1.329 droeschl 3429: return $form;
3430: }
3431:
3432: sub editing_js {
3433: my ($udom,$uname) = @_;
3434: my $now = time();
3435: my %lt = &Apache::lonlocal::texthash(
3436: p_mnf => 'Name of New Folder',
3437: t_mnf => 'New Folder',
3438: p_mnp => 'Name of New Page',
3439: t_mnp => 'New Page',
3440: p_mxu => 'Title for the Uploaded Score',
1.349 biermanm 3441: p_msp => 'Name of Simple Course Page',
1.329 droeschl 3442: p_msb => 'Title for the Problem',
3443: p_mdb => 'Title for the Drop Box',
1.336 schafran 3444: p_mbb => 'Title for the Discussion Board',
1.348 weissno 3445: p_mab => "Enter user:domain for User's Personal Information Page",
1.352 bisitz 3446: p_mab2 => 'Personal Information Page of ',
1.329 droeschl 3447: p_mab_alrt1 => 'Not a valid user:domain',
3448: p_mab_alrt2 => 'Please enter both user and domain in the format user:domain',
3449: p_chn => 'New Title',
3450: p_rmr1 => 'WARNING: Removing a resource makes associated grades and scores inaccessible!',
3451: p_rmr2a => 'Remove[_99]',
3452: p_rmr2b => '?[_99]',
3453: p_ctr1a => 'WARNING: Cutting a resource makes associated grades and scores inaccessible!',
3454: p_ctr1b => 'Grades remain inaccessible if resource is pasted into another folder.',
3455: p_ctr2a => 'Cut[_98]',
3456: p_ctr2b => '?[_98]'
3457: );
3458:
3459: return <<ENDNEWSCRIPT;
3460: function makenewfolder(targetform,folderseq) {
3461: var foldername=prompt('$lt{"p_mnf"}','$lt{"t_mnf"}');
3462: if (foldername) {
3463: targetform.importdetail.value=escape(foldername)+"="+folderseq;
3464: targetform.submit();
3465: }
3466: }
3467:
3468: function makenewpage(targetform,folderseq) {
3469: var pagename=prompt('$lt{"p_mnp"}','$lt{"t_mnp"}');
3470: if (pagename) {
3471: targetform.importdetail.value=escape(pagename)+"="+folderseq;
3472: targetform.submit();
3473: }
3474: }
3475:
3476: function makenewext(targetname) {
3477: this.document.forms.extimport.useform.value=targetname;
3478: this.document.forms.extimport.title.value='';
3479: this.document.forms.extimport.url.value='';
3480: this.document.forms.extimport.residx.value='';
3481: window.open('/adm/rat/extpickframe.html');
3482: }
3483:
3484: function edittext(targetname,residx,title,url) {
3485: this.document.forms.extimport.useform.value=targetname;
3486: this.document.forms.extimport.residx.value=residx;
3487: this.document.forms.extimport.url.value=url;
3488: this.document.forms.extimport.title.value=title;
3489: window.open('/adm/rat/extpickframe.html');
3490: }
3491:
3492: function makeexamupload() {
3493: var title=prompt('$lt{"p_mxu"}');
1.344 bisitz 3494: if (title) {
1.329 droeschl 3495: this.document.forms.newexamupload.importdetail.value=
3496: escape(title)+'=/res/lib/templates/examupload.problem';
3497: this.document.forms.newexamupload.submit();
3498: }
3499: }
3500:
3501: function makesmppage() {
3502: var title=prompt('$lt{"p_msp"}');
1.344 bisitz 3503: if (title) {
1.329 droeschl 3504: this.document.forms.newsmppg.importdetail.value=
3505: escape(title)+'=/adm/$udom/$uname/$now/smppg';
3506: this.document.forms.newsmppg.submit();
3507: }
3508: }
3509:
3510: function makesmpproblem() {
3511: var title=prompt('$lt{"p_msb"}');
1.344 bisitz 3512: if (title) {
1.329 droeschl 3513: this.document.forms.newsmpproblem.importdetail.value=
3514: escape(title)+'=/res/lib/templates/simpleproblem.problem';
3515: this.document.forms.newsmpproblem.submit();
3516: }
3517: }
3518:
3519: function makedropbox() {
3520: var title=prompt('$lt{"p_mdb"}');
1.344 bisitz 3521: if (title) {
1.329 droeschl 3522: this.document.forms.newdropbox.importdetail.value=
3523: escape(title)+'=/res/lib/templates/DropBox.problem';
3524: this.document.forms.newdropbox.submit();
3525: }
3526: }
3527:
3528: function makebulboard() {
3529: var title=prompt('$lt{"p_mbb"}');
3530: if (title) {
3531: this.document.forms.newbul.importdetail.value=
3532: escape(title)+'=/adm/$udom/$uname/$now/bulletinboard';
3533: this.document.forms.newbul.submit();
3534: }
3535: }
3536:
3537: function makeabout() {
3538: var user=prompt("$lt{'p_mab'}");
3539: if (user) {
3540: var comp=new Array();
3541: comp=user.split(':');
3542: if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) {
3543: if ((comp[0]) && (comp[1])) {
3544: this.document.forms.newaboutsomeone.importdetail.value=
3545: '$lt{"p_mab2"}'+escape(user)+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';
1.335 ehlerst 3546: this.document.forms.newaboutsomeone.submit();
3547: } else {
3548: alert("$lt{'p_mab_alrt1'}");
1.329 droeschl 3549: }
1.335 ehlerst 3550: } else {
3551: alert("$lt{'p_mab_alrt2'}");
3552: }
3553: }
1.329 droeschl 3554: }
3555:
3556: function makeims() {
1.335 ehlerst 3557: var caller = document.forms.ims.folder.value;
3558: var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one";
3559: newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes");
3560: newWindow.location.href = newlocation;
1.329 droeschl 3561: }
3562:
3563:
3564: function finishpick() {
1.335 ehlerst 3565: var title=this.document.forms.extimport.title.value;
3566: var url=this.document.forms.extimport.url.value;
3567: var form=this.document.forms.extimport.useform.value;
3568: var residx=this.document.forms.extimport.residx.value;
3569: eval('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+'='+residx+'";this.document.forms.'+form+'.submit();');
1.329 droeschl 3570: }
3571:
3572: function changename(folderpath,index,oldtitle,container,pagesymb) {
1.335 ehlerst 3573: var title=prompt('$lt{"p_chn"}',oldtitle);
3574: if (title) {
3575: this.document.forms.renameform.markcopy.value=-1;
3576: this.document.forms.renameform.title.value=title;
3577: this.document.forms.renameform.cmd.value='rename_'+index;
3578: if (container == 'sequence') {
3579: this.document.forms.renameform.folderpath.value=folderpath;
3580: }
3581: if (container == 'page') {
3582: this.document.forms.renameform.pagepath.value=folderpath;
3583: this.document.forms.renameform.pagesymb.value=pagesymb;
3584: }
3585: this.document.forms.renameform.submit();
3586: }
1.329 droeschl 3587: }
3588:
3589: function removeres(folderpath,index,oldtitle,container,pagesymb,skip_confirm) {
1.335 ehlerst 3590: if (skip_confirm || confirm('$lt{"p_rmr1"}\\n\\n$lt{"p_rmr2a"} "'+oldtitle+'" $lt{"p_rmr2b"}')) {
3591: this.document.forms.renameform.markcopy.value=-1;
3592: this.document.forms.renameform.cmd.value='del_'+index;
3593: if (container == 'sequence') {
3594: this.document.forms.renameform.folderpath.value=folderpath;
3595: }
3596: if (container == 'page') {
3597: this.document.forms.renameform.pagepath.value=folderpath;
3598: this.document.forms.renameform.pagesymb.value=pagesymb;
3599: }
3600: this.document.forms.renameform.submit();
3601: }
1.329 droeschl 3602: }
3603:
3604: function cutres(folderpath,index,oldtitle,container,pagesymb,folder,skip_confirm) {
1.335 ehlerst 3605: if (skip_confirm || confirm('$lt{"p_ctr1a"}\\n$lt{"p_ctr1b"}\\n\\n$lt{"p_ctr2a"} "'+oldtitle+'" $lt{"p_ctr2b"}')) {
3606: this.document.forms.renameform.cmd.value='cut_'+index;
3607: this.document.forms.renameform.markcopy.value=index;
3608: this.document.forms.renameform.copyfolder.value=folder+'.'+container;
3609: if (container == 'sequence') {
3610: this.document.forms.renameform.folderpath.value=folderpath;
3611: }
3612: if (container == 'page') {
3613: this.document.forms.renameform.pagepath.value=folderpath;
3614: this.document.forms.renameform.pagesymb.value=pagesymb;
3615: }
3616: this.document.forms.renameform.submit();
3617: }
1.329 droeschl 3618: }
3619:
3620: function markcopy(folderpath,index,oldtitle,container,pagesymb,folder) {
1.335 ehlerst 3621: this.document.forms.renameform.markcopy.value=index;
3622: this.document.forms.renameform.copyfolder.value=folder+'.'+container;
3623: if (container == 'sequence') {
3624: this.document.forms.renameform.folderpath.value=folderpath;
3625: }
3626: if (container == 'page') {
3627: this.document.forms.renameform.pagepath.value=folderpath;
3628: this.document.forms.renameform.pagesymb.value=pagesymb;
3629: }
3630: this.document.forms.renameform.submit();
1.329 droeschl 3631: }
3632:
1.334 muellerd 3633: function unselectInactive(nav) {
1.335 ehlerst 3634: currentNav = document.getElementById(nav);
3635: currentLis = currentNav.getElementsByTagName('LI');
3636: for (i = 0; i < currentLis.length; i++) {
1.374 tempelho 3637: if(currentLis[i].className == 'right active' || currentLis[i].className == 'right'){
3638: currentLis[i].className = 'right';
3639: }else{
3640: currentLis[i].className = 'i';
3641: }
1.335 ehlerst 3642: }
1.332 tempelho 3643: }
3644:
1.334 muellerd 3645: function hideAll(current, nav, data) {
1.335 ehlerst 3646: unselectInactive(nav);
1.374 tempelho 3647: if(current.className == 'right'){
3648: current.className = 'right active'
3649: }else{
3650: current.className = 'active';
3651: }
1.335 ehlerst 3652: currentData = document.getElementById(data);
3653: currentDivs = currentData.getElementsByTagName('DIV');
3654: for (i = 0; i < currentDivs.length; i++) {
3655: if(currentDivs[i].className == 'LC_ContentBox'){
1.333 muellerd 3656: currentDivs[i].style.display = 'none';
1.330 tempelho 3657: }
3658: }
1.335 ehlerst 3659: }
1.330 tempelho 3660:
1.374 tempelho 3661: function openTabs(pageId) {
3662: tabnav = document.getElementById(pageId).getElementsByTagName('UL');
3663: if(tabnav.length > 0 ){
3664: currentNav = document.getElementById(tabnav[0].id);
3665: currentLis = currentNav.getElementsByTagName('LI');
3666: for(i = 0; i< currentLis.length; i++){
3667: if(currentLis[i].className == 'active') {
1.375 tempelho 3668: funcString = currentLis[i].onclick.toString();
3669: tab = funcString.split('"');
3670: currentData = document.getElementById(tab[1]);
3671: currentData.style.display = 'block';
1.374 tempelho 3672: }
3673: }
3674: }
3675: }
3676:
1.334 muellerd 3677: function showPage(current, pageId, nav, data) {
3678: hideAll(current, nav, data);
1.375 tempelho 3679: openTabs(pageId);
1.334 muellerd 3680: unselectInactive(nav);
1.330 tempelho 3681: current.className = 'active';
3682: currentData = document.getElementById(pageId);
3683: currentData.style.display = 'block';
3684: return false;
3685: }
1.329 droeschl 3686:
3687: ENDNEWSCRIPT
3688: }
3689: 1;
3690: __END__
3691:
3692:
3693: =head1 NAME
3694:
3695: Apache::londocs.pm
3696:
3697: =head1 SYNOPSIS
3698:
3699: This is part of the LearningOnline Network with CAPA project
3700: described at http://www.lon-capa.org.
3701:
3702: =head1 SUBROUTINES
3703:
3704: =over
3705:
3706: =item %help=()
3707:
3708: Available help topics
3709:
3710: =item mapread()
3711:
1.344 bisitz 3712: Mapread read maps into LONCAPA::map:: global arrays
1.329 droeschl 3713: @order and @resources, determines status
3714: sets @order - pointer to resources in right order
3715: sets @resources - array with the resources with correct idx
3716:
3717: =item authorhosts()
3718:
3719: Return hash with valid author names
3720:
3721: =item dumpbutton()
3722:
3723: Generate "dump" button
3724:
3725: =item clean()
3726:
3727: =item dumpcourse()
3728:
3729: Actually dump course
3730:
3731:
3732: =item exportbutton()
3733:
3734: Generate "export" button
3735:
3736: =item exportcourse()
3737:
3738: =item create_ims_store()
3739:
3740: =item build_package()
3741:
3742: =item get_dependencies()
3743:
3744: =item process_content()
3745:
3746: =item replicate_content()
3747:
3748: =item extract_media()
3749:
3750: =item store_template()
3751:
3752: =item group_import()
3753:
3754: Imports the given (name, url) resources into the course
3755: coursenum, coursedom, and folder must precede the list
3756:
3757: =item breadcrumbs()
3758:
3759: =item log_docs()
3760:
3761: =item docs_change_log()
3762:
3763: =item update_paste_buffer()
3764:
3765: =item print_paste_buffer()
3766:
3767: =item do_paste_from_buffer()
3768:
3769: =item update_parameter()
3770:
3771: =item handle_edit_cmd()
3772:
3773: =item editor()
3774:
3775: =item process_file_upload()
3776:
3777: =item process_secondary_uploads()
3778:
3779: =item is_supplemental_title()
3780:
3781: =item parse_supplemental_title()
3782:
3783: =item entryline()
3784:
3785: =item tiehash()
3786:
3787: =item untiehash()
3788:
3789: =item checkonthis()
3790:
3791: check on this
3792:
3793: =item verifycontent()
3794:
3795: Verify Content
3796:
3797: =item devalidateversioncache() & checkversions()
3798:
3799: Check Versions
3800:
3801: =item mark_hash_old()
3802:
3803: =item is_hash_old()
3804:
3805: =item changewarning()
3806:
3807: =item init_breadcrumbs()
3808:
3809: Breadcrumbs for special functions
3810:
3811: =back
3812:
3813: =cut
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface