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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.60 and 1.61

version 1.60, 2000/11/14 02:39:30 version 1.61, 2000/11/14 14:58:59
Line 43 Line 43
 #                        state string  #                        state string
 # condval(index)     : value of condition index based on state  # condval(index)     : value of condition index based on state
 # EXT(name)          : value of a variable  # EXT(name)          : value of a variable
 # refreshstate()     : refresh the state information string  
 # symblist(map,hash) : Updates symbolic storage links  # symblist(map,hash) : Updates symbolic storage links
 # symbread([filename]) : returns the data handle (filename optional)  # symbread([filename]) : returns the data handle (filename optional)
 # rndseed()          : returns a random seed    # rndseed()          : returns a random seed  
Line 971  sub allowed { Line 970  sub allowed {
    return 'F';     return 'F';
 }  }
   
 # ---------------------------------------------------------- Refresh State Info  
   
 sub refreshstate {  
 }  
   
 # ----------------------------------------------------------------- Define Role  # ----------------------------------------------------------------- Define Role
   
 sub definerole {  sub definerole {
Line 1328  sub EXT { Line 1322  sub EXT {
     return '';      return '';
 }  }
   
   # ---------------------------------------- Append resource parms to environment
   
   sub appendparms {
       my ($symb,$parms)=@_;
       my %storehash=();
       my $prefix='resource.parms.'.$ENV{'request.course.id'}.'.'.$symb;
       map {
    my ($typename,$value)=split(/\=/,$_);
           my ($type,$name)=split(/\:/,$typename);
           $storehash{$prefix.'.'.unescape($name)}=unescape($value);
    $storehash{$prefix.'.'.unescape($name).'.type'}=unescape($type);
       } split(/\&/,$parms);
       &appenv(%storehash);
   }
   
 # ------------------------------------------------- Update symbolic store links  # ------------------------------------------------- Update symbolic store links
   
 sub symblist {  sub symblist {
Removed from v.1.60  
changed lines
  Added in v.1.61

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