[BACK]Return to londocs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.292 and 1.293

version 1.292, 2007/07/14 00:10:13 version 1.293, 2007/07/14 00:50:24
Line 1304  sub update_parameter { Line 1304  sub update_parameter {
     if ($env{'form.'.$which.'_'.$idx}) {      if ($env{'form.'.$which.'_'.$idx}) {
  my $value = ($which eq 'randompick') ? $env{'form.'.$which.'_'.$idx}   my $value = ($which eq 'randompick') ? $env{'form.'.$which.'_'.$idx}
                                      : 'yes';                                       : 'yes';
  &Apache::lonnet::logthis("val $value");  
  &LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $value,   &LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $value,
       $parameter_type{$which});        $parameter_type{$which});
  &remember_parms($idx,$which,'set',$value);   &remember_parms($idx,$which,'set',$value);
Line 2733  ENDCOURSEVERIFY Line 2732  ENDCOURSEVERIFY
      &mt('Editing the Table of Contents for your '.$type)));       &mt('Editing the Table of Contents for your '.$type)));
     }      }
 # --------------------------------------------------------- Standard documents  # --------------------------------------------------------- Standard documents
     $r->print('<table class="LC_docs_documents">');#border=2 cellspacing=4 cellpadding=4>');      $r->print('<table class="LC_docs_documents">');
   
     if (($standard) && ($allowed) && (!$forcesupplement)) {      if (($standard) && ($allowed) && (!$forcesupplement)) {
  $r->print('<tr><td class="LC_docs_document">');   $r->print('<tr><td class="LC_docs_document">');
 #  '<h2>'.&mt('Main Course Documents').  #  '<h2>'.&mt('Main Course Documents').
Line 2742  ENDCOURSEVERIFY Line 2742  ENDCOURSEVERIFY
        if ($folder eq '' || $folder eq 'supplemental') {         if ($folder eq '' || $folder eq 'supplemental') {
            $folder='default';             $folder='default';
    $env{'form.folderpath'}='default&'.&escape(&mt('Main '.$type.' Documents'));     $env{'form.folderpath'}='default&'.&escape(&mt('Main '.$type.' Documents'));
              $uploadtag = '<input type="hidden" name="folderpath" value="'.
          &HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
        }         }
        my $postexec='';         my $postexec='';
        if ($folder eq 'default') {         if ($folder eq 'default') {
Removed from v.1.292  
changed lines
  Added in v.1.293

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