Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Class::DBI misbehaviour

by TVSET (Chaplain)
on Mar 11, 2004 at 10:54 UTC ( [id://335760]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use base 'Intranet::DBI';
    __PACKAGE__->table('noc_schedule');
    ...
                             holiday
                             last_modified
                        /);
    
  2. or download this
    unless (@errors) {
      my $shift = $self->retrieve($args->{'id'});
    ...
      $shift->update;
      print "DEBUG(after update): ",Dumper($shift),"<BR>\n";
    }
    
  3. or download this
    DEBUG(before update): $VAR1 = bless( { 'holiday' => '16', 'sunday' => 
    +'16', 'locked' => '0', 'friday' => '18', 'last_modified' => '20040311
    +080038', 'active' => '0', 'tuesday' => '18', 'monday' => '18', 'ends'
    + => '22:59:00', 'starts' => '22:58:00', 'caption' => 'Copy of Other',
    + 'saturday' => '16', 'wednesday' => '18', 'thursday' => '18', 'id' =>
    + '21' }, 'Intranet::NOC::Shift' );
    DEBUG(while update): $VAR1 = bless( { 'holiday' => '16', 'sunday' => '
    +16', 'locked' => '0', 'friday' => '18', 'last_modified' => '200403110
    +80038', 'active' => '0', 'tuesday' => '18', 'monday' => '18', 'ends' 
    +=> '15:00:00', 'starts' => '13:00:00', 'caption' => 'test', 'saturday
    +' => '16', 'wednesday' => '18', 'thursday' => '18', '__Changed' => { 
    +'holiday' => 1, 'sunday' => 1, 'starts' => 1, 'caption' => 1, 'saturd
    +ay' => 1, 'friday' => 1, 'wednesday' => 1, 'thursday' => 1, 'tuesday'
    + => 1, 'monday' => 1, 'ends' => 1 }, 'id' => '21' }, 'Intranet::NOC::
    +Shift' );
    DEBUG(after update): $VAR1 = bless( { 'locked' => '0', 'last_modified'
    + => '20040311080038', 'active' => '0', 'id' => '21' }, 'Intranet::NOC
    +::Shift' );
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://335760]
Approved by Tomte
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (5)
As of 2024-03-28 14:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found