projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4173fc5
)
visual
author
ivan
<ivan>
Sat, 21 Nov 1998 07:39:52 +0000
(07:39 +0000)
committer
ivan
<ivan>
Sat, 21 Nov 1998 07:39:52 +0000
(07:39 +0000)
htdocs/browse/agent_type.cgi
patch
|
blob
|
history
diff --git
a/htdocs/browse/agent_type.cgi
b/htdocs/browse/agent_type.cgi
index
5f05bd5
..
cb6ee8d
100755
(executable)
--- a/
htdocs/browse/agent_type.cgi
+++ b/
htdocs/browse/agent_type.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-#
agent_type.cgi: browse agent_type
+#
$Id: agent_type.cgi,v 1.2 1998-11-21 07:39:52 ivan Exp $
#
# ivan@sisd.com 97-dec-10
#
#
# ivan@sisd.com 97-dec-10
#
@@
-9,30
+9,34
@@
# bmccane@maxbaud.net 98-apr-3
#
# lose background, FS::CGI ivan@sisd.com 98-sep-2
# bmccane@maxbaud.net 98-apr-3
#
# lose background, FS::CGI ivan@sisd.com 98-sep-2
+#
+# $Log: agent_type.cgi,v $
+# Revision 1.2 1998-11-21 07:39:52 ivan
+# visual
+#
use strict;
use strict;
-use CGI::Base;
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup swapuid);
use FS::Record qw(qsearch qsearchs);
use FS::UID qw(cgisuidsetup swapuid);
use FS::Record qw(qsearch qsearchs);
-use FS::CGI qw(header menubar);
+use FS::CGI qw(header menubar popurl table);
+use FS::agent_type;
+use FS::type_pkgs;
+use FS::part_pkg;
-my($cgi) = new CGI::Base;
-$cgi->get;
+my($cgi) = new CGI;
&cgisuidsetup($cgi);
&cgisuidsetup($cgi);
-SendHeaders(); # one guess.
-
-print header("Agent Type Listing", menubar(
- 'Main Menu' => '../',
- 'Add new agent type' => "../edit/agent_type.cgi",
-)), <<END;
- <BR>Click on agent type number to edit.
- <TABLE BORDER>
+my($p)=popurl(2);
+print $cgi->header, header("Agent Type Listing", menubar(
+ 'Main Menu' => $p,
+)), "Agent types define groups of packages that you can then assign to".
+ " particular agents.<BR><BR>", table, <<END;
<TR>
<TR>
- <TH><FONT SIZE=-1>Type #</FONT></TH>
- <TH>Type</TH>
- <TH colspan="2">Packages</TH>
+ <TH COLSPAN=2>Agent Type</TH>
+ <TH COLSPAN="2">Packages</TH>
</TR>
END
</TR>
END
@@
-46,10
+50,10
@@
foreach $agent_type ( sort {
$rowspan = int($rowspan/2+0.5) ;
print <<END;
<TR>
$rowspan = int($rowspan/2+0.5) ;
print <<END;
<TR>
- <TD ROWSPAN=$rowspan><A HREF="
..
/edit/agent_type.cgi?$hashref->{typenum}">
+ <TD ROWSPAN=$rowspan><A HREF="
$p
/edit/agent_type.cgi?$hashref->{typenum}">
$hashref->{typenum}
</A></TD>
$hashref->{typenum}
</A></TD>
- <TD ROWSPAN=$rowspan>
$hashref->{atype}
</TD>
+ <TD ROWSPAN=$rowspan>
<A HREF="$p/edit/agent_type.cgi?$hashref->{typenum}">$hashref->{atype}</A>
</TD>
END
my($type_pkgs);
END
my($type_pkgs);
@@
-59,7
+63,7
@@
END
my($part_pkg) = qsearchs('part_pkg',{'pkgpart'=> $pkgpart });
print qq!<TR>! if ($tdcount == 0) ;
$tdcount = 0 if ($tdcount == -1) ;
my($part_pkg) = qsearchs('part_pkg',{'pkgpart'=> $pkgpart });
print qq!<TR>! if ($tdcount == 0) ;
$tdcount = 0 if ($tdcount == -1) ;
- print qq!<TD><A HREF="
..
/edit/part_pkg.cgi?$pkgpart">!,
+ print qq!<TD><A HREF="
$p
/edit/part_pkg.cgi?$pkgpart">!,
$part_pkg->getfield('pkg'),"</A></TD>";
$tdcount ++ ;
if ($tdcount == 2)
$part_pkg->getfield('pkg'),"</A></TD>";
$tdcount ++ ;
if ($tdcount == 2)
@@
-73,8
+77,8
@@
END
}
print <<END;
}
print <<END;
-
</TR></TABLE
>
- </
CENTER
>
+
<TR><TD COLSPAN=2><I><A HREF="$p/edit/agent_type.cgi">Add new agent type</A></I></TD></TR
>
+ </
TABLE
>
</BODY>
</HTML>
END
</BODY>
</HTML>
END