/[A3C]/lib/A3C/AAIEduHr.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/A3C/AAIEduHr.pm

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

revision 91 by dpavlin, Wed Apr 30 16:15:25 2008 UTC revision 93 by dpavlin, Wed Apr 30 17:23:21 2008 UTC
# Line 27  use JSON::XS; Line 27  use JSON::XS;
27    
28    valid are A3C::AAIEduHr->vocabulary('hrEdu001'),    valid are A3C::AAIEduHr->vocabulary('hrEdu001'),
29    
30      valid are [ '', A3C::AAIEduHr->vocabulary('hrEdu001') ],
31    
32  =cut  =cut
33    
34  sub vocabulary {  sub vocabulary {
# Line 98  sub vocabulary { Line 100  sub vocabulary {
100          die "data not for for $name" unless $data->{name} eq $name;          die "data not for for $name" unless $data->{name} eq $name;
101          warn "no vocabularyentry for $name from $data_path" unless defined( $data->{vocabularyentry} );          warn "no vocabularyentry for $name from $data_path" unless defined( $data->{vocabularyentry} );
102    
103            return @{ $data->{vocabularyentry} } if wantarray;
104          return $data->{vocabularyentry};          return $data->{vocabularyentry};
105  }  }
106    
Legend:
Removed from v.91  
changed lines
  Added in v.93
  ViewVC Help
Powered by ViewVC 1.1.26