| 
      
            Lines 59-66
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 59 | 
           | 
          59 | 
           | 
        
        
          | 60 | 
                  &ModBudgetPlan  | 
          60 | 
                  &ModBudgetPlan  | 
        
        
          | 61 | 
           | 
          61 | 
           | 
        
            
              | 62 | 
                      &ConvertCurrency  | 
               | 
               | 
            
            
              | 63 | 
                        | 
            
        
          | 64 | 
          		&GetBudgetsPlanCell  | 
          62 | 
          		&GetBudgetsPlanCell  | 
        
        
          | 65 | 
                  &AddBudgetPlanValue  | 
          63 | 
                  &AddBudgetPlanValue  | 
        
        
          | 66 | 
                  &GetBudgetAuthCats  | 
          64 | 
                  &GetBudgetAuthCats  | 
        
  
    | 
      
            Lines 913-949
          sub CanUserModifyBudget {
      
      
        Link Here
      
     | 
  
        
          | 913 | 
              return 1;  | 
          911 | 
              return 1;  | 
        
        
          | 914 | 
          }  | 
          912 | 
          }  | 
        
        
          | 915 | 
           | 
          913 | 
           | 
        
            
              | 916 | 
              # -------------------------------------------------------------------  | 
               | 
               | 
            
            
              | 917 | 
               | 
            
            
              | 918 | 
              =head2 ConvertCurrency  | 
            
            
              | 919 | 
               | 
            
            
              | 920 | 
                $foreignprice = &ConvertCurrency($currency, $localprice);  | 
            
            
              | 921 | 
               | 
            
            
              | 922 | 
              Converts the price C<$localprice> to foreign currency C<$currency> by  | 
            
            
              | 923 | 
              dividing by the exchange rate, and returns the result.  | 
            
            
              | 924 | 
               | 
            
            
              | 925 | 
              If no exchange rate is found, e is one to one.  | 
            
            
              | 926 | 
               | 
            
            
              | 927 | 
              =cut  | 
            
            
              | 928 | 
               | 
            
            
              | 929 | 
              sub ConvertCurrency { | 
            
            
              | 930 | 
                  my ( $currency, $price ) = @_;  | 
            
            
              | 931 | 
                  my $dbh   = C4::Context->dbh;  | 
            
            
              | 932 | 
                  my $query = "  | 
            
            
              | 933 | 
                      SELECT rate  | 
            
            
              | 934 | 
                      FROM   currency  | 
            
            
              | 935 | 
                      WHERE  currency=?  | 
            
            
              | 936 | 
                  ";  | 
            
            
              | 937 | 
                  my $sth = $dbh->prepare($query);  | 
            
            
              | 938 | 
                  $sth->execute($currency);  | 
            
            
              | 939 | 
                  my $cur = ( $sth->fetchrow_array() )[0];  | 
            
            
              | 940 | 
                  unless ($cur) { | 
            
            
              | 941 | 
                      $cur = 1;  | 
            
            
              | 942 | 
                  }  | 
            
            
              | 943 | 
                  return ( $price / $cur );  | 
            
            
              | 944 | 
              }  | 
            
            
              | 945 | 
               | 
            
            
              | 946 | 
               | 
            
        
          | 947 | 
          =head2 CloneBudgetPeriod  | 
          914 | 
          =head2 CloneBudgetPeriod  | 
        
        
          | 948 | 
           | 
          915 | 
           | 
        
        
          | 949 | 
            my $new_budget_period_id = CloneBudgetPeriod({ | 
          916 | 
            my $new_budget_period_id = CloneBudgetPeriod({ |