--- loncom/interface/londocs.pm 2007/07/03 00:30:47 1.284 +++ loncom/interface/londocs.pm 2007/07/03 23:02:53 1.285 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.284 2007/07/03 00:30:47 albertel Exp $ +# $Id: londocs.pm,v 1.285 2007/07/03 23:02:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1489,7 +1489,7 @@ sub editor { if ($randompick>=0) { $r->print('

'.&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.').'

'); } - $r->print(''); + $r->print('
'); foreach my $res (@LONCAPA::map::order) { my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]); $name=&LONCAPA::map::qtescape($name); @@ -1798,14 +1798,14 @@ ENDCUT
- +
- - @@ -1814,7 +1814,7 @@ ENDCUT -'. - ""; + $line.=' + + "; if (($allowed) && ($folder!~/^supplemental/)) { my %lt=&Apache::lonlocal::texthash( 'hd' => 'Hidden', @@ -1938,11 +1941,13 @@ END my $hidtext= ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i?' checked="1"':''); $line.=(< - - - + + + ENDPARMS } $line.=""; @@ -2718,9 +2723,9 @@ ENDCOURSEVERIFY &mt('Editing the Table of Contents for your '.$type))); } # --------------------------------------------------------- Standard documents - $r->print('
+ $lt{
+ $lt{
$selectbox + $lt{'rm'} $cutlink $lt{'rn'} @@ -1904,7 +1904,7 @@ END (&LONCAPA::map::getparameter($orderidx, 'parameter_randompick'))[0]. '" />'. -''.&mt('Save').''; +''.&mt('Save').''; } if ($ispage) { @@ -1925,10 +1925,13 @@ END $url.='pagepath='.&escape($pagepath). '&pagesymb='.&escape($symb).$cpinfo; } - $line.='".($url?"":'').$title. - ($url?'':' '.&mt('(re-initialize course to access)').'')." + + + '.($url?"":'').$title.($url?'':' '.&mt('(re-initialize course to access)').'')." + -$parameterset + + + + $parameterset
'); + $r->print('
');#border=2 cellspacing=4 cellpadding=4>'); if (($standard) && ($allowed) && (!$forcesupplement)) { - $r->print(' - - - +
'); + $r->print('
'); # '

'.&mt('Main Course Documents'). # ($allowed?' '.$help{'Main_Course_Documents'}:'').'

'); my $folder=$env{'form.folder'}; @@ -2750,12 +2755,14 @@ ENDCOURSEVERIFY } my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container; $r->print(<
$lt{'uplm'}$lt{'impp'}$lt{'spec'}
+ + + + - + - - - +
$lt{'uplm'}$lt{'impp'}$lt{'spec'}
+
$lt{'file'}:
@@ -2778,7 +2785,7 @@ $uploadtag
+
$lt{'pubd'}
$uploadtag @@ -2822,7 +2829,7 @@ value="$lt{'extr'}" /> $help{'Adding_Ext
ENDFORM } - $r->print('
'); + $r->print(''); unless ($env{'form.pagepath'}) { my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); $r->print(<print('
'); + $r->print('
'); # '

'.&mt('Supplemental Course Documents'). # ($allowed?' '.$help{'Supplemental'}:'').'

'); my $folder=$env{'form.folder'}; @@ -2979,11 +2986,11 @@ ENDBLOCK my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); $r->print(<
$lt{'upls'}$lt{'spec'}
+ + - -
$lt{'upls'}$lt{'spec'}
+

@@ -3006,7 +3013,7 @@ $lt{'comment'}:
+