[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb:[5453] trunk/bin/pe.pl

Revision: 5453
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5453&view=rev
Author:   einhverfr
Date:     2013-01-01 10:08:03 +0000 (Tue, 01 Jan 2013)
Log Message:
-----------
Removing old partsgroup search code

Modified Paths:
--------------
    trunk/bin/pe.pl

Modified: trunk/bin/pe.pl
===================================================================
--- trunk/bin/pe.pl	2013-01-01 09:59:47 UTC (rev 5452)
+++ trunk/bin/pe.pl	2013-01-01 10:08:03 UTC (rev 5453)
@@ -267,134 +267,6 @@
 
 }
 
-sub partsgroup_report {
-
-    $form->{partsgroup} = $form->unescape( $form->{partsgroup} );
-    PE->partsgroups( \%myconfig, \%$form );
-
-    $href =
-"$form->{script}?action=partsgroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-
-    $form->sort_order();
-
-    $callback =
-"$form->{script}?action=partsgroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-
-    if ( $form->{status} eq 'all' ) {
-        $option = $locale->text('All');
-    }
-    if ( $form->{status} eq 'orphaned' ) {
-        $option .= $locale->text('Orphaned');
-    }
-    if ( $form->{partsgroup} ) {
-        $callback .= "&partsgroup=$form->{partsgroup}";
-        $option .= "\n<br>" . $locale->text('Group') . " : $form->{partsgroup}";
-    }
-
-    @column_index = $form->sort_columns(qw(partsgroup));
-
-    $column_header{partsgroup} =
-        qq|<th><a class=listheading href=$href&sort=partsgroup width=90%>|
-      . $locale->text('Group')
-      . qq|</a></th>|;
-
-    $form->{title} = $locale->text('Groups');
-
-    $form->header;
-
-    print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-    for (@column_index) { print "$column_header{$_}\n" }
-
-    print qq|
-        </tr>
-|;
-
-    # escape callback
-    $form->{callback} = $callback;
-
-    # escape callback for href
-    $callback = $form->escape($callback);
-
-    foreach $ref ( @{ $form->{item_list} } ) {
-
-        $i++;
-        $i %= 2;
-
-        print qq|
-        <tr valign=top class=listrow$i>
-|;
-
-        $column_data{partsgroup} =
-qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partsgroup}</td>|;
-        for (@column_index) { print "$column_data{$_}\n" }
-
-        print "
-        </tr>
-";
-    }
-
-    $i = 1;
-    if ( $myconfig{acs} !~ /Goods \& Services--Goods \& Services/ ) {
-        $button{'Goods & Services--Add Group'}{code} =
-qq|<button class="submit" type="submit" name="action" value="add_group">|
-          . $locale->text('Add Group')
-          . qq|</button> |;
-        $button{'Goods & Services--Add Group'}{order} = $i++;
-
-        foreach $item ( split /;/, $myconfig{acs} ) {
-            delete $button{$item};
-        }
-    }
-
-    print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-|;
-
-    $form->hide_form(qw(callback type path login sessionid));
-
-    foreach $item ( sort { $a->{order} <=> $b->{order} } %button ) {
-        print $item->{code};
-    }
-
-    if ( $form->{lynx} ) {
-        require "bin/menu.pl";
-        &menubar;
-    }
-
-    print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
 sub partsgroup_header {
 
     $form->{action} =~ s/_.*//;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.