epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Start submission hook

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-16 04:24:27 +02:00
commit 9210d07fda
3 changed files with 57 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
ACU/API/Base.pm
View file

@ -40,6 +40,7 @@ sub parse($$)
my $sax_handler;
$sax_handler = ResultHandler->new($parsed) if ($mod eq "ResultHandler");
return XML::LibXML->load_xml(string => shift) if ($mod eq "ProjectHandler");
$sax_handler = ProjectMemberHandler->new($parsed) if ($mod eq "ProjectMemberHandler");
my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler );

12
ACU/API/Projects.pm
View file

@ -35,11 +35,17 @@ sub get($;$)
my $project_name = shift;
my $year = shift;
my $res = API::Base::get('ProjectMemberHandler',
"projects/projects/get/$project_name.xml");
my $url;
if ($year) {
$url = "projects/projects/get/$project_name/$year.xml";
} else {
$url = "projects/projects/get/$project_name.xml";
}
my $res = API::Base::get('ProjectHandler', $url);
if ($res->{result} ne '0') {
croak "Erreur durant l'ajout : " . $res->{message};
croak "Erreur durant la récupération du projet : " . $res->{message};
}
return $res;