Annotation of loncom/interface/londocs.pm, revision 1.284
1.1 www 1: # The LearningOnline Network
1.2 www 2: # Documents
1.1 www 3: #
1.284 ! albertel 4: # $Id: londocs.pm,v 1.283 2007/07/03 00:17:42 albertel Exp $
1.1 www 5: #
1.3 www 6: # Copyright Michigan State University Board of Trustees
1.1 www 7: #
1.3 www 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
1.1 www 9: #
1.3 www 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.
1.1 www 14: #
1.3 www 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:
1.2 www 29: package Apache::londocs;
1.1 www 30:
31: use strict;
1.28 www 32: use Apache::Constants qw(:common :http);
1.158 raeburn 33: use Apache::imsexport;
1.4 www 34: use Apache::lonnet;
35: use Apache::loncommon;
1.245 albertel 36: use LONCAPA::map();
37: use Apache::lonratedt();
1.15 www 38: use Apache::lonxml;
1.244 albertel 39: use Apache::lonclonecourse;
1.138 raeburn 40: use Apache::lonnavmaps;
1.38 www 41: use HTML::Entities;
1.27 www 42: use GDBM_File;
1.81 www 43: use Apache::lonlocal;
1.143 raeburn 44: use Cwd;
1.264 albertel 45: use LONCAPA qw(:DEFAULT :match);
1.7 www 46:
1.8 www 47: my $iconpath;
1.7 www 48:
1.27 www 49: my %hash;
50:
51: my $hashtied;
1.29 www 52: my %alreadyseen=();
1.27 www 53:
1.40 www 54: my $hadchanges;
55:
1.47 www 56: # Available help topics
57:
58: my %help=();
59:
1.245 albertel 60: # Mapread read maps into LONCAPA::map:: global arrays
1.10 www 61: # @order and @resources, determines status
1.7 www 62: # sets @order - pointer to resources in right order
63: # sets @resources - array with the resources with correct idx
64: #
65:
66: sub mapread {
67: my ($coursenum,$coursedom,$map)=@_;
68: return
1.245 albertel 69: &LONCAPA::map::mapread('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
70: $map);
1.7 www 71: }
72:
73: sub storemap {
74: my ($coursenum,$coursedom,$map)=@_;
1.104 albertel 75: my ($outtext,$errtext)=
1.245 albertel 76: &LONCAPA::map::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
77: $map,1);
1.104 albertel 78: if ($errtext) { return ($errtext,2); }
79:
80: $hadchanges=1;
81: return ($errtext,0);
1.7 www 82: }
83:
1.74 www 84: # ----------------------------------------- Return hash with valid author names
85:
86: sub authorhosts {
87: my %outhash=();
88: my $home=0;
89: my $other=0;
1.174 albertel 90: foreach (keys %env) {
1.74 www 91: if ($_=~/^user\.role\.(au|ca)\.(.+)$/) {
92: my $role=$1;
93: my $realm=$2;
1.174 albertel 94: my ($start,$end)=split(/\./,$env{$_});
1.74 www 95: if (($start) && ($start>time)) { next; }
96: if (($end) && (time>$end)) { next; }
97: my $ca; my $cd;
98: if ($1 eq 'au') {
1.174 albertel 99: $ca=$env{'user.name'};
100: $cd=$env{'user.domain'};
1.74 www 101: } else {
1.264 albertel 102: ($cd,$ca)=($realm=~/^\/($match_domain)\/($match_username)$/);
1.74 www 103: }
1.107 albertel 104: my $allowed=0;
105: my $myhome=&Apache::lonnet::homeserver($ca,$cd);
106: my @ids=&Apache::lonnet::current_machine_ids();
107: foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }
108: if ($allowed) {
1.74 www 109: $home++;
110: $outhash{'home_'.$ca.'@'.$cd}=1;
111: } else {
1.107 albertel 112: $outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;
1.74 www 113: $other++;
114: }
115: }
116: }
117: return ($home,$other,%outhash);
118: }
119: # ------------------------------------------------------ Generate "dump" button
120:
121: sub dumpbutton {
122: my ($home,$other,%outhash)=&authorhosts();
1.230 albertel 123: my $type = &Apache::loncommon::course_type();
1.74 www 124: if ($home+$other==0) { return ''; }
125: if ($home) {
1.283 albertel 126: return '<div>'.
1.81 www 127: '<input type="submit" name="dumpcourse" value="'.
1.230 albertel 128: &mt('Dump '.$type.' DOCS to Construction Space').'" />'.
1.283 albertel 129: &Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs').
130: '</div>';
1.74 www 131: } else {
1.283 albertel 132: return '<div>'.
1.230 albertel 133: &mt('Dump '.$type.
1.283 albertel 134: ' DOCS to Construction Space: available on other servers').
135: '</div>';
1.74 www 136: }
137: }
138:
1.164 albertel 139: sub clean {
140: my ($title)=@_;
141: $title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\|\`\~]+/\_/gs;
142: return $title;
143: }
1.74 www 144: # -------------------------------------------------------- Actually dump course
145:
146: sub dumpcourse {
1.224 albertel 147: my ($r) = @_;
1.230 albertel 148: my $type = &Apache::loncommon::course_type();
149: $r->print(&Apache::loncommon::start_page('Dump '.$type.' DOCS to Construction Space').
150: '<form name="dumpdoc" method="post">');
1.257 www 151: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Dump '.$type.' DOCS to Construction Space'));
1.74 www 152: my ($home,$other,%outhash)=&authorhosts();
1.75 www 153: unless ($home) { return ''; }
1.174 albertel 154: my $origcrsid=$env{'request.course.id'};
1.76 www 155: my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
1.174 albertel 156: if (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {
1.76 www 157: # Do the dumping
1.174 albertel 158: unless ($outhash{'home_'.$env{'form.authorspace'}}) { return ''; }
159: my ($ca,$cd)=split(/\@/,$env{'form.authorspace'});
1.87 www 160: $r->print('<h3>'.&mt('Copying Files').'</h3>');
1.174 albertel 161: my $title=$env{'form.authorfolder'};
1.164 albertel 162: $title=&clean($title);
1.79 www 163: my %replacehash=();
1.174 albertel 164: foreach (keys %env) {
1.79 www 165: if ($_=~/^form\.namefor\_(.+)/) {
1.174 albertel 166: $replacehash{$1}=$env{$_};
1.79 www 167: }
168: }
1.174 albertel 169: my $crs='/uploaded/'.$env{'request.course.id'}.'/';
1.79 www 170: $crs=~s/\_/\//g;
171: foreach (keys %replacehash) {
172: my $newfilename=$title.'/'.$replacehash{$_};
1.205 albertel 173: $newfilename=~s/\.(\w+)$//;
174: my $ext=$1;
1.164 albertel 175: $newfilename=&clean($newfilename);
1.205 albertel 176: $newfilename.='.'.$ext;
1.79 www 177: my @dirs=split(/\//,$newfilename);
178: my $path='/home/'.$ca.'/public_html';
179: my $makepath=$path;
180: my $fail=0;
181: for (my $i=0;$i<$#dirs;$i++) {
182: $makepath.='/'.$dirs[$i];
183: unless (-e $makepath) {
184: unless(mkdir($makepath,0777)) { $fail=1; }
185: }
186: }
187: $r->print('<br /><tt>'.$_.'</tt> => <tt>'.$newfilename.'</tt>: ');
188: if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
189: if ($_=~/\.(sequence|page|html|htm|xml|xhtml)$/) {
1.244 albertel 190: print $fh &Apache::lonclonecourse::rewritefile(
191: &Apache::lonclonecourse::readfile($env{'request.course.id'},$_),
1.79 www 192: (%replacehash,$crs => '')
193: );
194: } else {
195: print $fh
1.244 albertel 196: &Apache::lonclonecourse::readfile($env{'request.course.id'},$_);
1.79 www 197: }
198: $fh->close();
199: } else {
200: $fail=1;
201: }
202: if ($fail) {
1.283 albertel 203: $r->print('<span class="LC_error">'.&mt('fail').'</span>');
1.79 www 204: } else {
1.283 albertel 205: $r->print('<span class="LC_success">'.&mt('ok').'</span>');
1.79 www 206: }
207: }
1.76 www 208: } else {
209: # Input form
210: unless ($home==1) {
211: $r->print(
1.81 www 212: '<h3>'.&mt('Select the Construction Space').'</h3><select name="authorspace">');
1.76 www 213: }
214: foreach (sort keys %outhash) {
215: if ($_=~/^home_(.+)$/) {
216: if ($home==1) {
217: $r->print(
218: '<input type="hidden" name="authorspace" value="'.$1.'" />');
219: } else {
1.133 www 220: $r->print('<option value="'.$1.'">'.$1.' - '.
221: &Apache::loncommon::plainname(split(/\@/,$1)).'</option>');
1.76 www 222: }
223: }
224: }
225: unless ($home==1) {
226: $r->print('</select>');
227: }
228: my $title=$origcrsdata{'description'};
1.227 albertel 229: $title=~s/[\/\s]+/\_/gs;
1.164 albertel 230: $title=&clean($title);
1.81 www 231: $r->print('<h3>'.&mt('Folder in Construction Space').'</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
1.76 www 232: &tiehash();
1.81 www 233: $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>');
1.244 albertel 234: foreach (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {
1.78 www 235: $r->print('<tr><td>'.$_.'</td>');
236: my ($ext)=($_=~/\.(\w+)$/);
237: my $title=$hash{'title_'.$hash{
238: 'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}};
239: $r->print('<td>'.($title?$title:' ').'</td>');
1.235 albertel 240: if (!$title) {
1.78 www 241: $title=$_;
1.235 albertel 242: } else {
243: $title=~s|/|_|g;
1.78 www 244: }
245: $title=~s/\.(\w+)$//;
1.164 albertel 246: $title=&clean($title);
1.78 www 247: $title.='.'.$ext;
1.79 www 248: $r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");
1.76 www 249: }
1.78 www 250: $r->print("</table>\n");
1.76 www 251: &untiehash();
252: $r->print(
1.229 raeburn 253: '<p><input type="submit" name="dumpcourse" value="'.&mt('Dump [_1] DOCS',$type).'" /></p></form>');
1.75 www 254: }
1.74 www 255: }
1.76 www 256:
1.138 raeburn 257: # ------------------------------------------------------ Generate "export" button
258:
259: sub exportbutton {
1.230 albertel 260: my $type = &Apache::loncommon::course_type();
1.283 albertel 261: return '<div>'.
1.138 raeburn 262: '<input type="submit" name="exportcourse" value="'.
1.230 albertel 263: &mt('Export '.$type.' to IMS').'" />'.
1.283 albertel 264: &Apache::loncommon::help_open_topic('Docs_Export_Course_Docs').'</div>';
1.138 raeburn 265: }
266:
267: sub exportcourse {
268: my $r=shift;
1.230 albertel 269: my $type = &Apache::loncommon::course_type();
1.138 raeburn 270: my %discussiontime = &Apache::lonnet::dump('discussiontimes',
1.174 albertel 271: $env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});
1.138 raeburn 272: my $numdisc = keys %discussiontime;
273: my $navmap = Apache::lonnavmaps::navmap->new();
274: my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
275: my $curRes;
1.143 raeburn 276: my $outcome;
1.138 raeburn 277:
278: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
279: ['finishexport']);
1.174 albertel 280: if ($env{'form.finishexport'}) {
1.138 raeburn 281: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
282: ['archive','discussion']);
283:
1.175 albertel 284: my @exportitems = &Apache::loncommon::get_env_multiple('form.archive');
285: my @discussions = &Apache::loncommon::get_env_multiple('form.discussion');
1.143 raeburn 286: if (@exportitems == 0 && @discussions == 0) {
287: $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';
288: } else {
289: my $now = time;
290: my %symbs;
291: my $manifestok = 0;
292: my $imsresources;
293: my $tempexport;
294: my $copyresult;
295: my $ims_manifest = &create_ims_store($now,\$manifestok,\$outcome,\$tempexport);
296: if ($manifestok) {
1.157 raeburn 297: &build_package($now,$navmap,\@exportitems,\@discussions,\$outcome,$tempexport,\$copyresult,$ims_manifest);
1.143 raeburn 298: close($ims_manifest);
299:
300: #Create zip file in prtspool
301: my $imszipfile = '/prtspool/'.
1.174 albertel 302: $env{'user.name'}.'_'.$env{'user.domain'}.'_'.
1.143 raeburn 303: time.'_'.rand(1000000000).'.zip';
304: my $cwd = &Cwd::getcwd();
305: my $imszip = '/home/httpd/'.$imszipfile;
306: chdir $tempexport;
307: open(OUTPUT, "zip -r $imszip * 2> /dev/null |");
308: close(OUTPUT);
309: chdir $cwd;
1.230 albertel 310: $outcome .= &mt('Download the zip file from <a href="[_1]">IMS '.lc($type).' archive</a><br />',$imszipfile,);
1.143 raeburn 311: if ($copyresult) {
312: $outcome .= 'The following errors occurred during export - '.$copyresult;
1.138 raeburn 313: }
1.143 raeburn 314: } else {
315: $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 />';
1.138 raeburn 316: }
317: }
1.229 raeburn 318: $r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package'));
1.257 www 319: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package'));
1.143 raeburn 320: $r->print($outcome);
1.224 albertel 321: $r->print(&Apache::loncommon::end_page());
1.138 raeburn 322: } else {
323: my $display;
324: $display = '<form name="exportdoc" method="post">'."\n";
1.230 albertel 325: $display .= &mt('Choose which items you wish to export from your '.$type.'.<br /><br />');
1.138 raeburn 326: $display .= '<table border="0" cellspacing="0" cellpadding="3">'.
327: '<tr><td><fieldset><legend> <b>Content items</b></legend>'.
328: '<input type="button" value="check all" '.
329: 'onclick="javascript:checkAll(document.exportdoc.archive)" />'.
330: ' <input type="button" value="uncheck all"'.
331: ' onclick="javascript:uncheckAll(document.exportdoc.archive)" /></fieldset></td>'.
332: '<td> </td><td> </td>'.
333: '<td align="right"><fieldset><legend> <b>Discussion posts'.
334: '</b></legend><input type="button" value="check all"'.
335: ' onclick="javascript:checkAll(document.exportdoc.discussion)" />'.
336: ' <input type="button" value="uncheck all"'.
337: ' onclick="javascript:uncheckAll(document.exportdoc.discussion)" /></fieldset></td>'.
338: '</tr></table>';
339: my $curRes;
340: my $depth = 0;
341: my $count = 0;
342: my $boards = 0;
343: my $startcount = 5;
344: my %parent = ();
345: my %children = ();
346: my $lastcontainer = $startcount;
347: my @bgcolors = ('#F6F6F6','#FFFFFF');
348: $display .= '<table cellspacing="0"><tr>'.
349: '<td><b>Export content item?<br /></b></td><td> </td><td align="right">'."\n";
350: if ($numdisc > 0) {
351: $display.='<b>Export discussion posts?</b>'."\n";
352: }
353: $display.=' </td></tr>';
354: while ($curRes = $it->next()) {
355: if (ref($curRes)) {
356: $count ++;
357: }
358: if ($curRes == $it->BEGIN_MAP()) {
359: $depth++;
360: $parent{$depth} = $lastcontainer;
361: }
362: if ($curRes == $it->END_MAP()) {
363: $depth--;
364: $lastcontainer = $parent{$depth};
365: }
366: if (ref($curRes)) {
367: my $symb = $curRes->symb();
1.158 raeburn 368: my $ressymb = $symb;
1.264 albertel 369: if ($ressymb =~ m|adm/($match_domain)/($match_username)/(\d+)/bulletinboard$|) {
1.158 raeburn 370: unless ($ressymb =~ m|adm/wrapper/adm|) {
371: $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';
372: }
373: }
1.138 raeburn 374: my $color = $count%2;
375: $display .='<tr bgcolor='.$bgcolors[$color].'><td>'."\n".
376: '<input type="checkbox" name="archive" value="'.$count.'" ';
377: if (($curRes->is_sequence()) || ($curRes->is_page())) {
378: my $checkitem = $count + $boards + $startcount;
379: $display .= 'onClick="javascript:propagateCheck('."'$checkitem'".')"';
380: }
381: $display .= ' />'."\n";
382: for (my $i=0; $i<$depth; $i++) {
1.282 albertel 383: $display .= '<img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" /><img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" />'."\n";
1.138 raeburn 384: }
385: if ($curRes->is_sequence()) {
386: $display .= '<img src="/adm/lonIcons/navmap.folder.open.gif"> '."\n";
387: $lastcontainer = $count + $startcount + $boards;
388: } elsif ($curRes->is_page()) {
389: $display .= '<img src="/adm/lonIcons/navmap.page.open.gif"> '."\n";
390: $lastcontainer = $count + $startcount + $boards;
391: }
392: my $currelem = $count+$boards+$startcount;
393: $children{$parent{$depth}} .= $currelem.':';
394: $display .= ' '.$curRes->title().'</td>';
1.158 raeburn 395: if ($discussiontime{$ressymb} > 0) {
1.138 raeburn 396: $boards ++;
397: $currelem = $count+$boards+$startcount;
398: $display .= '<td> </td><td align="right"><input type="checkbox" name="discussion" value="'.$count.'" /> </td>'."\n";
399: } else {
400: $display .= '<td colspan="2"> </td>'."\n";
401: }
402: }
403: }
404: my $scripttag = qq|
405: <script>
406:
407: function checkAll(field) {
1.158 raeburn 408: if (field.length > 0) {
409: for (i = 0; i < field.length; i++) {
410: field[i].checked = true ;
411: }
412: } else {
413: field.checked = true
414: }
1.138 raeburn 415: }
1.158 raeburn 416:
1.138 raeburn 417: function uncheckAll(field) {
1.158 raeburn 418: if (field.length > 0) {
419: for (i = 0; i < field.length; i++) {
420: field[i].checked = false ;
421: }
422: } else {
423: field.checked = false ;
424: }
1.138 raeburn 425: }
426:
427: function propagateCheck(item) {
428: if (document.exportdoc.elements[item].checked == true) {
429: containerCheck(item)
430: }
431: }
432:
433: function containerCheck(item) {
434: document.exportdoc.elements[item].checked = true
435: var numitems = $count + $boards + $startcount
436: var parents = new Array(numitems)
437: for (var i=$startcount; i<numitems; i++) {
438: parents[i] = new Array
439: }
440: |;
441:
442: foreach my $container (sort { $a <=> $b } keys %children) {
443: my @contents = split/:/,$children{$container};
444: for (my $i=0; $i<@contents; $i ++) {
445: $scripttag .= ' parents['.$container.']['.$i.'] = '.$contents[$i]."\n";
446: }
447: }
448:
449: $scripttag .= qq|
450: if (parents[item].length > 0) {
451: for (var j=0; j<parents[item].length; j++) {
452: containerCheck(parents[item][j])
453: }
454: }
455: }
456:
457: </script>
458: |;
1.229 raeburn 459: $r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package',
1.224 albertel 460: $scripttag));
1.257 www 461: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package'));
1.224 albertel 462: $r->print($display.'</table>'.
1.138 raeburn 463: '<p><input type="hidden" name="finishexport" value="1">'.
464: '<input type="submit" name="exportcourse" value="'.
1.230 albertel 465: &mt('Export '.$type.' DOCS').'" /></p></form>'.
1.224 albertel 466: &Apache::loncommon::end_page());
1.138 raeburn 467: }
468: }
469:
1.143 raeburn 470: sub create_ims_store {
471: my ($now,$manifestok,$outcome,$tempexport) = @_;
472: $$tempexport = $Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/ims_exports';
473: my $ims_manifest;
474: if (!-e $$tempexport) {
475: mkdir($$tempexport,0700);
476: }
477: $$tempexport .= '/'.$now;
478: if (!-e $$tempexport) {
479: mkdir($$tempexport,0700);
480: }
1.174 albertel 481: $$tempexport .= '/'.$env{'user.domain'}.'_'.$env{'user.name'};
1.143 raeburn 482: if (!-e $$tempexport) {
483: mkdir($$tempexport,0700);
484: }
1.159 raeburn 485: if (!-e "$$tempexport/resources") {
486: mkdir("$$tempexport/resources",0700);
487: }
1.143 raeburn 488: # open manifest file
489: my $manifest = '/imsmanifest.xml';
490: my $manifestfilename = $$tempexport.$manifest;
491: if ($ims_manifest = Apache::File->new('>'.$manifestfilename)) {
492: $$manifestok=1;
493: print $ims_manifest
494: '<?xml version="1.0" encoding="UTF-8"?>'."\n".
495: '<manifest xmlns="http://www.imsglobal.org/xsd/imscp_v1p1"'.
496: ' xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2"'.
497: ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'.
1.174 albertel 498: ' identifier="MANIFEST-'.$env{'request.course.id'}.'-'.$now.'"'.
1.143 raeburn 499: ' xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1imscp_v1p1.xsd'.
500: ' http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2p2.xsd">'."\n".
1.199 raeburn 501: ' <metadata>
502: <schema></schema>
503: <imsmd:lom>
504: <imsmd:general>
505: <imsmd:identifier>'.$env{'request.course.id'}.'</imsmd:identifier>
506: <imsmd:title>
507: <imsmd:langstring xml:lang="en">'.$env{'course.'.$env{'request.course.id'}.'.description'}.'</imsmd:langstring>
508: </imsmd:title>
509: </imsmd:general>
510: </imsmd:lom>
511: </metadata>'."\n".
1.174 albertel 512: ' <organizations default="ORG-'.$env{'request.course.id'}.'-'.$now.'">'."\n".
513: ' <organization identifier="ORG-'.$env{'request.course.id'}.'-'.$now.'"'.
1.143 raeburn 514: ' structure="hierarchical">'."\n".
1.199 raeburn 515: ' <title>'.$env{'course.'.$env{'request.course.id'}.'.description'}.'</title>'
1.143 raeburn 516: } else {
517: $$outcome .= 'An error occurred opening the IMS manifest file.<br />'
518: ;
519: }
520: return $ims_manifest;
521: }
522:
523: sub build_package {
524: my ($now,$navmap,$exportitems,$discussions,$outcome,$tempexport,$copyresult,$ims_manifest) = @_;
525: # first iterator to look for dependencies
526: my $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);
527: my $curRes;
528: my $count = 0;
529: my $depth = 0;
530: my $lastcontainer = 0;
531: my %parent = ();
532: my @dependencies = ();
1.174 albertel 533: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
534: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1.143 raeburn 535: while ($curRes = $it->next()) {
536: if (ref($curRes)) {
537: $count ++;
538: }
539: if ($curRes == $it->BEGIN_MAP()) {
540: $depth++;
541: $parent{$depth} = $lastcontainer;
542: }
543: if ($curRes == $it->END_MAP()) {
544: $depth--;
545: $lastcontainer = $parent{$depth};
546: }
547: if (ref($curRes)) {
548: if ($curRes->is_sequence() || $curRes->is_page()) {
549: $lastcontainer = $count;
550: }
551: if (grep/^$count$/,@$exportitems) {
552: &get_dependencies($exportitems,\%parent,$depth,\@dependencies);
553: }
554: }
555: }
556: # second iterator to build manifest and store resources
557: $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);
558: $depth = 0;
559: my $prevdepth;
560: $count = 0;
561: my $imsresources;
562: my $pkgdepth;
1.157 raeburn 563: while ($curRes = $it->next()) {
564: if ($curRes == $it->BEGIN_MAP()) {
565: $prevdepth = $depth;
566: $depth++;
567: }
568: if ($curRes == $it->END_MAP()) {
1.143 raeburn 569: $prevdepth = $depth;
1.157 raeburn 570: $depth--;
571: }
572:
573: if (ref($curRes)) {
574: $count ++;
575: if ((grep/^$count$/,@$exportitems) || (grep/^$count$/,@dependencies)) {
576: my $symb = $curRes->symb();
577: my $isvisible = 'true';
578: my $resourceref;
579: if ($curRes->randomout()) {
580: $isvisible = 'false';
581: }
582: unless ($curRes->is_sequence()) {
1.174 albertel 583: $resourceref = 'identifierref="RES-'.$env{'request.course.id'}.'-'.$count.'"';
1.157 raeburn 584: }
1.199 raeburn 585: my $step = $prevdepth - $depth;
586: if (($step >= 0) && ($count > 1)) {
587: while ($step >= 0) {
588: print $ims_manifest "\n".' </item>'."\n";
589: $step --;
590: }
1.157 raeburn 591: }
592: $prevdepth = $depth;
1.143 raeburn 593:
1.157 raeburn 594: my $itementry =
1.174 albertel 595: '<item identifier="ITEM-'.$env{'request.course.id'}.'-'.$count.
1.143 raeburn 596: '" isvisible="'.$isvisible.'" '.$resourceref.'>'.
597: '<title>'.$curRes->title().'</title>';
1.157 raeburn 598: print $ims_manifest "\n".$itementry;
1.143 raeburn 599:
1.157 raeburn 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".
1.174 albertel 606: ' <resource identifier="RES-'.$env{'request.course.id'}.'-'.$count.
1.143 raeburn 607: '" type="webcontent" href="'.$content_file.'">'."\n".
608: ' <file href="'.$content_file.'" />'."\n";
1.157 raeburn 609: foreach (@hrefs) {
610: $imsresources .=
1.143 raeburn 611: ' <file href="'.$_.'" />'."\n";
1.157 raeburn 612: }
1.158 raeburn 613: if (grep/^$count$/,@$discussions) {
614: my $ressymb = $symb;
615: my $mode;
1.264 albertel 616: if ($ressymb =~ m|adm/($match_domain)/($match_username)/(\d+)/bulletinboard$|) {
1.158 raeburn 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',
1.159 raeburn 624: tempexport => $tempexport.'/resources',
1.158 raeburn 625: count => $count
626: );
627: my $discresult = &Apache::lonfeedback::list_discussion($mode,undef,$ressymb,\%extras);
628: }
1.157 raeburn 629: $imsresources .= ' </resource>'."\n";
1.143 raeburn 630: }
631: }
1.157 raeburn 632: $pkgdepth = $depth;
1.143 raeburn 633: }
634: }
635: }
1.157 raeburn 636: while ($pkgdepth > 0) {
1.143 raeburn 637: print $ims_manifest " </item>\n";
638: $pkgdepth --;
639: }
640: my $resource_text = qq|
641: </organization>
642: </organizations>
643: <resources>
644: $imsresources
645: </resources>
646: </manifest>
647: |;
648: print $ims_manifest $resource_text;
649: }
650:
651: sub get_dependencies {
652: my ($exportitems,$parent,$depth,$dependencies) = @_;
653: if ($depth > 1) {
1.157 raeburn 654: if ((!grep/^$$parent{$depth}$/,@$exportitems) && (!grep/^$$parent{$depth}$/,@$dependencies)) {
1.143 raeburn 655: push @$dependencies, $$parent{$depth};
656: if ($depth > 2) {
657: &get_dependencies($exportitems,$parent,$depth-1,$dependencies);
658: }
659: }
660: }
661: }
662:
663: sub process_content {
664: my ($count,$curRes,$cdom,$cnum,$symb,$content_file,$href,$copyresult,$tempexport) = @_;
665: my $content_type;
666: my $message;
1.158 raeburn 667: my @uploads = ();
1.157 raeburn 668: if ($curRes->is_sequence()) {
669: $content_type = 'sequence';
670: } elsif ($curRes->is_page()) {
671: $content_type = 'page'; # need to handle individual items in pages.
1.143 raeburn 672: } elsif ($symb =~ m-public/$cdom/$cnum/syllabus$-) {
673: $content_type = 'syllabus';
1.158 raeburn 674: my $contents = &Apache::imsexport::templatedpage($content_type);
675: if ($contents) {
676: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
677: }
1.157 raeburn 678: } elsif ($symb =~ m-\.sequence___\d+___ext-) {
1.143 raeburn 679: $content_type = 'external';
1.158 raeburn 680: my $title = $curRes->title;
681: my $contents = &Apache::imsexport::external($symb,$title);
682: if ($contents) {
683: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
684: }
1.143 raeburn 685: } elsif ($symb =~ m-adm/navmaps$-) {
686: $content_type = 'navmap';
1.158 raeburn 687: } elsif ($symb =~ m-adm/[^/]+/[^/]+/(\d+)/smppg$-) {
1.143 raeburn 688: $content_type = 'simplepage';
1.158 raeburn 689: my $contents = &Apache::imsexport::templatedpage($content_type,$1,$count,\@uploads);
690: if ($contents) {
691: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
692: }
693: } elsif ($symb =~ m-lib/templates/simpleproblem\.problem$-) {
1.143 raeburn 694: $content_type = 'simpleproblem';
1.158 raeburn 695: my $contents = &Apache::imsexport::simpleproblem($symb);
696: if ($contents) {
697: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
698: }
1.188 raeburn 699: } elsif ($symb =~ m-lib/templates/examupload\.problem$-) {
1.158 raeburn 700: $content_type = 'examupload';
1.264 albertel 701: } elsif ($symb =~ m-adm/($match_domain)/($match_username)/(\d+)/bulletinboard$-) {
1.143 raeburn 702: $content_type = 'bulletinboard';
1.158 raeburn 703: my $contents = &Apache::imsexport::templatedpage($content_type,$3,$count,\@uploads,$1,$2);
704: if ($contents) {
705: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
706: }
707: } elsif ($symb =~ m-adm/([^/]+)/([^/]+)/aboutme$-) {
1.143 raeburn 708: $content_type = 'aboutme';
1.158 raeburn 709: my $contents = &Apache::imsexport::templatedpage($content_type,undef,$count,\@uploads,$1,$2);
710: if ($contents) {
711: $$content_file = &store_template($contents,$tempexport,$count,$content_type);
712: }
1.157 raeburn 713: } elsif ($symb =~ m-\.(sequence|page)___\d+___uploaded/$cdom/$cnum/-) {
714: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');
1.162 raeburn 715: } elsif ($symb =~ m-\.(sequence|page)___\d+___([^/]+)/([^/]+)-) {
1.143 raeburn 716: my $canedit = 0;
1.174 albertel 717: if ($2 eq $env{'user.domain'} && $3 eq $env{'user.name'}) {
1.143 raeburn 718: $canedit= 1;
719: }
1.200 raeburn 720: # only include problem code where current user is author
1.143 raeburn 721: if ($canedit) {
1.157 raeburn 722: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource');
1.143 raeburn 723: } else {
1.157 raeburn 724: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'noedit');
1.143 raeburn 725: }
1.162 raeburn 726: } elsif ($symb =~ m-uploaded/$cdom/$cnum-) {
727: $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');
1.143 raeburn 728: }
1.158 raeburn 729: if (@uploads > 0) {
730: foreach my $item (@uploads) {
731: my $uploadmsg = '';
1.159 raeburn 732: &replicate_content($cdom,$cnum,$tempexport,$item,$count,\$uploadmsg,$href,'templateupload');
1.158 raeburn 733: if ($uploadmsg) {
734: $$copyresult .= $uploadmsg."\n";
735: }
736: }
737: }
1.157 raeburn 738: if ($message) {
739: $$copyresult .= $message."\n";
740: }
1.143 raeburn 741: }
742:
743: sub replicate_content {
1.157 raeburn 744: my ($cdom,$cnum,$tempexport,$symb,$count,$message,$href,$caller) = @_;
1.159 raeburn 745: my ($map,$ind,$url);
746: if ($caller eq 'templateupload') {
747: $url = $symb;
748: $url =~ s#//#/#g;
749: } else {
750: ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
751: }
1.143 raeburn 752: my $content;
753: my $filename;
754: my $repstatus;
1.157 raeburn 755: my $content_name;
756: if ($url =~ m-/([^/]+)$-) {
1.143 raeburn 757: $filename = $1;
758: if (!-e $tempexport.'/resources') {
759: mkdir($tempexport.'/resources',0700);
760: }
1.157 raeburn 761: if (!-e $tempexport.'/resources/'.$count) {
1.143 raeburn 762: mkdir($tempexport.'/resources/'.$count,0700);
763: }
1.157 raeburn 764: my $destination = $tempexport.'/resources/'.$count.'/'.$filename;
1.143 raeburn 765: my $copiedfile;
766: if ($copiedfile = Apache::File->new('>'.$destination)) {
767: my $content;
1.157 raeburn 768: if ($caller eq 'resource') {
1.197 raeburn 769: my $respath = $Apache::lonnet::perlvar{'lonDocRoot'}.'/res';
770: my $filepath = &Apache::lonnet::filelocation($respath,$url);
771: $content = &Apache::lonnet::getfile($filepath);
1.143 raeburn 772: if ($content eq -1) {
773: $$message = 'Could not copy file '.$filename;
774: } else {
1.197 raeburn 775: &extract_media($url,$cdom,$cnum,\$content,$count,$tempexport,$href,$message,'resource');
1.143 raeburn 776: $repstatus = 'ok';
777: }
1.162 raeburn 778: } elsif ($caller eq 'uploaded' || $caller eq 'templateupload') {
1.143 raeburn 779: my $rtncode;
1.157 raeburn 780: $repstatus = &Apache::lonnet::getuploaded('GET',$url,$cdom,$cnum,\$content,$rtncode);
781: if ($repstatus eq 'ok') {
782: if ($url =~ /\.html?$/i) {
1.197 raeburn 783: &extract_media($url,$cdom,$cnum,\$content,$count,$tempexport,$href,$message,'uploaded');
1.157 raeburn 784: }
785: } else {
1.197 raeburn 786: $$message = 'Could not render '.$url.' server message - '.$rtncode."<br />\n";
1.143 raeburn 787: }
1.162 raeburn 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';
1.143 raeburn 792: }
793: if ($repstatus eq 'ok') {
794: print $copiedfile $content;
795: }
796: close($copiedfile);
797: } else {
1.197 raeburn 798: $$message = 'Could not open destination file for '.$filename."<br />\n";
1.143 raeburn 799: }
800: } else {
1.197 raeburn 801: $$message = 'Could not determine name of file for '.$symb."<br />\n";
1.143 raeburn 802: }
1.157 raeburn 803: if ($repstatus eq 'ok') {
1.198 raeburn 804: $content_name = 'resources/'.$count.'/'.$filename;
1.157 raeburn 805: }
806: return $content_name;
807: }
808:
809: sub extract_media {
1.197 raeburn 810: my ($url,$cdom,$cnum,$content,$count,$tempexport,$href,$message,$caller) = @_;
1.198 raeburn 811: my ($dirpath,$container);
1.197 raeburn 812: my %allfiles = ();
813: my %codebase = ();
1.198 raeburn 814: if ($url =~ m-(.*/)([^/]+)$-) {
815: $dirpath = $1;
816: $container = $2;
817: } else {
818: $dirpath = $url;
819: $container = '';
820: }
1.197 raeburn 821: &Apache::lonnet::extract_embedded_items(undef,undef,\%allfiles,\%codebase,$content);
822: foreach my $embed_file (keys(%allfiles)) {
823: my $filename;
824: if ($embed_file =~ m#([^/]+)$#) {
825: $filename = $1;
826: } else {
827: $filename = $embed_file;
828: }
829: my $newname = 'res/'.$filename;
830: my ($rtncode,$embed_content,$repstatus);
831: my $embed_url;
832: if ($embed_file =~ m-^/-) {
833: $embed_url = $embed_file; # points to absolute path
834: } else {
835: if ($embed_file =~ m-https?://-) {
836: next; # points to url
837: } else {
1.198 raeburn 838: $embed_url = $dirpath.$embed_file; # points to relative path
1.197 raeburn 839: }
840: }
841: if ($caller eq 'resource') {
842: my $respath = $Apache::lonnet::perlvar{'lonDocRoot'}.'/res';
843: my $embed_path = &Apache::lonnet::filelocation($respath,$embed_url);
844: $embed_content = &Apache::lonnet::getfile($embed_path);
845: unless ($embed_content eq -1) {
846: $repstatus = 'ok';
847: }
848: } elsif ($caller eq 'uploaded') {
849:
850: $repstatus = &Apache::lonnet::getuploaded('GET',$embed_url,$cdom,$cnum,\$embed_content,$rtncode);
851: }
852: if ($repstatus eq 'ok') {
853: my $destination = $tempexport.'/resources/'.$count.'/res';
854: if (!-e "$destination") {
855: mkdir($destination,0755);
856: }
857: $destination .= '/'.$filename;
858: my $copiedfile;
859: if ($copiedfile = Apache::File->new('>'.$destination)) {
860: print $copiedfile $embed_content;
1.198 raeburn 861: push @{$href}, 'resources/'.$count.'/res/'.$filename;
1.197 raeburn 862: my $attrib_regexp = '';
863: if (@{$allfiles{$embed_file}} > 1) {
864: $attrib_regexp = join('|',@{$allfiles{$embed_file}});
865: } else {
866: $attrib_regexp = $allfiles{$embed_file}[0];
867: }
868: $$content =~ s#($attrib_regexp\s*=\s*['"]?)\Q$embed_file\E(['"]?)#$1$newname$2#gi;
1.198 raeburn 869: if ($caller eq 'resource' && $container =~ /\.(problem|library)$/) {
1.197 raeburn 870: $$content =~ s#\Q$embed_file\E#$newname#gi;
871: }
872: }
873: } else {
874: $$message .= 'replication of embedded file - '.$embed_file.' in '.$url.' failed, reason -'.$rtncode."<br />\n";
875: }
876: }
1.157 raeburn 877: return;
1.143 raeburn 878: }
1.74 www 879:
1.158 raeburn 880: sub store_template {
881: my ($contents,$tempexport,$count,$content_type) = @_;
882: if ($contents) {
1.159 raeburn 883: if ($tempexport) {
884: if (!-e $tempexport.'/resources') {
885: mkdir($tempexport.'/resources',0700);
886: }
887: if (!-e $tempexport.'/resources/'.$count) {
888: mkdir($tempexport.'/resources/'.$count,0700);
889: }
890: my $destination = $tempexport.'/resources/'.$count.'/'.$content_type.'.xml';
891: my $storetemplate;
892: if ($storetemplate = Apache::File->new('>'.$destination)) {
893: print $storetemplate $contents;
894: close($storetemplate);
895: }
896: if ($content_type eq 'external') {
1.198 raeburn 897: return 'resources/'.$count.'/'.$content_type.'.html';
1.159 raeburn 898: } else {
1.198 raeburn 899: return 'resources/'.$count.'/'.$content_type.'.xml';
1.159 raeburn 900: }
1.158 raeburn 901: }
902: }
903: }
904:
1.73 bowersj2 905: # Imports the given (name, url) resources into the course
906: # coursenum, coursedom, and folder must precede the list
907: sub group_import {
1.277 albertel 908: my ($coursenum, $coursedom, $folder, $container, $caller, @files) = @_;
909:
910: while (@files) {
911: my $name = shift(@files);
912: my $url = shift(@files);
913: #FIXME check if file exists before overwriting, might be restoring it
914: if (($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page|sequence)$})
915: && ($caller eq 'londocs')
916: && (!&Apache::lonnet::stat_file($url))) {
917:
1.142 raeburn 918: my $errtext = '';
919: my $fatal = 0;
920: my $newmapstr = '<map>'."\n".
921: '<resource id="1" src="" type="start"></resource>'."\n".
922: '<link from="1" to="2" index="1"></link>'."\n".
923: '<resource id="2" src="" type="finish"></resource>'."\n".
924: '</map>';
1.174 albertel 925: $env{'form.output'}=$newmapstr;
1.189 albertel 926: my $result=&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,
1.142 raeburn 927: 'output',$1.$2);
928: if ($result != m|^/uploaded/|) {
929: $errtext.='Map not saved: A network error occured when trying to save the new map. ';
930: $fatal = 2;
931: }
932: if ($fatal) {
933: return ($errtext,$fatal);
934: }
935: }
1.73 bowersj2 936: if ($url) {
1.245 albertel 937: my $idx = &LONCAPA::map::getresidx($url);
938: $LONCAPA::map::order[$#LONCAPA::map::order+1]=$idx;
1.73 bowersj2 939: my $ext = 'false';
1.263 albertel 940: if ($url=~m{^http://} || $url=~m{^https://}) { $ext = 'true'; }
1.273 albertel 941: $url = &LONCAPA::map::qtunescape($url);
942: $name = &LONCAPA::map::qtunescape($name);
1.245 albertel 943: $LONCAPA::map::resources[$idx] =
1.73 bowersj2 944: join ':', ($name, $url, $ext, 'normal', 'res');
945: }
946: }
1.142 raeburn 947: return &storemap($coursenum, $coursedom, $folder.'.'.$container);
1.73 bowersj2 948: }
949:
1.114 albertel 950: sub breadcrumbs {
951: my ($where)=@_;
952: &Apache::lonhtmlcommon::clear_breadcrumbs();
1.142 raeburn 953: my (@folders);
1.174 albertel 954: if ($env{'form.pagepath'}) {
955: @folders = split('&',$env{'form.pagepath'});
1.142 raeburn 956: } else {
1.174 albertel 957: @folders=split('&',$env{'form.folderpath'});
1.142 raeburn 958: }
1.116 albertel 959: my $folderpath;
1.168 www 960: my $cpinfo='';
1.251 www 961: my $plain='';
1.242 www 962: my $randompick=-1;
963: my $isencrypted=0;
964: my $ishidden=0;
1.116 albertel 965: while (@folders) {
966: my $folder=shift(@folders);
967: my $foldername=shift(@folders);
968: if ($folderpath) {$folderpath.='&';}
969: $folderpath.=$folder.'&'.$foldername;
970: my $url='/adm/coursedocs?folderpath='.
1.228 www 971: &escape($folderpath);
1.242 www 972: my $name=&unescape($foldername);
973: # randompick number, hidden, encrypted is appended with ":"s to the foldername
974: $name=~s/\:(\d*)\:(\w*)\:(\w*)$//;
975: if ($1 ne '') {
976: $randompick=$1;
977: } else {
978: $randompick=-1;
979: }
980: if ($2) { $ishidden=1; }
981: if ($3) { $isencrypted=1; }
1.114 albertel 982: &Apache::lonhtmlcommon::add_breadcrumb(
1.168 www 983: {'href'=>$url.$cpinfo,
1.242 www 984: 'title'=>$name,
1.117 albertel 985: 'text'=>'<font size="+1">'.
1.266 albertel 986: $name.'</font>',
987: 'no_mt'=>1,
1.117 albertel 988: });
1.251 www 989: $plain.=$name.' > ';
1.114 albertel 990: }
1.251 www 991: $plain=~s/\>\;\s*$//;
1.242 www 992: return (&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp',
1.251 www 993: 'LC_docs_path'),$randompick,$ishidden,$isencrypted,$plain);
1.114 albertel 994: }
995:
1.247 www 996: sub log_docs {
997: return &Apache::lonnet::instructor_log('docslog',@_);
998: }
999:
1000: {
1001: my @oldresources=();
1002: my @oldorder=();
1003: my $parmidx;
1004: my %parmaction=();
1005: my %parmvalue=();
1.249 www 1006: my $changedflag;
1.247 www 1007:
1008: sub snapshotbefore {
1.248 albertel 1009: @oldresources=@LONCAPA::map::resources;
1010: @oldorder=@LONCAPA::map::order;
1.247 www 1011: $parmidx=undef;
1012: %parmaction=();
1013: %parmvalue=();
1.249 www 1014: $changedflag=0;
1.247 www 1015: }
1016:
1017: sub remember_parms {
1018: my ($idx,$parameter,$action,$value)=@_;
1019: $parmidx=$idx;
1020: $parmaction{$parameter}=$action;
1021: $parmvalue{$parameter}=$value;
1.249 www 1022: $changedflag=1;
1.247 www 1023: }
1024:
1025: sub log_differences {
1.251 www 1026: my ($plain)=@_;
1.260 www 1027: my %storehash=('folder' => $plain,
1028: 'currentfolder' => $env{'form.folder'});
1.247 www 1029: if ($parmidx) {
1030: $storehash{'parameter_res'}=$oldresources[$parmidx];
1031: foreach my $parm (keys %parmaction) {
1032: $storehash{'parameter_action_'.$parm}=$parmaction{$parm};
1033: $storehash{'parameter_value_'.$parm}=$parmvalue{$parm};
1034: }
1035: }
1036: my $maxidx=$#oldresources;
1.248 albertel 1037: if ($#LONCAPA::map::resources>$#oldresources) {
1038: $maxidx=$#LONCAPA::map::resources;
1.247 www 1039: }
1040: for (my $idx=0; $idx<=$maxidx; $idx++) {
1041: if ($LONCAPA::map::resources[$idx] ne $oldresources[$idx]) {
1042: $storehash{'before_resources_'.$idx}=$oldresources[$idx];
1043: $storehash{'after_resources_'.$idx}=$LONCAPA::map::resources[$idx];
1.249 www 1044: $changedflag=1;
1.247 www 1045: }
1046: if ($LONCAPA::map::order[$idx] ne $oldorder[$idx]) {
1.252 www 1047: $storehash{'before_order_res_'.$idx}=$oldresources[$oldorder[$idx]];
1048: $storehash{'after_order_res_'.$idx}=$LONCAPA::map::resources[$LONCAPA::map::order[$idx]];
1.249 www 1049: $changedflag=1;
1.247 www 1050: }
1051: }
1.251 www 1052: $storehash{'maxidx'}=$maxidx;
1.249 www 1053: if ($changedflag) { &log_docs(\%storehash); }
1.247 www 1054: }
1055: }
1056:
1057:
1058: #
1059: # Docs Change Log
1060: #
1061: sub docs_change_log {
1062: my ($r)=@_;
1.260 www 1063: my $folder=$env{'form.folder'};
1.247 www 1064: $r->print(&Apache::loncommon::start_page('Course Document Change Log'));
1065: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Document Change Log'));
1066: my %docslog=&Apache::lonnet::dump('nohist_docslog',
1067: $env{'course.'.$env{'request.course.id'}.'.domain'},
1068: $env{'course.'.$env{'request.course.id'}.'.num'});
1.254 albertel 1069:
1.247 www 1070: if ((keys(%docslog))[0]=~/^error\:/) { undef(%docslog); }
1.254 albertel 1071:
1.247 www 1072: $r->print('<form action="/adm/coursedocs" method="post" name="docslog">'.
1073: '<input type="hidden" name="docslog" value="1" />');
1.254 albertel 1074:
1.247 www 1075: my %saveable_parameters = ('show' => 'scalar',);
1076: &Apache::loncommon::store_course_settings('docs_log',
1077: \%saveable_parameters);
1078: &Apache::loncommon::restore_course_settings('docs_log',
1079: \%saveable_parameters);
1080: if (!$env{'form.show'}) { $env{'form.show'}=10; }
1.254 albertel 1081: my %lt=('hiddenresource' => 'Resources hidden',
1082: 'encrypturl' => 'URL hidden',
1083: 'randompick' => 'Randomly pick',
1084: 'set' => 'set to',
1085: 'del' => 'deleted');
1.259 www 1086: $r->print(&Apache::loncommon::display_filter().
1.260 www 1087: '<input type="hidden" name="folder" value="'.$folder.'" />'.
1.247 www 1088: '<input type="submit" value="'.&mt('Display').'" /></form>');
1089: $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
1.251 www 1090: '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Folder').'</th><th>'.&mt('Before').'</th><th>'.
1091: &mt('After').'</th>'.
1.247 www 1092: &Apache::loncommon::end_data_table_header_row());
1093: my $shown=0;
1094: foreach my $id (sort { $docslog{$b}{'exe_time'}<=>$docslog{$a}{'exe_time'} } (keys(%docslog))) {
1.260 www 1095: if ($env{'form.displayfilter'} eq 'currentfolder') {
1096: if ($docslog{$id}{'logentry'}{'currentfolder'} ne $folder) { next; }
1097: }
1.247 www 1098: my @changes=keys(%{$docslog{$id}{'logentry'}});
1.261 www 1099: if ($env{'form.displayfilter'} eq 'containing') {
1100: my $wholeentry=$docslog{$id}{'exe_uname'}.':'.$docslog{$id}{'exe_udom'}.':'.
1101: &Apache::loncommon::plainname($docslog{$id}{'exe_uname'},$docslog{$id}{'exe_udom'});
1102: foreach my $key (@changes) {
1103: $wholeentry.=':'.$docslog{$id}{'logentry'}{$key};
1104: }
1105: if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }
1106: }
1.247 www 1107: my $count = 0;
1108: my $time =
1109: &Apache::lonlocal::locallocaltime($docslog{$id}{'exe_time'});
1110: my $plainname =
1111: &Apache::loncommon::plainname($docslog{$id}{'exe_uname'},
1112: $docslog{$id}{'exe_udom'});
1113: my $about_me_link =
1114: &Apache::loncommon::aboutmewrapper($plainname,
1115: $docslog{$id}{'exe_uname'},
1116: $docslog{$id}{'exe_udom'});
1117: my $send_msg_link='';
1118: if ((($docslog{$id}{'exe_uname'} ne $env{'user.name'})
1119: || ($docslog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
1120: $send_msg_link ='<br />'.
1121: &Apache::loncommon::messagewrapper(&mt('Send message'),
1122: $docslog{$id}{'exe_uname'},
1123: $docslog{$id}{'exe_udom'});
1124: }
1125: $r->print(&Apache::loncommon::start_data_table_row());
1126: $r->print('<td>'.$time.'</td>
1127: <td>'.$about_me_link.
1128: '<br /><tt>'.$docslog{$id}{'exe_uname'}.
1129: ':'.$docslog{$id}{'exe_udom'}.'</tt>'.
1.249 www 1130: $send_msg_link.'</td><td>'.
1.251 www 1131: $docslog{$id}{'logentry'}{'folder'}.'</td><td>');
1132: # Before
1133: for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
1134: my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];
1135: my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];
1136: if ($oldname ne $newname) {
1.252 www 1137: $r->print(&LONCAPA::map::qtescape($oldname));
1.251 www 1138: }
1139: }
1.252 www 1140: $r->print('<ul>');
1141: for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
1142: if ($docslog{$id}{'logentry'}{'before_order_res_'.$idx}) {
1143: $r->print('<li>'.&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'before_order_res_'.$idx}))[0]).'</li>');
1144: }
1145: }
1146: $r->print('</ul>');
1.251 www 1147: # After
1148: $r->print('</td><td>');
1149:
1150: for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
1151: my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];
1152: my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];
1.279 albertel 1153: if ($oldname ne '' && $oldname ne $newname) {
1.252 www 1154: $r->print(&LONCAPA::map::qtescape($newname));
1.251 www 1155: }
1156: }
1.252 www 1157: $r->print('<ul>');
1158: for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
1159: if ($docslog{$id}{'logentry'}{'after_order_res_'.$idx}) {
1160: $r->print('<li>'.&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'after_order_res_'.$idx}))[0]).'</li>');
1161: }
1162: }
1163: $r->print('</ul>');
1164: if ($docslog{$id}{'logentry'}{'parameter_res'}) {
1165: $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');
1.253 www 1166: foreach my $parameter ('randompick','hiddenresource','encrypturl') {
1.252 www 1167: if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {
1.254 albertel 1168: $r->print('<li>'.
1169: &mt($lt{$parameter}.' '.$lt{$docslog{$id}{'logentry'}{'parameter_action_'.$parameter}}.' [_1]',
1170: $docslog{$id}{'logentry'}{'parameter_value_'.$parameter})
1171: .'</li>');
1.252 www 1172: }
1173: }
1174: $r->print('</ul>');
1175: }
1.251 www 1176: # End
1177: $r->print('</td>'.&Apache::loncommon::end_data_table_row());
1.247 www 1178: $shown++;
1179: if (!($env{'form.show'} eq &mt('all')
1180: || $shown<=$env{'form.show'})) { last; }
1181: }
1182: $r->print(&Apache::loncommon::end_data_table());
1183: }
1184:
1.281 albertel 1185: sub update_paste_buffer {
1186: my ($coursenum,$coursedom) = @_;
1187:
1188: return if (!defined($env{'form.markcopy'}));
1189: return if (!defined($env{'form.copyfolder'}));
1190: return if ($env{'form.markcopy'} < 0);
1191:
1192: my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
1193: $env{'form.copyfolder'});
1194:
1195: return if ($fatal);
1196:
1197: # Mark for copying
1198: my ($title,$url)=split(':',$LONCAPA::map::resources[$LONCAPA::map::order[$env{'form.markcopy'}]]);
1199: if (&is_supplemental_title($title)) {
1200: ($title) = &parse_supplemental_title($title);
1201: }
1202: &Apache::lonnet::appenv('docs.markedcopy_title' => $title,
1203: 'docs.markedcopy_url' => $url);
1204: delete($env{'form.markcopy'});
1205: }
1206:
1207: sub print_paste_buffer {
1208: my ($r,$container) = @_;
1209: return if (!defined($env{'docs.markedcopy_url'}));
1210:
1211: $r->print(<<ENDPASTE);
1212: <p><form name="pasteform" action="/adm/coursedocs" method="post">
1213: ENDPASTE
1214: $r->print('<input type="submit" name="pastemarked" value="'.&mt('Paste').'" /> ');
1215:
1216: my $type;
1217: if ($env{'docs.markedcopy_url'} =~ m{^/adm/wrapper/ext}) {
1218: $type = &mt('External Resource');
1219: $r->print($type.': '.&Apache::map::qtescape($env{'docs.markedcopy_title'}));
1220: } else {
1221: my $extension = (split(/\./,$env{'docs.markedcopy_url'}))[-1];
1222: my $type = &Apache::loncommon::filedescription($extension);
1223: my $icon = '<img src="'.&Apache::loncommon::icon($extension).
1224: '" class="LC_icon" />';
1225: $r->print($icon.$type.': '. &parse_supplemental_title($env{'docs.markedcopy_title'}));
1226: }
1227: if ($container eq 'page') {
1228: $r->print(<<PAGEINFO);
1229: <input type="hidden" name="pagepath" value="$env{'form.pagepath'}" />
1230: <input type="hidden" name="pagesymb" value="$env{'form.pagesymb'}" />
1231: PAGEINFO
1232: } else {
1233: $r->print(<<FOLDERINFO);
1234: <input type="hidden" name="folderpath" value="$env{'form.folderpath'}" />
1235: FOLDERINFO
1236: }
1237: $r->print('</form></p>');
1238: }
1239:
1.7 www 1240: sub editor {
1.281 albertel 1241: my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$which)=@_;
1.10 www 1242: my $errtext='';
1243: my $fatal=0;
1.142 raeburn 1244: my $container='sequence';
1.174 albertel 1245: if ($env{'form.pagepath'}) {
1.142 raeburn 1246: $container='page';
1247: }
1.281 albertel 1248: ($errtext,$fatal) = &mapread($coursenum,$coursedom,$folder.'.'.$container);
1.245 albertel 1249: if ($#LONCAPA::map::order<1) {
1250: my $idx=&LONCAPA::map::getresidx();
1.178 www 1251: if ($idx<=0) { $idx=1; }
1.245 albertel 1252: $LONCAPA::map::order[0]=$idx;
1253: $LONCAPA::map::resources[$idx]='';
1.17 www 1254: }
1.281 albertel 1255:
1.251 www 1256: my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain)=&breadcrumbs($folder);
1.242 www 1257: $r->print($breadcrumbtrail);
1.7 www 1258: if ($fatal) {
1.283 albertel 1259: $r->print('<p><span class="LC_error">'.$errtext.'</span></p>');
1.7 www 1260: } else {
1261: # ------------------------------------------------------------ Process commands
1.121 www 1262:
1.16 www 1263: # ---------------- if they are for this folder and user allowed to make changes
1.174 albertel 1264: if (($allowed) && ($env{'form.folder'} eq $folder)) {
1.123 www 1265: # set parameters and change order
1.247 www 1266: &snapshotbefore();
1267: if ($env{'form.changeparms'}) {
1.174 albertel 1268: my $idx=$env{'form.setparms'};
1.123 www 1269: # set parameters
1.258 www 1270: if ($env{'form.changeparms'} eq 'randompick') {
1271: if ($env{'form.randpick_'.$idx}) {
1272: &LONCAPA::map::storeparameter($idx,'parameter_randompick',$env{'form.randpick_'.$idx},'int_pos');
1273: &remember_parms($idx,'randompick','set',$env{'form.randpick_'.$idx});
1274: } else {
1275: &LONCAPA::map::delparameter($idx,'parameter_randompick');
1276: &remember_parms($idx,'randompick','del');
1277: }
1278: }
1279: if ($env{'form.changeparms'} eq 'hiddenresource') {
1280: if ($env{'form.hidprs_'.$idx}) {
1281: &LONCAPA::map::storeparameter($idx,'parameter_hiddenresource','yes','string_yesno');
1282: &remember_parms($idx,'hiddenresource','set',$env{'form.hidprs_'.$idx});
1283: } else {
1284: &LONCAPA::map::delparameter($idx,'parameter_hiddenresource');
1285: &remember_parms($idx,'hiddenresource','del');
1286: }
1287: }
1288: if ($env{'form.changeparms'} eq 'encrypturl') {
1289: if ($env{'form.encprs_'.$idx}) {
1290: &LONCAPA::map::storeparameter($idx,'parameter_encrypturl','yes','string_yesno');
1291: &remember_parms($idx,'encrypturl','set',$env{'form.encprs_'.$idx});
1292: } else {
1293: &LONCAPA::map::delparameter($idx,'parameter_encrypturl');
1294: &remember_parms($idx,'encrypturl','del');
1295: }
1.121 www 1296: }
1.250 www 1297: # store the changed version
1298: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1299: if ($fatal) {
1.283 albertel 1300: $r->print('<p><span class="LC_error">'.$errtext.'</span></p>');
1.250 www 1301: return;
1302: }
1.247 www 1303: }
1.121 www 1304:
1.247 www 1305: if ($env{'form.newpos'}) {
1.123 www 1306: # change order
1.247 www 1307: my $newpos=$env{'form.newpos'}-1;
1308: my $currentpos=$env{'form.currentpos'}-1;
1309: my $i;
1310: my @neworder=();
1311: if ($newpos>$currentpos) {
1.125 www 1312: # moving stuff up
1.247 www 1313: for ($i=0;$i<$currentpos;$i++) {
1314: $neworder[$i]=$LONCAPA::map::order[$i];
1315: }
1316: for ($i=$currentpos;$i<$newpos;$i++) {
1317: $neworder[$i]=$LONCAPA::map::order[$i+1];
1318: }
1319: $neworder[$newpos]=$LONCAPA::map::order[$currentpos];
1320: for ($i=$newpos+1;$i<=$#LONCAPA::map::order;$i++) {
1321: $neworder[$i]=$LONCAPA::map::order[$i];
1322: }
1323: } else {
1.125 www 1324: # moving stuff down
1.247 www 1325: for ($i=0;$i<$newpos;$i++) {
1326: $neworder[$i]=$LONCAPA::map::order[$i];
1327: }
1328: $neworder[$newpos]=$LONCAPA::map::order[$currentpos];
1329: for ($i=$newpos+1;$i<$currentpos+1;$i++) {
1330: $neworder[$i]=$LONCAPA::map::order[$i-1];
1331: }
1332: for ($i=$currentpos+1;$i<=$#LONCAPA::map::order;$i++) {
1333: $neworder[$i]=$LONCAPA::map::order[$i];
1.125 www 1334: }
1.124 www 1335: }
1.247 www 1336: @LONCAPA::map::order=@neworder;
1.124 www 1337: # store the changed version
1.142 raeburn 1338: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1.124 www 1339: if ($fatal) {
1.283 albertel 1340: $r->print('<p><span class="LC_error">'.$errtext.'</span></p>');
1.124 www 1341: return;
1.123 www 1342: }
1.247 www 1343: }
1.281 albertel 1344:
1.174 albertel 1345: if ($env{'form.pastemarked'}) {
1.168 www 1346: # paste resource to end of list
1.281 albertel 1347: my $url=$env{'docs.markedcopy_url'};
1348: my $title=$env{'docs.markedcopy_title'};
1.168 www 1349: # Maps need to be copied first
1350: if (($url=~/\.(page|sequence)$/) || ($url=~/^\/uploaded\//)) {
1351: $title=&mt('Copy of').' '.$title;
1352: my $newid=$$.time;
1353: $url=~/^(.+)\.(\w+)$/;
1354: my $newurl=$1.$newid.'.'.$2;
1355: my $storefn=$newurl;
1.264 albertel 1356: $storefn=~s{^/\w+/$match_domain/$match_username/}{};
1.244 albertel 1357: &Apache::lonclonecourse::writefile
1.174 albertel 1358: ($env{'request.course.id'},$storefn,
1.168 www 1359: &Apache::lonnet::getfile($url));
1360: $url=$newurl;
1361: }
1.270 albertel 1362: $title = &LONCAPA::map::qtunescape($title);
1.168 www 1363: my $ext='false';
1364: if ($url=~/^http\:\/\//) { $ext='true'; }
1.270 albertel 1365: $url = &LONCAPA::map::qtunescape($url);
1.168 www 1366: # Now insert the URL at the bottom
1.245 albertel 1367: my $newidx=&LONCAPA::map::getresidx($url);
1368: $LONCAPA::map::resources[$newidx]=
1.168 www 1369: $title.':'.$url.':'.$ext.':normal:res';
1.245 albertel 1370: $LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx;
1.168 www 1371: # Store the result
1372: ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
1373: if ($fatal) {
1.283 albertel 1374: $r->print('<p><span class="LC_error">'.$errtext.'</span></p>');
1.168 www 1375: return;
1376: }
1.123 www 1377:
1.168 www 1378: }
1.188 raeburn 1379: $r->print($upload_output);
1.174 albertel 1380: if ($env{'form.cmd'}) {
1381: my ($cmd,$idx)=split(/\_/,$env{'form.cmd'});
1.10 www 1382: if ($cmd eq 'del') {
1.245 albertel 1383: my (undef,$url)=split(':',$LONCAPA::map::resources[$LONCAPA::map::order[$idx]]);
1.187 www 1384: if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) &&
1.206 albertel 1385: ($url!~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library|task)$/)) {
1.187 www 1386: &Apache::lonnet::removeuploadedurl($url);
1387: } else {
1.245 albertel 1388: &LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
1.128 albertel 1389: }
1.245 albertel 1390: for (my $i=$idx;$i<$#LONCAPA::map::order;$i++) {
1391: $LONCAPA::map::order[$i] = $LONCAPA::map::order[$i+1];
1.10 www 1392: }
1.245 albertel 1393: $#LONCAPA::map::order--;
1.171 www 1394: } elsif ($cmd eq 'cut') {
1.245 albertel 1395: my (undef,$url)=split(':',$LONCAPA::map::resources[$LONCAPA::map::order[$idx]]);
1396: &LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
1397: for (my $i=$idx;$i<$#LONCAPA::map::order;$i++) {
1398: $LONCAPA::map::order[$i] = $LONCAPA::map::order[$i+1];
1.171 www 1399: }
1.245 albertel 1400: $#LONCAPA::map::order--;
1.10 www 1401: } elsif ($cmd eq 'up') {
1.245 albertel 1402: if (($idx) && (defined($LONCAPA::map::order[$idx-1]))) {
1403: my $i=$LONCAPA::map::order[$idx-1];
1404: $LONCAPA::map::order[$idx-1] = $LONCAPA::map::order[$idx];
1405: $LONCAPA::map::order[$idx] = $i;
1.38 www 1406: }
1.10 www 1407: } elsif ($cmd eq 'down') {
1.245 albertel 1408: if (defined($LONCAPA::map::order[$idx+1])) {
1409: my $i=$LONCAPA::map::order[$idx+1];
1410: $LONCAPA::map::order[$idx+1] = $LONCAPA::map::order[$idx];
1411: $LONCAPA::map::order[$idx] = $i;
1.38 www 1412: }
1.36 www 1413: } elsif ($cmd eq 'rename') {
1.245 albertel 1414: my $ratstr = $LONCAPA::map::resources[$LONCAPA::map::order[$idx]];
1.36 www 1415: my ($rtitle,@rrest)=split(/\:/,
1.245 albertel 1416: $LONCAPA::map::resources[$LONCAPA::map::order[$idx]]);
1.270 albertel 1417: my $comment=$env{'form.title'};
1418: $comment = &LONCAPA::map::qtunescape($comment);
1.144 albertel 1419: if ($comment=~/\S/) {
1.245 albertel 1420: $LONCAPA::map::resources[$LONCAPA::map::order[$idx]]=
1421: $comment.':'.join(':',@rrest);
1.144 albertel 1422: }
1.238 www 1423: # Devalidate title cache
1.270 albertel 1424: my $renamed_url=&LONCAPA::map::qtescape($rrest[0]);
1.240 www 1425: &Apache::lonnet::devalidate_title_cache($renamed_url);
1.10 www 1426: }
1427: # Store the changed version
1.104 albertel 1428: ($errtext,$fatal)=&storemap($coursenum,$coursedom,
1.142 raeburn 1429: $folder.'.'.$container);
1.104 albertel 1430: if ($fatal) {
1.283 albertel 1431: $r->print('<p><span class="LC_error">'.$errtext.'</span></p>');
1.104 albertel 1432: return;
1433: }
1.8 www 1434: }
1.11 www 1435: # Group import/search
1.174 albertel 1436: if ($env{'form.importdetail'}) {
1.73 bowersj2 1437: my @imports;
1.243 www 1438: # &Apache::lonnet::logthis("imp detail ".$env{'form.importdetail'});
1.174 albertel 1439: foreach (split(/\&/,$env{'form.importdetail'})) {
1.73 bowersj2 1440: if (defined($_)) {
1441: my ($name,$url)=split(/\=/,$_);
1.228 www 1442: $name=&unescape($name);
1443: $url=&unescape($url);
1.73 bowersj2 1444: push @imports, $name, $url;
1445: }
1446: }
1.11 www 1447: # Store the changed version
1.249 www 1448: ($errtext,$fatal)=&group_import($coursenum, $coursedom, $folder,
1.142 raeburn 1449: $container,'londocs',@imports);
1.104 albertel 1450: if ($fatal) {
1.283 albertel 1451: $r->print('<p><span class="LC_error">'.$errtext.'</span></p>');
1.104 albertel 1452: return;
1453: }
1.11 www 1454: }
1.53 www 1455: # Loading a complete map
1.223 www 1456: if ($env{'form.loadmap'}) {
1457: if ($env{'form.importmap'}=~/\w/) {
1458: foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$env{'form.importmap'}))) {
1459: my ($title,$url,$ext,$type)=split(/\:/,$_);
1.245 albertel 1460: my $idx=&LONCAPA::map::getresidx($url);
1461: $LONCAPA::map::resources[$idx]=$_;
1462: $LONCAPA::map::order[$#LONCAPA::map::order+1]=$idx;
1.223 www 1463: }
1.53 www 1464: # Store the changed version
1.223 www 1465: ($errtext,$fatal)=&storemap($coursenum,$coursedom,
1.142 raeburn 1466: $folder.'.'.$container);
1.223 www 1467: if ($fatal) {
1.283 albertel 1468: $r->print('<p><span class="LC_error">'.$errtext.'</span></p>');
1.223 www 1469: return;
1470: }
1471: } else {
1.283 albertel 1472: $r->print('<p><span class="LC_error">'.&mt('No map selected.').'</span></p>');
1473:
1.223 www 1474: }
1.53 www 1475: }
1.251 www 1476: &log_differences($plain);
1.281 albertel 1477: }
1.16 www 1478: # ---------------------------------------------------------------- End commands
1.7 www 1479: # ---------------------------------------------------------------- Print screen
1.10 www 1480: my $idx=0;
1.148 www 1481: my $shown=0;
1.242 www 1482: if (($ishidden) || ($isencrypted) || ($randompick>=0)) {
1483: $r->print('<p>'.&mt('Parameters').':<ul>'.
1484: ($randompick>=0?'<li>'.&mt('randomly pick [_1] resources',$randompick).'</li>':'').
1485: ($ishidden?'<li>'.&mt('contents hidden').'</li>':'').
1486: ($isencrypted?'<li>'.&mt('URLs hidden').'</li>':'').
1487: '</ul></p>');
1488: }
1489: if ($randompick>=0) {
1490: $r->print('<p>'.&mt('Caution: this folder is set to randomly pick a subset of resources. Adding or removing resources from this folder will change the set of resources that the students see, resulting in spurious or missing credit for completed problems, not limited to ones you modify. Do not modify the contents of this folder if it is in active student use.').'</p>');
1491: }
1.10 www 1492: $r->print('<table>');
1.278 albertel 1493: foreach my $res (@LONCAPA::map::order) {
1494: my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
1.246 raeburn 1495: $name=&LONCAPA::map::qtescape($name);
1.271 albertel 1496: $url=&LONCAPA::map::qtescape($url);
1.10 www 1497: unless ($name) { $name=(split(/\//,$url))[-1]; }
1.148 www 1498: unless ($name) { $idx++; next; }
1.278 albertel 1499: $r->print(&entryline($idx,$name,$url,$folder,$allowed,$res,
1500: $coursenum));
1.10 www 1501: $idx++;
1.148 www 1502: $shown++;
1.10 www 1503: }
1.148 www 1504: unless ($shown) {
1.131 www 1505: $r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');
1506: }
1.168 www 1507: $r->print("\n</table>\n");
1.278 albertel 1508:
1.281 albertel 1509: &print_paste_buffer($r,$container);
1510:
1.7 www 1511: }
1512: }
1.1 www 1513:
1.188 raeburn 1514: sub process_file_upload {
1.194 raeburn 1515: my ($upload_output,$coursenum,$coursedom,$allfiles,$codebase,$uploadcmd) = @_;
1.188 raeburn 1516: # upload a file, if present
1517: my $parseaction;
1.190 albertel 1518: if ($env{'form.parserflag'}) {
1.188 raeburn 1519: $parseaction = 'parse';
1520: }
1521: my $phase_status;
1522: my $folder=$env{'form.folder'};
1.194 raeburn 1523: if ($folder eq '') {
1.188 raeburn 1524: $folder='default';
1525: }
1.194 raeburn 1526: if ( ($folder=~/^$uploadcmd/) || ($uploadcmd eq 'default') ) {
1.188 raeburn 1527: my $errtext='';
1528: my $fatal=0;
1529: my $container='sequence';
1530: if ($env{'form.pagepath'}) {
1531: $container='page';
1532: }
1533: ($errtext,$fatal)=
1534: &mapread($coursenum,$coursedom,$folder.'.'.$container);
1.245 albertel 1535: if ($#LONCAPA::map::order<1) {
1536: $LONCAPA::map::order[0]=1;
1537: $LONCAPA::map::resources[1]='';
1.188 raeburn 1538: }
1539: if ($fatal) {
1540: return 'failed';
1541: }
1542: my $destination = 'docs/';
1.194 raeburn 1543: if ($folder =~ /^supplemental/) {
1544: $destination = 'supplemental/';
1545: }
1546: if (($folder eq 'default') || ($folder eq 'supplemental')) {
1.188 raeburn 1547: $destination .= 'default/';
1.194 raeburn 1548: } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {
1549: $destination .= $2.'/';
1.188 raeburn 1550: }
1551: # this is for a course, not a user, so set coursedoc flag
1552: # probably the only place in the system where this should be "1"
1.245 albertel 1553: my $newidx=&LONCAPA::map::getresidx();
1.188 raeburn 1554: $destination .= $newidx;
1.190 albertel 1555: my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,
1556: $parseaction,$allfiles,
1557: $codebase);
1.188 raeburn 1558: my $ext='false';
1559: if ($url=~/^http\:\/\//) { $ext='true'; }
1.270 albertel 1560: $url = &LONCAPA::map::qtunescape($url);
1.188 raeburn 1561: my $comment=$env{'form.comment'};
1.270 albertel 1562: $comment = &LONCAPA::map::qtunescape($comment);
1.188 raeburn 1563: if ($folder=~/^supplemental/) {
1564: $comment=time.'___&&&___'.$env{'user.name'}.'___&&&___'.
1565: $env{'user.domain'}.'___&&&___'.$comment;
1566: }
1567:
1.245 albertel 1568: $LONCAPA::map::resources[$newidx]=
1569: $comment.':'.$url.':'.$ext.':normal:res';
1570: $LONCAPA::map::order[$#LONCAPA::map::order+1]= $newidx;
1.190 albertel 1571: ($errtext,$fatal)=&storemap($coursenum,$coursedom,
1572: $folder.'.'.$container);
1.188 raeburn 1573: if ($fatal) {
1.283 albertel 1574: $$upload_output .= '<p><span class="LC_error">'.$errtext.'</span></p>';
1.188 raeburn 1575: return 'failed';
1576: } else {
1577: if ($parseaction eq 'parse') {
1.190 albertel 1578: my $total_embedded = keys(%{$allfiles});
1.188 raeburn 1579: if ($total_embedded > 0) {
1580: my $num = 0;
1.269 albertel 1581: my $state = '
1.282 albertel 1582: <input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />
1.269 albertel 1583: <input type="hidden" name="cmd" value="upload_embedded" />
1.188 raeburn 1584: <input type="hidden" name="newidx" value="'.$newidx.'" />
1.228 www 1585: <input type="hidden" name="primaryurl" value="'.&escape($url).'" />
1.188 raeburn 1586: <input type="hidden" name="phasetwo" value="'.$total_embedded.'" />';
1.269 albertel 1587: $phase_status = 'phasetwo';
1588:
1589: $$upload_output .=
1590: 'This file contains embedded multimedia objects, which need to be uploaded to LON-CAPA.<br />'.
1591: &ask_for_embedded_content('/adm/coursedocs',
1592: $state,$allfiles,$codebase);
1.188 raeburn 1593: } else {
1594: $$upload_output .= 'No embedded items identified<br />';
1595: }
1596: }
1597: }
1598: }
1599: return $phase_status;
1600: }
1601:
1.269 albertel 1602: sub ask_for_embedded_content {
1.271 albertel 1603: my ($actionurl,$state,$allfiles,$codebase,$args)=@_;
1.269 albertel 1604: my $upload_output = '
1605: <form name="upload_embedded" action="'.$actionurl.'"
1606: method="post" enctype="multipart/form-data">';
1607: $upload_output .= $state;
1.271 albertel 1608: $upload_output .= '<b>Upload embedded files</b>:<br />'.
1609: &Apache::loncommon::start_data_table();
1.269 albertel 1610:
1611: my $num = 0;
1.276 albertel 1612: foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%{$allfiles})) {
1.271 albertel 1613: $upload_output .= &Apache::loncommon::start_data_table_row().
1614: '<td>'.$embed_file.'</td><td>';
1.274 albertel 1615: if ($args->{'ignore_remote_references'}
1616: && $embed_file =~ m{^\w+://}) {
1617: $upload_output.='<span class="LC_warning">'.&mt("URL points to other server.").'</span>';
1618: } elsif ($args->{'error_on_invalid_names'}
1.271 albertel 1619: && $embed_file ne &Apache::lonnet::clean_filename($embed_file,{'keep_path' => 1,})) {
1620:
1621: $upload_output.='<span class="LC_warning">'.&mt("Invalid characters").'</span>';
1.274 albertel 1622:
1.271 albertel 1623: } else {
1.274 albertel 1624:
1.271 albertel 1625: $upload_output .='
1.269 albertel 1626: <input name="embedded_item_'.$num.'" type="file" value="bob" />
1627: <input name="embedded_orig_'.$num.'" type="hidden" value="'.&escape($embed_file).'" />';
1.271 albertel 1628: my $attrib = join(':',@{$$allfiles{$embed_file}});
1629: $upload_output .=
1.269 albertel 1630: "\n\t\t".
1.271 albertel 1631: '<input name="embedded_attrib_'.$num.'" type="hidden" value="'.
1632: $attrib.'" />';
1633: if (exists($$codebase{$embed_file})) {
1634: $upload_output .=
1635: "\n\t\t".
1636: '<input name="codebase_'.$num.'" type="hidden" value="'.
1637: &escape($$codebase{$embed_file}).'" />';
1638: }
1.269 albertel 1639: }
1.271 albertel 1640: $upload_output .= '</td>'.&Apache::loncommon::end_data_table_row();
1.269 albertel 1641: $num++;
1642: }
1.271 albertel 1643: $upload_output .= &Apache::loncommon::end_data_table().'<br />
1.269 albertel 1644: <input type ="hidden" name="number_embedded_items" value="'.$num.'" />
1.275 albertel 1645: <input type ="submit" value="'.&mt('Upload Listed Files').'" />
1646: '.&mt('(only files for which a location has been provided will be uploaded)').'
1.269 albertel 1647: </form>';
1648: return $upload_output;
1649: }
1650:
1.188 raeburn 1651: sub process_secondary_uploads {
1652: my ($upload_output,$coursedom,$coursenum,$formname,$num,$newidx) = @_;
1653: my $folder=$env{'form.folder'};
1654: my $destination = 'docs/';
1.195 raeburn 1655: if ($folder =~ /^supplemental/) {
1656: $destination = 'supplemental/';
1657: }
1658: if (($folder eq 'default') || ($folder eq 'supplemental')) {
1.188 raeburn 1659: $destination .= 'default/';
1.195 raeburn 1660: } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {
1.217 raeburn 1661: $destination .= $2.'/';
1.188 raeburn 1662: }
1663: $destination .= $newidx;
1664: my ($url,$filename);
1665: $url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);
1.265 albertel 1666: ($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});
1.188 raeburn 1667: return $filename;
1668: }
1669:
1.281 albertel 1670: sub is_supplemental_title {
1671: my ($title) = @_;
1672: return scalar($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/);
1673: }
1674:
1675: sub parse_supplemental_title {
1676: my ($title) = @_;
1677:
1678: my ($foldertitle,$renametitle);
1679: if ($title =~ /&&&/) {
1680: $title = &HTML::Entites::decode($title);
1681: }
1682: if ($title =~ m/^(\d+)___&&&___($match_username)___&&&___($match_domain)___&&&___(.*)$/) {
1683: $renametitle=$4;
1684: my ($time,$uname,$udom) = ($1,$2,$3);
1685: $foldertitle=&Apache::lontexconvert::msgtexconverted($4);
1686: my $name = &Apache::loncommon::plainname($uname,$udom);
1687: $name = &HTML::Entities::encode($name,'"<>&\'');
1688: $title='<i>'.&Apache::lonlocal::locallocaltime($time).'</i> '.
1689: $name.': <br />'.$foldertitle;
1690: }
1691: if (wantarray) {
1692: return ($title,$foldertitle,$renametitle);
1693: }
1694: return $title;
1695: }
1696:
1.8 www 1697: # --------------------------------------------------------------- An entry line
1698:
1699: sub entryline {
1.112 raeburn 1700: my ($index,$title,$url,$folder,$allowed,$residx,$coursenum)=@_;
1.281 albertel 1701:
1702: my ($foldertitle,$pagetitle,$renametitle);
1703: if (&is_supplemental_title($title)) {
1704: ($title,$foldertitle,$renametitle) = &parse_supplemental_title($title);
1705: $pagetitle = $foldertitle;
1706: } else {
1707: $title=&HTML::Entities::encode($title,'"<>&\'');
1708: $renametitle=$title;
1709: $foldertitle=$title;
1710: $pagetitle=$title;
1711: }
1712:
1.245 albertel 1713: my $orderidx=$LONCAPA::map::order[$index];
1.281 albertel 1714:
1715:
1.222 albertel 1716: $renametitle=~s/\\/\\\\/g;
1.38 www 1717: $renametitle=~s/\"\;/\\\"/g;
1.8 www 1718: my $line='<tr>';
1719: # Edit commands
1.142 raeburn 1720: my $container;
1.280 albertel 1721: my ($container, $type, $esc_path, $path, $symb);
1.174 albertel 1722: if ($env{'form.folderpath'}) {
1.280 albertel 1723: $type = 'folder';
1.142 raeburn 1724: $container = 'sequence';
1.282 albertel 1725: $esc_path=&escape($env{'form.folderpath'});
1726: $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
1.174 albertel 1727: # $htmlfoldername=&HTML::Entities::encode($env{'form.foldername'},'<>&"');
1.120 www 1728: }
1.174 albertel 1729: if ($env{'form.pagepath'}) {
1.280 albertel 1730: $type = $container = 'page';
1731: $esc_path=&escape($path = $env{'form.pagepath'});
1.282 albertel 1732: $path = &HTML::Entities::encode($env{'form.pagepath'},'<>&"');
1.280 albertel 1733: $symb=&escape($env{'form.pagesymb'});
1.142 raeburn 1734: }
1.168 www 1735: my $cpinfo='';
1.109 albertel 1736: if ($allowed) {
1.123 www 1737: my $incindex=$index+1;
1738: my $selectbox='';
1.168 www 1739: if (($folder!~/^supplemental/) &&
1.245 albertel 1740: ($#LONCAPA::map::order>0) &&
1.168 www 1741: ((split(/\:/,
1.245 albertel 1742: $LONCAPA::map::resources[$LONCAPA::map::order[0]]))[1]
1.168 www 1743: ne '') &&
1744: ((split(/\:/,
1.245 albertel 1745: $LONCAPA::map::resources[$LONCAPA::map::order[1]]))[1]
1.168 www 1746: ne '')) {
1.123 www 1747: $selectbox=
1.124 www 1748: '<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
1.123 www 1749: '<select name="newpos" onChange="this.form.submit()">';
1.245 albertel 1750: for (my $i=1;$i<=$#LONCAPA::map::order+1;$i++) {
1.123 www 1751: if ($i==$incindex) {
1752: $selectbox.='<option value="" selected="1">('.$i.')</option>';
1753: } else {
1754: $selectbox.='<option value="'.$i.'">'.$i.'</option>';
1755: }
1756: }
1757: $selectbox.='</select>';
1758: }
1.119 www 1759: my %lt=&Apache::lonlocal::texthash(
1760: 'up' => 'Move Up',
1.109 albertel 1761: 'dw' => 'Move Down',
1762: 'rm' => 'Remove',
1.171 www 1763: 'ct' => 'Cut',
1.168 www 1764: 'rn' => 'Rename',
1765: 'cp' => 'Copy');
1.211 www 1766: my $nocopy=0;
1.268 www 1767: my $nocut=0;
1.211 www 1768: if ($url=~/\.(page|sequence)$/) {
1769: foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$url))) {
1770: my ($title,$url,$ext,$type)=split(/\:/,$_);
1771: if (($url=~/\.(page|sequence)/) && ($type ne 'zombie')) {
1772: $nocopy=1;
1773: last;
1774: }
1775: }
1776: }
1.268 www 1777: if ($url=~/^\/res\/lib\/templates\//) {
1778: $nocopy=1;
1779: $nocut=1;
1780: }
1.211 www 1781: my $copylink=' ';
1.267 www 1782: my $cutlink=' ';
1.280 albertel 1783:
1784: if (!$nocopy) {
1785: $copylink=(<<ENDCOPY);
1.284 ! albertel 1786: <a href='javascript:markcopy("$esc_path","$index","$renametitle","$container","$symb","$folder");' class="LC_docs_copy">$lt{'cp'}</a>
1.211 www 1787: ENDCOPY
1.280 albertel 1788: }
1789: if (!$nocut) {
1790: $cutlink=(<<ENDCUT);
1.284 ! albertel 1791: <a href='javascript:cutres("$esc_path","$index","$renametitle","$container","$symb","$folder");' class="LC_docs_cut">$lt{'ct'}</a>
1.267 www 1792: ENDCUT
1.280 albertel 1793: }
1794: $line.=(<<END);
1795: <form name="entry_$index" action="/adm/coursedocs" method="post">
1796: <input type="hidden" name="${type}path" value="$path" />
1797: <input type="hidden" name="${type}symb" value="$symb" />
1798: <input type="hidden" name="setparms" value="$orderidx" />
1799: <input type="hidden" name="changeparms" value="0" />
1800: <td>
1801: <table border='0' cellspacing='2' cellpadding='0'>
1802: <tr>
1803: <td bgcolor="#DDDDDD">
1.282 albertel 1804: <a href='/adm/coursedocs?cmd=up_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'><img src="${iconpath}move_up.gif" alt='$lt{'up'}' class="LC_icon" /></a>
1.280 albertel 1805: </td>
1806: </tr>
1807: <tr>
1808: <td bgcolor="#DDDDDD">
1.282 albertel 1809: <a href='/adm/coursedocs?cmd=down_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'><img src="${iconpath}move_down.gif" alt='$lt{'dw'}' class="LC_icon" /></a>
1.280 albertel 1810: </td>
1811: </tr>
1812: </table>
1813: </td>
1814: <td>
1815: $selectbox
1816: </td>
1817: <td bgcolor="#DDDDDD">
1.284 ! albertel 1818: <a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_remove">$lt{'rm'}</a>
1.267 www 1819: $cutlink
1.284 ! albertel 1820: <a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>
1.211 www 1821: $copylink
1.280 albertel 1822: </td>
1.142 raeburn 1823: END
1.280 albertel 1824:
1.8 www 1825: }
1.16 www 1826: # Figure out what kind of a resource this is
1827: my ($extension)=($url=~/\.(\w+)$/);
1828: my $uploaded=($url=~/^\/*uploaded\//);
1.97 albertel 1829: my $icon=&Apache::loncommon::icon($url);
1.17 www 1830: my $isfolder=0;
1.142 raeburn 1831: my $ispage=0;
1.114 albertel 1832: my $folderarg;
1.142 raeburn 1833: my $pagearg;
1834: my $pagefile;
1.16 www 1835: if ($uploaded) {
1.135 albertel 1836: if ($extension eq 'sequence') {
1837: $icon=$iconpath.'/folder_closed.gif';
1.264 albertel 1838: $url=~/\Q$coursenum\E\/([\/\w]+)\.sequence$/;
1.135 albertel 1839: $url='/adm/coursedocs?';
1840: $folderarg=$1;
1841: $isfolder=1;
1.142 raeburn 1842: } elsif ($extension eq 'page') {
1843: $icon=$iconpath.'/page.gif';
1.264 albertel 1844: $url=~/\Q$coursenum\E\/([\/\w]+)\.page$/;
1.142 raeburn 1845: $pagearg=$1;
1846: $url='/adm/coursedocs?';
1847: $ispage=1;
1.135 albertel 1848: } else {
1849: &Apache::lonnet::allowuploaded('/adm/coursedoc',$url);
1850: }
1.16 www 1851: }
1.215 albertel 1852: $url=~s-^http(\&colon\;|:)//-/adm/wrapper/ext/-;
1.142 raeburn 1853: if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) {
1.113 albertel 1854: my $symb=&Apache::lonnet::symbclean(
1.50 www 1855: &Apache::lonnet::declutter('uploaded/'.
1.174 albertel 1856: $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.
1857: $env{'course.'.$env{'request.course.id'}.'.num'}.'/'.$folder.
1.50 www 1858: '.sequence').
1859: '___'.$residx.'___'.
1.113 albertel 1860: &Apache::lonnet::declutter($url));
1861: (undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
1862: $url=&Apache::lonnet::clutter($url);
1.127 albertel 1863: if ($url=~/^\/*uploaded\//) {
1864: $url=~/\.(\w+)$/;
1865: my $embstyle=&Apache::loncommon::fileembstyle($1);
1866: if (($embstyle eq 'img') || ($embstyle eq 'emb')) {
1867: $url='/adm/wrapper'.$url;
1868: } elsif ($embstyle eq 'ssi') {
1869: #do nothing with these
1870: } elsif ($url!~/\.(sequence|page)$/) {
1871: $url='/adm/coursedocs/showdoc'.$url;
1872: }
1.145 albertel 1873: } elsif ($url=~m|^/ext/|) {
1874: $url='/adm/wrapper'.$url;
1.127 albertel 1875: }
1.241 www 1876: if (&Apache::lonnet::symbverify($symb,$url)) {
1877: $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
1878: } else {
1879: $url='';
1880: }
1.152 albertel 1881: if ($container eq 'page') {
1.174 albertel 1882: my $symb=$env{'form.pagesymb'};
1.152 albertel 1883:
1884: $url=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);
1.228 www 1885: $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
1.152 albertel 1886: }
1.50 www 1887: }
1.120 www 1888: my $parameterset=' ';
1.216 albertel 1889: if ($isfolder || $extension eq 'sequence') {
1.228 www 1890: my $foldername=&escape($foldertitle);
1.174 albertel 1891: my $folderpath=$env{'form.folderpath'};
1.114 albertel 1892: if ($folderpath) { $folderpath.='&' };
1.242 www 1893: # Append randompick number, hidden, and encrypted with ":" to foldername,
1894: # so it gets transferred between levels
1.245 albertel 1895: $folderpath.=$folderarg.'&'.$foldername.':'.(&LONCAPA::map::getparameter($orderidx,
1.242 www 1896: 'parameter_randompick'))[0]
1.245 albertel 1897: .':'.((&LONCAPA::map::getparameter($orderidx,
1.242 www 1898: 'parameter_hiddenresource'))[0]=~/^yes$/i)
1.245 albertel 1899: .':'.((&LONCAPA::map::getparameter($orderidx,
1.242 www 1900: 'parameter_encrypturl'))[0]=~/^yes$/i);
1.228 www 1901: $url.='folderpath='.&escape($folderpath).$cpinfo;
1.147 matthew 1902: $parameterset='<label>'.&mt('Randomly Pick: ').
1.258 www 1903: '<input type="text" size="4" onChange="this.form.changeparms.value='."'randompick'".';this.form.submit()" name="randpick_'.$orderidx.'" value="'.
1.245 albertel 1904: (&LONCAPA::map::getparameter($orderidx,
1.147 matthew 1905: 'parameter_randompick'))[0].
1.165 www 1906: '" />'.
1.272 albertel 1907: '<font size="-2"><a href="javascript:void(0)">'.&mt('Save').'</a></font></label>';
1.147 matthew 1908:
1.114 albertel 1909: }
1.142 raeburn 1910: if ($ispage) {
1.228 www 1911: my $pagename=&escape($pagetitle);
1.142 raeburn 1912: my $pagepath;
1.174 albertel 1913: my $folderpath=$env{'form.folderpath'};
1.142 raeburn 1914: if ($folderpath) { $pagepath = $folderpath.'&' };
1915: $pagepath.=$pagearg.'&'.$pagename;
1.174 albertel 1916: my $symb=$env{'form.pagesymb'};
1.152 albertel 1917: if (!$symb) {
1918: my $path='uploaded/'.
1.174 albertel 1919: $env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.
1920: $env{'course.'.$env{'request.course.id'}.'.num'}.'/';
1.152 albertel 1921: $symb=&Apache::lonnet::encode_symb($path.$folder.'.sequence',
1922: $residx,
1923: $path.$pagearg.'.page');
1924: }
1.228 www 1925: $url.='pagepath='.&escape($pagepath).
1.282 albertel 1926: '&pagesymb='.&escape($symb).$cpinfo;
1.142 raeburn 1927: }
1.113 albertel 1928: $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.
1.282 albertel 1929: '" class="LC_icon" /></a></td>'.
1.241 www 1930: "<td bgcolor='#FFFFBB'>".($url?"<a href=\"$url\">":'').$title.
1931: ($url?'</a>':' <font size="-2">'.&mt('(re-initialize course to access)').'</font>')."</td>";
1.120 www 1932: if (($allowed) && ($folder!~/^supplemental/)) {
1933: my %lt=&Apache::lonlocal::texthash(
1934: 'hd' => 'Hidden',
1.165 www 1935: 'ec' => 'URL hidden');
1.122 www 1936: my $enctext=
1.245 albertel 1937: ((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i?' checked="1"':'');
1.122 www 1938: my $hidtext=
1.245 albertel 1939: ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i?' checked="1"':'');
1.120 www 1940: $line.=(<<ENDPARMS);
1941: <td bgcolor="#BBBBFF"><font size='-2'>
1.284 ! albertel 1942: <span class="LC_nobreak"><label><input type="checkbox" name="hidprs_$orderidx" onClick="this.form.changeparms.value='hiddenresource';this.form.submit()" $hidtext /> $lt{'hd'}</label></span></td>
1.149 albertel 1943: <td bgcolor="#BBBBFF"><font size='-2'>
1.284 ! albertel 1944: <span class="LC_nobreak"><label><input type="checkbox" name="encprs_$orderidx" onClick="this.form.changeparms.value='encrypturl';this.form.submit()" $enctext /> $lt{'ec'}</label></span></td>
1.120 www 1945: <td bgcolor="#BBBBFF"><font size="-2">$parameterset</font></td>
1946: ENDPARMS
1.119 www 1947: }
1.120 www 1948: $line.="</form></tr>";
1.8 www 1949: return $line;
1950: }
1951:
1.27 www 1952: # ---------------------------------------------------------------- tie the hash
1953:
1954: sub tiehash {
1.136 albertel 1955: my ($mode)=@_;
1.27 www 1956: $hashtied=0;
1.174 albertel 1957: if ($env{'request.course.fn'}) {
1.136 albertel 1958: if ($mode eq 'write') {
1.174 albertel 1959: if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.".db",
1.136 albertel 1960: &GDBM_WRCREAT(),0640)) {
1961: $hashtied=2;
1962: }
1963: } else {
1.174 albertel 1964: if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.".db",
1.136 albertel 1965: &GDBM_READER(),0640)) {
1.27 www 1966: $hashtied=1;
1.136 albertel 1967: }
1968: }
1.27 www 1969: }
1970: }
1971:
1972: sub untiehash {
1973: if ($hashtied) { untie %hash; }
1974: $hashtied=0;
1.221 albertel 1975: return OK;
1.27 www 1976: }
1977:
1.29 www 1978: # --------------------------------------------------------------- check on this
1979:
1980: sub checkonthis {
1981: my ($r,$url,$level,$title)=@_;
1.228 www 1982: $url=&unescape($url);
1.29 www 1983: $alreadyseen{$url}=1;
1984: $r->rflush();
1.41 www 1985: if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {
1.108 albertel 1986: $r->print("\n<br />");
1.29 www 1987: for (my $i=0;$i<=$level*5;$i++) {
1988: $r->print(' ');
1989: }
1990: $r->print('<a href="'.$url.'" target="cat">'.
1991: ($title?$title:$url).'</a> ');
1992: if ($url=~/^\/res\//) {
1993: my $result=&Apache::lonnet::repcopy(
1994: &Apache::lonnet::filelocation('',$url));
1.172 raeburn 1995: if ($result eq 'ok') {
1.87 www 1996: $r->print('<font color="green">'.&mt('ok').'</font>');
1.29 www 1997: $r->rflush();
1.34 www 1998: &Apache::lonnet::countacc($url);
1999: $url=~/\.(\w+)$/;
2000: if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
2001: $r->print('<br />');
2002: $r->rflush();
2003: for (my $i=0;$i<=$level*5;$i++) {
2004: $r->print(' ');
2005: }
1.84 www 2006: $r->print('- '.&mt('Rendering').': ');
1.170 www 2007: my ($errorcount,$warningcount)=split(/:/,
2008: &Apache::lonnet::ssi_body($url,
1.173 albertel 2009: ('grade_target'=>'web',
2010: 'return_only_error_and_warning_counts' => 1)));
1.170 www 2011: if (($errorcount) ||
2012: ($warningcount)) {
2013: if ($errorcount) {
1.283 albertel 2014: $r->print('<img src="/adm/lonMisc/bomb.gif" /><span class="LC_error">'.
1.170 www 2015: $errorcount.' '.
1.283 albertel 2016: &mt('error(s)').'</span> ');
1.34 www 2017: }
1.170 www 2018: if ($warningcount) {
1.283 albertel 2019: $r->print('<span class="LC_warning">'.
1.170 www 2020: $warningcount.' '.
1.283 albertel 2021: &mt('warning(s)').'</span>');
1.34 www 2022: }
2023: } else {
1.283 albertel 2024: $r->print('<span class="LC_success">'.&mt('ok').'</span>');
1.34 www 2025: }
2026: $r->rflush();
2027: }
1.29 www 2028: my $dependencies=
2029: &Apache::lonnet::metadata($url,'dependencies');
2030: foreach (split(/\,/,$dependencies)) {
2031: if (($_=~/^\/res\//) && (!$alreadyseen{$_})) {
2032: &checkonthis($r,$_,$level+1);
2033: }
2034: }
1.172 raeburn 2035: } elsif ($result eq 'unavailable') {
1.283 albertel 2036: $r->print('<span class="LC_error">'.&mt('connection down').'</span>');
1.172 raeburn 2037: } elsif ($result eq 'not_found') {
1.100 www 2038: unless ($url=~/\$/) {
1.283 albertel 2039: $r->print('<span class="LC_error">'.&mt('not found').'</b></font>');
1.100 www 2040: } else {
1.283 albertel 2041: $r->print('<span class="LC_unknown">'.&mt('unable to verify variable URL').'</span>');
1.100 www 2042: }
1.29 www 2043: } else {
1.283 albertel 2044: $r->print('<span class="LC_error">'.&mt('access denied').'</span>');
1.29 www 2045: }
2046: }
2047: }
2048: }
2049:
1.1 www 2050:
1.75 www 2051: #
1.208 albertel 2052: # ----------------------------------------------------------------- List Symbs
2053: #
2054: sub list_symbs {
1.224 albertel 2055: my ($r) = @_;
2056:
2057: $r->print(&Apache::loncommon::start_page('Symb List'));
1.257 www 2058: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List'));
1.224 albertel 2059: my $navmap = Apache::lonnavmaps::navmap->new();
2060: $r->print("<pre>\n");
2061: foreach my $res ($navmap->retrieveResources()) {
2062: $r->print($res->compTitle()."\t".$res->symb()."\n");
2063: }
2064: $r->print("\n</pre>\n");
2065: $r->print('<a href="/adm/coursedocs">'.&mt('Return to DOCS').'</a>');
1.208 albertel 2066: }
2067:
2068:
2069: #
1.75 www 2070: # -------------------------------------------------------------- Verify Content
2071: #
2072: sub verifycontent {
1.224 albertel 2073: my ($r) = @_;
1.230 albertel 2074: my $type = &Apache::loncommon::course_type();
1.26 www 2075: my $loaderror=&Apache::lonnet::overloaderror($r);
2076: if ($loaderror) { return $loaderror; }
1.229 raeburn 2077: $r->print(&Apache::loncommon::start_page('Verify '.$type.' Documents'));
1.257 www 2078: $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$type.' Documents'));
1.27 www 2079: $hashtied=0;
1.30 www 2080: undef %alreadyseen;
2081: %alreadyseen=();
1.27 www 2082: &tiehash();
2083: foreach (keys %hash) {
1.140 www 2084: if ($hash{$_}=~/\.(page|sequence)$/) {
1.228 www 2085: if (($_=~/^src_/) && ($alreadyseen{&unescape($hash{$_})})) {
1.283 albertel 2086: $r->print('<hr /><span class="LC_error">'.
1.230 albertel 2087: &mt('The following sequence or page is included more than once in your '.$type.': ').
1.283 albertel 2088: &unescape($hash{$_}).'</span><br />'.
1.140 www 2089: &mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />'));
2090: }
2091: }
1.228 www 2092: if (($_=~/^src\_(.+)$/) && (!$alreadyseen{&unescape($hash{$_})})) {
1.29 www 2093: &checkonthis($r,$hash{$_},0,$hash{'title_'.$1});
1.27 www 2094: }
2095: }
2096: &untiehash();
1.108 albertel 2097: $r->print('<h1>'.&mt('Done').'.</h1>'.'<a href="/adm/coursedocs">'.
2098: &mt('Return to DOCS').'</a>');
1.75 www 2099: }
2100:
1.192 www 2101:
1.75 www 2102: # -------------------------------------------------------------- Check Versions
2103:
1.192 www 2104: sub devalidateversioncache {
2105: my $src=shift;
2106: &Apache::lonnet::devalidate_cache_new('courseresversion',$env{'request.course.id'}.'_'.
2107: &Apache::lonnet::clutter($src));
2108: }
2109:
1.75 www 2110: sub checkversions {
1.224 albertel 2111: my ($r) = @_;
1.230 albertel 2112: my $type = &Apache::loncommon::course_type();
1.229 raeburn 2113: $r->print(&Apache::loncommon::start_page("Check $type Document Versions"));
1.257 www 2114: $r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $type Document Versions"));
1.89 www 2115: my $header='';
2116: my $startsel='';
2117: my $monthsel='';
2118: my $weeksel='';
2119: my $daysel='';
2120: my $allsel='';
2121: my %changes=();
2122: my $starttime=0;
1.91 www 2123: my $haschanged=0;
1.92 www 2124: my %setversions=&Apache::lonnet::dump('resourceversions',
1.174 albertel 2125: $env{'course.'.$env{'request.course.id'}.'.domain'},
2126: $env{'course.'.$env{'request.course.id'}.'.num'});
1.92 www 2127:
2128: $hashtied=0;
2129: &tiehash();
2130: my %newsetversions=();
1.174 albertel 2131: if ($env{'form.setmostrecent'}) {
1.91 www 2132: $haschanged=1;
1.92 www 2133: foreach (keys %hash) {
2134: if ($_=~/^ids\_(\/res\/.+)$/) {
1.93 www 2135: $newsetversions{$1}='mostrecent';
1.192 www 2136: &devalidateversioncache($1);
1.92 www 2137: }
2138: }
1.174 albertel 2139: } elsif ($env{'form.setcurrent'}) {
1.91 www 2140: $haschanged=1;
1.92 www 2141: foreach (keys %hash) {
2142: if ($_=~/^ids\_(\/res\/.+)$/) {
1.93 www 2143: my $getvers=&Apache::lonnet::getversion($1);
2144: if ($getvers>0) {
2145: $newsetversions{$1}=$getvers;
1.192 www 2146: &devalidateversioncache($1);
1.93 www 2147: }
1.92 www 2148: }
2149: }
1.174 albertel 2150: } elsif ($env{'form.setversions'}) {
1.91 www 2151: $haschanged=1;
1.174 albertel 2152: foreach (keys %env) {
1.92 www 2153: if ($_=~/^form\.set_version_(.+)$/) {
2154: my $src=$1;
1.174 albertel 2155: if (($env{$_}) && ($env{$_} ne $setversions{$src})) {
2156: $newsetversions{$src}=$env{$_};
1.192 www 2157: &devalidateversioncache($src);
1.92 www 2158: }
2159: }
2160: }
1.91 www 2161: }
2162: if ($haschanged) {
1.92 www 2163: if (&Apache::lonnet::put('resourceversions',\%newsetversions,
1.174 albertel 2164: $env{'course.'.$env{'request.course.id'}.'.domain'},
2165: $env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {
1.272 albertel 2166: $r->print('<h1>'.&mt('Your Version Settings have been Saved').'</h1>');
1.92 www 2167: } else {
1.283 albertel 2168: $r->print('<h1><span class="LC_error">'.&mt('An Error Occured while Attempting to Save your Version Settings').'</span></h1>');
1.92 www 2169: }
1.136 albertel 2170: &mark_hash_old();
1.91 www 2171: }
1.136 albertel 2172: &changewarning($r,'');
1.174 albertel 2173: if ($env{'form.timerange'} eq 'all') {
1.89 www 2174: # show all documents
1.230 albertel 2175: $header=&mt('All Documents in '.$type);
1.91 www 2176: $allsel=1;
1.90 www 2177: foreach (keys %hash) {
2178: if ($_=~/^ids\_(\/res\/.+)$/) {
2179: my $src=$1;
2180: $changes{$src}=1;
2181: }
2182: }
1.89 www 2183: } else {
2184: # show documents which changed
2185: %changes=&Apache::lonnet::dump
1.174 albertel 2186: ('versionupdate',$env{'course.'.$env{'request.course.id'}.'.domain'},
2187: $env{'course.'.$env{'request.course.id'}.'.num'});
1.89 www 2188: my $firstkey=(keys %changes)[0];
2189: unless ($firstkey=~/^error\:/) {
1.174 albertel 2190: unless ($env{'form.timerange'}) {
2191: $env{'form.timerange'}=604800;
1.89 www 2192: }
1.174 albertel 2193: my $seltext=&mt('during the last').' '.$env{'form.timerange'}.' '
1.89 www 2194: .&mt('seconds');
1.174 albertel 2195: if ($env{'form.timerange'}==-1) {
1.89 www 2196: $seltext='since start of course';
2197: $startsel='selected';
1.174 albertel 2198: $env{'form.timerange'}=time;
1.89 www 2199: }
1.174 albertel 2200: $starttime=time-$env{'form.timerange'};
2201: if ($env{'form.timerange'}==2592000) {
1.89 www 2202: $seltext=&mt('during the last month').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
2203: $monthsel='selected';
1.174 albertel 2204: } elsif ($env{'form.timerange'}==604800) {
1.89 www 2205: $seltext=&mt('during the last week').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
2206: $weeksel='selected';
1.174 albertel 2207: } elsif ($env{'form.timerange'}==86400) {
1.89 www 2208: $seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
2209: $daysel='selected';
2210: }
2211: $header=&mt('Content changed').' '.$seltext;
2212: } else {
2213: $header=&mt('No content modifications yet.');
2214: }
2215: }
1.92 www 2216: %setversions=&Apache::lonnet::dump('resourceversions',
1.174 albertel 2217: $env{'course.'.$env{'request.course.id'}.'.domain'},
2218: $env{'course.'.$env{'request.course.id'}.'.num'});
1.89 www 2219: my %lt=&Apache::lonlocal::texthash
1.229 raeburn 2220: ('st' => 'Version changes since start of '.$type,
1.88 www 2221: 'lm' => 'Version changes since last Month',
2222: 'lw' => 'Version changes since last Week',
2223: 'sy' => 'Version changes since Yesterday',
1.91 www 2224: 'al' => 'All Resources (possibly large output)',
1.88 www 2225: 'sd' => 'Display',
1.84 www 2226: 'fi' => 'File',
2227: 'md' => 'Modification Date',
1.87 www 2228: 'mr' => 'Most recently published Version',
1.229 raeburn 2229: 've' => 'Version used in '.$type,
2230: 'vu' => 'Set Version to be used in '.$type,
2231: 'sv' => 'Set Versions to be used in '.$type.' according to Selections below',
1.91 www 2232: 'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',
2233: 'sc' => 'Set all Resource Versions to current Version (Fix Versions)',
1.84 www 2234: 'di' => 'Differences');
1.89 www 2235: $r->print(<<ENDHEADERS);
1.31 www 2236: <form action="/adm/coursedocs" method="post">
1.91 www 2237: <input type="hidden" name="versions" value="1" />
2238: <input type="submit" name="setmostrecent" value="$lt{'sm'}" />
2239: <input type="submit" name="setcurrent" value="$lt{'sc'}" /><hr />
1.31 www 2240: <select name="timerange">
1.88 www 2241: <option value='all' $allsel>$lt{'al'}</option>
1.84 www 2242: <option value="-1" $startsel>$lt{'st'}</option>
2243: <option value="2592000" $monthsel>$lt{'lm'}</option>
2244: <option value="604800" $weeksel>$lt{'lw'}</option>
2245: <option value="86400" $daysel>$lt{'sy'}</option>
1.31 www 2246: </select>
1.91 www 2247: <input type="submit" name="display" value="$lt{'sd'}" />
1.89 www 2248: <h3>$header</h3>
1.91 www 2249: <input type="submit" name="setversions" value="$lt{'sv'}" />
1.103 matthew 2250: <table border="0">
1.31 www 2251: ENDHEADERS
1.91 www 2252: foreach (sort keys %changes) {
1.89 www 2253: if ($changes{$_}>$starttime) {
2254: my ($root,$extension)=($_=~/^(.*)\.(\w+)$/);
2255: my $currentversion=&Apache::lonnet::getversion($_);
1.93 www 2256: if ($currentversion<0) {
2257: $currentversion=&mt('Could not be determined.');
2258: }
1.89 www 2259: my $linkurl=&Apache::lonnet::clutter($_);
2260: $r->print(
1.103 matthew 2261: '<tr><td colspan="5"><br /><br /><font size="+1"><b>'.
1.91 www 2262: &Apache::lonnet::gettitle($linkurl).
1.103 matthew 2263: '</b></font></td></tr>'.
2264: '<tr><td> </td>'.
2265: '<td colspan="4">'.
2266: '<a href="'.$linkurl.'" target="cat">'.$linkurl.
2267: '</a></td></tr>'.
2268: '<tr><td></td>'.
2269: '<td title="'.$lt{'md'}.'">'.
1.102 matthew 2270: &Apache::lonlocal::locallocaltime(
2271: &Apache::lonnet::metadata($root.'.'.$extension,
2272: 'lastrevisiondate')
2273: ).
1.103 matthew 2274: '</td>'.
1.284 ! albertel 2275: '<td title="'.$lt{'mr'}.'"><span class="LC_nobreak">Most Recent: '.
1.103 matthew 2276: '<font size="+1">'.$currentversion.'</font>'.
1.284 ! albertel 2277: '</span></td>'.
! 2278: '<td title="'.$lt{'ve'}.'"><span class="LC_nobreak">In '.$type.': '.
1.103 matthew 2279: '<font size="+1">');
1.87 www 2280: # Used in course
1.89 www 2281: my $usedversion=$hash{'version_'.$linkurl};
1.93 www 2282: if (($usedversion) && ($usedversion ne 'mostrecent')) {
1.89 www 2283: $r->print($usedversion);
2284: } else {
2285: $r->print($currentversion);
2286: }
1.284 ! albertel 2287: $r->print('</font></span></td><td title="'.$lt{'vu'}.'">'.
! 2288: '<span class="LC_nobreak">Use: ');
1.87 www 2289: # Set version
1.92 www 2290: $r->print(&Apache::loncommon::select_form($setversions{$linkurl},
1.89 www 2291: 'set_version_'.$linkurl,
1.136 albertel 2292: ('select_form_order' =>
2293: ['',1..$currentversion,'mostrecent'],
2294: '' => '',
1.93 www 2295: 'mostrecent' => 'most recent',
1.89 www 2296: map {$_,$_} (1..$currentversion))));
1.284 ! albertel 2297: $r->print('</span></td></tr><tr><td></td>');
1.89 www 2298: my $lastold=1;
2299: for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
2300: my $url=$root.'.'.$prevvers.'.'.$extension;
2301: if (&Apache::lonnet::metadata($url,'lastrevisiondate')<
2302: $starttime) {
2303: $lastold=$prevvers;
2304: }
2305: }
1.103 matthew 2306: #
2307: # Code to figure out how many version entries should go in
2308: # each of the four columns
2309: my $entries_per_col = 0;
2310: my $num_entries = ($currentversion-$lastold);
2311: if ($num_entries % 4 == 0) {
2312: $entries_per_col = $num_entries/4;
2313: } else {
2314: $entries_per_col = $num_entries/4 + 1;
2315: }
2316: my $entries_count = 0;
2317: $r->print('<td valign="top"><font size="-2">');
2318: my $cols_output = 1;
1.32 www 2319: for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
1.89 www 2320: my $url=$root.'.'.$prevvers.'.'.$extension;
1.284 ! albertel 2321: $r->print('<span class="LC_nobreak"><a href="'.&Apache::lonnet::clutter($url).
1.91 www 2322: '">'.&mt('Version').' '.$prevvers.'</a> ('.
1.103 matthew 2323: &Apache::lonlocal::locallocaltime(
2324: &Apache::lonnet::metadata($url,
2325: 'lastrevisiondate')
2326: ).
1.91 www 2327: ')');
1.89 www 2328: if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
1.33 www 2329: $r->print(' <a href="/adm/diff?filename='.
1.89 www 2330: &Apache::lonnet::clutter($root.'.'.$extension).
2331: '&versionone='.$prevvers.
2332: '">'.&mt('Diffs').'</a>');
2333: }
1.284 ! albertel 2334: $r->print('</span><br />');
1.103 matthew 2335: if (++$entries_count % $entries_per_col == 0) {
2336: $r->print('</font></td>');
2337: if ($cols_output != 4) {
2338: $r->print('<td valign="top"><font size="-2">');
2339: $cols_output++;
2340: }
2341: }
1.89 www 2342: }
1.103 matthew 2343: while($cols_output++ < 4) {
2344: $r->print('</font></td><td><font>')
2345: }
2346: $r->print('</font></td></tr>'."\n");
1.89 www 2347: }
2348: }
1.92 www 2349: $r->print('</table></form>');
1.89 www 2350: $r->print('<h1>'.&mt('Done').'.</h1>');
2351:
2352: &untiehash();
1.75 www 2353: }
2354:
1.136 albertel 2355: sub mark_hash_old {
2356: my $retie_hash=0;
2357: if ($hashtied) {
2358: $retie_hash=1;
2359: &untiehash();
2360: }
2361: &tiehash('write');
2362: $hash{'old'}=1;
2363: &untiehash();
2364: if ($retie_hash) { &tiehash(); }
2365: }
2366:
2367: sub is_hash_old {
2368: my $untie_hash=0;
2369: if (!$hashtied) {
2370: $untie_hash=1;
2371: &tiehash();
2372: }
2373: my $return=$hash{'old'};
2374: if ($untie_hash) { &untiehash(); }
2375: return $return;
2376: }
2377:
1.91 www 2378: sub changewarning {
1.177 albertel 2379: my ($r,$postexec,$message,$url)=@_;
1.136 albertel 2380: if (!&is_hash_old()) { return; }
1.150 albertel 2381: my $pathvar='folderpath';
1.228 www 2382: my $path=&escape($env{'form.folderpath'});
1.177 albertel 2383: if (!defined($url)) {
2384: if (defined($env{'form.pagepath'})) {
2385: $pathvar='pagepath';
1.228 www 2386: $path=&escape($env{'form.pagepath'});
2387: $path.='&pagesymb='.&escape($env{'form.pagesymb'});
1.177 albertel 2388: }
2389: $url='/adm/coursedocs?'.$pathvar.'='.$path;
2390: }
1.230 albertel 2391: my $course_type = &Apache::loncommon::course_type();
1.177 albertel 2392: if (!defined($message)) {
2393: $message='Changes will become active for your current session after [_1], or the next time you log in.';
1.150 albertel 2394: }
1.185 www 2395: $r->print("\n\n".
2396: '<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'."\n".
2397: '<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.
1.177 albertel 2398: '<input type="hidden" name="orgurl" value="'.$url.
1.283 albertel 2399: '" /><input type="hidden" name="selectrole" value="1" /><h3><span class="LC_warning">'.
1.177 albertel 2400: &mt($message,' <input type="hidden" name="'.
2401: $env{'request.role'}.'" value="1" /><input type="button" value="'.
1.230 albertel 2402: &mt('re-initializing '.$course_type).'" onClick="reinit(this.form)" />').
1.283 albertel 2403: $help{'Caching'}.'</span></h3></form>'."\n\n");
1.91 www 2404: }
2405:
1.257 www 2406: # =========================================== Breadcrumbs for special functions
2407:
2408: sub init_breadcrumbs {
2409: my ($form,$text)=@_;
2410: &Apache::lonhtmlcommon::clear_breadcrumbs();
2411: &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs",
2412: text=>&Apache::loncommon::course_type()." Documents",
2413: faq=>273,
2414: bug=>'Instructor Interface',
2415: help => 'Docs_Adding_Course_Doc'});
2416: &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?".$form.'=1',
2417: text=>$text,
2418: faq=>273,
2419: bug=>'Instructor Interface'});
2420: }
2421:
1.75 www 2422: # ================================================================ Main Handler
2423: sub handler {
2424: my $r = shift;
1.82 www 2425: &Apache::loncommon::content_type($r,'text/html');
1.75 www 2426: $r->send_http_header;
2427: return OK if $r->header_only;
1.230 albertel 2428: my $type = &Apache::loncommon::course_type();
1.75 www 2429:
2430: # --------------------------------------------- Initialize help topics for this
1.209 albertel 2431: foreach ('Adding_Course_Doc','Main_Course_Documents',
2432: 'Adding_External_Resource','Navigate_Content',
2433: 'Adding_Folders','Docs_Overview', 'Load_Map',
2434: 'Supplemental','Score_Upload_Form','Adding_Pages',
2435: 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive',
2436: 'Check_Resource_Versions','Verify_Content') {
2437: $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
2438: }
1.75 www 2439: # Composite help files
2440: $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
2441: 'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
2442: $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
2443: 'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
1.86 albertel 2444: $help{'Simple Problem'} = &Apache::loncommon::help_open_topic(
2445: 'Option_Response_Simple');
1.75 www 2446: $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
2447: 'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
2448: $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
2449: 'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
1.255 raeburn 2450: $help{'Group Files'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');
1.75 www 2451: $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
1.142 raeburn 2452:
1.209 albertel 2453: # does this user have privileges to modify docs
2454: my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
2455: if ($allowed && $env{'form.verify'}) {
1.257 www 2456: &init_breadcrumbs('verify','Verify Content');
1.75 www 2457: &verifycontent($r);
1.209 albertel 2458: } elsif ($allowed && $env{'form.listsymbs'}) {
1.257 www 2459: &init_breadcrumbs('listsymbs','List Symbs');
1.208 albertel 2460: &list_symbs($r);
1.247 www 2461: } elsif ($allowed && $env{'form.docslog'}) {
1.257 www 2462: &init_breadcrumbs('docslog','Show Log');
1.247 www 2463: &docs_change_log($r);
1.209 albertel 2464: } elsif ($allowed && $env{'form.versions'}) {
1.257 www 2465: &init_breadcrumbs('versions','Check/Set Resource Versions');
1.75 www 2466: &checkversions($r);
1.209 albertel 2467: } elsif ($allowed && $env{'form.dumpcourse'}) {
1.257 www 2468: &init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' DOCS to Construction Space');
1.75 www 2469: &dumpcourse($r);
1.209 albertel 2470: } elsif ($allowed && $env{'form.exportcourse'}) {
1.257 www 2471: &init_breadcrumbs('exportcourse','Export '.&Apache::loncommon::course_type().' to IMS');
1.138 raeburn 2472: &exportcourse($r);
1.26 www 2473: } else {
1.7 www 2474: # is this a standard course?
2475:
1.174 albertel 2476: my $standard=($env{'request.course.uri'}=~/^\/uploaded\//);
1.155 raeburn 2477: my $forcestandard = 0;
1.15 www 2478: my $forcesupplement;
2479: my $script='';
1.19 www 2480: my $showdoc=0;
1.142 raeburn 2481: my $containertag;
2482: my $uploadtag;
1.15 www 2483: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.224 albertel 2484: ['folderpath','pagepath',
1.281 albertel 2485: 'pagesymb']);
1.174 albertel 2486: if ($env{'form.folderpath'}) {
2487: my (@folderpath)=split('&',$env{'form.folderpath'});
1.228 www 2488: $env{'form.foldername'}=&unescape(pop(@folderpath));
1.174 albertel 2489: $env{'form.folder'}=pop(@folderpath);
2490: }
2491: if ($env{'form.pagepath'}) {
2492: my (@pagepath)=split('&',$env{'form.pagepath'});
1.228 www 2493: $env{'form.pagename'}=&unescape(pop(@pagepath));
1.174 albertel 2494: $env{'form.folder'}=pop(@pagepath);
1.156 albertel 2495: $containertag = '<input type="hidden" name="pagepath" value="" />'.
2496: '<input type="hidden" name="pagesymb" value="" />';
1.282 albertel 2497: $uploadtag = '<input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />'.
2498: '<input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />';
1.142 raeburn 2499: }
1.21 www 2500: if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
1.127 albertel 2501: $showdoc='/'.$1;
1.21 www 2502: }
2503: unless ($showdoc) { # got called from remote
1.237 albertel 2504: if (($env{'form.folder'}=~/^(?:group|default)_/) ||
1.209 albertel 2505: ($env{'form.folder'} =~ m:^\d+/(pages|sequences)/:)) {
1.155 raeburn 2506: $forcestandard = 1;
2507: }
1.174 albertel 2508: $forcesupplement=($env{'form.folder'}=~/^supplemental_/);
1.7 www 2509:
1.15 www 2510: if ($allowed) {
2511: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
2512: $script=&Apache::lonratedt::editscript('simple');
2513: }
2514: } else { # got called in sequence from course
2515: $allowed=0;
1.3 www 2516: }
1.4 www 2517:
2518: # get course data
1.174 albertel 2519: my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};
2520: my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};
1.4 www 2521:
1.225 albertel 2522: # get personal data
1.174 albertel 2523: my $uname=$env{'user.name'};
2524: my $udom=$env{'user.domain'};
1.245 albertel 2525: my $plainname=&escape(&Apache::loncommon::plainname($uname,$udom));
1.14 www 2526:
1.8 www 2527: # graphics settings
1.4 www 2528:
1.176 albertel 2529: $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/");
1.8 www 2530:
1.224 albertel 2531: if ($allowed) {
2532: $script .= &editing_js($udom,$uname);
1.171 www 2533: }
1.42 www 2534: # -------------------------------------------------------------------- Body tag
1.224 albertel 2535: $script = '<script type="text/javascript">'."\n".$script."\n".'</script>';
1.229 raeburn 2536: $r->print(&Apache::loncommon::start_page("$type Documents", $script,
1.225 albertel 2537: {'force_register' => $showdoc,}).
1.233 albertel 2538: &Apache::loncommon::help_open_menu('','',273,'RAT'));
1.224 albertel 2539:
1.188 raeburn 2540: my %allfiles = ();
2541: my %codebase = ();
2542: my ($upload_result,$upload_output);
2543: if ($allowed) {
1.264 albertel 2544: if (($env{'form.uploaddoc.filename'}) &&
2545: ($env{'form.cmd'}=~/^upload_(\w+)/)) {
1.188 raeburn 2546: # Process file upload - phase one - upload and parse primary file.
1.190 albertel 2547: $upload_result = &process_file_upload(\$upload_output,$coursenum,
2548: $coursedom,\%allfiles,
1.194 raeburn 2549: \%codebase,$1);
1.188 raeburn 2550: if ($upload_result eq 'phasetwo') {
2551: $r->print($upload_output);
2552: }
2553: } elsif ($env{'form.phasetwo'}) {
2554: my %newname = ();
2555: my %origname = ();
2556: my %attribs = ();
2557: my $updateflag = 0;
2558: my $residx = $env{'form.newidx'};
1.228 www 2559: my $primary_url = &unescape($env{'form.primaryurl'});
1.188 raeburn 2560: # Process file upload - phase two - gather secondary files.
2561: for (my $i=0; $i<$env{'form.phasetwo'}; $i++) {
2562: if ($env{'form.embedded_item_'.$i.'.filename'}) {
2563: my $javacodebase;
2564: $newname{$i} = &process_secondary_uploads(\$upload_output,$coursedom,$coursenum,'embedded_item_',$i,$residx);
1.228 www 2565: $origname{$i} = &unescape($env{'form.embedded_orig_'.$i});
1.188 raeburn 2566: if (exists($env{'form.embedded_codebase_'.$i})) {
1.228 www 2567: $javacodebase = &unescape($env{'form.embedded_codebase_'.$i});
1.188 raeburn 2568: $origname{$i} =~ s#^\Q$javacodebase\E/##;
2569: }
2570: my @attributes = ();
2571: if ($env{'form.embedded_attrib_'.$i} =~ /:/) {
2572: @attributes = split/:/,$env{'form.embedded_attrib_'.$i};
2573: } else {
2574: @attributes = ($env{'form.embedded_attrib_'.$i});
2575: }
2576: foreach (@attributes) {
1.228 www 2577: push(@{$attribs{$i}},&unescape($_));
1.188 raeburn 2578: }
2579: if ($javacodebase) {
2580: $codebase{$i} = $javacodebase;
2581: $codebase{$i} =~ s#/$##;
2582: $updateflag = 1;
2583: }
2584: }
2585: unless ($newname{$i} eq $origname{$i}) {
2586: $updateflag = 1;
2587: }
2588: }
2589: # Process file upload - phase three - modify primary file
2590: if ($updateflag) {
2591: my ($content,$rtncode);
2592: my $updateflag = 0;
2593: my $getstatus = &Apache::lonnet::getuploaded('GET',$primary_url,$coursedom,$coursenum,\$content,\$rtncode);
2594: if ($getstatus eq 'ok') {
2595: foreach my $item (keys %newname) {
2596: if ($newname{$item} ne $origname{$item}) {
2597: my $attrib_regexp = '';
2598: if (@{$attribs{$item}} > 1) {
2599: $attrib_regexp = join('|',@{$attribs{$item}});
2600: } else {
2601: $attrib_regexp = $attribs{$item}[0];
2602: }
2603: if ($content =~ m#($attrib_regexp\s*=\s*['"]?)\Q$origname{$item}\E(['"]?)#) {
2604: }
2605: $content =~ s#($attrib_regexp\s*=\s*['"]?)\Q$origname{$item}\E(['"]?)#$1$newname{$item}$2#gi;
2606: }
2607: if (exists($codebase{$item})) {
1.224 albertel 2608: $content =~ s/(codebase\s*=\s*["']?)\Q$codebase{$item}\E(["']?)/$1.$2/i; #' stupid emacs
1.188 raeburn 2609: }
2610: }
2611: # Save edited file.
2612: my $saveresult;
2613: my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
2614: my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
1.191 raeburn 2615: my $url = &Apache::lonnet::store_edited_file($primary_url,$content,$docudom,$docuname,\$saveresult);
1.188 raeburn 2616: } else {
2617: &Apache::lonnet::logthis('retrieval of uploaded file - '.$primary_url.' - for editing, failed: '.$getstatus);
2618: }
2619: }
2620: }
2621: }
2622:
2623: unless ($showdoc || $upload_result eq 'phasetwo') {
1.81 www 2624: # -----------------------------------------------------------------------------
2625: my %lt=&Apache::lonlocal::texthash(
1.229 raeburn 2626: 'uplm' => 'Upload a new main '.lc($type).' document',
2627: 'upls' => 'Upload a new supplemental '.lc($type).' document',
1.168 www 2628: 'impp' => 'Import a document',
2629: 'pubd' => 'Published documents',
1.181 www 2630: 'copm' => 'All documents out of a published map into this folder',
1.81 www 2631: 'spec' => 'Special documents',
2632: 'upld' => 'Upload Document',
2633: 'srch' => 'Search',
2634: 'impo' => 'Import',
1.232 www 2635: 'book' => 'Import Bookmarks',
1.81 www 2636: 'selm' => 'Select Map',
2637: 'load' => 'Load Map',
1.186 www 2638: 'reco' => 'Recover Deleted Resources',
1.81 www 2639: 'newf' => 'New Folder',
1.142 raeburn 2640: 'newp' => 'New Composite Page',
1.81 www 2641: 'extr' => 'External Resource',
2642: 'syll' => 'Syllabus',
2643: 'navc' => 'Navigate Contents',
2644: 'sipa' => 'Simple Page',
2645: 'sipr' => 'Simple Problem',
1.219 www 2646: 'drbx' => 'Drop Box',
1.81 www 2647: 'scuf' => 'Score Upload Form',
2648: 'bull' => 'Bulletin Board',
1.96 sakharuk 2649: 'mypi' => 'My Personal Info',
1.255 raeburn 2650: 'grpo' => 'Group Files',
1.101 www 2651: 'abou' => 'About User',
1.110 raeburn 2652: 'imsf' => 'Import IMS package',
1.96 sakharuk 2653: 'file' => 'File',
2654: 'title' => 'Title',
1.188 raeburn 2655: 'comment' => 'Comment',
2656: 'parse' => 'If HTML file, upload embedded images/multimedia files'
1.81 www 2657: );
2658: # -----------------------------------------------------------------------------
1.42 www 2659: if ($allowed) {
1.281 albertel 2660: &update_paste_buffer($coursenum,$coursedom);
1.74 www 2661: my $dumpbut=&dumpbutton();
1.138 raeburn 2662: my $exportbut=&exportbutton();
1.88 www 2663: my %lt=&Apache::lonlocal::texthash(
2664: 'vc' => 'Verify Content',
2665: 'cv' => 'Check/Set Resource Versions',
1.208 albertel 2666: 'ls' => 'List Symbs',
1.247 www 2667: 'sl' => 'Show Log'
1.88 www 2668: );
1.118 albertel 2669:
1.174 albertel 2670: my $folderpath=$env{'form.folderpath'};
1.118 albertel 2671: if (!$folderpath) {
1.174 albertel 2672: if ($env{'form.folder'} eq '' ||
2673: $env{'form.folder'} eq 'supplemental') {
1.118 albertel 2674: $folderpath='default&'.
1.230 albertel 2675: &escape(&mt('Main '.$type.' Documents'));
1.118 albertel 2676: }
2677: }
1.174 albertel 2678: unless ($env{'form.pagepath'}) {
1.142 raeburn 2679: $containertag = '<input type="hidden" name="folderpath" value="" />';
1.282 albertel 2680: $uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
1.142 raeburn 2681: }
2682:
1.42 www 2683: $r->print(<<ENDCOURSEVERIFY);
1.36 www 2684: <form name="renameform" method="post" action="/adm/coursedocs">
1.283 albertel 2685: <input type="hidden" name="title" />
2686: <input type="hidden" name="cmd" />
2687: <input type="hidden" name="markcopy" />
2688: <input type="hidden" name="copyfolder" />
2689: $containertag
1.36 www 2690: </form>
1.39 www 2691: <form name="simpleedit" method="post" action="/adm/coursedocs">
1.283 albertel 2692: <input type="hidden" name="importdetail" value="" />
2693: $uploadtag
1.39 www 2694: </form>
1.26 www 2695: <form action="/adm/coursedocs" method="post" name="courseverify">
1.283 albertel 2696: <div class="LC_docs_course_commands">
2697:
2698: <div>
2699: <input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}
2700: </div>
2701: <div>
2702: <input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}
2703: </div>
2704: $dumpbut
2705: $exportbut
2706: <div>
2707: <input type="submit" name="listsymbs" value="$lt{'ls'}" />
2708: </div>
2709: <div>
2710: <input type="hidden" name="folder" value="$env{'form.folder'}" />
2711: <input type="submit" name="docslog" value="$lt{'sl'}" />
2712: </div>
2713: </div>
1.25 www 2714: </form>
1.283 albertel 2715: <div style="clear: both; height: 0px;"> </div>
1.25 www 2716: ENDCOURSEVERIFY
1.74 www 2717: $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
1.230 albertel 2718: &mt('Editing the Table of Contents for your '.$type)));
1.25 www 2719: }
1.17 www 2720: # --------------------------------------------------------- Standard documents
1.43 www 2721: $r->print('<table border=2 cellspacing=4 cellpadding=4>');
1.7 www 2722: if (($standard) && ($allowed) && (!$forcesupplement)) {
1.116 albertel 2723: $r->print('<tr><td bgcolor="#BBBBBB">');
2724: # '<h2>'.&mt('Main Course Documents').
2725: # ($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');
1.174 albertel 2726: my $folder=$env{'form.folder'};
1.117 albertel 2727: if ($folder eq '' || $folder eq 'supplemental') {
1.112 raeburn 2728: $folder='default';
1.230 albertel 2729: $env{'form.folderpath'}='default&'.&escape(&mt('Main '.$type.' Documents'));
1.112 raeburn 2730: }
1.51 www 2731: my $postexec='';
2732: if ($folder eq 'default') {
2733: $r->print('<script>this.window.name="loncapaclient";</script>');
2734: } else {
1.117 albertel 2735: #$postexec='self.close();';
1.51 www 2736: }
1.40 www 2737: $hadchanges=0;
1.188 raeburn 2738: &editor($r,$coursenum,$coursedom,$folder,$allowed,$upload_output);
1.40 www 2739: if ($hadchanges) {
1.136 albertel 2740: &mark_hash_old()
1.40 www 2741: }
1.136 albertel 2742: &changewarning($r,$postexec);
1.16 www 2743: my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
2744: '.sequence';
1.142 raeburn 2745: my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
2746: '.page';
1.186 www 2747: my $container='sequence';
2748: if ($env{'form.pagepath'}) {
2749: $container='page';
2750: }
2751: my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;
1.8 www 2752: $r->print(<<ENDFORM);
1.43 www 2753: <table cellspacing=4 cellpadding=4><tr>
1.81 www 2754: <th bgcolor="#DDDDDD">$lt{'uplm'}</th>
2755: <th bgcolor="#DDDDDD">$lt{'impp'}</th>
2756: <th bgcolor="#DDDDDD">$lt{'spec'}</th>
1.11 www 2757: </tr>
1.16 www 2758: <tr><td bgcolor="#DDDDDD">
1.96 sakharuk 2759: $lt{'file'}:<br />
1.182 albertel 2760: <form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">
1.59 www 2761: <input type="file" name="uploaddoc" size="40">
1.8 www 2762: <br />
1.96 sakharuk 2763: $lt{'title'}:<br />
1.11 www 2764: <input type="text" size="50" name="comment">
1.142 raeburn 2765: $uploadtag
1.10 www 2766: <input type="hidden" name="cmd" value="upload_default">
1.188 raeburn 2767: <br />
1.284 ! albertel 2768: <span class="LC_nobreak">
1.190 albertel 2769: <label>$lt{'parse'}?
1.188 raeburn 2770: <input type="checkbox" name="parserflag" />
1.190 albertel 2771: </label>
1.284 ! albertel 2772: </span>
1.188 raeburn 2773: <br />
2774: <br />
1.284 ! albertel 2775: <span class="LC_nobreak">
1.81 www 2776: <input type="submit" value="$lt{'upld'}">
1.60 albertel 2777: $help{'Uploading_From_Harddrive'}
1.284 ! albertel 2778: </span>
1.60 albertel 2779: </form>
1.11 www 2780: </td>
1.16 www 2781: <td bgcolor="#DDDDDD">
1.39 www 2782: <form action="/adm/coursedocs" method="post" name="simpleeditdefault">
1.168 www 2783: $lt{'pubd'}<br />
1.142 raeburn 2784: $uploadtag
1.232 www 2785: <input type=button onClick="javascript:groupsearch()" value="$lt{'srch'}" />
2786: <br />
1.284 ! albertel 2787: <span class="LC_nobreak">
1.232 www 2788: <input type=button onClick="javascript:groupimport();" value="$lt{'impo'}" />
1.58 albertel 2789: $help{'Importing_LON-CAPA_Resource'}
1.284 ! albertel 2790: </span>
1.232 www 2791: <br />
2792: <input type=button onClick="javascript:groupopen(0,1,1);" value="$lt{'book'}" />
1.59 www 2793: <p>
2794: <hr />
1.181 www 2795: $lt{'copm'}<br />
1.282 albertel 2796: <input type="text" size="40" name="importmap" /><br />
1.284 ! albertel 2797: <span class="LC_nobreak"><input type=button
1.52 www 2798: onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
1.282 albertel 2799: value="$lt{'selm'}" /> <input type="submit" name="loadmap" value="$lt{'load'}" />
1.284 ! albertel 2800: $help{'Load_Map'}</span>
1.59 www 2801: </p>
1.52 www 2802: </form>
1.186 www 2803: <hr />
2804: <form action="/adm/groupsort" method="post" name="recover">
1.232 www 2805: <input type="button" name="recovermap" onClick="javascript:groupopen('$readfile',1,0)" value="$lt{'reco'}" />
1.186 www 2806: </form>
1.142 raeburn 2807: ENDFORM
1.174 albertel 2808: unless ($env{'form.pagepath'}) {
1.168 www 2809: $r->print(<<ENDFORM);
2810: <hr />
2811: <form action="/adm/coursedocs" method="post" name="newext">
2812: $uploadtag
1.256 albertel 2813: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2814: <span class="LC_nobreak">
1.168 www 2815: <input name="newext" type="button" onClick="javascript:makenewext('newext');"
2816: value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
1.284 ! albertel 2817: </span>
1.168 www 2818: </form>
1.214 www 2819: <br /><form action="/adm/imsimportdocs" method="post" name="ims">
1.168 www 2820: <input type="hidden" name="folder" value="$folder" />
2821: <input name="imsimport" type="button" value="$lt{'imsf'}" onClick="javascript:makeims();" />
2822: </form>
2823: ENDFORM
2824: }
2825: $r->print('</td><td bgcolor="#DDDDDD">');
1.174 albertel 2826: unless ($env{'form.pagepath'}) {
1.282 albertel 2827: my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
1.142 raeburn 2828: $r->print(<<ENDFORM);
1.214 www 2829: <br /><form action="/adm/coursedocs" method="post" name="newfolder">
1.282 albertel 2830: <input type="hidden" name="folderpath" value="$path" />
1.256 albertel 2831: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2832: <span class="LC_nobreak">
1.16 www 2833: <input name="newfolder" type="button"
2834: onClick="javascript:makenewfolder(this.form,'$folderseq');"
1.81 www 2835: value="$lt{'newf'}" />$help{'Adding_Folders'}
1.284 ! albertel 2836: </span>
1.11 www 2837: </form>
1.214 www 2838: <br /><form action="/adm/coursedocs" method="post" name="newpage">
1.282 albertel 2839: <input type="hidden" name="folderpath" value="$path" />
1.256 albertel 2840: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2841: <span class="LC_nobreak">
1.142 raeburn 2842: <input name="newpage" type="button"
2843: onClick="javascript:makenewpage(this.form,'$pageseq');"
2844: value="$lt{'newp'}" />$help{'Adding_Pages'}
1.284 ! albertel 2845: </span>
1.142 raeburn 2846: </form>
1.214 www 2847: <br /><form action="/adm/coursedocs" method="post" name="newsyl">
1.142 raeburn 2848: $uploadtag
1.256 albertel 2849: <input type="hidden" name="importdetail"
2850: value="Syllabus=/public/$coursedom/$coursenum/syllabus" />
1.284 ! albertel 2851: <span class="LC_nobreak">
1.81 www 2852: <input name="newsyl" type="submit" value="$lt{'syll'}" />
1.65 bowersj2 2853: $help{'Syllabus'}
1.284 ! albertel 2854: </span>
1.58 albertel 2855: </form>
1.214 www 2856: <br /><form action="/adm/coursedocs" method="post" name="newnav">
1.142 raeburn 2857: $uploadtag
1.256 albertel 2858: <input type="hidden" name="importdetail"
2859: value="Navigate Content=/adm/navmaps" />
1.284 ! albertel 2860: <span class="LC_nobreak">
1.81 www 2861: <input name="newnav" type="submit" value="$lt{'navc'}" />
1.47 www 2862: $help{'Navigate_Content'}
1.284 ! albertel 2863: </span>
1.22 www 2864: </form>
1.214 www 2865: <br /><form action="/adm/coursedocs" method="post" name="newsmppg">
1.142 raeburn 2866: $uploadtag
1.256 albertel 2867: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2868: <span class="LC_nobreak">
1.81 www 2869: <input name="newsmppg" type="button" value="$lt{'sipa'}"
1.65 bowersj2 2870: onClick="javascript:makesmppage();" /> $help{'Simple Page'}
1.284 ! albertel 2871: </span>
1.55 www 2872: </form>
1.214 www 2873: <br /><form action="/adm/coursedocs" method="post" name="newsmpproblem">
1.142 raeburn 2874: $uploadtag
1.256 albertel 2875: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2876: <span class="LC_nobreak">
1.81 www 2877: <input name="newsmpproblem" type="button" value="$lt{'sipr'}"
1.65 bowersj2 2878: onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}
1.284 ! albertel 2879: </span>
1.62 www 2880: </form>
1.219 www 2881: <br /><form action="/adm/coursedocs" method="post" name="newdropbox">
2882: $uploadtag
1.256 albertel 2883: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2884: <span class="LC_nobreak">
1.219 www 2885: <input name="newdropbox" type="button" value="$lt{'drbx'}"
2886: onClick="javascript:makedropbox();" />
1.284 ! albertel 2887: </span>
1.219 www 2888: </form>
1.214 www 2889: <br /><form action="/adm/coursedocs" method="post" name="newexamupload">
1.142 raeburn 2890: $uploadtag
1.256 albertel 2891: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2892: <span class="LC_nobreak">
1.81 www 2893: <input name="newexamupload" type="button" value="$lt{'scuf'}"
1.62 www 2894: onClick="javascript:makeexamupload();" />
1.66 bowersj2 2895: $help{'Score_Upload_Form'}
1.284 ! albertel 2896: </span>
1.22 www 2897: </form>
1.214 www 2898: <br /><form action="/adm/coursedocs" method="post" name="newbul">
1.142 raeburn 2899: $uploadtag
1.256 albertel 2900: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2901: <span class="LC_nobreak">
1.81 www 2902: <input name="newbulletin" type="button" value="$lt{'bull'}"
1.22 www 2903: onClick="javascript:makebulboard();" />
1.65 bowersj2 2904: $help{'Bulletin Board'}
1.284 ! albertel 2905: </span>
1.58 albertel 2906: </form>
1.214 www 2907: <br /><form action="/adm/coursedocs" method="post" name="newaboutme">
1.142 raeburn 2908: $uploadtag
1.256 albertel 2909: <input type="hidden" name="importdetail"
2910: value="$plainname=/adm/$udom/$uname/aboutme" />
1.284 ! albertel 2911: <span class="LC_nobreak">
1.81 www 2912: <input name="newaboutme" type="submit" value="$lt{'mypi'}" />
1.65 bowersj2 2913: $help{'My Personal Info'}
1.284 ! albertel 2914: </span>
1.101 www 2915: </form>
1.214 www 2916: <br /><form action="/adm/coursedocs" method="post" name="newaboutsomeone">
1.142 raeburn 2917: $uploadtag
1.256 albertel 2918: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2919: <span class="LC_nobreak">
1.101 www 2920: <input name="newaboutsomeone" type="button" value="$lt{'abou'}"
2921: onClick="javascript:makeabout();" />
1.284 ! albertel 2922: </span>
1.182 albertel 2923: </form>
1.255 raeburn 2924: <br /><form action="/adm/coursedocs" method="post" name="newgroupfiles">
2925: $uploadtag
1.256 albertel 2926: <input type="hidden" name="importdetail"
2927: value="Group Files=/adm/$coursedom/$coursenum/aboutme" />
1.284 ! albertel 2928: <span class="LC_nobreak">
1.255 raeburn 2929: <input name="newgroupfiles" type="submit" value="$lt{'grpo'}" />
2930: $help{'Group Files'}
1.284 ! albertel 2931: </span>
1.255 raeburn 2932: </form>
1.142 raeburn 2933: ENDFORM
2934: }
1.174 albertel 2935: if ($env{'form.pagepath'}) {
1.142 raeburn 2936: $r->print(<<ENDBLOCK);
2937: <form action="/adm/coursedocs" method="post" name="newsmpproblem">
2938: $uploadtag
1.256 albertel 2939: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2940: <span class="LC_nobreak">
1.142 raeburn 2941: <input name="newsmpproblem" type="button" value="$lt{'sipr'}"
2942: onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}
1.284 ! albertel 2943: </span>
1.142 raeburn 2944: </form>
1.214 www 2945: <br /><form action="/adm/coursedocs" method="post" name="newexamupload">
1.142 raeburn 2946: $uploadtag
1.256 albertel 2947: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 2948: <span class="LC_nobreak">
1.142 raeburn 2949: <input name="newexamupload" type="button" value="$lt{'scuf'}"
2950: onClick="javascript:makeexamupload();" />
2951: $help{'Score_Upload_Form'}
1.284 ! albertel 2952: </span>
1.182 albertel 2953: </form>
1.142 raeburn 2954: ENDBLOCK
2955: }
2956: $r->print('</td></tr>'."\n".
2957: '</table>');
1.24 www 2958: $r->print('</td></tr>');
1.7 www 2959: }
2960: # ----------------------------------------------------- Supplemental documents
2961: if (!$forcestandard) {
1.116 albertel 2962: $r->print('<tr><td bgcolor="#BBBBBB">');
2963: # '<h2>'.&mt('Supplemental Course Documents').
2964: # ($allowed?' '.$help{'Supplemental'}:'').'</h2>');
1.174 albertel 2965: my $folder=$env{'form.folder'};
1.117 albertel 2966: unless ($folder=~/^supplemental/) {
1.116 albertel 2967: $folder='supplemental';
1.117 albertel 2968: }
2969: if ($folder =~ /^supplemental$/ &&
1.174 albertel 2970: $env{'form.folderpath'} =~ /^default\&/) {
2971: $env{'form.folderpath'}='supplemental&'.
1.230 albertel 2972: &escape(&mt('Supplemental '.$type.' Documents'));
1.116 albertel 2973: }
1.7 www 2974: &editor($r,$coursenum,$coursedom,$folder,$allowed);
1.8 www 2975: if ($allowed) {
1.282 albertel 2976: my $folderseq=
2977: '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_'.time.
2978: '.sequence';
1.17 www 2979:
1.282 albertel 2980: my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
2981: $r->print(<<ENDSUPFORM);
1.43 www 2982: <table cellspacing=4 cellpadding=4><tr>
1.81 www 2983: <th bgcolor="#DDDDDD">$lt{'upls'}</th>
2984: <th bgcolor="#DDDDDD">$lt{'spec'}</th>
1.17 www 2985: </tr>
2986: <tr><td bgcolor="#DDDDDD">
1.10 www 2987: <form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
1.59 www 2988: <input type="file" name="uploaddoc" size="40">
1.196 raeburn 2989: <br />
2990: <br />
1.284 ! albertel 2991: <span class="LC_nobreak">
1.196 raeburn 2992: <label>$lt{'parse'}?
2993: <input type="checkbox" name="parserflag" />
2994: </label>
1.284 ! albertel 2995: </span>
1.196 raeburn 2996: <br /><br />
2997: $lt{'comment'}:<br />
1.4 www 2998: <textarea cols=50 rows=4 name='comment'>
2999: </textarea>
1.115 albertel 3000: <br />
1.282 albertel 3001: <input type="hidden" name="folderpath" value="$path" />
1.10 www 3002: <input type="hidden" name="cmd" value="upload_supplemental">
1.284 ! albertel 3003: <span class="LC_nobreak">
1.81 www 3004: <input type="submit" value="$lt{'upld'}">
1.58 albertel 3005: $help{'Uploading_From_Harddrive'}
1.284 ! albertel 3006: </span>
1.58 albertel 3007: </form>
1.17 www 3008: </td>
3009: <td bgcolor="#DDDDDD">
1.18 www 3010: <form action="/adm/coursedocs" method="post" name="supnewfolder">
1.282 albertel 3011: <input type="hidden" name="folderpath" value="$path" />
1.256 albertel 3012: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 3013: <span class="LC_nobreak">
1.17 www 3014: <input name="newfolder" type="button"
3015: onClick="javascript:makenewfolder(this.form,'$folderseq');"
1.81 www 3016: value="$lt{'newf'}" /> $help{'Adding_Folders'}
1.284 ! albertel 3017: </span>
1.17 www 3018: </form>
1.214 www 3019: <br /><form action="/adm/coursedocs" method="post" name="supnewext">
1.282 albertel 3020: <input type="hidden" name="folderpath" value="$path" />
1.256 albertel 3021: <input type="hidden" name="importdetail" value="" />
1.284 ! albertel 3022: <span class="LC_nobreak">
1.18 www 3023: <input name="newext" type="button"
3024: onClick="javascript:makenewext('supnewext');"
1.81 www 3025: value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
1.284 ! albertel 3026: </span>
1.17 www 3027: </form>
1.214 www 3028: <br /><form action="/adm/coursedocs" method="post" name="supnewsyl">
1.282 albertel 3029: <input type="hidden" name="folderpath" value="$path" />
1.256 albertel 3030: <input type="hidden" name="importdetail"
3031: value="Syllabus=/public/$coursedom/$coursenum/syllabus" />
1.284 ! albertel 3032: <span class="LC_nobreak">
1.81 www 3033: <input name="newsyl" type="submit" value="$lt{'syll'}" />
1.65 bowersj2 3034: $help{'Syllabus'}
1.284 ! albertel 3035: </span>
1.58 albertel 3036: </form>
1.214 www 3037: <br /><form action="/adm/coursedocs" method="post" name="subnewaboutme">
1.282 albertel 3038: <input type="hidden" name="folderpath" value="$path" />
1.256 albertel 3039: <input type="hidden" name="importdetail"
3040: value="$plainname=/adm/$udom/$uname/aboutme" />
1.284 ! albertel 3041: <span class="LC_nobreak">
1.81 www 3042: <input name="newaboutme" type="submit" value="$lt{'mypi'}" />
1.65 bowersj2 3043: $help{'My Personal Info'}
1.284 ! albertel 3044: </span>
1.58 albertel 3045: </form>
1.17 www 3046: </td></tr>
1.24 www 3047: </table></td></tr>
1.8 www 3048: ENDSUPFORM
3049: }
1.7 www 3050: }
1.18 www 3051: if ($allowed) {
1.182 albertel 3052: $r->print('<form method="POST" name="extimport" action="/adm/coursedocs"><input type="hidden" name="title" /><input type="hidden" name="url" /><input type="hidden" name="useform" /></form>');
1.18 www 3053: }
1.24 www 3054: $r->print('</table>');
1.19 www 3055: } else {
1.188 raeburn 3056: unless ($upload_result eq 'phasetwo') {
1.19 www 3057: # -------------------------------------------------------- This is showdoc mode
1.188 raeburn 3058: $r->print("<h1>".&mt('Uploaded Document').' - '.
1.141 albertel 3059: &Apache::lonnet::gettitle($r->uri).'</h1><p>'.
1.81 www 3060: &mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><p><table>".
1.188 raeburn 3061: &entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table></p>');
3062: }
1.19 www 3063: }
1.26 www 3064: }
1.224 albertel 3065: $r->print(&Apache::loncommon::end_page());
1.26 www 3066: return OK;
1.1 www 3067: }
3068:
1.224 albertel 3069:
3070: sub editing_js {
3071: my ($udom,$uname) = @_;
3072: my $now = time();
3073:
3074: return <<ENDNEWSCRIPT;
3075: function makenewfolder(targetform,folderseq) {
3076: var foldername=prompt('Name of New Folder','New Folder');
3077: if (foldername) {
1.236 albertel 3078: targetform.importdetail.value=escape(foldername)+"="+folderseq;
1.224 albertel 3079: targetform.submit();
3080: }
3081: }
3082:
3083: function makenewpage(targetform,folderseq) {
3084: var pagename=prompt('Name of New Page','New Page');
3085: if (pagename) {
1.236 albertel 3086: targetform.importdetail.value=escape(pagename)+"="+folderseq;
1.224 albertel 3087: targetform.submit();
3088: }
3089: }
3090:
3091: function makenewext(targetname) {
3092: this.document.forms.extimport.useform.value=targetname;
3093: window.open('/adm/rat/extpickframe.html');
3094: }
3095:
3096: function makeexamupload() {
3097: var title=prompt('Listed Title for the Uploaded Score');
3098: if (title) {
3099: this.document.forms.newexamupload.importdetail.value=
1.236 albertel 3100: escape(title)+'=/res/lib/templates/examupload.problem';
1.224 albertel 3101: this.document.forms.newexamupload.submit();
3102: }
3103: }
3104:
3105: function makesmppage() {
3106: var title=prompt('Listed Title for the Page');
3107: if (title) {
3108: this.document.forms.newsmppg.importdetail.value=
1.236 albertel 3109: escape(title)+'=/adm/$udom/$uname/$now/smppg';
1.224 albertel 3110: this.document.forms.newsmppg.submit();
3111: }
3112: }
3113:
3114: function makesmpproblem() {
3115: var title=prompt('Listed Title for the Problem');
3116: if (title) {
3117: this.document.forms.newsmpproblem.importdetail.value=
1.236 albertel 3118: escape(title)+'=/res/lib/templates/simpleproblem.problem';
1.224 albertel 3119: this.document.forms.newsmpproblem.submit();
3120: }
3121: }
3122:
3123: function makedropbox() {
3124: var title=prompt('Listed Title for the Drop Box');
3125: if (title) {
3126: this.document.forms.newdropbox.importdetail.value=
1.236 albertel 3127: escape(title)+'=/res/lib/templates/DropBox.problem';
1.224 albertel 3128: this.document.forms.newdropbox.submit();
3129: }
3130: }
3131:
3132: function makebulboard() {
3133: var title=prompt('Listed Title for the Bulletin Board');
3134: if (title) {
3135: this.document.forms.newbul.importdetail.value=
1.236 albertel 3136: escape(title)+'=/adm/$udom/$uname/$now/bulletinboard';
1.224 albertel 3137: this.document.forms.newbul.submit();
3138: }
3139: }
3140:
3141: function makeabout() {
1.236 albertel 3142: var user=prompt("Enter user:domain for User's 'About Me' Page");
1.224 albertel 3143: if (user) {
3144: var comp=new Array();
1.236 albertel 3145: comp=user.split(':');
1.224 albertel 3146: if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) {
3147: if ((comp[0]) && (comp[1])) {
3148: this.document.forms.newaboutsomeone.importdetail.value=
1.236 albertel 3149: 'About '+escape(user)+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';
1.224 albertel 3150: this.document.forms.newaboutsomeone.submit();
3151: } else {
1.236 albertel 3152: alert("Not a valid user:domain");
1.224 albertel 3153: }
3154: } else {
1.236 albertel 3155: alert("Please enter both user and domain in the format user:domain");
1.224 albertel 3156: }
3157: }
3158: }
3159:
3160: function makeims() {
3161: var caller = document.forms.ims.folder.value;
3162: var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one";
3163: newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes");
3164: newWindow.location.href = newlocation;
3165: }
3166:
3167:
3168: function finishpick() {
3169: var title=this.document.forms.extimport.title.value;
3170: var url=this.document.forms.extimport.url.value;
3171: var form=this.document.forms.extimport.useform.value;
3172: eval
3173: ('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+
3174: '";this.document.forms.'+form+'.submit();');
3175: }
3176:
3177: function changename(folderpath,index,oldtitle,container,pagesymb) {
3178: var title=prompt('New Title',oldtitle);
3179: if (title) {
1.281 albertel 3180: this.document.forms.renameform.markcopy.value=-1;
1.224 albertel 3181: this.document.forms.renameform.title.value=title;
3182: this.document.forms.renameform.cmd.value='rename_'+index;
3183: if (container == 'sequence') {
3184: this.document.forms.renameform.folderpath.value=folderpath;
3185: }
3186: if (container == 'page') {
3187: this.document.forms.renameform.pagepath.value=folderpath;
3188: this.document.forms.renameform.pagesymb.value=pagesymb;
3189: }
3190: this.document.forms.renameform.submit();
3191: }
3192: }
3193:
3194: function removeres(folderpath,index,oldtitle,container,pagesymb) {
3195: if (confirm('WARNING: Removing a resource makes associated grades and scores inaccessible!\\nRemove "'+oldtitle+'"?')) {
1.281 albertel 3196: this.document.forms.renameform.markcopy.value=-1;
1.224 albertel 3197: this.document.forms.renameform.cmd.value='del_'+index;
3198: if (container == 'sequence') {
3199: this.document.forms.renameform.folderpath.value=folderpath;
3200: }
3201: if (container == 'page') {
3202: this.document.forms.renameform.pagepath.value=folderpath;
3203: this.document.forms.renameform.pagesymb.value=pagesymb;
3204: }
3205: this.document.forms.renameform.submit();
3206: }
3207: }
3208:
1.281 albertel 3209: function cutres(folderpath,index,oldtitle,container,pagesymb,folder) {
1.224 albertel 3210: if (confirm('WARNING: Cutting a resource makes associated grades and scores inaccessible!\\nGrades remain inaccessible if resource is pasted into another folder.\\nCut "'+oldtitle+'"?')) {
3211: this.document.forms.renameform.cmd.value='cut_'+index;
3212: this.document.forms.renameform.markcopy.value=index;
1.281 albertel 3213: this.document.forms.renameform.copyfolder.value=folder+'.'+container;
1.224 albertel 3214: if (container == 'sequence') {
3215: this.document.forms.renameform.folderpath.value=folderpath;
3216: }
3217: if (container == 'page') {
3218: this.document.forms.renameform.pagepath.value=folderpath;
3219: this.document.forms.renameform.pagesymb.value=pagesymb;
3220: }
3221: this.document.forms.renameform.submit();
3222: }
3223: }
3224:
1.281 albertel 3225: function markcopy(folderpath,index,oldtitle,container,pagesymb,folder) {
1.224 albertel 3226: this.document.forms.renameform.markcopy.value=index;
1.281 albertel 3227: this.document.forms.renameform.copyfolder.value=folder+'.'+container;
1.224 albertel 3228: if (container == 'sequence') {
3229: this.document.forms.renameform.folderpath.value=folderpath;
3230: }
3231: if (container == 'page') {
3232: this.document.forms.renameform.pagepath.value=folderpath;
3233: this.document.forms.renameform.pagesymb.value=pagesymb;
3234: }
3235: this.document.forms.renameform.submit();
3236: }
3237:
3238: ENDNEWSCRIPT
3239: }
1.1 www 3240: 1;
3241: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface