#use SL::PE;
require "$form->{path}/io.pl";
+require "bin/mozilla/common.pl";
1;
}
# saving the history
if(!exists $form->{addition}) {
+ $form->{snumber} = qq|partnumber_| . $form->{partnumber};
$form->{addition} = "SAVED";
$form->save_history($form->dbconnect(\%myconfig));
}
# saving the history
if(!exists $form->{addition}) {
+ $form->{snumber} = qq|partnumber_| . $form->{partnumber};
$form->{addition} = "SAVED AS NEW";
$form->save_history($form->dbconnect(\%myconfig));
}
$lxdebug->enter_sub();
# saving the history
if(!exists $form->{addition}) {
+ $form->{snumber} = qq|partnumber_| . $form->{partnumber};
$form->{addition} = "DELETED";
$form->save_history($form->dbconnect(\%myconfig));
}
$lxdebug->leave_sub();
}
-sub continue { &{ $form->{nextsub} } }
+sub continue { call_sub($form->{"nextsub"}); }