Opensource.Platon.SK CVS: web-apps/finance-manager/index.fcgi - diff

   Up to  [Platon] / web-apps / finance-manager
Diff for web-apps/finance-manager/index.fcgi between version 1.4 and 1.5


version 1.4, 2004/04/09 09:18:15
version 1.5, 2004/04/13 06:50:56



Line 12 




Line 12 




 # 08/02/2004 - created
 # 08/02/2004 - created


 #
 #


 
 


 # $Platon: web-apps/finance-manager/index.fcgi,v 1.3 2004/04/04 17:44:28 rajo Exp $
 # $Platon: web-apps/finance-manager/index.fcgi,v 1.4 2004/04/09 09:18:15 rajo Exp $


 
 


 use strict;
 use strict;


 
 




Line 47  sub Main($;);




Line 47  sub Main($;);




 sub Sources($;);
 sub Sources($;);


 sub NewSource($;);
 sub NewSource($;);


 sub EditSource($;);
 sub EditSource($;);


 
 sub Events($;);


 
 sub NewEvent($;);


 
 sub EditEvent($;);


 
 


 $cgi = CGI::Lite->new();
 $cgi = CGI::Lite->new();


 $req = FCGI::Request();
 $req = FCGI::Request();


 $globals        = globals->new();
 $globals        = globals->new();


 $template       = template->new($globals);
 $template       = template->new($globals);


 $dbh            = db->new($globals);
 $dbh            = db->new($globals);


 #$event         = Event->new($globals, $dbh);
 $event          = Event->new($globals, $dbh);


 $source         = Source->new($globals, $dbh);
 $source         = Source->new($globals, $dbh);


 $restart        = restart->new({
 $restart        = restart->new({


                 restart_func                    => sub { $req->LastCall() },
                 restart_func                    => sub { $req->LastCall() },




Line 108  while ( $globals->run && ($req->Accept()




Line 111  while ( $globals->run && ($req->Accept()




         elsif ($query{action} eq 'editsource') {
         elsif ($query{action} eq 'editsource') {


                 EditSource(\%query);
                 EditSource(\%query);


         }
         }


 
         elsif ($query{action} eq 'newevent') {


 
                 NewEvent(\%query);


 
         }


 
         elsif ($query{action} eq 'editevent') {


 
                 EditEvent(\%query);


 
         }


 
 


         if ($query{action} eq 'sources') {
         if ($query{action} eq 'sources') {


                 Sources(\%query);
                 Sources(\%query);


         }
         }


 
         elsif ($query{action} eq 'events') {


 
                 Events(\%query);


 
         }


 
         elsif ($query{action} eq 'about') {


 
                 my      $template_data = {


 
                         query           => \%query,


 
                 };


 
 


 
                 $in_reply = 1;


 
                 $template->process('about.tt2', $template_data) or die $template->error(), "\n";


 
         }


 
 


         if ($in_reply == 0) {
         if ($in_reply == 0) {


                 Main(\%query);
                 Main(\%query);




Line 164  sub NewSource($;)




Line 184  sub NewSource($;)




         if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db
         if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db


                 $template_data = {
                 $template_data = {


                         query           => $ref_query,
                         query           => $ref_query,


                         sources         => $source->list(),
 


                 };
                 };


                 $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;
                 $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;


                 $source->new_source($ref_query);
                 $source->new_source($ref_query);




Line 190  sub EditSource($;)




Line 209  sub EditSource($;)




         if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db
         if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db


                 $template_data = {
                 $template_data = {


                         query           => $ref_query,
                         query           => $ref_query,


                         sources         => $source->list(),
 


                 };
                 };


                 $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;
                 $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;


                 $source->update_source($ref_query);
                 $source->update_source($ref_query);




Line 210  sub EditSource($;)




Line 228  sub EditSource($;)




 } # }}} EditSource
 } # }}} EditSource


 
 


 
 


 
 sub Events($;)


 
 { # {{{


 
         my ($ref_query) = @_;


 
 


 
         my      $template_data = {


 
                 query           => $ref_query,


 
                 events          => $event->list(),


 
                 sources         => $source->list(),


 
         };


 
 


 
         $in_reply = 1;


 
         $template->process('events.tt2', $template_data) or die $template->error(), "\n";


 
 


 
 } # }}} Events


 
 


 
 sub NewEvent($;)


 
 { # {{{


 
         my ($ref_query) = @_;


 
         my $template_data;


 
 


 
         if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db


 
                 $template_data = {


 
                         query           => $ref_query,


 
                 };


 
                 $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;


 
                 $event->new_event($ref_query);


 
 


 
                 $ref_query->{action} = "events";


 
         }


 
         else {


 
                 $template_data = {


 
                         query           => $ref_query,


 
                 };


 
 


 
                 $in_reply = 1;


 
                 $template->process('newevent.tt2', $template_data) or die $template->error(), "\n";


 
         }


 
 


 
 } # }}} EditEvent


 
 


 
 sub EditEvent($;)


 
 { # {{{


 
         my ($ref_query) = @_;


 
         my $template_data;


 
 


 
         if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db


 
                 $template_data = {


 
                         query           => $ref_query,


 
                 };


 
                 $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;


 
                 $event->update_event($ref_query);


 
 


 
                 $ref_query->{action} = "events";


 
         }


 
         else { # read data from db and fill formular


 
                 $template_data = {


 
                         query           => $ref_query,


 
                         event           => $event->get($ref_query->{eventid}),


 
                 };


 
 


 
                 $in_reply = 1;


 
                 $template->process('editevent.tt2', $template_data) or die $template->error(), "\n";


 
         }


 
 


 
 } # }}} EditEvent


 
 


 
 


 
 


 sub to_ascii($;)
 sub to_ascii($;)


 { # {{{
 { # {{{


         my ($str) = @_;
         my ($str) = @_;









Legend:


Removed from v.1.4
 


changed lines


 
Added in v.1.5


















Platon Group <platon@platon.org> http://platon.org/
  Up to  [Platon] / web-apps / finance-manager
-version 1.4, 2004/04/09 09:18:15
+version 1.5, 2004/04/13 06:50:56
 Line 12
 Line 12
 Line 12
  # 08/02/2004 - created
  #
- # $Platon: web-apps/finance-manager/index.fcgi,v 1.3 2004/04/04 17:44:28 rajo Exp $
+ # $Platon: web-apps/finance-manager/index.fcgi,v 1.4 2004/04/09 09:18:15 rajo Exp $
  use strict;
 Line 47  sub Main($;);
 Line 47  sub Main($;);
 Line 47  sub Main($;);
  sub Sources($;);
  sub NewSource($;);
  sub EditSource($;);
+ sub Events($;);
+ sub NewEvent($;);
+ sub EditEvent($;);
  $cgi = CGI::Lite->new();
  $req = FCGI::Request();
  $globals        = globals->new();
  $template       = template->new($globals);
  $dbh            = db->new($globals);
- #$event         = Event->new($globals, $dbh);
+ $event          = Event->new($globals, $dbh);
  $source         = Source->new($globals, $dbh);
  $restart        = restart->new({
                  restart_func                    => sub { $req->LastCall() },
-Line 108  while ( $globals->run && ($req->Accept()
+Line 111  while ( $globals->run && ($req->Accept()
 Line 108  while ( $globals->run && ($req->Accept()
 Line 111  while ( $globals->run && ($req->Accept()
          elsif ($query{action} eq 'editsource') {
                  EditSource(\%query);
          }
+         elsif ($query{action} eq 'newevent') {
+                 NewEvent(\%query);
+         }
+         elsif ($query{action} eq 'editevent') {
+                 EditEvent(\%query);
+         }
          if ($query{action} eq 'sources') {
                  Sources(\%query);
          }
+         elsif ($query{action} eq 'events') {
+                 Events(\%query);
+         }
+         elsif ($query{action} eq 'about') {
+                 my      $template_data = {
+                         query           => \%query,
+                 };
+                 $in_reply = 1;
+                 $template->process('about.tt2', $template_data) or die $template->error(), "\n";
+         }
          if ($in_reply == 0) {
                  Main(\%query);
-Line 164  sub NewSource($;)
+Line 184  sub NewSource($;)
 Line 164  sub NewSource($;)
 Line 184  sub NewSource($;)
          if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db
                  $template_data = {
                          query           => $ref_query,
-                         sources         => $source->list(),
                  };
                  $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;
                  $source->new_source($ref_query);
-Line 190  sub EditSource($;)
+Line 209  sub EditSource($;)
 Line 190  sub EditSource($;)
 Line 209  sub EditSource($;)
          if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db
                  $template_data = {
                          query           => $ref_query,
-                         sources         => $source->list(),
                  };
                  $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;
                  $source->update_source($ref_query);
-Line 210  sub EditSource($;)
+Line 228  sub EditSource($;)
 Line 210  sub EditSource($;)
 Line 228  sub EditSource($;)
  } # }}} EditSource
+ sub Events($;)
+ { # {{{
+         my ($ref_query) = @_;
+         my      $template_data = {
+                 query           => $ref_query,
+                 events          => $event->list(),
+                 sources         => $source->list(),
+         };
+         $in_reply = 1;
+         $template->process('events.tt2', $template_data) or die $template->error(), "\n";
+ } # }}} Events
+ sub NewEvent($;)
+ { # {{{
+         my ($ref_query) = @_;
+         my $template_data;
+         if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db
+                 $template_data = {
+                         query           => $ref_query,
+                 };
+                 $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;
+                 $event->new_event($ref_query);
+                 $ref_query->{action} = "events";
+         }
+         else {
+                 $template_data = {
+                         query           => $ref_query,
+                 };
+                 $in_reply = 1;
+                 $template->process('newevent.tt2', $template_data) or die $template->error(), "\n";
+         }
+ } # }}} EditEvent
+ sub EditEvent($;)
+ { # {{{
+         my ($ref_query) = @_;
+         my $template_data;
+         if (defined $ref_query->{store} and $ref_query->{store} eq '1') { # save data into db
+                 $template_data = {
+                         query           => $ref_query,
+                 };
+                 $ref_query->{active} = (defined($ref_query->{active}) and $ref_query->{active} =~ m/^\d$/) ? $ref_query->{active} : 0;
+                 $event->update_event($ref_query);
+                 $ref_query->{action} = "events";
+         }
+         else { # read data from db and fill formular
+                 $template_data = {
+                         query           => $ref_query,
+                         event           => $event->get($ref_query->{eventid}),
+                 };
+                 $in_reply = 1;
+                 $template->process('editevent.tt2', $template_data) or die $template->error(), "\n";
+         }
+ } # }}} EditEvent
  sub to_ascii($;)
  { # {{{
          my ($str) = @_;
 Legend:


Removed from v.1.4
 


changed lines


 
Added in v.1.5
 Legend:


Removed from v.1.4
 


changed lines


 
Added in v.1.5
-Removed from v.1.4
+Added in v.1.5


Copyright © 2002-2006 Platon Group Site powered by Metafox CMS	Go to Top