[Bio] / Sprout / Sprout.pm Repository:
ViewVC logotype

Diff of /Sprout/Sprout.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42, Tue Oct 18 06:58:09 2005 UTC revision 1.43, Tue Oct 18 18:36:26 2005 UTC
# Line 3189  Line 3189 
3189      # Declare the return value.      # Declare the return value.
3190      my @retVal = ();      my @retVal = ();
3191      # Check to see if this is a functional assignment.      # Check to see if this is a functional assignment.
3192      my ($user, $type, $function) = split(/\n/, $text);      my ($type, $function) = split(/\n/, $text);
3193      if ($type =~ m/^set ([^ ]+) function to$/i) {      if ($type =~ m/^set ([^ ]+) function to$/i) {
3194          # Here it is, so we return the user name (which is in $1), the functional role text,          # Here it is, so we return the user name (which is in $1), the functional role text,
3195          # and the assigning user.          # and the assigning user.
3196          @retVal = ($1, $function, $user);          @retVal = ($1, $function);
3197      }      }
3198      # Return the result list.      # Return the result list.
3199      return @retVal;      return @retVal;

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3