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