view release on metacpan or search on metacpan
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of add_note.
# --------------------------------------------------
sub add_occupation
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of add_occupation.
# --------------------------------------------------
sub add_organization
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
%{$self -> organization_profile},
name =>
{
post_check => sub {return $self -> check_organization_name(shift -> get_value('name') )},
required => 1,
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of add_organization.
# --------------------------------------------------
sub add_person
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
%{$self -> person_profile},
name =>
{
post_check => sub {return $self -> check_person_name(shift -> get_value('name') )},
required => 1,
type => 'Str',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of add_person.
# --------------------------------------------------
sub add_staff
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of add_staff.
# -----------------------------------------------
sub check_entity_id
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of delete_note.
# --------------------------------------------------
sub delete_occupation
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of delete_occupation.
# --------------------------------------------------
sub delete_staff
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
#},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of delete_staff.
# --------------------------------------------------
sub find_organization
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
{
organization_id =>
{
post_check => sub {return $self -> check_organization_id(shift -> get_value('organization_id') )},
required => 1,
type => 'Int',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of find_organization.
# --------------------------------------------------
sub find_person
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
{
person_id =>
{
post_check => sub {return $self -> check_person_id(shift -> get_value('person_id') )},
required => 1,
type => 'Int',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of find_person.
# --------------------------------------------------
sub log_result
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
visibility_id =>
{
post_check => sub {return $self -> db -> library -> validate_id('visibilities', shift -> get_value('visibility_id') )},
required => 1,
type => 'Int',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of report.
# --------------------------------------------------
sub update_note
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of update_note.
# --------------------------------------------------
sub update_organization
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
%{$self -> organization_profile},
organization_id =>
{
post_check => sub {return $self -> check_organization_id(shift -> get_value('organization_id') )},
required => 1,
type => 'Int',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of update_organization.
# --------------------------------------------------
sub update_person
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
%{$self -> person_profile},
person_id =>
{
post_check => sub {return $self -> check_person_id(shift -> get_value('person_id') )},
required => 1,
type => 'Int',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of update_person.
# --------------------------------------------------
sub validate_upload
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
{ # TODO: This is a fake check, for the moment.
sid =>
{
post_check => sub {return 1},
required => 0,
type => 'Str',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of validate_upload.
# --------------------------------------------------
sub validate_organization_id
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of validate_organization_id.
# --------------------------------------------------
sub validate_person_id
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
},
sid =>
{
post_check => sub {return $self -> check_sid(shift -> get_value('sid') )},
required => 1,
type => 'Str',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
} # End of validate_person_id.
# --------------------------------------------------
1;