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

Diff for /loncom/interface/lonparmset.pm between versions 1.239.2.2 and 1.240

version 1.239.2.2, 2005/09/23 20:19:18 version 1.240, 2005/08/26 18:57:42
Line 1921  sub crsenv { Line 1921  sub crsenv {
      'disablesigfigs'       'disablesigfigs'
          => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.           => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',                      ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
      'disableexampointprint'  
          => '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.  
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',  
      'tthoptions'       'tthoptions'
          => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'           => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
              );                ); 
Line 1950  sub crsenv { Line 1947  sub crsenv {
                              'default_enrollment_start_date',                               'default_enrollment_start_date',
                              'default_enrollment_end_date',                               'default_enrollment_end_date',
      'tthoptions',       'tthoptions',
      'disablesigfigs',       'disablesigfigs'
      'disableexampointprint'  
                              );                               );
  foreach my $parameter (sort(keys(%values))) {   foreach my $parameter (sort(keys(%values))) {
             unless ($parameter =~ m/^internal\./) {              unless ($parameter =~ m/^internal\./) {
Line 2193  sub listdata { Line 2189  sub listdata {
     my $pointer=0;      my $pointer=0;
     $tableopen=0;      $tableopen=0;
     my $foundkeys=0;      my $foundkeys=0;
     my %keyorder=&standardkeyorder();  
     foreach my $thiskey (sort {      foreach my $thiskey (sort {
  if ($sortorder eq 'realmstudent') {   if ($sortorder eq 'realmstudent') {
     my ($astudent,$arealm)=($a=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);      my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
     my ($bstudent,$brealm)=($b=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);      my ($bstudent,$brealm)=($b=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
     if (!defined($astudent)) {      if (!defined($astudent) && !defined($bstudent) &&
  ($arealm)=($a=~/^\Q$env{'request.course.id'}\E\.(.+)$/);   !defined($arealm) && !defined($brealm)) {
     }   ($arealm)=($a=~/^$env{'request.course.id'}\.(.+)\.[^\.]+$/);
     if (!defined($bstudent)) {   ($brealm)=($b=~/^$env{'request.course.id'}\.(.+)\.[^\.]+$/);
  ($brealm)=($b=~/^\Q$env{'request.course.id'}\E\.(.+)$/);  
     }  
     $arealm=~s/\.type//;  
     my ($ares, $aparm) = ($arealm=~/^(.*)\.(.*)$/);  
     $aparm=$keyorder{'parameter_0_'.$aparm};  
     $brealm=~s/\.type//;  
     my ($bres, $bparm) = ($brealm=~/^(.*)\.(.*)$/);  
     $bparm=$keyorder{'parameter_0_'.$bparm};     
     if ($ares eq $bres) {  
  if (defined($aparm) && defined($bparm)) {  
     ($aparm <=> $bparm);  
  } elsif (defined($aparm)) {  
     -1;  
  } elsif (defined($bparm)) {  
     1;  
  } else {  
     ($arealm cmp $brealm) || ($astudent cmp $bstudent);  
  }  
     } else {  
  ($arealm cmp $brealm) || ($astudent cmp $bstudent);  
     }      }
               ($arealm cmp $brealm) || ($astudent cmp $bstudent);
  } else {   } else {
     $a cmp $b;      $a cmp $b;
  }   }
     } keys %{$listdata}) {      } keys %{$listdata}) {
     
  if ($$listdata{$thiskey.'.type'}) {   if ($$listdata{$thiskey.'.type'}) {
             my $thistype=$$listdata{$thiskey.'.type'};              my $thistype=$$listdata{$thiskey.'.type'};
             if ($$resourcedata{$thiskey.'.type'}) {              if ($$resourcedata{$thiskey.'.type'}) {
Line 2702  ENDMAINFORMHEAD Line 2677  ENDMAINFORMHEAD
     action => 'crsenv',      action => 'crsenv',
             permission => $parm_permission,              permission => $parm_permission,
             },              },
             { text => 'Set Instructor Defined Metadata',
       action => 'setinstmeta',
               permission => $parm_permission,
               },
           { text => 'Set/Modify Resource Parameters - Helper Mode',            { text => 'Set/Modify Resource Parameters - Helper Mode',
             url => '/adm/helper/parameter.helper',              url => '/adm/helper/parameter.helper',
             permission => $parm_permission,              permission => $parm_permission,
Line 2745  ENDMAINFORMHEAD Line 2724  ENDMAINFORMHEAD
     $r->print($menu_html);      $r->print($menu_html);
     return;      return;
 }  }
   ### Set instructor defined metadata
   sub setinstmeta {
       my ($r)=@_;
        my $setoutput='';
       $r->print(&Apache::lonxml::xmlbegin());
       $r->print('<head>
               <title>LON-CAPA Set Instructor Metadata</title>
               </head>');
               
       $r->print(&Apache::loncommon::bodytag('Set Instructor Metadata'));
       $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
       'Set Instructor Metadata'));
       my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
      $r->print('Set instructor metadata here');
       return 'ok';
   }
 ##################################################  ##################################################
   
 sub defaultsetter {  sub defaultsetter {
Line 2979  sub handler { Line 2973  sub handler {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
     text=>"Overview Mode"});      text=>"Overview Mode"});
     &overview($r);      &overview($r);
           } elsif ($env{'form.action'} eq 'setinstmeta' && $parm_permission) {
               &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setinstmeta',
       text=>"Instructor Metadata"});
       &setinstmeta($r);
         } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {          } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
     text=>"Overview Mode"});      text=>"Overview Mode"});
Removed from v.1.239.2.2  
changed lines
  Added in v.1.240

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