--- loncom/interface/londocs.pm 2005/08/30 14:36:46 1.202 +++ loncom/interface/londocs.pm 2005/11/04 20:52:35 1.208 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.202 2005/08/30 14:36:46 albertel Exp $ +# $Id: londocs.pm,v 1.208 2005/11/04 20:52:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -155,9 +155,7 @@ sub dumpcourse { my ($ca,$cd)=split(/\@/,$env{'form.authorspace'}); $r->print('

'.&mt('Copying Files').'

'); my $title=$env{'form.authorfolder'}; - my ($ext)=($title=~s/\.(\w+)$//); $title=&clean($title); - $title.='.'.$ext; my %replacehash=(); foreach (keys %env) { if ($_=~/^form\.namefor\_(.+)/) { @@ -168,7 +166,10 @@ sub dumpcourse { $crs=~s/\_/\//g; foreach (keys %replacehash) { my $newfilename=$title.'/'.$replacehash{$_}; + $newfilename=~s/\.(\w+)$//; + my $ext=$1; $newfilename=&clean($newfilename); + $newfilename.='.'.$ext; my @dirs=split(/\//,$newfilename); my $path='/home/'.$ca.'/public_html'; my $makepath=$path; @@ -253,8 +254,8 @@ sub dumpcourse { sub exportbutton { return ''. ''; - #&Apache::loncommon::help_open_topic('Docs_Export_Course_Docs'); + &mt('Export Course to IMS').'" />'. + &Apache::loncommon::help_open_topic('Docs_Export_Course_Docs'); } sub exportcourse { @@ -1113,7 +1114,7 @@ sub editor { if ($cmd eq 'del') { my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]); if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) && - ($url!~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library)$/)) { + ($url!~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library|task)$/)) { &Apache::lonnet::removeuploadedurl($url); } else { &Apache::lonratedt::makezombie($Apache::lonratedt::order[$idx]); @@ -1214,6 +1215,8 @@ sub editor { $r->print(''); foreach (@Apache::lonratedt::order) { my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]); + $name=&Apache::lonratsrv::qtescape($name); + $url=&Apache::lonratsrv::qtescape($url); unless ($name) { $name=(split(/\//,$url))[-1]; } unless ($name) { $idx++; next; } $r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum)); @@ -1718,6 +1721,24 @@ sub checkonthis { # +# ----------------------------------------------------------------- List Symbs +# +sub list_symbs { + my $r=shift; + my $html=&Apache::lonxml::xmlbegin(); + $r->print($html.'Symb List'. + &Apache::loncommon::bodytag('Symb List')); + my $navmap = Apache::lonnavmaps::navmap->new(); + $r->print("
\n");
+   foreach my $res ($navmap->retrieveResources()) {
+       $r->print($res->compTitle()."\t".$res->symb()."\n");
+   }
+   $r->print("\n
\n"); + $r->print(''.&mt('Return to DOCS').''); +} + + +# # -------------------------------------------------------------- Verify Content # sub verifycontent { @@ -2084,6 +2105,8 @@ sub handler { if ($env{'form.verify'}) { &verifycontent($r); + } elsif ($env{'form.listsymbs'}) { + &list_symbs($r); } elsif ($env{'form.versions'}) { &checkversions($r); } elsif ($env{'form.dumpcourse'}) { @@ -2451,6 +2474,7 @@ ENDNEWSCRIPT my %lt=&Apache::lonlocal::texthash( 'vc' => 'Verify Content', 'cv' => 'Check/Set Resource Versions', + 'ls' => 'List Symbs', ); my $folderpath=$env{'form.folderpath'}; @@ -2485,7 +2509,9 @@ $uploadtag $help{'Check_Resource_Versions'} $dumpbut $exportbut -
+ ENDCOURSEVERIFY $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',