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

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



Revision: 4309
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4309&view=rev
Author:   einhverfr
Date:     2012-02-14 11:18:00 +0000 (Tue, 14 Feb 2012)
Log Message:
-----------
Cleaning up projects files in anticipation of moving project/department management to new framework

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

Modified: trunk/bin/pe.pl
===================================================================
--- trunk/bin/pe.pl	2012-02-14 10:13:13 UTC (rev 4308)
+++ trunk/bin/pe.pl	2012-02-14 11:18:00 UTC (rev 4309)
@@ -50,603 +50,7 @@
     PE->get_partsgroup( \%myconfig, \%$form )
       if $form->{id};
 }
-sub prepare_pricegroup {
-    PE->get_pricegroup( \%myconfig, \%$form )
-      if $form->{id};
-}
 
-sub prepare_job {
-
-    # $locale->text('Add Job')
-    # $locale->text('Edit Job')
-
-    $form->{vc} = 'customer';
-
-    PE->get_job( \%myconfig, \%$form );
-
-    $form->{taxaccounts} = "";
-    for ( keys %{ $form->{IC_links} } ) {
-
-        $form->{"select$_"} = "";
-        foreach $ref ( @{ $form->{IC_links}{$_} } ) {
-            if (/IC_tax/) {
-                if (/taxpart/) {
-                    $form->{taxaccounts} .= "$ref->{accno} ";
-                    $form->{"IC_tax_$ref->{accno}_description"} =
-                      "$ref->{accno}--$ref->{description}";
-                    if ( $form->{id} ) {
-                        if ( $form->{amount}{ $ref->{accno} } ) {
-                            $form->{"IC_tax_$ref->{accno}"} = "checked";
-                        }
-                    }
-                    else {
-                        $form->{"IC_tax_$ref->{accno}"} = "checked";
-                    }
-                }
-            }
-            else {
-                $form->{"select$_"} .=
-                  "<option>$ref->{accno}--$ref->{description}\n";
-            }
-        }
-    }
-    chop $form->{taxaccounts};
-
-    $form->{selectIC_income} = $form->{selectIC_sale};
-    $form->{IC_income}       = $form->{IC_sale};
-
-    $form->{IC_income} = qq|$form->{income_accno}--$form->{income_description}|;
-
-    delete $form->{IC_links};
-
-    $form->{"old$form->{vc}"} =
-      qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;
-
-    if ( @{ $form->{"all_$form->{vc}"} } ) {
-        $form->{"$form->{vc}"} =
-          qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;
-        $form->{"select$form->{vc}"} = qq|<option>\n|;
-        for ( @{ $form->{"all_$form->{vc}"} } ) {
-            $form->{"select$form->{vc}"} .=
-              qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
-        }
-    }
-
-    $form->get_partsgroup( \%myconfig, { all => 1 } );
-    $form->{partsgroup} =
-      $form->quote( $form->{partsgroup} ) . "--$form->{partsgroup_id}";
-    if ( @{ $form->{all_partsgroup} } ) {
-        $form->{selectpartsgroup} = qq|<option>\n|;
-        for ( @{ $form->{all_partsgroup} } ) {
-            $form->{selectpartsgroup} .=
-                qq|<option value="|
-              . $form->quote( $_->{partsgroup} )
-              . qq|--$_->{id}">$_->{partsgroup}\n|;
-        }
-    }
-
-    $form->{locked} =
-      ( $form->{revtrans} )
-      ? '1'
-      : ( $form->datetonum( \%myconfig, $form->{transdate} ) <=
-          $form->datetonum( \%myconfig, $form->{closedto} ) );
-
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Job Costing--Add Job/;
-
-}
-
-sub job_header {
-
-    for (qw(partnumber partdescription description notes unit)) {
-        $form->{$_} = $form->quote( $form->{$_} );
-    }
-
-    for (qw(production weight)) {
-        $form->{$_} = $form->format_amount( \%myconfig, $form->{$_} );
-    }
-    for (qw(listprice sellprice)) {
-        $form->{$_} = $form->format_amount( \%myconfig, $form->{$_}, 2 );
-    }
-
-    if ( ( $rows = $form->numtextrows( $form->{partdescription}, 60 ) ) > 1 ) {
-        $partdescription =
-qq|<textarea name="partdescription" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{partdescription}</textarea>|;
-    }
-    else {
-        $partdescription =
-qq|<input name=partdescription size=60 value="$form->{partdescription}">|;
-    }
-
-    if ( ( $rows = $form->numtextrows( $form->{description}, 60 ) ) > 1 ) {
-        $description =
-qq|<textarea name="description" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{description}</textarea>|;
-    }
-    else {
-        $description =
-          qq|<input name=description size=60 value="$form->{description}">|;
-    }
-
-    if ( ( $rows = $form->numtextrows( $form->{notes}, 40 ) ) < 2 ) {
-        $rows = 2;
-    }
-
-    $notes =
-qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|;
-
-    $form->{selectIC_income} = $form->unescape( $form->{selectIC_income} );
-    $form->{"select$form->{vc}"} =
-      $form->unescape( $form->{"select$form->{vc}"} );
-    $form->{"select$form->{vc}"} =~ s/ selected//;
-    $form->{"select$form->{vc}"} =~
-      s/(<option value="\Q$form->{"$form->{vc}"}\E")/$1 selected/;
-
-    $label = ucfirst $form->{vc};
-    if ( $form->{"select$form->{vc}"} ) {
-        $name = qq|
-	<tr>
-	  <th align=right nowrap>| . $locale->text($label) . qq|</th>
-	  <td colspan=3><select name="$form->{vc}">$form->{"select$form->{vc}"}</select></td>
-	  <input type=hidden name="select$form->{vc}" value="|
-          . $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
-	</tr>
-|;
-    }
-    else {
-        $name = qq|
-	<tr>
-	  <th align=right nowrap>| . $locale->text($label) . qq|</th>
-	  <td colspan=3><input name="$form->{vc}" value="$form->{"$form->{vc}"}" size=35></td>
-	  <input type=hidden name="select$form->{vc}" value="|
-          . $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
-	</tr>
-|;
-    }
-
-    if ( $form->{orphaned} ) {
-
-        for (qw(income)) {
-            $form->{"selectIC_$_"} =~ s/ selected//;
-            $form->{"selectIC_$_"} =~
-              s/option>\Q$form->{"IC_$_"}\E/option selected>$form->{"IC_$_"}/;
-        }
-
-        $production = qq|
-	<tr>
-	  <th align=right nowrap>| . $locale->text('Production') . qq|</th>
-	  <td><input name=production size=10 value="$form->{production}"></td>
-	  <th align=right nowrap>| . $locale->text('Completed') . qq|</th>
-	  <td>$form->{completed}</td>
-	</tr>
-|;
-
-    }
-    else {
-
-        $form->{selectIC_income} = qq|<option selected>$form->{IC_income}|;
-
-        $production = qq|
-	<tr>
-	  <th align=right nowrap>| . $locale->text('Production') . qq|</th>
-	  <td><input type=hidden name=production value="$form->{production}">$form->{production}</td>
-	  <th align=right nowrap>| . $locale->text('Completed') . qq|</th>
-	  <td>$form->{completed}</td>
-	</tr>
-|;
-
-    }
-
-    for ( split / /, $form->{taxaccounts} ) {
-        $form->{"IC_tax_$_"} = ( $form->{"IC_tax_$_"} ) ? "checked" : "";
-    }
-
-    if ( $form->{selectpartsgroup} ) {
-        $form->{selectpartsgroup} =
-          $form->unescape( $form->{selectpartsgroup} );
-
-        $partsgroup =
-          qq|<input type=hidden name=selectpartsgroup value="|
-          . $form->escape( $form->{selectpartsgroup}, 1 ) . qq|">|;
-        $form->{partsgroup} = $form->quote( $form->{partsgroup} );
-        $form->{selectpartsgroup} =~
-          s/(<option value="\Q$form->{partsgroup}\E")/$1 selected/;
-
-        $partsgroup .=
-          qq|\n<select name=partsgroup>$form->{selectpartsgroup}</select>|;
-        $group = $locale->text('Group');
-    }
-
-    $linkaccounts = qq|
-	<tr>
-	  <th align=right nowrap>| . $locale->text('Income') . qq|</th>
-	  <td><select name=IC_income>$form->{selectIC_income}</select></td>
-	</tr>
-|;
-
-    for ( split / /, $form->{taxaccounts} ) {
-        $tax .= qq|
-        <input class=checkbox type=checkbox name="IC_tax_$_" value=1 $form->{"IC_tax_$_"}>&nbsp;<b>$form->{"IC_tax_${_}_description"}</b>
-	<br><input type=hidden name=IC_tax_${_}_description value="$form->{"IC_tax_${_}_description"}">
-|;
-    }
-
-    if ($tax) {
-        $linkaccounts .= qq|
-              <tr>
-	        <th align=right>| . $locale->text('Tax') . qq|</th>
-		<td>$tax</td>
-	      </tr>
-|;
-    }
-
-    $partnumber = qq|
-	<tr>
-	  <td>
-	    <table>
-	      <tr valign=top>
-	        <th align=left>| . $locale->text('Number') . qq|</th>
-		<th align=left>| . $locale->text('Description') . qq|</th>
-		<th align=left>$group</th>
-	      </tr>
-	      <tr valign=top>
-	        <td><input name=partnumber value="$form->{partnumber}" size=20></td>
-		<td>$partdescription</td>
-		<td>$partsgroup</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-
-    $form->{title} =
-      ( $form->{id} ) ? $locale->text('Edit Job') : $locale->text('Add Job');
-
-    $form->header;
-
-    print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-    for (qw(partnumber startdate enddate)) { $form->{"old$_"} = $form->{$_} }
-
-    print qq|<input type=hidden name="selectIC_income" value="|
-      . $form->escape( $form->{"selectIC_income"}, 1 )
-      . qq|">\n|;
-
-    $form->hide_form(
-        "id",             "type",
-        "old$form->{vc}", "$form->{vc}_id",
-        "orphaned",       "taxaccounts",
-        "vc",             "project"
-    );
-
-    print qq|
-  
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>| . $locale->text('Number') . qq|</th>
-	  <td><input name=projectnumber size=20 value="$form->{projectnumber}"></td>
-	  <th align=right>| . $locale->text('Description') . qq|</th>
-	  <td>$description</td>
-	</tr>
-	$name
-	<tr>
-	  <th align=right>| . $locale->text('Startdate') . qq|</th>
-	  <td><input class="date" name=startdate size=11 title="($myconfig{dateformat})" value=$form->{startdate}></td>
-	  <th align=right>| . $locale->text('Enddate') . qq|</th>
-	  <td><input class="date" name=enddate size=11 title="($myconfig{dateformat})" value=$form->{enddate}></td>
-	</tr>
-	$production
-      </table>
-    </td>
-  </tr>
-  <tr class="listheading">
-    <th class="listheading" align="center">|
-      . $locale->text('Assembly')
-      . qq|</th>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	$partnumber
-	<tr>
-	  <td colspan=3>
-	    <table width=100%>
-	      <tr>
-	        <td width=70%>
-		  <table width=100%>
-		    <tr class="listheading">
-		      <th class="listheading" align="center" colspan=2>|
-      . $locale->text('Link Accounts')
-      . qq|</th>
-		    </tr>
-		    $linkaccounts
-		    <tr>
-		      <th align="left">| . $locale->text('Notes') . qq|</th>
-		    </tr>
-		    <tr>
-		      <td colspan=2>
-			$notes
-		      </td>
-		    </tr>
-		  </table>
-		</td>
-		<td align=right>
-		  <table>
-		    <tr>
-		      <th align="right" nowrap="true">| . $locale->text('Updated') . qq|</th>
-		      <td><input name=priceupdate size=11 title="$myconfig{dateformat}" value=$form->{priceupdate}></td>
-		    </tr>
-		    <tr>
-		      <th align="right" nowrap="true">|
-      . $locale->text('List Price')
-      . qq|</th>
-		      <td><input name=listprice size=11 value=$form->{listprice}></td>
-		    </tr>
-		    <tr>
-		      <th align="right" nowrap="true">|
-      . $locale->text('Sell Price')
-      . qq|</th>
-		      <td><input name=sellprice size=11 value=$form->{sellprice}></td>
-		    </tr>
-		    <tr>
-		      <th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
-		      <td>
-			<table>
-			  <tr>
-			    <td>
-			      <input name=weight size=10 value=$form->{weight}>
-			    </td>
-			    <th>
-			      &nbsp;
-			      $form->{weightunit}
-			      <input type=hidden name=weightunit value=$form->{weightunit}>
-			    </th>
-			  </tr>
-			</table>
-		      </td>
-		    <tr>
-		      <th align="right" nowrap="true">| . $locale->text('Bin') . qq|</th>
-		      <td><input name=bin size=10 value="$form->{bin}"></td>
-		    </tr>
-		    <tr>
-		      <th align="right" nowrap="true">| . $locale->text('Unit') . qq|</th>
-		      <td><input name=unit size=5 value="$form->{unit}"></td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-sub job_footer {
-
-    $form->hide_form(qw(callback path login sessionid));
-
-    # type=submit $locale->text('Update')
-    # type=submit $locale->text('Save')
-    # type=submit $locale->text('Delete')
-
-    %button =
-      ( 'update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
-      );
-
-    if ( $myconfig{acs} !~ /Job Costing--Add Job/ ) {
-        $button{'save'} =
-          { ndx => 3, key => 'S', value => $locale->text('Save') };
-
-        if ( $form->{id} && $form->{orphaned} ) {
-            $button{'delete'} =
-              { ndx => 16, key => 'D', value => $locale->text('Delete') };
-        }
-    }
-
-    for ( sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button ) {
-        $form->print_button( \%button, $_ );
-    }
-
-    if ( $form->{lynx} ) {
-        require "bin/menu.pl";
-        &menubar;
-    }
-
-    print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-sub list_stock {
-
-    PE->list_stock( \%myconfig, \%$form );
-
-    $form->{title}  = $locale->text('Stock Finished Goods');
-    $form->{action} = "list_stock";
-
-    $href = "$form->{script}?";
-    for (qw(action direction oldsort type path login sessionid status)) {
-        $href .= "$_=$form->{$_}&";
-    }
-
-    $form->sort_order();
-
-    $callback = "$form->{script}?";
-    for (qw(action direction oldsort type path login sessionid status)) {
-        $callback .= "$_=$form->{$_}&";
-    }
-
-    @column_index =
-      $form->sort_columns(
-        qw(projectnumber description startdate partnumber production completed stock)
-      );
-
-    if ( $form->{projectnumber} ) {
-        $href .= "&projectnumber=" . $form->escape( $form->{projectnumber} );
-        $callback .= "&projectnumber=$form->{projectnumber}";
-        ($var) = split /--/, $form->{projectnumber};
-        $option .= "\n<br>" . $locale->text('Job Number') . " : $var";
-    }
-    if ( $form->{stockingdate} ) {
-        $href   .= "&stockingdate=$form->{stockingdate}";
-        $option .= "\n<br>"
-          . $locale->text('As of') . " : "
-          . $locale->date( \%myconfig, $form->{stockingdate}, 1 );
-    }
-
-    $column_header{projectnumber} =
-        qq|<th width=30%><a class=listheading href=$href&sort=projectnumber>|
-      . $locale->text('Number')
-      . qq|</a></th>|;
-    $column_header{description} =
-        qq|<th width=50%><a class=listheading href=$href&sort=description>|
-      . $locale->text('Description')
-      . qq|</a></th>|;
-    $column_header{startdate} =
-        qq|<th width=10%><a class=listheading href=$href&sort=startdate>|
-      . $locale->text('Startdate')
-      . qq|</a></th>|;
-    $column_header{partnumber} =
-        "<th><a class=listheading href=$href&sort=partnumber>"
-      . $locale->text('Assembly')
-      . "</a></th>";
-    $column_header{production} =
-      "<th class=listheading>" . $locale->text('Production') . "</a></th>";
-    $column_header{completed} =
-      "<th class=listheading>" . $locale->text('Completed') . "</a></th>";
-    $column_header{stock} =
-      "<th class=listheading>" . $locale->text('Add') . "</a></th>";
-
-    $form->header;
-
-    if ( @{ $form->{all_project} } ) {
-        $sameitem = $form->{all_project}->[0]->{ $form->{sort} };
-    }
-
-    print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<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 .= "&sort=$form->{sort}";
-
-    # escape callback for href
-    $callback = $form->escape($callback);
-
-    # flip direction
-    $direction = ( $form->{direction} eq 'ASC' ) ? "ASC" : "DESC";
-    $href =~ s/&direction=(\w+)&/&direction=$direction&/;
-
-    $i = 0;
-    foreach $ref ( @{ $form->{all_project} } ) {
-
-        $i++;
-
-        for (qw(projectnumber description startdate enddate partnumber)) {
-            $column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>|;
-        }
-        for (qw(production completed)) {
-            $column_data{$_} =
-                qq|<td align=right>|
-              . $form->format_amount( \%myconfig, $ref->{$_} )
-              . qq|</td>|;
-        }
-        $column_data{stock} = qq|<td><input name="stock_$i" size=6></td>|;
-
-        $j++;
-        $j %= 2;
-
-        print qq|
-        <tr valign=top class=listrow$j>
-	<input type=hidden name="id_$i" value=$ref->{id}>
-|;
-
-        for (@column_index) { print "$column_data{$_}\n" }
-
-        print "
-        </tr>
-";
-    }
-
-    print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-    $form->hide_form(qw(callback type path login sessionid status));
-
-    print qq|
-<input type="hidden" name="nextsub" value="stock">
-<br>
-<button type="submit" class="submit" name="action" value="continue">|
-      . $locale->text('Continue')
-      . qq|</button>
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-sub stock {
-
-    if ( PE->stock_assembly( \%myconfig, \%$form ) ) {
-        $form->redirect( $locale->text('Assembly stocked!') );
-    }
-    else {
-        $form->error( $locale->text('Cannot stock Assembly!') );
-    }
-
-}
-
 sub prepare_project {
 
     $form->{vc} = 'customer';
@@ -879,18 +283,6 @@
 
 }
 
-sub job_report {
-
-    for (qw(projectnumber description)) {
-        $form->{$_} = $form->unescape( $form->{$_} );
-    }
-    PE->jobs( \%myconfig, \%$form );
-
-    $form->{action} = "job_report";
-    &list_projects;
-
-}
-
 sub project_report {
 
     for (qw(projectnumber description)) {

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