--- loncom/interface/londocs.pm 2005/09/20 07:52:03 1.206 +++ 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.206 2005/09/20 07:52:03 albertel Exp $ +# $Id: londocs.pm,v 1.208 2005/11/04 20:52:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1215,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)); @@ -1719,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 { @@ -2085,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'}) { @@ -2452,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'}; @@ -2486,7 +2509,9 @@ $uploadtag $help{'Check_Resource_Versions'} $dumpbut $exportbut -
+ ENDCOURSEVERIFY $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',