[Bio] / SubsystemEditor / WebPage / ShowSubsystem.pm Repository:
ViewVC logotype

Diff of /SubsystemEditor/WebPage/ShowSubsystem.pm

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

revision 1.21, Tue Oct 7 09:37:32 2008 UTC revision 1.24, Thu Mar 12 17:09:27 2009 UTC
# Line 49  Line 49 
49    my $can_alter = 0;    my $can_alter = 0;
50    my $user = $self->application->session->user;    my $user = $self->application->session->user;
51    
52    my $dbmaster = DBMaster->new( -database => 'WebAppBackend' );    my $dbmaster = $self->application->dbmaster;
53    my $ppoapplication = $dbmaster->Backend->init( { name => 'SubsystemEditor' } );    my $ppoapplication = $self->application->backend;
54    
55    # get a seeduser #    # get a seeduser #
56    my $seeduser = '';    my $seeduser = '';
# Line 170  Line 170 
170      $subsystem->set_classification( [ $class1, $class2 ] );      $subsystem->set_classification( [ $class1, $class2 ] );
171    
172      my $litstoset = $cgi->param( 'SUBSYSLIT' );      my $litstoset = $cgi->param( 'SUBSYSLIT' );
173        $litstoset =~ s/ //g;
174      my @lits = split( ', ', $litstoset );      my @lits = split( ', ', $litstoset );
175      setLiteratures( $fig, $name, \@lits );      setLiteratures( $fig, $name, \@lits );
176    
# Line 369  Line 370 
370    my @ssclassifications = $fig->all_subsystem_classifications();    my @ssclassifications = $fig->all_subsystem_classifications();
371    my $ssclass;    my $ssclass;
372    foreach my $ssc ( @ssclassifications ) {    foreach my $ssc ( @ssclassifications ) {
373      next if ( ( !defined( $ssc->[0] ) ) || ( !defined( $ssc->[1] ) ) );      if ( !defined( $ssc->[1] ) ) {
374      next if ( ( $ssc->[0] eq '' ) || ( $ssc->[1] eq '' ) );        $ssc->[1] = '';
375        }
376    #    next if ( ( !defined( $ssc->[0] ) ) || ( !defined( $ssc->[1] ) ) );
377        next if ( !defined( $ssc->[0] ) );
378        next if ( $ssc->[0] eq '' );
379    #    next if ( ( $ssc->[0] eq '' ) || ( $ssc->[1] eq '' ) );
380      next if ( ( $ssc->[0] =~ /^\s+$/ ) || ( $ssc->[1] =~ /^\s+$/ ) );      next if ( ( $ssc->[0] =~ /^\s+$/ ) || ( $ssc->[1] =~ /^\s+$/ ) );
381      push @{ $ssclass->{ $ssc->[0] } }, $ssc->[1];      push @{ $ssclass->{ $ssc->[0] } }, $ssc->[1];
382    }    }

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.24

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3