roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-10 05:56:27 +02:00
Code Issues Projects Releases Packages Wiki Activity

search option for debug-log info by rentaljournal

Browse source
This commit is contained in:
ragu 2023-10-26 06:50:16 +02:00
parent 44d47011af
commit 9e1a56aa83
7 changed files with 84 additions and 173 deletions
Download patch file Download diff file Expand all files Collapse all files

23
copri4/main/src/Mod/Shareework.pm
View file

@ -10,7 +10,6 @@ use strict;
use warnings;
use POSIX;
use CGI; # only for debugging
use Mod::Libenzdb;
use Mod::Libenz;
use Mod::DBtank;
use Mod::Buttons;
@ -29,7 +28,6 @@ use Data::Dumper;
my $cf = new Config;
my $but = new Buttons;
my $db = new Libenzdb;
my $lb = new Libenz;
my $dbt = new DBtank;
my $apif = new APIfunc;
@ -115,13 +113,22 @@ sub delete_account {
sub create_account(){
my $self = shift;
my $owner = shift;
my $table = "contentadr";
my $dbh = "";
my $insert_adr = {
table => "contentadr",
template_id => 202,
main_id => 200011,
mtime => 'now()',
owner => $owner,
int20 => $owner,
};
my $c_idnew = $dbt->insert_contentoid($dbh,$insert_adr,"");
my $ctadr = { c_id => $c_idnew };
$insert_adr->{ct_name} = $c_idnew;
$insert_adr->{barcode} = $c_idnew;
$dbt->update_record($dbh,$insert_adr,$ctadr);
my $c_idnew = $db->insert_content($table);
$db->updater("$table","c_id",$c_idnew,"ct_name","$c_idnew","$owner");
$db->updater("$table","c_id",$c_idnew,"barcode","$c_idnew","$owner");
$db->updater("$table","c_id",$c_idnew,"int20","$owner","$owner");
my $rel_idnew = $db->insert_relationlist($table,"200011","de",$c_idnew,"202","ca_id");
return $c_idnew;
}