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