Update of /cvsroot/fink/scripts/pdb
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13177
Modified Files:
dump
Log Message:
Use new PkgVersion accessors.
Index: dump
===================================================================
RCS file: /cvsroot/fink/scripts/pdb/dump,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- dump 22 Apr 2005 21:12:55 -0000 1.16
+++ dump 28 Apr 2005 05:51:49 -0000 1.17
@@ -73,7 +73,7 @@
$vo = $po->get_version($version);
# Skip splitoffs
- #next if $vo->has_param("parent");
+ #next if $vo->has_parent();
# gather fields
$maintainer = $vo->param_default("Maintainer", "(not set)");
@@ -89,7 +89,7 @@
'name' => $vo->get_name(),
'version' => $vo->get_version(),
'revision' => $vo->get_revision(),
- 'epoch' => $vo->{_epoch},
+ 'epoch' => $vo->get_epoch(),
'descshort' => $vo->get_shortdescription(),
'desclong' => $desc,
'maintainer' => $maintainer,
@@ -99,8 +99,8 @@
);
# Determine the splitoff parent of this package
- if ($vo->has_param("parent")) {
- $data{"parentname"} = $vo->param("parent")->get_name(); #
package is a splitoff
+ if ($vo->has_parent()) {
+ $data{"parentname"} = $vo->get_parent()->get_name(); # package
is a splitoff
}
# generate SQL query
@@ -117,7 +117,7 @@
print "# $package-$version\n";
print "$q\n";
- if ($vo->has_param("parent")) {
+ if ($vo->has_parent()) {
%splitoffdata = ('name' => $vo->get_name(),
'parentkey' => $release .
$data{"parentname"},
'descshort' =>
$vo->get_shortdescription()
-------------------------------------------------------
SF.Net email is sponsored by: Tell us your software development plans!
Take this survey and enter to win a one-year sub to SourceForge.net
Plus IDC's 2005 look-ahead and a copy of this survey
Click here to start! http://www.idcswdc.com/cgi-bin/survey?id=105hix
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
