Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, October 16, 2026
[BACK] [TXT][DIR] Up to [Platon] / web-apps / finance-manager

Diff for web-apps/finance-manager/index.fcgi between version 1.1 and 1.2

version 1.1, 2004/02/11 10:52:52 version 1.2, 2004/02/20 11:56:52
Line 12 
Line 12 
 # 08/02/2004 - created  # 08/02/2004 - created
 #  #
   
 # $Platon$  # $Platon: scripts/perl/finance-manager/index.fcgi,v 1.1 2004/02/11 10:52:52 rajo Exp $
   
 use strict;  use strict;
   
Line 45  use vars qw (
Line 45  use vars qw (
 sub to_ascii($;);  sub to_ascii($;);
 sub Main($;);  sub Main($;);
 sub Sources($;);  sub Sources($;);
   sub NewSource($;);
 sub EditSource($;);  sub EditSource($;);
   
 $cgi = CGI::Lite->new();  $cgi = CGI::Lite->new();
Line 101  while ( $globals->run && ($req->Accept()
Line 102  while ( $globals->run && ($req->Accept()
                 Main(\%query);                  Main(\%query);
         }          }
   
         if ($query{action} eq 'editsource') {          if ($query{action} eq 'newsource') {
                   NewSource(\%query);
           }
           elsif ($query{action} eq 'editsource') {
                 EditSource(\%query);                  EditSource(\%query);
         }          }
   
Line 137  sub Main($;)
Line 141  sub Main($;)
   
 } # }}} Main  } # }}} Main
   
   
 sub Sources($;)  sub Sources($;)
 { # {{{  { # {{{
         my ($ref_query) = @_;          my ($ref_query) = @_;
Line 151  sub Sources($;)
Line 156  sub Sources($;)
   
 } # }}} Sources  } # }}} Sources
   
   sub NewSource($;)
   { # {{{
           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,
                           sources         => $source->list(),
                   };
   
                   $ref_query->{action} = "sources";
           }
           else {
                   $template_data = {
                           query           => $ref_query,
                   };
   
                   $in_reply = 1;
                   $template->process('newsource.tt2', $template_data) or die $template->error(), "\n";
           }
   
   } # }}} EditSource
   
 sub EditSource($;)  sub EditSource($;)
 { # {{{  { # {{{
         my ($ref_query) = @_;          my ($ref_query) = @_;
Line 176  sub EditSource($;)
Line 205  sub EditSource($;)
   
 } # }}} EditSource  } # }}} EditSource
   
   
 sub to_ascii($;)  sub to_ascii($;)
 { # {{{  { # {{{
         my ($str) = @_;          my ($str) = @_;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top