--- loncom/interface/londocs.pm 2003/01/20 17:30:31 1.45 +++ loncom/interface/londocs.pm 2003/02/07 15:05:37 1.48 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.45 2003/01/20 17:30:31 www Exp $ +# $Id: londocs.pm,v 1.48 2003/02/07 15:05:37 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -47,6 +47,10 @@ my %alreadyseen=(); my $hadchanges; +# Available help topics + +my %help=(); + # Mapread read maps into lonratedt::global arrays # @order and @resources, determines status # sets @order - pointer to resources in right order @@ -166,6 +170,7 @@ sub editor { my $ext='false'; if ($url=~/^http\:\/\//) { $ext='true'; } $url=~s/\:/\:/g; + $name=~s/\:/\:/g; $Apache::lonratedt::resources[$idx]= $name.':'.$url.':'.$ext.':normal:res'; } @@ -244,7 +249,8 @@ END } } $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//; - if ($isfolder) { $url.='&foldername='.$foldertitle; } + if ($isfolder) { $url.='&foldername='. + &Apache::lonnet::escape($foldertitle); } $line.='
Main Course Documents'); + $r->print(' | |||
Main Course Documents'. + ($allowed?' '.$help{'Main_Course_Documents'}:'').''); my $folder=$ENV{'form.folder'}; unless ($folder=~/^default/) { $folder='default'; } $hadchanges=0; @@ -599,6 +616,7 @@ $ENV{'request.role'}.'" value="re-initia } my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. '.sequence'; + $r->print(<Upload a new main course document |
@@ -616,7 +634,7 @@ Title:- + $help{'Uploading_From_Harddrive'}
+$help{'Importing_LON-CAPA_Resource'}
|
+
+ $help{'Creating_From_Template'}
+$help{'Creating_From_Template'}
+$help{'Creating_From_Template'}
| |