Revision 218

Date:
2012/06/16 14:40:38
Author:
ahitrov
Revision Log:
1. New port version
2. File deletion for "FILE_WEB_STORAGE = Common" scheme
3. Warning preventing

Files:

Legend:

 
Added
 
Removed
 
Modified
  • koi8/core/lib/Contenido/File.pm

     
    113 113 #������� ��������� /
    114 114 $filename =~ s#^/##;
    115 115
    116 my $success = 0;
    116 117 foreach my $dir (@{$state->{"files_dir"}}) {
    117 no strict "refs";
    118 &{"Contenido::File::Scheme::".uc(scheme($dir))."::remove"}($dir."/".$filename);
    118 no strict "refs";
    119 my $scheme = uc(scheme($dir));
    120 my $res;
    121 if ( !$success || $scheme eq 'FILE' ) {
    122 $res = &{"Contenido::File::Scheme::".$scheme."::remove"}($dir."/".$filename);
    123 }
    124 if ( $res && $scheme eq 'HTTP' && $state->{file_web_storage} eq 'common' ) {
    125 $success = 1;
    126 }
    119 127 }
    120 128
    121 129 1;
  • koi8/core/lib/Contenido/Object.pm

     
    459 459 foreach ($self->required_properties()) {
    460 460
    461 461 my $value = $self->{$_->{attr}};
    462 $value = undef if (defined($value) and $value eq '') and (lc($_->{db_type}) eq 'float' or lc($_->{db_type} eq 'integer'));
    463 $value = undef if lc $_->{db_type} eq 'integer[]' && ref $value ne 'ARRAY';
    464 $value = undef if lc $_->{db_type} eq 'integer_ref[]' && ref $value ne 'ARRAY';
    462 if ( exists $_->{db_field} && $_->{db_field} ) {
    463 $value = undef if (defined($value) and $value eq '') and (lc($_->{db_type}) eq 'float' or lc($_->{db_type} eq 'integer'));
    464 $value = undef if lc $_->{db_type} eq 'integer[]' && ref $value ne 'ARRAY';
    465 $value = undef if lc $_->{db_type} eq 'integer_ref[]' && ref $value ne 'ARRAY';
    466 }
    465 467
    466 468 #���������� readonly ���� � ��������� ��� ���� id
    467 469 if ($self->id() and $_->{readonly}) {
  • koi8/core/ports/all/common-sense/GNUmakefile

     
    5 5
    6 6 include ../../etc/perl.mk
    7 7
    8 PORTVERSION = 3.4
    8 PORTVERSION = 3.5
    9 9 PERL_MAKEMAKER = yes
    10 10 MASTER_CPAN_SUBDIR = ../../authors/id/M/ML/MLEHMANN
    11 11