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

Diff for /loncom/interface/lonparmset.pm between versions 1.323 and 1.325

version 1.323, 2006/07/14 18:49:06 version 1.325, 2006/07/17 17:23:24
Line 524  sub valout { Line 524  sub valout {
     # Values of zero are valid.      # Values of zero are valid.
     if (! $value && $value ne '0') {      if (! $value && $value ne '0') {
  if ($editable) {   if ($editable) {
     $result = '<img src="/adm/lonIcons/clickhere.gif" border="0" />';      $result = '<span class="LC_clickhere">*</span>';
  } else {   } else {
     $result='&nbsp;';      $result='&nbsp;';
  }   }
Line 2589  sub listdata { Line 2589  sub listdata {
  $oldpart=$part;   $oldpart=$part;
     }      }
 #  #
 # Preset defaults?  
 #  
             my ($hour,$min,$sec,$val)=('','','','');  
     unless ($$resourcedata{$thiskey}) {  
  my ($parmname)=($thiskey=~/\.(\w+)$/);  
  ($hour,$min,$sec,$val)=&preset_defaults($parmname);  
     }  
   
 #  
 # Ready to print  # Ready to print
 #  #
     $r->print(&tablestart().      $r->print(&tablestart().
Line 2613  sub listdata { Line 2604  sub listdata {
   &Apache::lonhtmlcommon::date_setter('parmform',    &Apache::lonhtmlcommon::date_setter('parmform',
       $jskey,        $jskey,
       $$resourcedata{$thiskey},        $$resourcedata{$thiskey},
       '',1,'','',$hour,$min,$sec).        '',1,'','').
 '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.  '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
 &date_sanity_info($$resourcedata{$thiskey})  &date_sanity_info($$resourcedata{$thiskey})
   );    );
Line 2621  sub listdata { Line 2612  sub listdata {
  my $showval;   my $showval;
  if (defined($$resourcedata{$thiskey})) {   if (defined($$resourcedata{$thiskey})) {
     $showval=$$resourcedata{$thiskey};      $showval=$$resourcedata{$thiskey};
  } else {  
     $showval=$val;  
  }   }
  $r->print('<label><input type="radio" name="set_'.$thiskey.   $r->print('<label><input type="radio" name="set_'.$thiskey.
   '" value="yes"');    '" value="yes"');
Line 2640  sub listdata { Line 2629  sub listdata {
  my $showval;   my $showval;
  if (defined($$resourcedata{$thiskey})) {   if (defined($$resourcedata{$thiskey})) {
     $showval=$$resourcedata{$thiskey};      $showval=$$resourcedata{$thiskey};
  } else {  
     $showval=$val;  
  }   }
  $r->print('<input type="text" name="set_'.$thiskey.'" value="'.   $r->print('<input type="text" name="set_'.$thiskey.'" value="'.
   $showval.'">');    $showval.'">');
Line 3013  ENDMAINFORMHEAD Line 3000  ENDMAINFORMHEAD
           { text => 'Set Course Environment',            { text => 'Set Course Environment',
     action => 'crsenv',      action => 'crsenv',
             permission => $parm_permission,              permission => $parm_permission,
               help => 'Course_Environment',
             },              },
           { text => 'Set Portfolio Metadata',            { text => 'Set Portfolio Metadata',
     action => 'setrestrictmeta',      action => 'setrestrictmeta',
Line 3031  ENDMAINFORMHEAD Line 3019  ENDMAINFORMHEAD
           { 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,
               help => 'Parameter_Helper',
             },              },
    { text => 'Set/Modify Resource Parameters - Overview Mode',     { text => 'Set/Modify Resource Parameters - Overview Mode',
             action => 'newoverview',              action => 'newoverview',
             permission => $parm_permission,              permission => $parm_permission,
               help => 'Parameter_Overview',
             },              },
           { text => 'Set/Modify Resource Parameters - Table Mode',            { text => 'Set/Modify Resource Parameters - Table Mode',
             action => 'settable',              action => 'settable',
             permission => $parm_permission,              permission => $parm_permission,
             help => 'Cascading_Parameters',              help => 'Table_Mode',
             },              },
            { divider => 'Existing Parameter Settings for Your Resources',             { divider => 'Existing Parameter Settings for Your Resources',
   },    },
   { text => 'Modify Resource Parameters - Overview Mode',    { text => 'Modify Resource Parameters - Overview Mode',
             action => 'setoverview',              action => 'setoverview',
             permission => $parm_permission,              permission => $parm_permission,
               help => 'Parameter_Overview',
      },                 },          
   { text => 'Parameter Change Log and Course Blog Posting/User Notification',    { text => 'Parameter Change Log and Course Blog Posting/User Notification',
             action => 'parameterchangelog',              action => 'parameterchangelog',
Line 3547  sub handler { Line 3538  sub handler {
     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",      &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
     text=>"Parameter Manager",      text=>"Parameter Manager",
     faq=>10,      faq=>10,
     bug=>'Instructor Interface'});      bug=>'Instructor Interface',
                                               help => 'Parameter_Manager'});
   
 # ----------------------------------------------------- Needs to be in a course  # ----------------------------------------------------- Needs to be in a course
     my $parm_permission =      my $parm_permission =
Line 3572  sub handler { Line 3564  sub handler {
         #  the table mode          #  the table mode
         if ((($env{'form.command'} eq 'set') && ($env{'form.url'})          if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
      && (!$env{'form.dis'})) || ($env{'form.symb'})) {       && (!$env{'form.dis'})) || ($env{'form.symb'})) {
               &Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',
       text=>"Problem Parameters"});
     &assessparms($r);      &assessparms($r);
   
         } elsif (! exists($env{'form.action'})) {          } elsif (! exists($env{'form.action'})) {
Removed from v.1.323  
changed lines
  Added in v.1.325

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