oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Hah, it ah, doesnt throw errors upon modperl start and ah, the editor, ah, kind of works, and err. ah, the JSON is 99% working, with objects instantiating themselves correctly then serializing themselves as appropriate. Definitely not a working version though.

Browse source
This commit is contained in:
Kaleb Murphy 2008-09-24 01:30:57 +00:00
parent 6832eacc7c
commit c4f939f306
9 changed files with 482 additions and 246 deletions
Download patch file Download diff file Expand all files Collapse all files

79
lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm Normal file
View file

@ -0,0 +1,79 @@
package WebGUI::Asset::Wobject::Survey::SurveyJSON;
use strict;
use Data::Structure::Util qw/unbless/;
use WebGUI::Asset::Wobject::Survey::SectionJSON;
sub new{
my $class = shift;
my $self = shift || {};
my $log = shift;
if(defined $self->{sections}){
foreach(@{$self->{sections}}){
$_ = WebGUI::Asset::Wobject::Survey::SectionJSON->new($_);
}
}else{
$self->{sections} = [];
}
$self->{log} = $log;
bless($self,$class);
return $self;
}
#address is the array of objects currently selected in the edit screen
#data is the array of hash items for displaying
sub getDragDropList{
my ($self,$address,$data) = @_;
for(my $i=0; $i<=$#{$self->{sections}}; $i++){
$self->{sections}->[$i]->getDragDropList($data, $address, $i == $address->[0]);
}
}
sub getObject{
my ($self,$address) = @_;
if(@$address == 1){
return $self->{sections}->[$address->[0]];
}else{
return $self->{sections}->[$address->[0]]->getObject($address);
}
}
sub update{
my ($self,$ref) = @_;
if(ref $$ref{ids} eq 'ARRAY' and $$ref{ids}->[0] ne 'NEW'){
$self->{sections}->[$$ref{ids}->[0]]->update($ref);
}else{
push(@{$self->{sections}}, WebGUI::Asset::Wobject::Survey::SectionJSON->new($self,$ref->{object}));
}
}
#determine what to add and add it.
# ref should contain all the information for the new
sub remove{
my ($self,$ref) = @_;
$self->{sections}->[$$ref{ids}->[0]]->remove($ref);
if(@$$ref{ids} == 0){
splice(@{$self->{sections}},$$ref->{ids}->[0],1);
}
}
sub createTemp{
my ($self,$ref) = @_;#ref{ids} contains the parent of the temp object which should be created and returned.
if(ref $$ref{ids} eq 'ARRAY'){
return $self->{sections}->[$$ref{ids}->[0]]->createTemp($ref);
}else{
return WebGUI::Asset::Wobject::Survey::SectionJSON->new($self);
}
}
sub freeze{
my $self = shift;
my %temp = %{$self};
$temp{sections} = [];
$temp{log} = undef;
foreach (@{$self->{sections}}){
push(@{$temp{sections}},$_->freeze($self->{log}));
}
return \%temp;
}
1;