From 51984ac3d3da3006809c6866fdecd4ad83610731 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 30 Jul 2001 07:36:04 +0000 Subject: templates!!! --- httemplate/edit/part_referral.cgi | 94 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 94 insertions(+) create mode 100755 httemplate/edit/part_referral.cgi (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi new file mode 100755 index 000000000..e7d76f7e4 --- /dev/null +++ b/httemplate/edit/part_referral.cgi @@ -0,0 +1,94 @@ +<% +# +# $Id: part_referral.cgi,v 1.1 2001-07-30 07:36:04 ivan Exp $ +# +# ivan@sisd.com 98-feb-23 +# +# Changes to allow page to work at a relative position in server +# bmccane@maxbaud.net 98-apr-3 +# +# confisuing typo on submit button ivan@sisd.com 98-jun-14 +# +# lose background, FS::CGI ivan@sisd.com 98-sep-2 +# +# $Log: part_referral.cgi,v $ +# Revision 1.1 2001-07-30 07:36:04 ivan +# templates!!! +# +# Revision 1.6 1999/04/07 11:43:23 ivan +# pick up errors right away, leave input +# +# Revision 1.5 1999/02/07 09:59:20 ivan +# more mod_perl fixes, and bugfixes Peter Wemm sent via email +# +# Revision 1.4 1999/01/19 05:13:41 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.3 1999/01/18 09:41:30 ivan +# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl +# (good idea anyway) +# +# Revision 1.2 1998/12/17 06:17:06 ivan +# fix double // in relative URLs, s/CGI::Base/CGI/; +# + +use strict; +use vars qw( $cgi $part_referral $action $hashref $p1 $query ); +use CGI; +use CGI::Carp qw(fatalsToBrowser); +use FS::UID qw(cgisuidsetup); +use FS::Record qw(qsearch qsearchs fields); +use FS::part_referral; +use FS::CGI qw(header menubar popurl); + +$cgi = new CGI; + +&cgisuidsetup($cgi); + +if ( $cgi->param('error') ) { + $part_referral = new FS::part_referral ( { + map { $_, scalar($cgi->param($_)) } fields('part_referral') + } ); +} elsif ( $cgi->keywords ) { + my($query) = $cgi->keywords; + $query =~ /^(\d+)$/; + $part_referral = qsearchs( 'part_referral', { 'refnum' => $1 } ); +} else { #adding + $part_referral = new FS::part_referral {}; +} +$action = $part_referral->refnum ? 'Edit' : 'Add'; +$hashref = $part_referral->hashref; + +$p1 = popurl(1); +print $cgi->header( '-expires' => 'now' ), header("$action Referral", menubar( + 'Main Menu' => popurl(2), + 'View all referrals' => popurl(2). "browse/part_referral.cgi", +)); + +print qq!Error: !, $cgi->param('error'), + "" + if $cgi->param('error'); + +print qq!
!; + +print qq!!, + "Referral #", $hashref->{refnum} ? $hashref->{refnum} : "(NEW)"; + +print < +Referral + +END + +print qq!
!; + +print < + + +END + +%> -- cgit v1.2.1 From 3d671921441ba8422650b54435a1959ad1d4c71d Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 21 Aug 2001 02:31:57 +0000 Subject: remove $Log$ messages. whew. --- httemplate/edit/part_referral.cgi | 34 +--------------------------------- 1 file changed, 1 insertion(+), 33 deletions(-) (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi index e7d76f7e4..9ed8977cd 100755 --- a/httemplate/edit/part_referral.cgi +++ b/httemplate/edit/part_referral.cgi @@ -1,37 +1,5 @@ <% -# -# $Id: part_referral.cgi,v 1.1 2001-07-30 07:36:04 ivan Exp $ -# -# ivan@sisd.com 98-feb-23 -# -# Changes to allow page to work at a relative position in server -# bmccane@maxbaud.net 98-apr-3 -# -# confisuing typo on submit button ivan@sisd.com 98-jun-14 -# -# lose background, FS::CGI ivan@sisd.com 98-sep-2 -# -# $Log: part_referral.cgi,v $ -# Revision 1.1 2001-07-30 07:36:04 ivan -# templates!!! -# -# Revision 1.6 1999/04/07 11:43:23 ivan -# pick up errors right away, leave input -# -# Revision 1.5 1999/02/07 09:59:20 ivan -# more mod_perl fixes, and bugfixes Peter Wemm sent via email -# -# Revision 1.4 1999/01/19 05:13:41 ivan -# for mod_perl: no more top-level my() variables; use vars instead -# also the last s/create/new/; -# -# Revision 1.3 1999/01/18 09:41:30 ivan -# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl -# (good idea anyway) -# -# Revision 1.2 1998/12/17 06:17:06 ivan -# fix double // in relative URLs, s/CGI::Base/CGI/; -# +# use strict; use vars qw( $cgi $part_referral $action $hashref $p1 $query ); -- cgit v1.2.1 From 91387f8f489e561deaf1de052d80ef800a4970a3 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 26 Oct 2001 10:24:56 +0000 Subject: cache foo *sigh* --- httemplate/edit/part_referral.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi index 9ed8977cd..06f416903 100755 --- a/httemplate/edit/part_referral.cgi +++ b/httemplate/edit/part_referral.cgi @@ -1,5 +1,5 @@ <% -# +# use strict; use vars qw( $cgi $part_referral $action $hashref $p1 $query ); @@ -29,7 +29,7 @@ $action = $part_referral->refnum ? 'Edit' : 'Add'; $hashref = $part_referral->hashref; $p1 = popurl(1); -print $cgi->header( '-expires' => 'now' ), header("$action Referral", menubar( +print $cgi->header( @FS::CGI::header ), header("$action Referral", menubar( 'Main Menu' => popurl(2), 'View all referrals' => popurl(2). "browse/part_referral.cgi", )); -- cgit v1.2.1 From c14a267229fc0d6f2d2afdebab3bd34d825df2ef Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 30 Oct 2001 14:54:07 +0000 Subject: get rid of header foo in individual templates --- httemplate/edit/part_referral.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi index 06f416903..09344b956 100755 --- a/httemplate/edit/part_referral.cgi +++ b/httemplate/edit/part_referral.cgi @@ -1,5 +1,5 @@ <% -# +# use strict; use vars qw( $cgi $part_referral $action $hashref $p1 $query ); @@ -29,7 +29,7 @@ $action = $part_referral->refnum ? 'Edit' : 'Add'; $hashref = $part_referral->hashref; $p1 = popurl(1); -print $cgi->header( @FS::CGI::header ), header("$action Referral", menubar( +print header("$action Referral", menubar( 'Main Menu' => popurl(2), 'View all referrals' => popurl(2). "browse/part_referral.cgi", )); -- cgit v1.2.1 From 1fd6d8cf5d7854860ef4fd10ed89828e0c04ec39 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 30 Jan 2002 14:18:09 +0000 Subject: remove use Module; and $cgi = new CGI; &cgisuidsetup(); from all templates. should work better under Mason. --- httemplate/edit/part_referral.cgi | 22 +++++----------------- 1 file changed, 5 insertions(+), 17 deletions(-) (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi index 09344b956..18f6aa938 100755 --- a/httemplate/edit/part_referral.cgi +++ b/httemplate/edit/part_referral.cgi @@ -1,19 +1,7 @@ + <% -# - -use strict; -use vars qw( $cgi $part_referral $action $hashref $p1 $query ); -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); -use FS::Record qw(qsearch qsearchs fields); -use FS::part_referral; -use FS::CGI qw(header menubar popurl); - -$cgi = new CGI; - -&cgisuidsetup($cgi); +my $part_referral; if ( $cgi->param('error') ) { $part_referral = new FS::part_referral ( { map { $_, scalar($cgi->param($_)) } fields('part_referral') @@ -25,10 +13,10 @@ if ( $cgi->param('error') ) { } else { #adding $part_referral = new FS::part_referral {}; } -$action = $part_referral->refnum ? 'Edit' : 'Add'; -$hashref = $part_referral->hashref; +my $action = $part_referral->refnum ? 'Edit' : 'Add'; +my $hashref = $part_referral->hashref; -$p1 = popurl(1); +my $p1 = popurl(1); print header("$action Referral", menubar( 'Main Menu' => popurl(2), 'View all referrals' => popurl(2). "browse/part_referral.cgi", -- cgit v1.2.1 From 22a35047ecdffff80110e06cc08fc84f9ddba9b0 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 10 Feb 2002 13:21:31 +0000 Subject: removed from all files to fix any redirects, whew Mason handler.pl overrides CGI::redirect fixed strict; problems in edit/part_pkg.cgi & edit/process/part_pkg.cgi --- httemplate/edit/part_referral.cgi | 1 - 1 file changed, 1 deletion(-) (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi index 18f6aa938..22277ce71 100755 --- a/httemplate/edit/part_referral.cgi +++ b/httemplate/edit/part_referral.cgi @@ -1,4 +1,3 @@ - <% my $part_referral; -- cgit v1.2.1 From a4c96748eb6eab29a70f3a944c6520283a635c78 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 10 Feb 2002 16:05:22 +0000 Subject: *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. --- httemplate/edit/part_referral.cgi | 1 + 1 file changed, 1 insertion(+) (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi index 22277ce71..73be9e337 100755 --- a/httemplate/edit/part_referral.cgi +++ b/httemplate/edit/part_referral.cgi @@ -1,3 +1,4 @@ + <% my $part_referral; -- cgit v1.2.1 From 8ea299358401bea12bef7c2dd1841cef3cf45c20 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 27 Mar 2002 05:36:10 +0000 Subject: s/referral/advertising source/ yes, the name sucks. got a better one? --- httemplate/edit/part_referral.cgi | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi index 73be9e337..617f5dfca 100755 --- a/httemplate/edit/part_referral.cgi +++ b/httemplate/edit/part_referral.cgi @@ -17,9 +17,9 @@ my $action = $part_referral->refnum ? 'Edit' : 'Add'; my $hashref = $part_referral->hashref; my $p1 = popurl(1); -print header("$action Referral", menubar( +print header("$action Advertising source", menubar( 'Main Menu' => popurl(2), - 'View all referrals' => popurl(2). "browse/part_referral.cgi", + 'View all advertising sources' => popurl(2). "browse/part_referral.cgi", )); print qq!Error: !, $cgi->param('error'), @@ -32,13 +32,11 @@ print qq!!, "Referral #", $hashref->{refnum} ? $hashref->{refnum} : "(NEW)"; print < -Referral - +Advertising source END print qq!
{refnum} ? "Apply changes" : "Add advertising source", qq!">!; print < Date: Sat, 30 Mar 2002 02:35:15 +0000 Subject: finish up s/referral/advertising source/ --- httemplate/edit/part_referral.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'httemplate/edit/part_referral.cgi') diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi index 617f5dfca..f784dfa3e 100755 --- a/httemplate/edit/part_referral.cgi +++ b/httemplate/edit/part_referral.cgi @@ -28,8 +28,8 @@ print qq!Error: !, $cgi->param('error'), print qq!!; -print qq!!, - "Referral #", $hashref->{refnum} ? $hashref->{refnum} : "(NEW)"; +print qq!!; +#print "Referral #", $hashref->{refnum} ? $hashref->{refnum} : "(NEW)"; print < -- cgit v1.2.1