Annotation of loncom/interface/londocs.pm, revision 1.260

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>