File:
[LON-CAPA] /
loncom /
interface /
londocs.pm
Revision
1.169:
download - view:
text,
annotated -
select for diffs
Wed Mar 2 22:26:36 2005 UTC (19 years, 3 months ago) by
raeburn
Branches:
MAIN
CVS tags:
HEAD
lonnet::repcopy() and lonnet::repcopy_userfile() now return strings rather than constants defined in Apache::Constants. This allows lonnet::repcopy() to be used for cloning in batch course creation run from a command line script. If Apache::Constants are to be returned by PerlHandlers these should be set in the appropriate handler rather than in subroutines in lonnet called by the handler, based on the string response from lonnet::repcopy().
1: # The LearningOnline Network
2: # Documents
3: #
4: # $Id: londocs.pm,v 1.169 2005/03/02 22:26:36 raeburn Exp $
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: package Apache::londocs;
30:
31: use strict;
32: use Apache::Constants qw(:common :http);
33: use Apache::imsexport;
34: use Apache::lonnet;
35: use Apache::loncommon;
36: use Apache::lonratedt;
37: use Apache::lonratsrv;
38: use Apache::lonxml;
39: use Apache::loncreatecourse;
40: use Apache::lonnavmaps;
41: use HTML::Entities;
42: use GDBM_File;
43: use Apache::lonlocal;
44: use Cwd;
45:
46: my $iconpath;
47:
48: my %hash;
49:
50: my $hashtied;
51: my %alreadyseen=();
52:
53: my $hadchanges;
54:
55: # Available help topics
56:
57: my %help=();
58:
59: # Mapread read maps into lonratedt::global arrays
60: # @order and @resources, determines status
61: # sets @order - pointer to resources in right order
62: # sets @resources - array with the resources with correct idx
63: #
64:
65: sub mapread {
66: my ($coursenum,$coursedom,$map)=@_;
67: return
68: &Apache::lonratedt::mapread('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
69: $map);
70: }
71:
72: sub storemap {
73: my ($coursenum,$coursedom,$map)=@_;
74: my ($outtext,$errtext)=
75: &Apache::lonratedt::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
76: $map,1);
77: if ($errtext) { return ($errtext,2); }
78:
79: $hadchanges=1;
80: return ($errtext,0);
81: }
82:
83: # ----------------------------------------- Return hash with valid author names
84:
85: sub authorhosts {
86: my %outhash=();
87: my $home=0;
88: my $other=0;
89: foreach (keys %ENV) {
90: if ($_=~/^user\.role\.(au|ca)\.(.+)$/) {
91: my $role=$1;
92: my $realm=$2;
93: my ($start,$end)=split(/\./,$ENV{$_});
94: if (($start) && ($start>time)) { next; }
95: if (($end) && (time>$end)) { next; }
96: my $ca; my $cd;
97: if ($1 eq 'au') {
98: $ca=$ENV{'user.name'};
99: $cd=$ENV{'user.domain'};
100: } else {
101: ($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);
102: }
103: my $allowed=0;
104: my $myhome=&Apache::lonnet::homeserver($ca,$cd);
105: my @ids=&Apache::lonnet::current_machine_ids();
106: foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }
107: if ($allowed) {
108: $home++;
109: $outhash{'home_'.$ca.'@'.$cd}=1;
110: } else {
111: $outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;
112: $other++;
113: }
114: }
115: }
116: return ($home,$other,%outhash);
117: }
118: # ------------------------------------------------------ Generate "dump" button
119:
120: sub dumpbutton {
121: my ($home,$other,%outhash)=&authorhosts();
122: if ($home+$other==0) { return ''; }
123: my $output='</td><td bgcolor="#DDDDCC">';
124: if ($home) {
125: return '</td><td bgcolor="#DDDDCC">'.
126: '<input type="submit" name="dumpcourse" value="'.
127: &mt('Dump Course DOCS to Construction Space').'" />'.
128: &Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs');
129: } else {
130: return'</td><td bgcolor="#DDDDCC">'.
131: &mt('Dump Course DOCS to Construction Space: available on other servers');
132: }
133: }
134:
135: sub clean {
136: my ($title)=@_;
137: $title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\|\`\~]+/\_/gs;
138: return $title;
139: }
140: # -------------------------------------------------------- Actually dump course
141:
142: sub dumpcourse {
143: my $r=shift;
144: my $html=&Apache::lonxml::xmlbegin();
145: $r->print($html.'<head><title>Dump DOCS</title></head>'.
146: &Apache::loncommon::bodytag('Dump Course DOCS to Construction Space').
147: '<form name="dumpdoc" method="post">');
148: my ($home,$other,%outhash)=&authorhosts();
149: unless ($home) { return ''; }
150: my $origcrsid=$ENV{'request.course.id'};
151: my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
152: if (($ENV{'form.authorspace'}) && ($ENV{'form.authorfolder'}=~/\w/)) {
153: # Do the dumping
154: unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }
155: my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});
156: $r->print('<h3>'.&mt('Copying Files').'</h3>');
157: my $title=$ENV{'form.authorfolder'};
158: $title=&clean($title);
159: my %replacehash=();
160: foreach (keys %ENV) {
161: if ($_=~/^form\.namefor\_(.+)/) {
162: $replacehash{$1}=$ENV{$_};
163: }
164: }
165: my $crs='/uploaded/'.$ENV{'request.course.id'}.'/';
166: $crs=~s/\_/\//g;
167: foreach (keys %replacehash) {
168: my $newfilename=$title.'/'.$replacehash{$_};
169: $newfilename=&clean($newfilename);
170: my @dirs=split(/\//,$newfilename);
171: my $path='/home/'.$ca.'/public_html';
172: my $makepath=$path;
173: my $fail=0;
174: for (my $i=0;$i<$#dirs;$i++) {
175: $makepath.='/'.$dirs[$i];
176: unless (-e $makepath) {
177: unless(mkdir($makepath,0777)) { $fail=1; }
178: }
179: }
180: $r->print('<br /><tt>'.$_.'</tt> => <tt>'.$newfilename.'</tt>: ');
181: if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
182: if ($_=~/\.(sequence|page|html|htm|xml|xhtml)$/) {
183: print $fh &Apache::loncreatecourse::rewritefile(
184: &Apache::loncreatecourse::readfile($ENV{'request.course.id'},$_),
185: (%replacehash,$crs => '')
186: );
187: } else {
188: print $fh
189: &Apache::loncreatecourse::readfile($ENV{'request.course.id'},$_);
190: }
191: $fh->close();
192: } else {
193: $fail=1;
194: }
195: if ($fail) {
196: $r->print('<font color="red">fail</font>');
197: } else {
198: $r->print('<font color="green">ok</font>');
199: }
200: }
201: } else {
202: # Input form
203: unless ($home==1) {
204: $r->print(
205: '<h3>'.&mt('Select the Construction Space').'</h3><select name="authorspace">');
206: }
207: foreach (sort keys %outhash) {
208: if ($_=~/^home_(.+)$/) {
209: if ($home==1) {
210: $r->print(
211: '<input type="hidden" name="authorspace" value="'.$1.'" />');
212: } else {
213: $r->print('<option value="'.$1.'">'.$1.' - '.
214: &Apache::loncommon::plainname(split(/\@/,$1)).'</option>');
215: }
216: }
217: }
218: unless ($home==1) {
219: $r->print('</select>');
220: }
221: my $title=$origcrsdata{'description'};
222: $title=~s/\s+/\_/gs;
223: $title=&clean($title);
224: $r->print('<h3>'.&mt('Folder in Construction Space').'</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
225: &tiehash();
226: $r->print('<h3>'.&mt('Filenames in Construction Space').'</h3><table border="2"><tr><th>'.&mt('Internal Filename').'</th><th>'.&mt('Title').'</th><th>'.&mt('Save as ...').'</th></tr>');
227: foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) {
228: $r->print('<tr><td>'.$_.'</td>');
229: my ($ext)=($_=~/\.(\w+)$/);
230: my $title=$hash{'title_'.$hash{
231: 'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}};
232: $title=~s/:/:/g;
233: $r->print('<td>'.($title?$title:' ').'</td>');
234: unless ($title) {
235: $title=$_;
236: }
237: $title=~s/\.(\w+)$//;
238: $title=&clean($title);
239: $title.='.'.$ext;
240: $r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");
241: }
242: $r->print("</table>\n");
243: &untiehash();
244: $r->print(
245: '<p><input type="submit" name="dumpcourse" value="'.&mt('Dump Course DOCS').'" /></p></form>');
246: }
247: }
248:
249: # ------------------------------------------------------ Generate "export" button
250:
251: sub exportbutton {
252: return '';
253: return '</td><td bgcolor="#DDDDCC">'.
254: '<input type="submit" name="exportcourse" value="'.
255: &mt('Export Course to IMS').'" />'.
256: &Apache::loncommon::help_open_topic('Docs_Export_Course_Docs');
257: }
258:
259: sub exportcourse {
260: my $r=shift;
261: my %discussiontime = &Apache::lonnet::dump('discussiontimes',
262: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
263: my $numdisc = keys %discussiontime;
264: my $navmap = Apache::lonnavmaps::navmap->new();
265: my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
266: my $curRes;
267: my $outcome;
268:
269: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
270: ['finishexport']);
271: if ($ENV{'form.finishexport'}) {
272: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
273: ['archive','discussion']);
274:
275: my @exportitems = ();
276: if (defined($ENV{'form.archive'})) {
277: if (ref($ENV{'form.archive'}) eq 'ARRAY') {
278: @exportitems = @{$ENV{'form.archive'}};
279: } else {
280: $exportitems[0] = $ENV{'form.archive'};
281: }
282: }
283: my @discussions = ();
284: if (defined($ENV{'form.discussion'})) {
285: if (ref($ENV{'form.discussion'}) eq 'ARRAY') {
286: @discussions = $ENV{'form.discussion'};
287: } else {
288: $discussions[0] = $ENV{'form.discussion'};
289: }
290: }
291: if (@exportitems == 0 && @discussions == 0) {
292: $outcome = '<br />As you did not select any content items or discussions for export, an IMS package has not been created. Please <a href="javascript:history.go(-1)">go back</a> to select either content items or discussions for export';
293: } else {
294: my $now = time;
295: my %symbs;
296: my $manifestok = 0;
297: my $imsresources;
298: my $tempexport;
299: my $copyresult;
300: my $ims_manifest = &create_ims_store($now,\$manifestok,\$outcome,\$tempexport);
301: if ($manifestok) {
302: &build_package($now,$navmap,\@exportitems,\@discussions,\$outcome,$tempexport,\$copyresult,$ims_manifest);
303: close($ims_manifest);
304:
305: #Create zip file in prtspool
306: my $imszipfile = '/prtspool/'.
307: $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
308: time.'_'.rand(1000000000).'.zip';
309: # zip can cause an sh launch which can pass along all of %ENV
310: # which can be too large for /bin/sh to handle
311: my %oldENV=%ENV;
312: undef(%ENV);
313: my $cwd = &Cwd::getcwd();
314: my $imszip = '/home/httpd/'.$imszipfile;
315: chdir $tempexport;
316: open(OUTPUT, "zip -r $imszip * 2> /dev/null |");
317: close(OUTPUT);
318: chdir $cwd;
319: %ENV=%oldENV;
320: undef(%oldENV);
321: $outcome .= 'Download the zip file from <a href="'.$imszipfile.'">IMS course archive</a><br />';
322: if ($copyresult) {
323: $outcome .= 'The following errors occurred during export - '.$copyresult;
324: }
325: } else {
326: $outcome = '<br />Unfortunately you will not be able to retrieve an IMS archive of this posts at this time, because there was a problem creating a manifest file.<br />';
327: }
328: }
329: my $html=&Apache::lonxml::xmlbegin();
330: $r->print($html.'<head><title>Export Course</title></head>'.
331: &Apache::loncommon::bodytag('Export course to IMS content package'));
332: $r->print($outcome);
333: $r->print('</body></html>');
334: } else {
335: my $display;
336: $display = '<form name="exportdoc" method="post">'."\n";
337: $display .= 'Choose which items you wish to export from your course.<br /><br />';
338: $display .= '<table border="0" cellspacing="0" cellpadding="3">'.
339: '<tr><td><fieldset><legend> <b>Content items</b></legend>'.
340: '<input type="button" value="check all" '.
341: 'onclick="javascript:checkAll(document.exportdoc.archive)" />'.
342: ' <input type="button" value="uncheck all"'.
343: ' onclick="javascript:uncheckAll(document.exportdoc.archive)" /></fieldset></td>'.
344: '<td> </td><td> </td>'.
345: '<td align="right"><fieldset><legend> <b>Discussion posts'.
346: '</b></legend><input type="button" value="check all"'.
347: ' onclick="javascript:checkAll(document.exportdoc.discussion)" />'.
348: ' <input type="button" value="uncheck all"'.
349: ' onclick="javascript:uncheckAll(document.exportdoc.discussion)" /></fieldset></td>'.
350: '</tr></table>';
351: my $curRes;
352: my $depth = 0;
353: my $count = 0;
354: my $boards = 0;
355: my $startcount = 5;
356: my %parent = ();
357: my %children = ();
358: my $lastcontainer = $startcount;
359: my @bgcolors = ('#F6F6F6','#FFFFFF');
360: $display .= '<table cellspacing="0"><tr>'.
361: '<td><b>Export content item?<br /></b></td><td> </td><td align="right">'."\n";
362: if ($numdisc > 0) {
363: $display.='<b>Export discussion posts?</b>'."\n";
364: }
365: $display.=' </td></tr>';
366: while ($curRes = $it->next()) {
367: if (ref($curRes)) {
368: $count ++;
369: }
370: if ($curRes == $it->BEGIN_MAP()) {
371: $depth++;
372: $parent{$depth} = $lastcontainer;
373: }
374: if ($curRes == $it->END_MAP()) {
375: $depth--;
376: $lastcontainer = $parent{$depth};
377: }
378: if (ref($curRes)) {
379: my $symb = $curRes->symb();
380: my $ressymb = $symb;
381: if ($ressymb =~ m|adm/(\w+)/(\w+)/(\d+)/bulletinboard$|) {
382: unless ($ressymb =~ m|adm/wrapper/adm|) {
383: $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';
384: }
385: }
386: my $color = $count%2;
387: $display .='<tr bgcolor='.$bgcolors[$color].'><td>'."\n".
388: '<input type="checkbox" name="archive" value="'.$count.'" ';
389: if (($curRes->is_sequence()) || ($curRes->is_page())) {
390: my $checkitem = $count + $boards + $startcount;
391: $display .= 'onClick="javascript:propagateCheck('."'$checkitem'".')"';
392: }
393: $display .= ' />'."\n";
394: for (my $i=0; $i<$depth; $i++) {
395: $display .= '<img src="/adm/lonIcons/whitespace1.gif" width="25" height="1" alt="" border="0" /><img src="/adm/lonIcons/whitespace1.gif" width="25" height="1" alt="" border="0" />'."\n";
396: }
397: if ($curRes->is_sequence()) {
398: $display .= '<img src="/adm/lonIcons/navmap.folder.open.gif"> '."\n";
399: $lastcontainer = $count + $startcount + $boards;
400: } elsif ($curRes->is_page()) {
401: $display .= '<img src="/adm/lonIcons/navmap.page.open.gif"> '."\n";
402: $lastcontainer = $count + $startcount + $boards;
403: }
404: my $currelem = $count+$boards+$startcount;
405: $children{$parent{$depth}} .= $currelem.':';
406: $display .= ' '.$curRes->title().'</td>';
407: if ($discussiontime{$ressymb} > 0) {
408: $boards ++;
409: $currelem = $count+$boards+$startcount;
410: $display .= '<td> </td><td align="right"><input type="checkbox" name="discussion" value="'.$count.'" /> </td>'."\n";
411: } else {
412: $display .= '<td colspan="2"> </td>'."\n";
413: }
414: }
415: }
416: my $scripttag = qq|
417: <script>
418:
419: function checkAll(field) {
420: if (field.length > 0) {
421: for (i = 0; i < field.length; i++) {
422: field[i].checked = true ;
423: }
424: } else {
425: field.checked = true
426: }
427: }
428:
429: function uncheckAll(field) {
430: if (field.length > 0) {
431: for (i = 0; i < field.length; i++) {
432: field[i].checked = false ;
433: }
434: } else {
435: field.checked = false ;
436: }
437: }
438:
439: function propagateCheck(item) {
440: if (document.exportdoc.elements[item].checked == true) {
441: containerCheck(item)
442: }
443: }
444:
445: function containerCheck(item) {
446: document.exportdoc.elements[item].checked = true
447: var numitems = $count + $boards + $startcount
448: var parents = new Array(numitems)
449: for (var i=$startcount; i<numitems; i++) {
450: parents[i] = new Array
451: }
452: |;
453:
454: foreach my $container (sort { $a <=> $b } keys %children) {
455: my @contents = split/:/,$children{$container};
456: for (my $i=0; $i<@contents; $i ++) {
457: $scripttag .= ' parents['.$container.']['.$i.'] = '.$contents[$i]."\n";
458: }
459: }
460:
461: $scripttag .= qq|
462: if (parents[item].length > 0) {
463: for (var j=0; j<parents[item].length; j++) {
464: containerCheck(parents[item][j])
465: }
466: }
467: }
468:
469: </script>
470: |;
471: my $html=&Apache::lonxml::xmlbegin();
472: $r->print($html.'<head><title>Export Course</title>'.$scripttag.'</head>'.
473: &Apache::loncommon::bodytag('Export course to IMS content package'
474: ));
475:
476: $r->print($display.'</table>'.
477: '<p><input type="hidden" name="finishexport" value="1">'.
478: '<input type="submit" name="exportcourse" value="'.
479: &mt('Export Course DOCS').'" /></p></form></body></html>');
480: }
481: }
482:
483: sub create_ims_store {
484: my ($now,$manifestok,$outcome,$tempexport) = @_;
485: $$tempexport = $Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/ims_exports';
486: my $ims_manifest;
487: if (!-e $$tempexport) {
488: mkdir($$tempexport,0700);
489: }
490: $$tempexport .= '/'.$now;
491: if (!-e $$tempexport) {
492: mkdir($$tempexport,0700);
493: }
494: $$tempexport .= '/'.$ENV{'user.domain'}.'_'.$ENV{'user.name'};
495: if (!-e $$tempexport) {
496: mkdir($$tempexport,0700);
497: }
498: if (!-e "$$tempexport/resources") {
499: mkdir("$$tempexport/resources",0700);
500: }
501: # open manifest file
502: my $manifest = '/imsmanifest.xml';
503: my $manifestfilename = $$tempexport.$manifest;
504: if ($ims_manifest = Apache::File->new('>'.$manifestfilename)) {
505: $$manifestok=1;
506: print $ims_manifest
507: '<?xml version="1.0" encoding="UTF-8"?>'."\n".
508: '<manifest xmlns="http://www.imsglobal.org/xsd/imscp_v1p1"'.
509: ' xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2"'.
510: ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'.
511: ' identifier="MANIFEST-'.$ENV{'request.course.id'}.'-'.$now.'"'.
512: ' xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1imscp_v1p1.xsd'.
513: ' http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2p2.xsd">'."\n".
514: ' <organizations default="ORG-'.$ENV{'request.course.id'}.'-'.$now.'">'."\n".
515: ' <organization identifier="ORG-'.$ENV{'request.course.id'}.'-'.$now.'"'.
516: ' structure="hierarchical">'."\n".
517: ' <title>'.$ENV{'request.'.$ENV{'request.course.id'}.'.description'}.'</title>'
518: } else {
519: $$outcome .= 'An error occurred opening the IMS manifest file.<br />'
520: ;
521: }
522: return $ims_manifest;
523: }
524:
525: sub build_package {
526: my ($now,$navmap,$exportitems,$discussions,$outcome,$tempexport,$copyresult,$ims_manifest) = @_;
527: # first iterator to look for dependencies
528: my $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);
529: my $curRes;
530: my $count = 0;
531: my $depth = 0;
532: my $lastcontainer = 0;
533: my %parent = ();
534: my @dependencies = ();
535: my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
536: my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
537: while ($curRes = $it->next()) {
538: if (ref($curRes)) {
539: $count ++;
540: }
541: if ($curRes == $it->BEGIN_MAP()) {
542: $depth++;
543: $parent{$depth} = $lastcontainer;
544: }
545: if ($curRes == $it->END_MAP()) {
546: $depth--;
547: $lastcontainer = $parent{$depth};
548: }
549: if (ref($curRes)) {
550: if ($curRes->is_sequence() || $curRes->is_page()) {
551: $lastcontainer = $count;
552: }
553: if (grep/^$count$/,@$exportitems) {
554: &get_dependencies($exportitems,\%parent,$depth,\@dependencies);
555: }
556: }
557: }
558: # second iterator to build manifest and store resources
559: $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);
560: $depth = 0;
561: my $prevdepth;
562: $count = 0;
563: my $imsresources;
564: my $pkgdepth;
565: my $included = 0;
566: while ($curRes = $it->next()) {
567: if ($curRes == $it->BEGIN_MAP()) {
568: $prevdepth = $depth;
569: $depth++;
570: }
571: if ($curRes == $it->END_MAP()) {
572: $prevdepth = $depth;
573: $depth--;
574: }
575:
576: if (ref($curRes)) {
577: $count ++;
578: if ((grep/^$count$/,@$exportitems) || (grep/^$count$/,@dependencies)) {
579: my $symb = $curRes->symb();
580: my $isvisible = 'true';
581: my $resourceref;
582: if ($curRes->randomout()) {
583: $isvisible = 'false';
584: }
585: unless ($curRes->is_sequence()) {
586: $resourceref = 'identifierref="RES-'.$ENV{'request.course.id'}.'-'.$count.'"';
587: }
588: if (($depth <= $prevdepth) && ($count > 1) && ($included)) {
589: print $ims_manifest "\n".' </item>'."\n";
590: }
591: $included = 1;
592: $prevdepth = $depth;
593:
594: my $itementry =
595: '<item identifier="ITEM-'.$ENV{'request.course.id'}.'-'.$count.
596: '" isvisible="'.$isvisible.'" '.$resourceref.'>'.
597: '<title>'.$curRes->title().'</title>';
598: print $ims_manifest "\n".$itementry;
599:
600: unless ($curRes->is_sequence()) {
601: my $content_file;
602: my @hrefs = ();
603: &process_content($count,$curRes,$cdom,$cnum,$symb,\$content_file,\@hrefs,$copyresult,$tempexport);
604: if ($content_file) {
605: $imsresources .= "\n".
606: ' <resource identifier="RES-'.$ENV{'request.course.id'}.'-'.$count.
607: '" type="webcontent" href="'.$content_file.'">'."\n".
608: ' <file href="'.$content_file.'" />'."\n";
609: foreach (@hrefs) {
610: $imsresources .=
611: ' <file href="'.$_.'" />'."\n";
612: }
613: if (grep/^$count$/,@$discussions) {
614: my $ressymb = $symb;
615: my $mode;
616: if ($ressymb =~ m|adm/(\w+)/(\w+)/(\d+)/bulletinboard$|) {
617: unless ($ressymb =~ m|adm/wrapper/adm|) {
618: $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';
619: }
620: $mode = 'board';
621: }
622: my %extras = (
623: caller => 'imsexport',
624: tempexport => $tempexport.'/resources',
625: count => $count
626: );
627: my $discresult = &Apache::lonfeedback::list_discussion($mode,undef,$ressymb,\%extras);
628: }
629: $imsresources .= ' </resource>'."\n";
630: }
631: }
632: $pkgdepth = $depth;
633: } else {
634: $included = 0;
635: }
636: }
637: }
638: while ($pkgdepth > 0) {
639: print $ims_manifest " </item>\n";
640: $pkgdepth --;
641: }
642: my $resource_text = qq|
643: </organization>
644: </organizations>
645: <resources>
646: $imsresources
647: </resources>
648: </manifest>
649: |;
650: print $ims_manifest $resource_text;
651: }
652:
653: sub get_dependencies {
654: my ($exportitems,$parent,$depth,$dependencies) = @_;
655: if ($depth > 1) {
656: if ((!grep/^$$parent{$depth}$/,@$exportitems) && (!grep/^$$parent{$depth}$/,@$dependencies)) {
657: push @$dependencies, $$parent{$depth};
658: if ($depth > 2) {
659: &get_dependencies($exportitems,$parent,$depth-1,$dependencies);
660: }
661: }
662: }
663: }
664:
665: sub process_content {
666: my ($count,$curRes,$cdom,$cnum,$symb,$content_file,$href,$copyresult,$tempexport) = @_;
667: my $content_type;
668: my $message;
669: # find where user is author or co-author
670: my @uploads = ();
671: if ($curRes->is_sequence()) {
672: $content_type = 'sequence';
673: } elsif ($curRes->is_page()) {
674: $content_type = 'page'; # need to handle individual items in pages.
675: } elsif ($symb =~ m-public/$cdom/$cnum/syllabus$-) {
676: $content_type = 'syllabus';
677: my $contents = &Apache::imsexport::templatedpage($content_type);
678: if ($contents) {
679: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
680: }
681: } elsif ($symb =~ m-\.sequence___\d+___ext-) {
682: $content_type = 'external';
683: my $title = $curRes->title;
684: my $contents = &Apache::imsexport::external($symb,$title);
685: if ($contents) {
686: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
687: }
688: } elsif ($symb =~ m-adm/navmaps$-) {
689: $content_type = 'navmap';
690: } elsif ($symb =~ m-adm/[^/]+/[^/]+/(\d+)/smppg$-) {
691: $content_type = 'simplepage';
692: my $contents = &Apache::imsexport::templatedpage($content_type,$1,$count,\@uploads);
693: if ($contents) {
694: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
695: }
696: } elsif ($symb =~ m-lib/templates/simpleproblem\.problem$-) {
697: $content_type = 'simpleproblem';
698: my $contents = &Apache::imsexport::simpleproblem($symb);
699: if ($contents) {
700: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
701: }
702: } elsif ($symb =~ m-lib/templates/examupload\.problem-m) {
703: $content_type = 'examupload';
704: } elsif ($symb =~ m-adm/(\w+)/(\w+)/(\d+)/bulletinboard$-) {
705: $content_type = 'bulletinboard';
706: my $contents = &Apache::imsexport::templatedpage($content_type,$3,$count,\@uploads,$1,$2);
707: if ($contents) {
708: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
709: }
710: } elsif ($symb =~ m-adm/([^/]+)/([^/]+)/aboutme$-) {
711: $content_type = 'aboutme';
712: my $contents = &Apache::imsexport::templatedpage($content_type,undef,$count,\@uploads,$1,$2);
713: if ($contents) {
714: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
715: }
716: } elsif ($symb =~ m-\.(sequence|page)___\d+___uploaded/$cdom/$cnum/-) {
717: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');
718: } elsif ($symb =~ m-\.(sequence|page)___\d+___([^/]+)/([^/]+)-) {
719: my $canedit = 0;
720: if ($2 eq $ENV{'user.domain'} && $3 eq $ENV{'user.name'}) {
721: $canedit= 1;
722: }
723: if ($canedit) {
724: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource');
725: } else {
726: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'noedit');
727: }
728: } elsif ($symb =~ m-uploaded/$cdom/$cnum-) {
729: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');
730: }
731: if (@uploads > 0) {
732: foreach my $item (@uploads) {
733: my $uploadmsg = '';
734: &replicate_content($cdom,$cnum,$tempexport,$item,$count,\$uploadmsg,$href,'templateupload');
735: if ($uploadmsg) {
736: $$copyresult .= $uploadmsg."\n";
737: }
738: }
739: }
740: if ($message) {
741: $$copyresult .= $message."\n";
742: }
743: }
744:
745: sub replicate_content {
746: my ($cdom,$cnum,$tempexport,$symb,$count,$message,$href,$caller) = @_;
747: my ($map,$ind,$url);
748: if ($caller eq 'templateupload') {
749: $url = $symb;
750: $url =~ s#//#/#g;
751: } else {
752: ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
753: }
754: my $content;
755: my $filename;
756: my $repstatus;
757: my $content_name;
758: if ($url =~ m-/([^/]+)$-) {
759: $filename = $1;
760: if (!-e $tempexport.'/resources') {
761: mkdir($tempexport.'/resources',0700);
762: }
763: if (!-e $tempexport.'/resources/'.$count) {
764: mkdir($tempexport.'/resources/'.$count,0700);
765: }
766: my $destination = $tempexport.'/resources/'.$count.'/'.$filename;
767: my $copiedfile;
768: if ($copiedfile = Apache::File->new('>'.$destination)) {
769: my $content;
770: if ($caller eq 'resource') {
771: $content = &Apache::lonnet::getfile('/home/httpd/html/res/'.$url);
772: if ($content eq -1) {
773: $$message = 'Could not copy file '.$filename;
774: } else {
775: &extract_media($content,$count,$tempexport,$href,'resource');
776: $repstatus = 'ok';
777: }
778: } elsif ($caller eq 'uploaded' || $caller eq 'templateupload') {
779: my $rtncode;
780: $repstatus = &Apache::lonnet::getuploaded('GET',$url,$cdom,$cnum,\$content,$rtncode);
781: if ($repstatus eq 'ok') {
782: if ($url =~ /\.html?$/i) {
783: &extract_media(\$content,$count,$tempexport,$href,'uploaded');
784: }
785: } else {
786: $$message = 'Could not render '.$url.' server message - '.$rtncode;
787: }
788: } elsif ($caller eq 'noedit') {
789: # Need to render the resource without the LON-CAPA Internal header and the Post discussion footer, and then set $content equal to this.
790: $repstatus = 'ok';
791: $content = 'Not the owner of this resource';
792: }
793: if ($repstatus eq 'ok') {
794: print $copiedfile $content;
795: }
796: close($copiedfile);
797: } else {
798: $$message = 'Could not open destination file for '.$filename."\n";
799: }
800: } else {
801: $$message = 'Could not determine name of file for '.$symb."\n";
802: }
803: if ($repstatus eq 'ok') {
804: $content_name = $count.'/'.$filename;
805: }
806: return $content_name;
807: }
808:
809: sub extract_media {
810: my ($content,$count,$tempexport,$href,$caller) = @_;
811: # @$href will contain path to any embedded resources in the content.
812: # For LON-CAPA problems this would be images. applets etc.
813: # For uploaded HTML files this would be images etc.
814: # paths will be in the form $count/res/$file, and urls in the $content will be rewritten with the new paths.
815: return;
816: }
817:
818: sub store_template {
819: my ($contents,$tempexport,$count,$content_type) = @_;
820: if ($contents) {
821: if ($tempexport) {
822: if (!-e $tempexport.'/resources') {
823: mkdir($tempexport.'/resources',0700);
824: }
825: if (!-e $tempexport.'/resources/'.$count) {
826: mkdir($tempexport.'/resources/'.$count,0700);
827: }
828: my $destination = $tempexport.'/resources/'.$count.'/'.$content_type.'.xml';
829: my $storetemplate;
830: if ($storetemplate = Apache::File->new('>'.$destination)) {
831: print $storetemplate $contents;
832: close($storetemplate);
833: }
834: if ($content_type eq 'external') {
835: return $count.'/'.$content_type.'.html';
836: } else {
837: return $count.'/'.$content_type.'.xml';
838: }
839: }
840: }
841: }
842:
843: # Imports the given (name, url) resources into the course
844: # coursenum, coursedom, and folder must precede the list
845: sub group_import {
846: my $coursenum = shift;
847: my $coursedom = shift;
848: my $folder = shift;
849: my $container = shift;
850: my $caller = shift;
851: while (@_) {
852: my $name = shift;
853: my $url = shift;
854: if (($url =~ m#^/uploaded/$coursedom/$coursenum/(default_\d+\.)(page|sequence)$#) && ($caller eq 'londocs')) {
855: my $errtext = '';
856: my $fatal = 0;
857: my $newmapstr = '<map>'."\n".
858: '<resource id="1" src="" type="start"></resource>'."\n".
859: '<link from="1" to="2" index="1"></link>'."\n".
860: '<resource id="2" src="" type="finish"></resource>'."\n".
861: '</map>';
862: $ENV{'form.output'}=$newmapstr;
863: my $home=&Apache::lonnet::homeserver($coursenum,$coursedom);
864: my $result=&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,$home,
865: 'output',$1.$2);
866: if ($result != m|^/uploaded/|) {
867: $errtext.='Map not saved: A network error occured when trying to save the new map. ';
868: $fatal = 2;
869: }
870: if ($fatal) {
871: return ($errtext,$fatal);
872: }
873: }
874: if ($url) {
875: my $idx = $#Apache::lonratedt::resources + 1;
876: $Apache::lonratedt::order[$#Apache::lonratedt::order+1]=$idx;
877: my $ext = 'false';
878: if ($url=~/^http:\/\//) { $ext = 'true'; }
879: $url =~ s/:/\:/g;
880: $name =~ s/:/\:/g;
881: $Apache::lonratedt::resources[$idx] =
882: join ':', ($name, $url, $ext, 'normal', 'res');
883: }
884: }
885: return &storemap($coursenum, $coursedom, $folder.'.'.$container);
886: }
887:
888: sub breadcrumbs {
889: my ($where)=@_;
890: &Apache::lonhtmlcommon::clear_breadcrumbs();
891: my (@folders);
892: if ($ENV{'form.pagepath'}) {
893: @folders = split('&',$ENV{'form.pagepath'});
894: } else {
895: @folders=split('&',$ENV{'form.folderpath'});
896: }
897: my $folderpath;
898: my $cpinfo='';
899: if ($ENV{'form.markedcopy_url'}) {
900: &Apache::lonnet::logthis('Found '.$ENV{'form.markedcopy_url'});
901: $cpinfo='&markedcopy_url='.
902: &Apache::lonnet::escape($ENV{'form.markedcopy_url'}).
903: '&markedcopy_title='.
904: &Apache::lonnet::escape($ENV{'form.markedcopy_title'});
905: }
906: while (@folders) {
907: my $folder=shift(@folders);
908: my $foldername=shift(@folders);
909: if ($folderpath) {$folderpath.='&';}
910: $folderpath.=$folder.'&'.$foldername;
911: my $url='/adm/coursedocs?folderpath='.
912: &Apache::lonnet::escape($folderpath);
913: &Apache::lonhtmlcommon::add_breadcrumb(
914: {'href'=>$url.$cpinfo,
915: 'title'=>&Apache::lonnet::unescape($foldername),
916: 'text'=>'<font size="+1">'.
917: &Apache::lonnet::unescape($foldername).'</font>'
918: });
919:
920:
921: }
922: return &Apache::lonhtmlcommon::breadcrumbs(undef,undef,undef,undef,undef,
923: 0,'nohelp');
924: }
925:
926: sub editor {
927: my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;
928: my $errtext='';
929: my $fatal=0;
930: my $container='sequence';
931: if ($ENV{'form.pagepath'}) {
932: $container='page';
933: }
934: ($errtext,$fatal)=
935: &mapread($coursenum,$coursedom,$folder.'.'.$container);
936: if ($#Apache::lonratedt::order<1) {
937: $Apache::lonratedt::order[0]=1;
938: $Apache::lonratedt::resources[1]='';
939: }
940: if (defined($ENV{'form.markcopy'})) {
941: # Mark for copying
942: my ($title,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$ENV{'form.markcopy'}]]);
943: $ENV{'form.markedcopy_title'}=$title;
944: $ENV{'form.markedcopy_url'}=$url;
945: }
946: $r->print(&breadcrumbs($folder));
947: if ($fatal) {
948: $r->print('<p><font color="red">'.$errtext.'</font></p>');
949: } else {
950: # ------------------------------------------------------------ Process commands
951:
952: # ---------------- if they are for this folder and user allowed to make changes
953: if (($allowed) && ($ENV{'form.folder'} eq $folder)) {
954: # set parameters and change order
955: if (defined($ENV{'form.setparms'})) {
956: my $idx=$ENV{'form.setparms'};
957: # set parameters
958: if ($ENV{'form.randpick_'.$idx}) {
959: &Apache::lonratedt::storeparameter($idx,'parameter_randompick',$ENV{'form.randpick_'.$idx},'int_pos');
960: } else {
961: &Apache::lonratedt::delparameter($idx,'parameter_randompick');
962: }
963: if ($ENV{'form.hidprs_'.$idx}) {
964: &Apache::lonratedt::storeparameter($idx,'parameter_hiddenresource','yes','string_yesno');
965: } else {
966: &Apache::lonratedt::delparameter($idx,'parameter_hiddenresource');
967: }
968: if ($ENV{'form.encprs_'.$idx}) {
969: &Apache::lonratedt::storeparameter($idx,'parameter_encrypturl','yes','string_yesno');
970: } else {
971: &Apache::lonratedt::delparameter($idx,'parameter_encrypturl');
972: }
973:
974: if ($ENV{'form.newpos'}) {
975: # change order
976:
977: my $newpos=$ENV{'form.newpos'}-1;
978: my $currentpos=$ENV{'form.currentpos'}-1;
979: my $i;
980: my @neworder=();
981: if ($newpos>$currentpos) {
982: # moving stuff up
983: for ($i=0;$i<$currentpos;$i++) {
984: $neworder[$i]=$Apache::lonratedt::order[$i];
985: }
986: for ($i=$currentpos;$i<$newpos;$i++) {
987: $neworder[$i]=$Apache::lonratedt::order[$i+1];
988: }
989: $neworder[$newpos]=$Apache::lonratedt::order[$currentpos];
990: for ($i=$newpos+1;$i<=$#Apache::lonratedt::order;$i++) {
991: $neworder[$i]=$Apache::lonratedt::order[$i];
992: }
993: } else {
994: # moving stuff down
995: for ($i=0;$i<$newpos;$i++) {
996: $neworder[$i]=$Apache::lonratedt::order[$i];
997: }
998: $neworder[$newpos]=$Apache::lonratedt::order[$currentpos];
999: for ($i=$newpos+1;$i<$currentpos+1;$i++) {
1000: $neworder[$i]=$Apache::lonratedt::order[$i-1];
1001: }
1002: for ($i=$currentpos+1;$i<=$#Apache::lonratedt::order;$i++) {
1003: $neworder[$i]=$Apache::lonratedt::order[$i];
1004: }
1005: }
1006: @Apache::lonratedt::order=@neworder;
1007: }
1008: # store the changed version
1009:
1010: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1011: if ($fatal) {
1012: $r->print('<p><font color="red">'.$errtext.'</font></p>');
1013: return;
1014: }
1015:
1016: }
1017: if ($ENV{'form.pastemarked'}) {
1018: # paste resource to end of list
1019: my $url=$ENV{'form.markedcopy_url'};
1020: my $title=$ENV{'form.markedcopy_title'};
1021: # Maps need to be copied first
1022: if (($url=~/\.(page|sequence)$/) || ($url=~/^\/uploaded\//)) {
1023: $title=&mt('Copy of').' '.$title;
1024: my $newid=$$.time;
1025: $url=~/^(.+)\.(\w+)$/;
1026: my $newurl=$1.$newid.'.'.$2;
1027: my $storefn=$newurl;
1028: $storefn=~s/^\/\w+\/\w+\/\w+\///;
1029: &Apache::loncreatecourse::writefile
1030: ($ENV{'request.course.id'},$storefn,
1031: &Apache::lonnet::getfile($url));
1032: $url=$newurl;
1033: }
1034: $title=~s/\</\<\;/g;
1035: $title=~s/\>/\>\;/g;
1036: $title=~s/\:/\:/g;
1037: my $ext='false';
1038: if ($url=~/^http\:\/\//) { $ext='true'; }
1039: $url=~s/\:/\:/g;
1040: # Now insert the URL at the bottom
1041: my $newidx=1+$#Apache::lonratedt::resources;
1042: $Apache::lonratedt::resources[$newidx]=
1043: $title.':'.$url.':'.$ext.':normal:res';
1044: $Apache::lonratedt::order[1+$#Apache::lonratedt::order]=$newidx;
1045: # Store the result
1046: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1047: if ($fatal) {
1048: $r->print('<p><font color="red">'.$errtext.'</font></p>');
1049: return;
1050: }
1051:
1052: }
1053: # upload a file, if present
1054: if (($ENV{'form.uploaddoc.filename'}) &&
1055: ($ENV{'form.cmd'}=~/^upload_(\w+)/)) {
1056: if ( ($folder=~/^$1/) || ($1 eq 'default') ) {
1057: # this is for a course, not a user, so set coursedoc flag
1058: # probably the only place in the system where this should be "1"
1059: my $newidx=$#Apache::lonratedt::resources+1;
1060: my $url=&Apache::lonnet::userfileupload('uploaddoc',1,'docs/'.$newidx);
1061: my $ext='false';
1062: if ($url=~/^http\:\/\//) { $ext='true'; }
1063: $url=~s/\:/\:/g;
1064: my $comment=$ENV{'form.comment'};
1065: $comment=~s/\</\<\;/g;
1066: $comment=~s/\>/\>\;/g;
1067: $comment=~s/\:/\:/g;
1068: if ($folder=~/^supplemental/) {
1069: $comment=time.'___&&&___'.$ENV{'user.name'}.'___&&&___'.
1070: $ENV{'user.domain'}.'___&&&___'.$comment;
1071: }
1072: $Apache::lonratedt::resources[$newidx]=
1073: $comment.':'.$url.':'.$ext.':normal:res';
1074: $Apache::lonratedt::order[$#Apache::lonratedt::order+1]=
1075: $newidx;
1076:
1077: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1078: if ($fatal) {
1079: $r->print('<p><font color="red">'.$errtext.'</font></p>');
1080: return;
1081: }
1082: }
1083: }
1084: if ($ENV{'form.cmd'}) {
1085: my ($cmd,$idx)=split(/\_/,$ENV{'form.cmd'});
1086: if ($cmd eq 'del') {
1087: my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]);
1088: if ($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) {
1089: &Apache::lonnet::removeuploadedurl($url);
1090: }
1091: for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {
1092: $Apache::lonratedt::order[$i]=
1093: $Apache::lonratedt::order[$i+1];
1094: }
1095: $#Apache::lonratedt::order--;
1096: } elsif ($cmd eq 'up') {
1097: if (($idx) && (defined($Apache::lonratedt::order[$idx-1]))) {
1098: my $i=$Apache::lonratedt::order[$idx-1];
1099: $Apache::lonratedt::order[$idx-1]=
1100: $Apache::lonratedt::order[$idx];
1101: $Apache::lonratedt::order[$idx]=$i;
1102: }
1103: } elsif ($cmd eq 'down') {
1104: if (defined($Apache::lonratedt::order[$idx+1])) {
1105: my $i=$Apache::lonratedt::order[$idx+1];
1106: $Apache::lonratedt::order[$idx+1]=
1107: $Apache::lonratedt::order[$idx];
1108: $Apache::lonratedt::order[$idx]=$i;
1109: }
1110: } elsif ($cmd eq 'rename') {
1111: my $ratstr = $Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]];
1112: my ($rtitle,@rrest)=split(/\:/,
1113: $Apache::lonratedt::resources[
1114: $Apache::lonratedt::order[$idx]]);
1115: my $comment=
1116: &HTML::Entities::decode($ENV{'form.title'});
1117: $comment=~s/\</\<\;/g;
1118: $comment=~s/\>/\>\;/g;
1119: $comment=~s/\:/\:/g;
1120: if ($comment=~/\S/) {
1121: $Apache::lonratedt::resources[
1122: $Apache::lonratedt::order[$idx]]=
1123: $comment.':'.join(':',@rrest);
1124: }
1125: }
1126: # Store the changed version
1127: ($errtext,$fatal)=&storemap($coursenum,$coursedom,
1128: $folder.'.'.$container);
1129: if ($fatal) {
1130: $r->print('<p><font color="red">'.$errtext.'</font></p>');
1131: return;
1132: }
1133: }
1134: # Group import/search
1135: if ($ENV{'form.importdetail'}) {
1136: my @imports;
1137: foreach (split(/\&/,$ENV{'form.importdetail'})) {
1138: if (defined($_)) {
1139: my ($name,$url)=split(/\=/,$_);
1140: $name=&Apache::lonnet::unescape($name);
1141: $url=&Apache::lonnet::unescape($url);
1142: push @imports, $name, $url;
1143: }
1144: }
1145: # Store the changed version
1146: ($errtext,$fatal)=group_import($coursenum, $coursedom, $folder,
1147: $container,'londocs',@imports);
1148: if ($fatal) {
1149: $r->print('<p><font color="red">'.$errtext.'</font></p>');
1150: return;
1151: }
1152: }
1153: # Loading a complete map
1154: if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) {
1155: foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {
1156: my $idx=$#Apache::lonratedt::resources;
1157: $idx++;
1158: $Apache::lonratedt::resources[$idx]=$_;
1159: $Apache::lonratedt::order
1160: [$#Apache::lonratedt::order+1]=$idx;
1161: }
1162:
1163: # Store the changed version
1164: ($errtext,$fatal)=&storemap($coursenum,$coursedom,
1165: $folder.'.'.$container);
1166: if ($fatal) {
1167: $r->print('<p><font color="red">'.$errtext.'</font></p>');
1168: return;
1169: }
1170: }
1171: }
1172: # ---------------------------------------------------------------- End commands
1173: # ---------------------------------------------------------------- Print screen
1174: my $idx=0;
1175: my $shown=0;
1176: $r->print('<table>');
1177: foreach (@Apache::lonratedt::order) {
1178: my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);
1179: unless ($name) { $name=(split(/\//,$url))[-1]; }
1180: unless ($name) { $idx++; next; }
1181: $r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));
1182: $idx++;
1183: $shown++;
1184: }
1185: unless ($shown) {
1186: $r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');
1187: }
1188: $r->print("\n</table>\n");
1189: if ($ENV{'form.markedcopy_url'}) {
1190: $r->print(<<ENDPASTE);
1191: <p><form name="pasteform" action="/adm/coursedocs" method="post">
1192: <input type="hidden" name="markedcopy_url" value="$ENV{'form.markedcopy_url'}" />
1193: <input type="hidden" name="markedcopy_title" value="$ENV{'form.markedcopy_title'}" />
1194: ENDPASTE
1195: $r->print(
1196: '<input type="submit" name="pastemarked" value="'.&mt('Paste').
1197: '" /> '.&Apache::loncommon::filedescription(
1198: (split(/\./,$ENV{'form.markedcopy_url'}))[-1]).': '.
1199: $ENV{'form.markedcopy_title'});
1200: if ($container eq 'page') {
1201: $r->print(<<PAGEINFO);
1202: <input type="hidden" name="pagepath" value="$ENV{'form.pagepath'}" />
1203: <input type="hidden" name="pagesymb" value="$ENV{'form.pagesymb'}" />
1204: PAGEINFO
1205: } else {
1206: $r->print(<<FOLDERINFO);
1207: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
1208: FOLDERINFO
1209: }
1210: $r->print('</form></p>');
1211: }
1212: }
1213: }
1214:
1215: # --------------------------------------------------------------- An entry line
1216:
1217: sub entryline {
1218: my ($index,$title,$url,$folder,$allowed,$residx,$coursenum)=@_;
1219: $title=~s/\&colon\;/\:/g;
1220: $title=&HTML::Entities::encode(&HTML::Entities::decode(
1221: &Apache::lonnet::unescape($title)),'"<>&\'');
1222: my $renametitle=$title;
1223: my $foldertitle=$title;
1224: my $pagetitle=$title;
1225: my $orderidx=$Apache::lonratedt::order[$index];
1226: if ($title=~ /^(\d+)___&&&___(\w+)___&&&___(\w+)___&&&___(.*)$/ ) {
1227: $foldertitle=&Apache::lontexconvert::msgtexconverted($4);
1228: $renametitle=$4;
1229: $title='<i>'.&Apache::lonlocal::locallocaltime($1).'</i> '.
1230: &Apache::loncommon::plainname($2,$3).': <br />'.
1231: $foldertitle;
1232: }
1233: $renametitle=~s/\"\;/\\\"/g;
1234: my $line='<tr>';
1235: # Edit commands
1236: my $container;
1237: my $folderpath;
1238: if ($ENV{'form.folderpath'}) {
1239: $container = 'sequence';
1240: $folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'});
1241: # $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"');
1242: }
1243: my ($pagepath,$pagesymb);
1244: if ($ENV{'form.pagepath'}) {
1245: $container = 'page';
1246: $pagepath=&Apache::lonnet::escape($ENV{'form.pagepath'});
1247: $pagesymb=&Apache::lonnet::escape($ENV{'form.pagesymb'});
1248: }
1249: my $cpinfo='';
1250: if ($ENV{'form.markedcopy_url'}) {
1251: $cpinfo='&markedcopy_url='.
1252: &Apache::lonnet::escape($ENV{'form.markedcopy_url'}).
1253: '&markedcopy_title='.
1254: &Apache::lonnet::escape($ENV{'form.markedcopy_title'});
1255: }
1256: if ($allowed) {
1257: my $incindex=$index+1;
1258: my $selectbox='';
1259: if (($folder!~/^supplemental/) &&
1260: ($#Apache::lonratedt::order>0) &&
1261: ((split(/\:/,
1262: $Apache::lonratedt::resources[$Apache::lonratedt::order[0]]))[1]
1263: ne '') &&
1264: ((split(/\:/,
1265: $Apache::lonratedt::resources[$Apache::lonratedt::order[1]]))[1]
1266: ne '')) {
1267: $selectbox=
1268: '<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
1269: '<select name="newpos" onChange="this.form.submit()">';
1270: for (my $i=1;$i<=$#Apache::lonratedt::order+1;$i++) {
1271: if ($i==$incindex) {
1272: $selectbox.='<option value="" selected="1">('.$i.')</option>';
1273: } else {
1274: $selectbox.='<option value="'.$i.'">'.$i.'</option>';
1275: }
1276: }
1277: $selectbox.='</select>';
1278: }
1279: my %lt=&Apache::lonlocal::texthash(
1280: 'up' => 'Move Up',
1281: 'dw' => 'Move Down',
1282: 'rm' => 'Remove',
1283: 'rn' => 'Rename',
1284: 'cp' => 'Copy');
1285: if ($ENV{'form.pagepath'}) {
1286: $line.=(<<END);
1287: <form name="entry_$index" action="/adm/coursedocs" method="post">
1288: <input type="hidden" name="pagepath" value="$ENV{'form.pagepath'}" />
1289: <input type="hidden" name="pagesymb" value="$ENV{'form.pagesymb'}" />
1290: <input type="hidden" name="markedcopy_url" value="$ENV{'form.markedcopy_url'}" />
1291: <input type="hidden" name="markedcopy_title" value="$ENV{'form.markedcopy_title'}" />
1292: <input type="hidden" name="setparms" value="$orderidx" />
1293: <td><table border='0' cellspacing='2' cellpadding='0'>
1294: <tr><td bgcolor="#DDDDDD">
1295: <a href='/adm/coursedocs?cmd=up_$index&pagepath=$pagepath&pagesymb=$pagesymb$cpinfo'>
1296: <img src="${iconpath}move_up.gif" alt='$lt{'up'}' border='0' /></a></td></tr>
1297: <tr><td bgcolor="#DDDDDD">
1298: <a href='/adm/coursedocs?cmd=down_$index&pagepath=$pagepath&pagesymb=$pagesymb$cpinfo'>
1299: <img src="${iconpath}move_down.gif" alt='$lt{'dw'}' border='0' /></a></td></tr>
1300: </table></td>
1301: <td>$selectbox
1302: </td><td bgcolor="#DDDDDD">
1303: <a href='javascript:removeres("$pagepath","$index","$renametitle","page","$pagesymb");'>
1304: <font size="-2" color="#990000">$lt{'rm'}</font></a>
1305: <a href='javascript:changename("$pagepath","$index","$renametitle","page","$pagesymb");'>
1306: <font size="-2" color="#009900">$lt{'rn'}</font></a>
1307: <a href='javascript:markcopy("$pagepath","$index","$renametitle","page","$pagesymb");'>
1308: <font size="-2" color="#000099">$lt{'cp'}</font></a></td>
1309: END
1310: } else {
1311: $line.=(<<END);
1312: <form name="entry_$index" action="/adm/coursedocs" method="post">
1313: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
1314: <input type="hidden" name="markedcopy_url" value="$ENV{'form.markedcopy_url'}" />
1315: <input type="hidden" name="markedcopy_title" value="$ENV{'form.markedcopy_title'}" />
1316: <input type="hidden" name="setparms" value="$orderidx" />
1317: <td><table border='0' cellspacing='2' cellpadding='0'>
1318: <tr><td bgcolor="#DDDDDD">
1319: <a href='/adm/coursedocs?cmd=up_$index&folderpath=$folderpath$cpinfo'>
1320: <img src="${iconpath}move_up.gif" alt='$lt{'up'}' border='0' /></a></td></tr>
1321: <tr><td bgcolor="#DDDDDD">
1322: <a href='/adm/coursedocs?cmd=down_$index&folderpath=$folderpath$cpinfo'>
1323: <img src="${iconpath}move_down.gif" alt='$lt{'dw'}' border='0' /></a></td></tr>
1324: </table></td>
1325: <td>$selectbox
1326: </td><td bgcolor="#DDDDDD">
1327: <a href='javascript:removeres("$folderpath","$index","$renametitle","sequence");'>
1328: <font size="-2" color="#990000">$lt{'rm'}</font></a>
1329: <a href='javascript:changename("$folderpath","$index","$renametitle","sequence");'>
1330: <font size="-2" color="#009900">$lt{'rn'}</font></a>
1331: <a href='javascript:markcopy("$folderpath","$index","$renametitle","sequence");'>
1332: <font size="-2" color="#000099">$lt{'cp'}</font></a></td>
1333: END
1334: }
1335: }
1336: # Figure out what kind of a resource this is
1337: my ($extension)=($url=~/\.(\w+)$/);
1338: my $uploaded=($url=~/^\/*uploaded\//);
1339: my $icon=&Apache::loncommon::icon($url);
1340: my $isfolder=0;
1341: my $ispage=0;
1342: my $folderarg;
1343: my $pagearg;
1344: my $pagefile;
1345: if ($uploaded) {
1346: if ($extension eq 'sequence') {
1347: $icon=$iconpath.'/folder_closed.gif';
1348: $url=~/$coursenum\/([\/\w]+)\.sequence$/;
1349: $url='/adm/coursedocs?';
1350: $folderarg=$1;
1351: $isfolder=1;
1352: } elsif ($extension eq 'page') {
1353: $icon=$iconpath.'/page.gif';
1354: $url=~/$coursenum\/([\/\w]+)\.page$/;
1355: $pagearg=$1;
1356: $url='/adm/coursedocs?';
1357: $ispage=1;
1358: } else {
1359: &Apache::lonnet::allowuploaded('/adm/coursedoc',$url);
1360: }
1361: }
1362: $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
1363: if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) {
1364: my $symb=&Apache::lonnet::symbclean(
1365: &Apache::lonnet::declutter('uploaded/'.
1366: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'.
1367: $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/'.$folder.
1368: '.sequence').
1369: '___'.$residx.'___'.
1370: &Apache::lonnet::declutter($url));
1371: (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
1372: $url=&Apache::lonnet::clutter($url);
1373: if ($url=~/^\/*uploaded\//) {
1374: $url=~/\.(\w+)$/;
1375: my $embstyle=&Apache::loncommon::fileembstyle($1);
1376: if (($embstyle eq 'img') || ($embstyle eq 'emb')) {
1377: $url='/adm/wrapper'.$url;
1378: } elsif ($embstyle eq 'ssi') {
1379: #do nothing with these
1380: } elsif ($url!~/\.(sequence|page)$/) {
1381: $url='/adm/coursedocs/showdoc'.$url;
1382: }
1383: } elsif ($url=~m|^/ext/|) {
1384: $url='/adm/wrapper'.$url;
1385: }
1386: $url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
1387: if ($container eq 'page') {
1388: my $symb=$ENV{'form.pagesymb'};
1389:
1390: $url=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);
1391: $url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
1392: }
1393: }
1394: my $parameterset=' ';
1395: if ($isfolder) {
1396: my $foldername=&Apache::lonnet::escape($foldertitle);
1397: my $folderpath=$ENV{'form.folderpath'};
1398: if ($folderpath) { $folderpath.='&' };
1399: $folderpath.=$folderarg.'&'.$foldername;
1400: $url.='folderpath='.&Apache::lonnet::escape($folderpath).$cpinfo;
1401: $parameterset='<label>'.&mt('Randomly Pick: ').
1402: '<input type="text" size="4" onChange="this.form.submit()" name="randpick_'.$orderidx.'" value="'.
1403: (&Apache::lonratedt::getparameter($orderidx,
1404: 'parameter_randompick'))[0].
1405: '" />'.
1406: '<font size="-2"><a href="javascript:void(0)">'.&mt('Store').'</a></font></label>';
1407:
1408: }
1409: if ($ispage) {
1410: my $pagename=&Apache::lonnet::escape($pagetitle);
1411: my $pagepath;
1412: my $folderpath=$ENV{'form.folderpath'};
1413: if ($folderpath) { $pagepath = $folderpath.'&' };
1414: $pagepath.=$pagearg.'&'.$pagename;
1415: my $symb=$ENV{'form.pagesymb'};
1416: if (!$symb) {
1417: my $path='uploaded/'.
1418: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'.
1419: $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/';
1420: $symb=&Apache::lonnet::encode_symb($path.$folder.'.sequence',
1421: $residx,
1422: $path.$pagearg.'.page');
1423: }
1424: $url.='pagepath='.&Apache::lonnet::escape($pagepath).
1425: '&pagesymb='.&Apache::lonnet::escape($symb).$cpinfo;
1426: }
1427: $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.
1428: '" border="0"></a></td>'.
1429: "<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td>";
1430: if (($allowed) && ($folder!~/^supplemental/)) {
1431: my %lt=&Apache::lonlocal::texthash(
1432: 'hd' => 'Hidden',
1433: 'ec' => 'URL hidden');
1434: my $enctext=
1435: ((&Apache::lonratedt::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i?' checked="1"':'');
1436: my $hidtext=
1437: ((&Apache::lonratedt::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i?' checked="1"':'');
1438: $line.=(<<ENDPARMS);
1439: <td bgcolor="#BBBBFF"><font size='-2'>
1440: <nobr><label><input type="checkbox" name="hidprs_$orderidx" onClick="this.form.submit()" $hidtext /> $lt{'hd'}</label></nobr></td>
1441: <td bgcolor="#BBBBFF"><font size='-2'>
1442: <nobr><label><input type="checkbox" name="encprs_$orderidx" onClick="this.form.submit()" $enctext /> $lt{'ec'}</label></nobr></td>
1443: <td bgcolor="#BBBBFF"><font size="-2">$parameterset</font></td>
1444: ENDPARMS
1445: }
1446: $line.="</form></tr>";
1447: return $line;
1448: }
1449:
1450: # ---------------------------------------------------------------- tie the hash
1451:
1452: sub tiehash {
1453: my ($mode)=@_;
1454: $hashtied=0;
1455: if ($ENV{'request.course.fn'}) {
1456: if ($mode eq 'write') {
1457: if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db",
1458: &GDBM_WRCREAT(),0640)) {
1459: $hashtied=2;
1460: }
1461: } else {
1462: if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db",
1463: &GDBM_READER(),0640)) {
1464: $hashtied=1;
1465: }
1466: }
1467: }
1468: }
1469:
1470: sub untiehash {
1471: if ($hashtied) { untie %hash; }
1472: $hashtied=0;
1473: }
1474:
1475: # --------------------------------------------------------------- check on this
1476:
1477: sub checkonthis {
1478: my ($r,$url,$level,$title)=@_;
1479: $url=&Apache::lonnet::unescape($url);
1480: $alreadyseen{$url}=1;
1481: $r->rflush();
1482: if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {
1483: $r->print("\n<br />");
1484: for (my $i=0;$i<=$level*5;$i++) {
1485: $r->print(' ');
1486: }
1487: $r->print('<a href="'.$url.'" target="cat">'.
1488: ($title?$title:$url).'</a> ');
1489: if ($url=~/^\/res\//) {
1490: my $result=&Apache::lonnet::repcopy(
1491: &Apache::lonnet::filelocation('',$url));
1492: if ($result eq 'OK') {
1493: $r->print('<font color="green">'.&mt('ok').'</font>');
1494: $r->rflush();
1495: &Apache::lonnet::countacc($url);
1496: $url=~/\.(\w+)$/;
1497: if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
1498: $r->print('<br />');
1499: $r->rflush();
1500: for (my $i=0;$i<=$level*5;$i++) {
1501: $r->print(' ');
1502: }
1503: $r->print('- '.&mt('Rendering').': ');
1504: my $oldpath=$ENV{'request.filename'};
1505: $ENV{'request.filename'}=&Apache::lonnet::filelocation('',$url);
1506: &Apache::lonxml::xmlparse($r,'web',
1507: &Apache::lonnet::getfile(
1508: &Apache::lonnet::filelocation('',$url)));
1509: undef($Apache::lonhomework::parsing_a_problem);
1510: $ENV{'request.filename'}=$oldpath;
1511: if (($Apache::lonxml::errorcount) ||
1512: ($Apache::lonxml::warningcount)) {
1513: if ($Apache::lonxml::errorcount) {
1514: $r->print('<img src="/adm/lonMisc/bomb.gif" /><font color="red"><b>'.
1515: $Apache::lonxml::errorcount.' '.
1516: &mt('error(s)').'</b></font> ');
1517: }
1518: if ($Apache::lonxml::warningcount) {
1519: $r->print('<font color="blue">'.
1520: $Apache::lonxml::warningcount.' '.
1521: &mt('warning(s)').'</font>');
1522: }
1523: } else {
1524: $r->print('<font color="green">'.&mt('ok').'</font>');
1525: }
1526: $r->rflush();
1527: }
1528: my $dependencies=
1529: &Apache::lonnet::metadata($url,'dependencies');
1530: foreach (split(/\,/,$dependencies)) {
1531: if (($_=~/^\/res\//) && (!$alreadyseen{$_})) {
1532: &checkonthis($r,$_,$level+1);
1533: }
1534: }
1535: } elsif ($result eq 'HTTP_SERVICE_UNAVAILABLE') {
1536: $r->print('<font color="red"><b>'.&mt('connection down').'</b></font>');
1537: } elsif ($result eq 'HTTP_NOT_FOUND') {
1538: unless ($url=~/\$/) {
1539: $r->print('<font color="red"><b>'.&mt('not found').'</b></font>');
1540: } else {
1541: $r->print('<font color="yellow"><b>'.&mt('unable to verify variable URL').'</b></font>');
1542: }
1543: } else {
1544: $r->print('<font color="red"><b>'.&mt('access denied').'</b></font>');
1545: }
1546: }
1547: }
1548: }
1549:
1550:
1551: #
1552: # -------------------------------------------------------------- Verify Content
1553: #
1554: sub verifycontent {
1555: my $r=shift;
1556: my $loaderror=&Apache::lonnet::overloaderror($r);
1557: if ($loaderror) { return $loaderror; }
1558: my $html=&Apache::lonxml::xmlbegin();
1559: $r->print($html.'<head><title>Verify Content</title></head>'.
1560: &Apache::loncommon::bodytag('Verify Course Documents'));
1561: $hashtied=0;
1562: undef %alreadyseen;
1563: %alreadyseen=();
1564: &tiehash();
1565: foreach (keys %hash) {
1566: if ($hash{$_}=~/\.(page|sequence)$/) {
1567: if (($_=~/^src_/) && ($alreadyseen{&Apache::lonnet::unescape($hash{$_})})) {
1568: $r->print('<hr /><font color="red">'.
1569: &mt('The following sequence or page is included more than once in your course: ').
1570: &Apache::lonnet::unescape($hash{$_}).'</font><br />'.
1571: &mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />'));
1572: }
1573: }
1574: if (($_=~/^src\_(.+)$/) && (!$alreadyseen{&Apache::lonnet::unescape($hash{$_})})) {
1575: &checkonthis($r,$hash{$_},0,$hash{'title_'.$1});
1576: }
1577: }
1578: &untiehash();
1579: $r->print('<h1>'.&mt('Done').'.</h1>'.'<a href="/adm/coursedocs">'.
1580: &mt('Return to DOCS').'</a>');
1581: }
1582:
1583: # -------------------------------------------------------------- Check Versions
1584:
1585: sub checkversions {
1586: my $r=shift;
1587: my $html=&Apache::lonxml::xmlbegin();
1588: $r->print($html.'<head><title>Check Versions</title></head>'.
1589: &Apache::loncommon::bodytag('Check Course Document Versions'));
1590: my $header='';
1591: my $startsel='';
1592: my $monthsel='';
1593: my $weeksel='';
1594: my $daysel='';
1595: my $allsel='';
1596: my %changes=();
1597: my $starttime=0;
1598: my $haschanged=0;
1599: my %setversions=&Apache::lonnet::dump('resourceversions',
1600: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
1601: $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
1602:
1603: $hashtied=0;
1604: &tiehash();
1605: my %newsetversions=();
1606: if ($ENV{'form.setmostrecent'}) {
1607: $haschanged=1;
1608: foreach (keys %hash) {
1609: if ($_=~/^ids\_(\/res\/.+)$/) {
1610: $newsetversions{$1}='mostrecent';
1611: }
1612: }
1613: } elsif ($ENV{'form.setcurrent'}) {
1614: $haschanged=1;
1615: foreach (keys %hash) {
1616: if ($_=~/^ids\_(\/res\/.+)$/) {
1617: my $getvers=&Apache::lonnet::getversion($1);
1618: if ($getvers>0) {
1619: $newsetversions{$1}=$getvers;
1620: }
1621: }
1622: }
1623: } elsif ($ENV{'form.setversions'}) {
1624: $haschanged=1;
1625: foreach (keys %ENV) {
1626: if ($_=~/^form\.set_version_(.+)$/) {
1627: my $src=$1;
1628: if (($ENV{$_}) && ($ENV{$_} ne $setversions{$src})) {
1629: $newsetversions{$src}=$ENV{$_};
1630: }
1631: }
1632: }
1633: }
1634: if ($haschanged) {
1635: if (&Apache::lonnet::put('resourceversions',\%newsetversions,
1636: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
1637: $ENV{'course.'.$ENV{'request.course.id'}.'.num'}) eq 'ok') {
1638: $r->print('<h1>'.&mt('Your Version Settings have been Stored').'</h1>');
1639: } else {
1640: $r->print('<h1><font color="red">'.&mt('An Error Occured while Attempting to Store your Version Settings').'</font></h1>');
1641: }
1642: &mark_hash_old();
1643: }
1644: &changewarning($r,'');
1645: if ($ENV{'form.timerange'} eq 'all') {
1646: # show all documents
1647: $header=&mt('All Documents in Course');
1648: $allsel=1;
1649: foreach (keys %hash) {
1650: if ($_=~/^ids\_(\/res\/.+)$/) {
1651: my $src=$1;
1652: $changes{$src}=1;
1653: }
1654: }
1655: } else {
1656: # show documents which changed
1657: %changes=&Apache::lonnet::dump
1658: ('versionupdate',$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
1659: $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
1660: my $firstkey=(keys %changes)[0];
1661: unless ($firstkey=~/^error\:/) {
1662: unless ($ENV{'form.timerange'}) {
1663: $ENV{'form.timerange'}=604800;
1664: }
1665: my $seltext=&mt('during the last').' '.$ENV{'form.timerange'}.' '
1666: .&mt('seconds');
1667: if ($ENV{'form.timerange'}==-1) {
1668: $seltext='since start of course';
1669: $startsel='selected';
1670: $ENV{'form.timerange'}=time;
1671: }
1672: $starttime=time-$ENV{'form.timerange'};
1673: if ($ENV{'form.timerange'}==2592000) {
1674: $seltext=&mt('during the last month').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
1675: $monthsel='selected';
1676: } elsif ($ENV{'form.timerange'}==604800) {
1677: $seltext=&mt('during the last week').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
1678: $weeksel='selected';
1679: } elsif ($ENV{'form.timerange'}==86400) {
1680: $seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
1681: $daysel='selected';
1682: }
1683: $header=&mt('Content changed').' '.$seltext;
1684: } else {
1685: $header=&mt('No content modifications yet.');
1686: }
1687: }
1688: %setversions=&Apache::lonnet::dump('resourceversions',
1689: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
1690: $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
1691: my %lt=&Apache::lonlocal::texthash
1692: ('st' => 'Version changes since start of Course',
1693: 'lm' => 'Version changes since last Month',
1694: 'lw' => 'Version changes since last Week',
1695: 'sy' => 'Version changes since Yesterday',
1696: 'al' => 'All Resources (possibly large output)',
1697: 'sd' => 'Display',
1698: 'fi' => 'File',
1699: 'md' => 'Modification Date',
1700: 'mr' => 'Most recently published Version',
1701: 've' => 'Version used in Course',
1702: 'vu' => 'Set Version to be used in Course',
1703: 'sv' => 'Set Versions to be used in Course according to Selections below',
1704: 'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',
1705: 'sc' => 'Set all Resource Versions to current Version (Fix Versions)',
1706: 'di' => 'Differences');
1707: $r->print(<<ENDHEADERS);
1708: <form action="/adm/coursedocs" method="post">
1709: <input type="hidden" name="versions" value="1" />
1710: <input type="submit" name="setmostrecent" value="$lt{'sm'}" />
1711: <input type="submit" name="setcurrent" value="$lt{'sc'}" /><hr />
1712: <select name="timerange">
1713: <option value='all' $allsel>$lt{'al'}</option>
1714: <option value="-1" $startsel>$lt{'st'}</option>
1715: <option value="2592000" $monthsel>$lt{'lm'}</option>
1716: <option value="604800" $weeksel>$lt{'lw'}</option>
1717: <option value="86400" $daysel>$lt{'sy'}</option>
1718: </select>
1719: <input type="submit" name="display" value="$lt{'sd'}" />
1720: <h3>$header</h3>
1721: <input type="submit" name="setversions" value="$lt{'sv'}" />
1722: <table border="0">
1723: ENDHEADERS
1724: foreach (sort keys %changes) {
1725: if ($changes{$_}>$starttime) {
1726: my ($root,$extension)=($_=~/^(.*)\.(\w+)$/);
1727: my $currentversion=&Apache::lonnet::getversion($_);
1728: if ($currentversion<0) {
1729: $currentversion=&mt('Could not be determined.');
1730: }
1731: my $linkurl=&Apache::lonnet::clutter($_);
1732: $r->print(
1733: '<tr><td colspan="5"><br /><br /><font size="+1"><b>'.
1734: &Apache::lonnet::gettitle($linkurl).
1735: '</b></font></td></tr>'.
1736: '<tr><td> </td>'.
1737: '<td colspan="4">'.
1738: '<a href="'.$linkurl.'" target="cat">'.$linkurl.
1739: '</a></td></tr>'.
1740: '<tr><td></td>'.
1741: '<td title="'.$lt{'md'}.'">'.
1742: &Apache::lonlocal::locallocaltime(
1743: &Apache::lonnet::metadata($root.'.'.$extension,
1744: 'lastrevisiondate')
1745: ).
1746: '</td>'.
1747: '<td title="'.$lt{'mr'}.'"><nobr>Most Recent: '.
1748: '<font size="+1">'.$currentversion.'</font>'.
1749: '</nobr></td>'.
1750: '<td title="'.$lt{'ve'}.'"><nobr>In Course: '.
1751: '<font size="+1">');
1752: # Used in course
1753: my $usedversion=$hash{'version_'.$linkurl};
1754: if (($usedversion) && ($usedversion ne 'mostrecent')) {
1755: $r->print($usedversion);
1756: } else {
1757: $r->print($currentversion);
1758: }
1759: $r->print('</font></nobr></td><td title="'.$lt{'vu'}.'">'.
1760: '<nobr>Use: ');
1761: # Set version
1762: $r->print(&Apache::loncommon::select_form($setversions{$linkurl},
1763: 'set_version_'.$linkurl,
1764: ('select_form_order' =>
1765: ['',1..$currentversion,'mostrecent'],
1766: '' => '',
1767: 'mostrecent' => 'most recent',
1768: map {$_,$_} (1..$currentversion))));
1769: $r->print('</nobr></td></tr><tr><td></td>');
1770: my $lastold=1;
1771: for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
1772: my $url=$root.'.'.$prevvers.'.'.$extension;
1773: if (&Apache::lonnet::metadata($url,'lastrevisiondate')<
1774: $starttime) {
1775: $lastold=$prevvers;
1776: }
1777: }
1778: #
1779: # Code to figure out how many version entries should go in
1780: # each of the four columns
1781: my $entries_per_col = 0;
1782: my $num_entries = ($currentversion-$lastold);
1783: if ($num_entries % 4 == 0) {
1784: $entries_per_col = $num_entries/4;
1785: } else {
1786: $entries_per_col = $num_entries/4 + 1;
1787: }
1788: my $entries_count = 0;
1789: $r->print('<td valign="top"><font size="-2">');
1790: my $cols_output = 1;
1791: for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
1792: my $url=$root.'.'.$prevvers.'.'.$extension;
1793: $r->print('<nobr><a href="'.&Apache::lonnet::clutter($url).
1794: '">'.&mt('Version').' '.$prevvers.'</a> ('.
1795: &Apache::lonlocal::locallocaltime(
1796: &Apache::lonnet::metadata($url,
1797: 'lastrevisiondate')
1798: ).
1799: ')');
1800: if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
1801: $r->print(' <a href="/adm/diff?filename='.
1802: &Apache::lonnet::clutter($root.'.'.$extension).
1803: '&versionone='.$prevvers.
1804: '">'.&mt('Diffs').'</a>');
1805: }
1806: $r->print('</nobr><br />');
1807: if (++$entries_count % $entries_per_col == 0) {
1808: $r->print('</font></td>');
1809: if ($cols_output != 4) {
1810: $r->print('<td valign="top"><font size="-2">');
1811: $cols_output++;
1812: }
1813: }
1814: }
1815: while($cols_output++ < 4) {
1816: $r->print('</font></td><td><font>')
1817: }
1818: $r->print('</font></td></tr>'."\n");
1819: }
1820: }
1821: $r->print('</table></form>');
1822: $r->print('<h1>'.&mt('Done').'.</h1>');
1823:
1824: &untiehash();
1825: }
1826:
1827: sub mark_hash_old {
1828: my $retie_hash=0;
1829: if ($hashtied) {
1830: $retie_hash=1;
1831: &untiehash();
1832: }
1833: &tiehash('write');
1834: $hash{'old'}=1;
1835: &untiehash();
1836: if ($retie_hash) { &tiehash(); }
1837: }
1838:
1839: sub is_hash_old {
1840: my $untie_hash=0;
1841: if (!$hashtied) {
1842: $untie_hash=1;
1843: &tiehash();
1844: }
1845: my $return=$hash{'old'};
1846: if ($untie_hash) { &untiehash(); }
1847: return $return;
1848: }
1849:
1850: sub changewarning {
1851: my ($r,$postexec)=@_;
1852: if (!&is_hash_old()) { return; }
1853: my $pathvar='folderpath';
1854: my $path=&Apache::lonnet::escape($ENV{'form.folderpath'});
1855: if (defined($ENV{'form.pagepath'})) {
1856: $pathvar='pagepath';
1857: $path=&Apache::lonnet::escape($ENV{'form.pagepath'});
1858: $path.='&symb='.&Apache::lonnet::escape($ENV{'form.pagesymb'});
1859: }
1860: $r->print(
1861: '<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'.
1862: '<form method="post" action="/adm/roles" target="loncapaclient">'.
1863: '<input type="hidden" name="orgurl" value="/adm/coursedocs?'.
1864: $pathvar.'='.$path.
1865: '" /><input type="hidden" name="selectrole" value="1" /><h3><font color="red">'.
1866: &mt('Changes will become active for your current session after').
1867: ' <input type="hidden" name="'.
1868: $ENV{'request.role'}.'" value="1" /><input type="button" value="'.
1869: &mt('re-initializing course').'" onClick="reinit(this.form)"/>'.&mt(', or the next time you log in.').
1870: $help{'Caching'}.'</font></h3></form>');
1871: }
1872:
1873: # ================================================================ Main Handler
1874: sub handler {
1875: my $r = shift;
1876: &Apache::loncommon::content_type($r,'text/html');
1877: $r->send_http_header;
1878: return OK if $r->header_only;
1879:
1880: # --------------------------------------------- Initialize help topics for this
1881: foreach ('Adding_Course_Doc','Main_Course_Documents',
1882: 'Adding_External_Resource','Navigate_Content',
1883: 'Adding_Folders','Docs_Overview', 'Load_Map',
1884: 'Supplemental','Score_Upload_Form','Adding_Pages',
1885: 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive',
1886: 'Check_Resource_Versions','Verify_Content') {
1887: $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
1888: }
1889: # Composite help files
1890: $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
1891: 'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
1892: $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
1893: 'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
1894: $help{'Simple Problem'} = &Apache::loncommon::help_open_topic(
1895: 'Option_Response_Simple');
1896: $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
1897: 'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
1898: $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
1899: 'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
1900: $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
1901:
1902: if ($ENV{'form.verify'}) {
1903: &verifycontent($r);
1904: } elsif ($ENV{'form.versions'}) {
1905: &checkversions($r);
1906: } elsif ($ENV{'form.dumpcourse'}) {
1907: &dumpcourse($r);
1908: } elsif ($ENV{'form.exportcourse'}) {
1909: &exportcourse($r);
1910: } else {
1911: # is this a standard course?
1912:
1913: my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//);
1914: my $forcestandard = 0;
1915: my $forcesupplement;
1916: my $script='';
1917: my $allowed;
1918: my $events='';
1919: my $showdoc=0;
1920: my $containertag;
1921: my $uploadtag;
1922: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1923: ['folderpath','pagepath','pagesymb','markedcopy_url','markedcopy_title']);
1924: if ($ENV{'form.folderpath'}) {
1925: my (@folderpath)=split('&',$ENV{'form.folderpath'});
1926: $ENV{'form.foldername'}=&Apache::lonnet::unescape(pop(@folderpath));
1927: $ENV{'form.folder'}=pop(@folderpath);
1928: }
1929: if ($ENV{'form.pagepath'}) {
1930: my (@pagepath)=split('&',$ENV{'form.pagepath'});
1931: $ENV{'form.pagename'}=&Apache::lonnet::unescape(pop(@pagepath));
1932: $ENV{'form.folder'}=pop(@pagepath);
1933: $containertag = '<input type="hidden" name="pagepath" value="" />'.
1934: '<input type="hidden" name="pagesymb" value="" />';
1935: $uploadtag = '<input type="hidden" name="pagepath" value="'.$ENV{'form.pagepath'}.'" />'.
1936: '<input type="hidden" name="pagesymb" value="'.$ENV{'form.pagesymb'}.'" />';
1937: }
1938: if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
1939: $showdoc='/'.$1;
1940: }
1941: unless ($showdoc) { # got called from remote
1942: if (($ENV{'form.folder'}=~/^default_/) ||
1943: ($ENV{'form.folder'} =~ m#^\d+/(pages|sequences)/#)) {
1944: $forcestandard = 1;
1945: }
1946: $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);
1947:
1948: # does this user have privileges to post, etc?
1949: $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
1950: if ($allowed) {
1951: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
1952: $script=&Apache::lonratedt::editscript('simple');
1953: }
1954: } else { # got called in sequence from course
1955: $allowed=0;
1956: $script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';
1957: $events='onLoad="'.&Apache::lonmenu::loadevents.
1958: '" onUnload="'.&Apache::lonmenu::unloadevents.'"';
1959: }
1960:
1961: # get course data
1962: my $coursenum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
1963: my $coursedom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
1964:
1965: # get personal data
1966:
1967: my $uname=$ENV{'user.name'};
1968: my $udom=$ENV{'user.domain'};
1969: my $plainname=&Apache::lonnet::escape(
1970: &Apache::loncommon::plainname($uname,$udom));
1971:
1972: # graphics settings
1973:
1974: $iconpath = $r->dir_config('lonIconsURL') . "/";
1975:
1976: my $now=time;
1977:
1978: # print screen
1979: my $html=&Apache::lonxml::xmlbegin();
1980: $r->print(<<ENDDOCUMENT);
1981: $html
1982: <head>
1983: <title>The LearningOnline Network with CAPA</title>
1984: <script>
1985: $script
1986: </script>
1987: ENDDOCUMENT
1988: if ($allowed) {
1989: $r->print(<<ENDNEWSCRIPT);
1990: <script>
1991: function makenewfolder(targetform,folderseq) {
1992: var foldername=prompt('Name of New Folder','New Folder');
1993: if (foldername) {
1994: targetform.importdetail.value=foldername+"="+folderseq;
1995: targetform.submit();
1996: }
1997: }
1998:
1999: function makenewpage(targetform,folderseq) {
2000: var pagename=prompt('Name of New Page','New Page');
2001: if (pagename) {
2002: targetform.importdetail.value=pagename+"="+folderseq;
2003: targetform.submit();
2004: }
2005: }
2006:
2007: function makenewext(targetname) {
2008: this.document.forms.extimport.useform.value=targetname;
2009: window.open('/adm/rat/extpickframe.html');
2010: }
2011:
2012: function makeexamupload() {
2013: var title=prompt('Listed Title for the Uploaded Score');
2014: if (title) {
2015: this.document.forms.newexamupload.importdetail.value=
2016: title+'=/res/lib/templates/examupload.problem';
2017: this.document.forms.newexamupload.submit();
2018: }
2019: }
2020:
2021: function makesmppage() {
2022: var title=prompt('Listed Title for the Page');
2023: if (title) {
2024: this.document.forms.newsmppg.importdetail.value=
2025: title+'=/adm/$udom/$uname/$now/smppg';
2026: this.document.forms.newsmppg.submit();
2027: }
2028: }
2029:
2030: function makesmpproblem() {
2031: var title=prompt('Listed Title for the Problem');
2032: if (title) {
2033: this.document.forms.newsmpproblem.importdetail.value=
2034: title+'=/res/lib/templates/simpleproblem.problem';
2035: this.document.forms.newsmpproblem.submit();
2036: }
2037: }
2038:
2039: function makebulboard() {
2040: var title=prompt('Listed Title for the Bulletin Board');
2041: if (title) {
2042: this.document.forms.newbul.importdetail.value=
2043: title+'=/adm/$udom/$uname/$now/bulletinboard';
2044: this.document.forms.newbul.submit();
2045: }
2046: }
2047:
2048: function makeabout() {
2049: var user=prompt("Enter user\@domain for User's 'About Me' Page");
2050: if (user) {
2051: var comp=new Array();
2052: comp=user.split('\@');
2053: if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) {
2054: if ((comp[0]) && (comp[1])) {
2055: this.document.forms.newaboutsomeone.importdetail.value=
2056: 'About '+user+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';
2057: this.document.forms.newaboutsomeone.submit();
2058: } else {
2059: alert("Not a valid user\@domain");
2060: }
2061: } else {
2062: alert("Please enter both user and domain in the format user\@domain");
2063: }
2064: }
2065: }
2066:
2067: function makeims() {
2068: var caller = document.forms.ims.folder.value;
2069: var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one";
2070: newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes");
2071: newWindow.location.href = newlocation;
2072: }
2073:
2074:
2075: function finishpick() {
2076: var title=this.document.forms.extimport.title.value;
2077: var url=this.document.forms.extimport.url.value;
2078: var form=this.document.forms.extimport.useform.value;
2079: eval
2080: ('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+
2081: '";this.document.forms.'+form+'.submit();');
2082: }
2083:
2084: function changename(folderpath,index,oldtitle,container,pagesymb) {
2085: var title=prompt('New Title',oldtitle);
2086: if (title) {
2087: this.document.forms.renameform.title.value=title;
2088: this.document.forms.renameform.cmd.value='rename_'+index;
2089: if (container == 'sequence') {
2090: this.document.forms.renameform.folderpath.value=folderpath;
2091: }
2092: if (container == 'page') {
2093: this.document.forms.renameform.pagepath.value=folderpath;
2094: this.document.forms.renameform.pagesymb.value=pagesymb;
2095: }
2096: this.document.forms.renameform.submit();
2097: }
2098: }
2099:
2100: function removeres(folderpath,index,oldtitle,container,pagesymb) {
2101: if (confirm('Remove "'+oldtitle+'"?')) {
2102: this.document.forms.renameform.cmd.value='del_'+index;
2103: if (container == 'sequence') {
2104: this.document.forms.renameform.folderpath.value=folderpath;
2105: }
2106: if (container == 'page') {
2107: this.document.forms.renameform.pagepath.value=folderpath;
2108: this.document.forms.renameform.pagesymb.value=pagesymb;
2109: }
2110: this.document.forms.renameform.submit();
2111: }
2112: }
2113:
2114: function markcopy(folderpath,index,oldtitle,container,pagesymb) {
2115: this.document.forms.renameform.markcopy.value=index;
2116: if (container == 'sequence') {
2117: this.document.forms.renameform.folderpath.value=folderpath;
2118: }
2119: if (container == 'page') {
2120: this.document.forms.renameform.pagepath.value=folderpath;
2121: this.document.forms.renameform.pagesymb.value=pagesymb;
2122: }
2123: this.document.forms.renameform.submit();
2124: }
2125:
2126: </script>
2127:
2128: ENDNEWSCRIPT
2129: }
2130: # -------------------------------------------------------------------- Body tag
2131: $r->print('</head>'.
2132: &Apache::loncommon::bodytag('Course Documents','',$events,
2133: '','',$showdoc).
2134: &Apache::loncommon::help_open_menu('','','','',273,'RAT'));
2135: unless ($showdoc) {
2136: # -----------------------------------------------------------------------------
2137: my %lt=&Apache::lonlocal::texthash(
2138: 'uplm' => 'Upload a new main course document',
2139: 'upls' => 'Upload a new supplemental course document',
2140: 'impp' => 'Import a document',
2141: 'pubd' => 'Published documents',
2142: 'copm' => 'All documents out of a published map',
2143: 'spec' => 'Special documents',
2144: 'upld' => 'Upload Document',
2145: 'srch' => 'Search',
2146: 'impo' => 'Import',
2147: 'selm' => 'Select Map',
2148: 'load' => 'Load Map',
2149: 'newf' => 'New Folder',
2150: 'newp' => 'New Composite Page',
2151: 'extr' => 'External Resource',
2152: 'syll' => 'Syllabus',
2153: 'navc' => 'Navigate Contents',
2154: 'sipa' => 'Simple Page',
2155: 'sipr' => 'Simple Problem',
2156: 'scuf' => 'Score Upload Form',
2157: 'bull' => 'Bulletin Board',
2158: 'mypi' => 'My Personal Info',
2159: 'abou' => 'About User',
2160: 'imsf' => 'Import IMS package',
2161: 'file' => 'File',
2162: 'title' => 'Title',
2163: 'comment' => 'Comment'
2164: );
2165: # -----------------------------------------------------------------------------
2166: if ($allowed) {
2167: my $dumpbut=&dumpbutton();
2168: my $exportbut=&exportbutton();
2169: my %lt=&Apache::lonlocal::texthash(
2170: 'vc' => 'Verify Content',
2171: 'cv' => 'Check/Set Resource Versions',
2172: );
2173:
2174: my $folderpath=$ENV{'form.folderpath'};
2175: if (!$folderpath) {
2176: if ($ENV{'form.folder'} eq '' ||
2177: $ENV{'form.folder'} eq 'supplemental') {
2178: $folderpath='default&'.
2179: &Apache::lonnet::escape(&mt('Main Course Documents'));
2180: }
2181: }
2182: unless ($ENV{'form.pagepath'}) {
2183: $containertag = '<input type="hidden" name="folderpath" value="" />';
2184: $uploadtag = '<input type="hidden" name="folderpath" value="'.$folderpath.'" />';
2185: }
2186:
2187: $r->print(<<ENDCOURSEVERIFY);
2188: <form name="renameform" method="post" action="/adm/coursedocs">
2189: <input type="hidden" name="title" />
2190: <input type="hidden" name="cmd" />
2191: <input type="hidden" name="markcopy" />
2192: $containertag
2193: </form>
2194: <form name="simpleedit" method="post" action="/adm/coursedocs">
2195: <input type=hidden name="importdetail" value="">
2196: $uploadtag
2197: </form>
2198: <form action="/adm/coursedocs" method="post" name="courseverify">
2199: <table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4">
2200: <tr><td bgcolor="#DDDDCC">
2201: <input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}
2202: </td><td bgcolor="#DDDDCC">
2203: <input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}
2204: $dumpbut
2205: $exportbut
2206: </td></tr></table>
2207: </form>
2208: ENDCOURSEVERIFY
2209: $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
2210: &mt('Editing the Table of Contents for your Course')));
2211: }
2212: # --------------------------------------------------------- Standard documents
2213: $r->print('<table border=2 cellspacing=4 cellpadding=4>');
2214: if (($standard) && ($allowed) && (!$forcesupplement)) {
2215: $r->print('<tr><td bgcolor="#BBBBBB">');
2216: # '<h2>'.&mt('Main Course Documents').
2217: # ($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');
2218: my $folder=$ENV{'form.folder'};
2219: if ($folder eq '' || $folder eq 'supplemental') {
2220: $folder='default';
2221: $ENV{'form.folderpath'}='default&'.&Apache::lonnet::escape(&mt('Main Course Documents'));
2222: }
2223: my $postexec='';
2224: if ($folder eq 'default') {
2225: $r->print('<script>this.window.name="loncapaclient";</script>');
2226: } else {
2227: #$postexec='self.close();';
2228: }
2229: $hadchanges=0;
2230: &editor($r,$coursenum,$coursedom,$folder,$allowed);
2231: if ($hadchanges) {
2232: &mark_hash_old()
2233: }
2234: &changewarning($r,$postexec);
2235: my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
2236: '.sequence';
2237: my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
2238: '.page';
2239:
2240: $r->print(<<ENDFORM);
2241: <table cellspacing=4 cellpadding=4><tr>
2242: <th bgcolor="#DDDDDD">$lt{'uplm'}</th>
2243: <th bgcolor="#DDDDDD">$lt{'impp'}</th>
2244: <th bgcolor="#DDDDDD">$lt{'spec'}</th>
2245: </tr>
2246: <tr><td bgcolor="#DDDDDD">
2247: $lt{'file'}:<br />
2248: <form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
2249: <input type="file" name="uploaddoc" size="40">
2250: <br />
2251: $lt{'title'}:<br />
2252: <input type="text" size="50" name="comment">
2253: $uploadtag
2254: <input type="hidden" name="cmd" value="upload_default">
2255: <nobr>
2256: <input type="submit" value="$lt{'upld'}">
2257: $help{'Uploading_From_Harddrive'}
2258: </nobr>
2259: </form>
2260: </td>
2261: <td bgcolor="#DDDDDD">
2262: <form action="/adm/coursedocs" method="post" name="simpleeditdefault">
2263: $lt{'pubd'}<br />
2264: $uploadtag
2265: <input type=button onClick="javascript:groupsearch()" value="$lt{'srch'}">
2266: <nobr>
2267: <input type=button onClick="javascript:groupimport();" value="$lt{'impo'}">
2268: $help{'Importing_LON-CAPA_Resource'}
2269: </nobr>
2270: <p>
2271: <hr />
2272: $lt{'copm'}
2273: <input type="text" size="20" name="importmap"><br />
2274: <nobr><input type=button
2275: onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
2276: value="$lt{'selm'}"> <input type="submit" name="loadmap" value="$lt{'load'}">
2277: $help{'Load_Map'}</nobr>
2278: </p>
2279: </form>
2280: ENDFORM
2281: unless ($ENV{'form.pagepath'}) {
2282: $r->print(<<ENDFORM);
2283: <hr />
2284: <form action="/adm/coursedocs" method="post" name="newext">
2285: $uploadtag
2286: <input type=hidden name="importdetail" value="">
2287: <nobr>
2288: <input name="newext" type="button" onClick="javascript:makenewext('newext');"
2289: value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
2290: </nobr>
2291: </form>
2292: <form action="/adm/imsimportdocs" method="post" name="ims">
2293: <input type="hidden" name="folder" value="$folder" />
2294: <input name="imsimport" type="button" value="$lt{'imsf'}" onClick="javascript:makeims();" />
2295: </nobr>
2296: </form>
2297: ENDFORM
2298: }
2299: $r->print('</td><td bgcolor="#DDDDDD">');
2300: unless ($ENV{'form.pagepath'}) {
2301: $r->print(<<ENDFORM);
2302: <form action="/adm/coursedocs" method="post" name="newfolder">
2303: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
2304: <input type=hidden name="importdetail" value="">
2305: <nobr>
2306: <input name="newfolder" type="button"
2307: onClick="javascript:makenewfolder(this.form,'$folderseq');"
2308: value="$lt{'newf'}" />$help{'Adding_Folders'}
2309: </nobr>
2310: </form>
2311: <form action="/adm/coursedocs" method="post" name="newpage">
2312: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
2313: <input type=hidden name="importdetail" value="">
2314: <nobr>
2315: <input name="newpage" type="button"
2316: onClick="javascript:makenewpage(this.form,'$pageseq');"
2317: value="$lt{'newp'}" />$help{'Adding_Pages'}
2318: </nobr>
2319: </form>
2320: <form action="/adm/coursedocs" method="post" name="newsyl">
2321: $uploadtag
2322: <input type=hidden name="importdetail"
2323: value="Syllabus=/public/$coursedom/$coursenum/syllabus">
2324: <nobr>
2325: <input name="newsyl" type="submit" value="$lt{'syll'}" />
2326: $help{'Syllabus'}
2327: </nobr>
2328: </form>
2329: <form action="/adm/coursedocs" method="post" name="newnav">
2330: $uploadtag
2331: <input type=hidden name="importdetail"
2332: value="Navigate Content=/adm/navmaps">
2333: <nobr>
2334: <input name="newnav" type="submit" value="$lt{'navc'}" />
2335: $help{'Navigate_Content'}
2336: </nobr>
2337: </form>
2338: <form action="/adm/coursedocs" method="post" name="newsmppg">
2339: $uploadtag
2340: <input type=hidden name="importdetail" value="">
2341: <nobr>
2342: <input name="newsmppg" type="button" value="$lt{'sipa'}"
2343: onClick="javascript:makesmppage();" /> $help{'Simple Page'}
2344: </nobr>
2345: </form>
2346: <form action="/adm/coursedocs" method="post" name="newsmpproblem">
2347: $uploadtag
2348: <input type=hidden name="importdetail" value="">
2349: <nobr>
2350: <input name="newsmpproblem" type="button" value="$lt{'sipr'}"
2351: onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}
2352: </nobr>
2353: </form>
2354: <form action="/adm/coursedocs" method="post" name="newexamupload">
2355: $uploadtag
2356: <input type=hidden name="importdetail" value="">
2357: <nobr>
2358: <input name="newexamupload" type="button" value="$lt{'scuf'}"
2359: onClick="javascript:makeexamupload();" />
2360: $help{'Score_Upload_Form'}
2361: </nobr>
2362: </form>
2363: <form action="/adm/coursedocs" method="post" name="newbul">
2364: $uploadtag
2365: <input type=hidden name="importdetail" value="">
2366: <nobr>
2367: <input name="newbulletin" type="button" value="$lt{'bull'}"
2368: onClick="javascript:makebulboard();" />
2369: $help{'Bulletin Board'}
2370: </nobr>
2371: </form>
2372: <form action="/adm/coursedocs" method="post" name="newaboutme">
2373: $uploadtag
2374: <input type=hidden name="importdetail"
2375: value="$plainname=/adm/$udom/$uname/aboutme">
2376: <nobr>
2377: <input name="newaboutme" type="submit" value="$lt{'mypi'}" />
2378: $help{'My Personal Info'}
2379: </nobr>
2380: </form>
2381: <form action="/adm/coursedocs" method="post" name="newaboutsomeone">
2382: $uploadtag
2383: <input type=hidden name="importdetail" value="">
2384: <nobr>
2385: <input name="newaboutsomeone" type="button" value="$lt{'abou'}"
2386: onClick="javascript:makeabout();" />
2387: </nobr>
2388: ENDFORM
2389: }
2390: if ($ENV{'form.pagepath'}) {
2391: $r->print(<<ENDBLOCK);
2392: <form action="/adm/coursedocs" method="post" name="newsmpproblem">
2393: $uploadtag
2394: <input type=hidden name="importdetail" value="">
2395: <nobr>
2396: <input name="newsmpproblem" type="button" value="$lt{'sipr'}"
2397: onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}
2398: </nobr>
2399: </form>
2400: <form action="/adm/coursedocs" method="post" name="newexamupload">
2401: $uploadtag
2402: <input type=hidden name="importdetail" value="">
2403: <nobr>
2404: <input name="newexamupload" type="button" value="$lt{'scuf'}"
2405: onClick="javascript:makeexamupload();" />
2406: $help{'Score_Upload_Form'}
2407: </nobr>
2408: ENDBLOCK
2409: $r->print('</form>');
2410: }
2411: $r->print('</td></tr>'."\n".
2412: '</table>');
2413: $r->print('</td></tr>');
2414: }
2415: # ----------------------------------------------------- Supplemental documents
2416: if (!$forcestandard) {
2417: $r->print('<tr><td bgcolor="#BBBBBB">');
2418: # '<h2>'.&mt('Supplemental Course Documents').
2419: # ($allowed?' '.$help{'Supplemental'}:'').'</h2>');
2420: my $folder=$ENV{'form.folder'};
2421: unless ($folder=~/^supplemental/) {
2422: $folder='supplemental';
2423: }
2424: if ($folder =~ /^supplemental$/ &&
2425: $ENV{'form.folderpath'} =~ /^default\&/) {
2426: $ENV{'form.folderpath'}='supplemental&'.
2427: &Apache::lonnet::escape(&mt('Supplemental Course Documents'));
2428: }
2429: &editor($r,$coursenum,$coursedom,$folder,$allowed);
2430: if ($allowed) {
2431: my $folderseq=
2432: '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_'.time.
2433: '.sequence';
2434:
2435: $r->print(<<ENDSUPFORM);
2436: <table cellspacing=4 cellpadding=4><tr>
2437: <th bgcolor="#DDDDDD">$lt{'upls'}</th>
2438: <th bgcolor="#DDDDDD">$lt{'spec'}</th>
2439: </tr>
2440: <tr><td bgcolor="#DDDDDD">
2441: <form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
2442: <input type="file" name="uploaddoc" size="40">
2443: <br />$lt{'comment'}:<br />
2444: <textarea cols=50 rows=4 name='comment'>
2445: </textarea>
2446: <br />
2447: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
2448: <input type="hidden" name="cmd" value="upload_supplemental">
2449: <nobr>
2450: <input type="submit" value="$lt{'upld'}">
2451: $help{'Uploading_From_Harddrive'}
2452: </nobr>
2453: </form>
2454: </td>
2455: <td bgcolor="#DDDDDD">
2456: <form action="/adm/coursedocs" method="post" name="supnewfolder">
2457: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
2458: <input type=hidden name="importdetail" value="">
2459: <nobr>
2460: <input name="newfolder" type="button"
2461: onClick="javascript:makenewfolder(this.form,'$folderseq');"
2462: value="$lt{'newf'}" /> $help{'Adding_Folders'}
2463: </nobr>
2464: </form>
2465: <form action="/adm/coursedocs" method="post" name="supnewext">
2466: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
2467: <input type=hidden name="importdetail" value="">
2468: <nobr>
2469: <input name="newext" type="button"
2470: onClick="javascript:makenewext('supnewext');"
2471: value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
2472: </nobr>
2473: </form>
2474: <form action="/adm/coursedocs" method="post" name="supnewsyl">
2475: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
2476: <input type=hidden name="importdetail"
2477: value="Syllabus=/public/$coursedom/$coursenum/syllabus">
2478: <nobr>
2479: <input name="newsyl" type="submit" value="$lt{'syll'}" />
2480: $help{'Syllabus'}
2481: </nobr>
2482: </form>
2483: <form action="/adm/coursedocs" method="post" name="subnewaboutme">
2484: <input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
2485: <input type=hidden name="importdetail"
2486: value="$plainname=/adm/$udom/$uname/aboutme">
2487: <nobr>
2488: <input name="newaboutme" type="submit" value="$lt{'mypi'}" />
2489: $help{'My Personal Info'}
2490: </nobr>
2491: </form>
2492: </td></tr>
2493: </table></td></tr>
2494: ENDSUPFORM
2495: }
2496: }
2497: if ($allowed) {
2498: $r->print('<form name="extimport"><input type="hidden" name="title"><input type="hidden" name="url"><input type="hidden" name="useform"></form>');
2499: }
2500: $r->print('</table>');
2501: } else {
2502: # -------------------------------------------------------- This is showdoc mode
2503: $r->print("<h1>".&mt('Uploaded Document').' - '.
2504: &Apache::lonnet::gettitle($r->uri).'</h1><p>'.
2505: &mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><p><table>".
2506: &entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table></p>');
2507: }
2508: }
2509: $r->print('</body></html>');
2510: return OK;
2511: }
2512:
2513: 1;
2514: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>