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

Diff for /loncom/interface/lonparmset.pm between versions 1.34 and 1.37

version 1.34, 2001/09/01 14:13:47 version 1.37, 2001/12/06 22:39:45
Line 12 Line 12
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,  # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
 # 12/08,12/12,  # 12/08,12/12,
 # 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,  # 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,
 # 07/05,07/06,08/08,08/09,09/01 Gerd Kortemeyer  # 07/05,07/06,08/08,08/09,09/01,09/21 Gerd Kortemeyer
   
 package Apache::lonparmset;  package Apache::lonparmset;
   
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
   use Apache::loncommon;
 use GDBM_File;  use GDBM_File;
   
   
Line 186  sub assessparms { Line 187  sub assessparms {
           $pssymb=&Apache::lonnet::symbread($url);            $pssymb=&Apache::lonnet::symbread($url);
           $pscat='all';            $pscat='all';
           $pschp='';            $pschp='';
         } elsif ($ENV{'form.symb'}) {
     $pssymb=$ENV{'form.symb'};
     $pscat='all';
     $pschp='';
       } else {        } else {
           $ENV{'form.url'}='';            $ENV{'form.url'}='';
       }        }
Line 223  sub assessparms { Line 228  sub assessparms {
               my %name=&Apache::lonnet::userenvironment($udom,$uname,                my %name=&Apache::lonnet::userenvironment($udom,$uname,
  ('firstname','middlename','lastname','generation','id'));   ('firstname','middlename','lastname','generation','id'));
               $message="\n<p>\nFull Name: ".                $message="\n<p>\nFull Name: ".
                           $name{'firstname'}.' '.$name{'middlename'}                            $name{'firstname'}.' '.$name{'middlename'}.' '
                  .$name{'lastname'}.' '.$name{'generation'}.                   .$name{'lastname'}.' '.$name{'generation'}.
                        "<br>\nID: ".$name{'id'}.'<p>';                         "<br>\nID: ".$name{'id'}.'<p>';
          }           }
Line 783  sub crsenv { Line 788  sub crsenv {
                       $values{$_}.                        $values{$_}.
                      '"></td><td><input type=checkbox name="'.$_.                       '"></td><td><input type=checkbox name="'.$_.
                      '_setparmval"></td></tr>';                       '_setparmval"></td></tr>';
        } keys %descriptions;         } sort keys %descriptions;
        $output.='<tr><td><i>Create New Environment Variable</i><br>'.         $output.='<tr><td><i>Create New Environment Variable</i><br>'.
                 '<input type="text" size=40 name="newp_name"></td><td>'.                  '<input type="text" size=40 name="newp_name"></td><td>'.
                 '<input type="text" size=40 name="newp_value"></td><td>'.                  '<input type="text" size=40 name="newp_value"></td><td>'.
Line 822  sub handler { Line 827  sub handler {
       $r->send_http_header;        $r->send_http_header;
       return OK;        return OK;
    }     }
      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
 # ----------------------------------------------------- Needs to be in a course  # ----------------------------------------------------- Needs to be in a course
   
    if (($ENV{'request.course.id'}) &&      if (($ENV{'request.course.id'}) && 
Removed from v.1.34  
changed lines
  Added in v.1.37

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